|
|
@ -70,11 +70,13 @@ KBD_INT: |
|
|
; CALL KBDQDBG |
|
|
; CALL KBDQDBG |
|
|
LD A,(KBDPORTS) ; READ CONTROLLER STATUS |
|
|
LD A,(KBDPORTS) ; READ CONTROLLER STATUS |
|
|
LD C,A |
|
|
LD C,A |
|
|
|
|
|
EZ80_IO |
|
|
IN A,(C) |
|
|
IN A,(C) |
|
|
AND 1 |
|
|
AND 1 |
|
|
RET Z |
|
|
RET Z |
|
|
LD A,(KBDPORTD) ; GET THE RESPONSE |
|
|
LD A,(KBDPORTD) ; GET THE RESPONSE |
|
|
LD C,A |
|
|
LD C,A |
|
|
|
|
|
EZ80_IO |
|
|
IN A,(C) |
|
|
IN A,(C) |
|
|
; CALL KBDQPUSH ; SAVE KEYBOARD SCAN CODE |
|
|
; CALL KBDQPUSH ; SAVE KEYBOARD SCAN CODE |
|
|
; RET |
|
|
; RET |
|
|
@ -144,6 +146,7 @@ KBDQPOP: |
|
|
; RETURN A BYTE FROM THE KEYBOARD PORT |
|
|
; RETURN A BYTE FROM THE KEYBOARD PORT |
|
|
; |
|
|
; |
|
|
KBD_IN: |
|
|
KBD_IN: |
|
|
|
|
|
EZ80_IO |
|
|
IN A,(C) ; GET THE DATA VALUE |
|
|
IN A,(C) ; GET THE DATA VALUE |
|
|
LD C,(IY+KBD_DAT) ; DATA PORT |
|
|
LD C,(IY+KBD_DAT) ; DATA PORT |
|
|
EZ80_IO |
|
|
EZ80_IO |
|
|
|