Output on port A:
DTAX: equ $0F
; DTAX: equ $1F
LATCH: equ $CF
;
LATCH: equ $DF
xxx:
LD A,7
out (LATCH),A
LD A,$C0 ;---> set port A and B as output
out (DTAX),A
looop:
LD A,14
out (LATCH),A
LD A,$00
out (DTAX),A ; set port A to 0
LD HL,(DFILE)
INC HL
LD (HL),_O
INC HL
LD (HL),_F
INC HL
LD (HL),_F
LD BC,100
CALL $0F35
LD A,14
out (LATCH),A
LD A,$FF
out (DTAX),A ; set all bits of port A to 1 (high)
LD HL,(DFILE)
INC HL
LD (HL),_O
INC HL
LD (HL),_N
INC HL
LD (HL),__
LD BC,100
CALL $0F35
jp looop
Version: v005
16
Date: 22.05.2012
