mirror of https://github.com/wwarthen/RomWBW.git
b1ackmai1er
1 year ago
4 changed files with 39 additions and 220 deletions
@ -1,207 +0,0 @@ |
|||
;__________________________________________________________________________________________________ |
|||
; HARDWARE INTERFACE FOR POLLED AND INTERRUPT DRIVEN PS2 KEYBOARD. |
|||
; |
|||
; IN POLLED MODE THE KEYBOARD DEVICE IS IDENTIFED BY THE TABLE POINTED TO BY IY |
|||
; IN INTERRUPT MODE THE KEYBOARD DEVICE IS UNKNOWN SO PREDEFINED PORT VALUES ARE USED. |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
#IF (INTPS2KBD) |
|||
KBDPORT .DB PS2PORT+1 ; READ - KEYBOARD STATUS : WRITE - COMMAND REGISTER |
|||
.DB PS2PORT ; READ / WRITE DATA PORT |
|||
|
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD QUEUE FOR INTERRUPTS |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
; |
|||
KBDQSIZ .EQU 8 ; MUST BE POWER OF TWO, <=128 |
|||
KBDQGETX .DB 0 ; QUEUE INDEX |
|||
KBDQPUTX .DB 0 ; QUEUE INDEX |
|||
.DB $55 ; GUARD BYTE FOR DEBUGGING |
|||
KBDQ .FILL KBDQSIZ,0 ; CIRCULAR KEYBOARD BUFFER |
|||
.DB $AA ; GUARD BYTE FOR DEBUGGING |
|||
|
|||
KBDQINIT: ; RESET THE QUEUE TO EMPTY |
|||
XOR A |
|||
LD (KBDQGETX),A |
|||
LD (KBDQPUTX),A |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD INTERRUPT VECTOR |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
KBD_INT: |
|||
LD A,(KBDPORT+KBD_ST) ; READ CONTROLLER STATUS |
|||
LD C,A |
|||
IN A,(C) |
|||
AND 1 |
|||
RET Z |
|||
LD A,(KBDPORT+KBD_DAT) ; GET THE RESPONSE |
|||
LD C,A |
|||
IN A,(C) |
|||
; CALL KBDQPUSH ; SAVE KEYBOARD SCAN CODE |
|||
; RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; ADD A BYTE TO THE KEYBOARD QUEUE |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
KBDQPUSH: ; ADD A SCAN CODE TO THE QUEUE |
|||
PUSH AF |
|||
CALL KBDQFULL |
|||
JR Z,KBDQISF ; EXIT IF THE QUEUE IS FULL |
|||
; |
|||
LD HL,KBDQPUTX |
|||
LD A,(HL) ; CREATE QUEUE INDEX |
|||
AND KBDQSIZ-1 |
|||
INC (HL) ; UPDATE INDEX |
|||
; |
|||
LD HL,KBDQ ; INDEX INTO THE QUEUE |
|||
LD B,0 |
|||
LD C,A |
|||
ADD HL,BC |
|||
POP AF |
|||
LD (HL),A ; SAVE THE CHARACTER IN THE QUEUE |
|||
; |
|||
RET |
|||
; |
|||
KBDQISF:POP AF |
|||
RET |
|||
|
|||
KBDQFULL: ; RETURN Z IF QUEUE IS FULL |
|||
CALL KBDQLEN ; RETURN NZ IF STILL SPACE IN QUEUE |
|||
SUB KBDQSIZ |
|||
RET |
|||
#ENDIF |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD READ |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
#IF (INTPS2KBD) |
|||
; |
|||
; RETURN A BYTE TO FROM KEYBOARD QUEUE |
|||
; |
|||
KBD_IN: |
|||
KBDQPOP: |
|||
CALL KBDQLEN |
|||
RET Z ; EXIT IF THE QUEUE IS EMPTY |
|||
; |
|||
LD HL,KBDQGETX |
|||
LD A,(HL) ; CREATE QUEUE INDEX |
|||
AND KBDQSIZ-1 |
|||
INC (HL) ; UPDATE INDEX |
|||
; |
|||
LD HL,KBDQ ; INDEX INTO THE QUEUE |
|||
LD B,0 |
|||
LD C,A |
|||
ADD HL,BC |
|||
LD A,(HL) ; GET THE CHARACTER FROM THE QUEUE |
|||
; LD (HL),B ; DEBUG - CLEAN QUEUE |
|||
; |
|||
RET |
|||
; |
|||
#ELSE |
|||
; |
|||
; RETURN A BYTE FROM THE KEYBOARD PORT |
|||
; |
|||
KBD_IN: |
|||
IN A,(C) ; GET THE DATA VALUE |
|||
LD C,(IY+KBD_DAT) ; DATA PORT |
|||
EZ80_IO |
|||
IN A,(C) ; GET THE DATA VALUE |
|||
RET |
|||
#ENDIF |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD INPUT STATUS |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
#IF (INTPS2KBD) |
|||
KBD_IST: |
|||
KBDQLEN: ; EXIT WITH NUMBER OF CHARACTERS IN QUEUE |
|||
LD A,(KBDQPUTX) ; Z STATUS AND ZERO IF NONE |
|||
LD HL,KBDQGETX |
|||
SUB (HL) |
|||
RET |
|||
#ELSE |
|||
KBD_IST: ; A=0, Z SET FOR NOTHING PENDING, OTHERWISE DATA PENDING |
|||
LD C,(IY+KBD_ST) ; STATUS PORT |
|||
EZ80_IO |
|||
IN A,(C) ; GET STATUS |
|||
AND $01 ; ISOLATE INPUT PENDING BIT |
|||
RET |
|||
#ENDIF |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; OUTPUT TO KEYBOARD COMMAND PORT |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
KBD_CMDOUT: |
|||
LD C,(IY+KBD_CMD) ; COMMAND PORT |
|||
EZ80_IO |
|||
OUT (C),A |
|||
RET |
|||
;__________________________________________________________________________________________________ |
|||
; OUTPUT TO KEYBOARD COMMAND DATA |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
KBD_DTAOUT: |
|||
LD C,(IY+KBD_DAT) ; DATA PORT |
|||
EZ80_IO |
|||
OUT (C),A |
|||
RET |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD OUTPUT STATUS - A=0, Z SET FOR NOT READY, OTHERWISE READY TO WRITE |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
KBD_OST: |
|||
LD C,(IY+KBD_ST) ; STATUS PORT |
|||
EZ80_IO |
|||
IN A,(C) ; GET STATUS |
|||
AND $02 ; ISOLATE OUTPUT EMPTY BIT |
|||
XOR $02 ; FLIP IT FOR APPROPRIATE RETURN VALUES |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; DEBUG QUEUE |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
#IF ((INTPS2KBD & (1)) |
|||
KBDQDBG: |
|||
PUSH HL |
|||
PUSH DE |
|||
PUSH BC |
|||
PUSH AF |
|||
|
|||
CALL NEWLINE ; PRINT QUEUE CONTENTS WITH PRE AND POST GUARD BYTES |
|||
LD B,KBDQSIZ+2 |
|||
LD HL,KBDQ-1 |
|||
KBDQPRT: |
|||
LD A,(HL) |
|||
CALL PRTHEXBYTE |
|||
INC HL |
|||
DJNZ KBDQPRT |
|||
|
|||
LD A,' ' ; PRINT QUEUE INDEX |
|||
CALL COUT |
|||
LD A,(KBDQGETX) |
|||
CALL PRTHEXBYTE |
|||
|
|||
LD A,' ' ; PRINT QUEUE INDEX |
|||
CALL COUT |
|||
LD A,(KBDQPUTX) |
|||
CALL PRTHEXBYTE |
|||
|
|||
LD A,' ' ; PRINT # SCAN CODES IN QUEUE |
|||
CALL COUT |
|||
CALL KBDQLEN |
|||
CALL PRTHEXBYTE |
|||
CALL NEWLINE |
|||
|
|||
POP AF |
|||
POP BC |
|||
POP DE |
|||
POP HL |
|||
RET |
|||
#ENDIF |
|||
Loading…
Reference in new issue