Reading from port A:
DTAX: equ $0F
; DTAX: equ $1F
LATCH: equ $CF
; LATCH: equ $DF
xxx:
LD A,7
out (LATCH),A
LD A,$00 ;--> set port A & B to Input
out (DTAX),A
looop:
LD A,14
out (LATCH),A
in a,(LATCH) ;Port A (register No. 14) is read
and a,$3F
LD HL,(DFILE)
INC HL
LD (HL),A ;Print the port content to the screen
jp looop
Version: v005
17
Date: 22.05.2012
