|
|
@ -15,7 +15,7 @@ |
|
|
;__________________________________________________________________________________________________ |
|
|
;__________________________________________________________________________________________________ |
|
|
; |
|
|
; |
|
|
; |
|
|
; |
|
|
KBDQSIZ .EQU 32 ; MUST BE POWER OF TWO, <=128. |
|
|
|
|
|
|
|
|
KBDQSIZ .EQU 32 ; MUST BE POWER OF TWO, <=128 |
|
|
KBDQGETX .DB 0 ; QUEUE INDEX |
|
|
KBDQGETX .DB 0 ; QUEUE INDEX |
|
|
KBDQPUTX .DB 0 ; QUEUE INDEX |
|
|
KBDQPUTX .DB 0 ; QUEUE INDEX |
|
|
; .DB $55 ; GUARD BYTE FOR DEBUGGING ; NOTE THAT SCAN CODES ARE BEING |
|
|
; .DB $55 ; GUARD BYTE FOR DEBUGGING ; NOTE THAT SCAN CODES ARE BEING |
|
|
@ -40,13 +40,8 @@ KBD_INT: |
|
|
; CALL KBDQDBG |
|
|
; CALL KBDQDBG |
|
|
LD IY,KBDIDAT ; POINT TO PORT TABLE |
|
|
LD IY,KBDIDAT ; POINT TO PORT TABLE |
|
|
; |
|
|
; |
|
|
; LD C,(IY+KBD_ST) |
|
|
|
|
|
; EZ80_IO |
|
|
|
|
|
; IN A,(C) ; READ CONTROLLER STATUS |
|
|
|
|
|
; AND 1 ; EXIT IF NOTHING |
|
|
|
|
|
|
|
|
|
|
|
CALL KBD_IST_P |
|
|
|
|
|
RET Z ; TO READ |
|
|
|
|
|
|
|
|
CALL KBD_IST_P ; READ CONTROLLER STATUS |
|
|
|
|
|
RET Z ; EXIT IF NOTHINGTO READ |
|
|
LD C,(IY+KBD_DAT) |
|
|
LD C,(IY+KBD_DAT) |
|
|
EZ80_IO ; IF SOMETHING PENDING |
|
|
EZ80_IO ; IF SOMETHING PENDING |
|
|
IN A,(C) ; READ THE BYTE IN |
|
|
IN A,(C) ; READ THE BYTE IN |
|
|
|