mirror of https://github.com/wwarthen/RomWBW.git
wayne
13 years ago
26 changed files with 1743 additions and 828 deletions
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -0,0 +1,150 @@ |
|||
; |
|||
;================================================================================================== |
|||
; ANSI EMULATION MODULE |
|||
;================================================================================================== |
|||
; |
|||
ANSI_INIT: |
|||
JR ANSI_INI |
|||
; |
|||
; |
|||
; |
|||
ANSI_DISPATCH: |
|||
LD A,B ; GET REQUESTED FUNCTION |
|||
AND $0F ; ISOLATE SUB-FUNCTION |
|||
JR Z,ANSI_IN ; $30 |
|||
DEC A |
|||
JR Z,ANSI_OUT ; $31 |
|||
DEC A |
|||
JR Z,ANSI_IST ; $32 |
|||
DEC A |
|||
JR Z,ANSI_OST ; $33 |
|||
DEC A |
|||
JR Z,ANSI_CFG ; $34 |
|||
CP 8 |
|||
JR Z,ANSI_INI ; $38 |
|||
CP 9 |
|||
JR Z,ANSI_QRY ; $39 |
|||
CALL PANIC |
|||
; |
|||
; |
|||
; |
|||
ANSI_IN: |
|||
LD B,BF_VDAKRD |
|||
JP EMU_VDADISP |
|||
; |
|||
; |
|||
; |
|||
ANSI_OUT: |
|||
CALL ANSI_DOCHAR |
|||
XOR A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
ANSI_IST: |
|||
LD B,BF_VDAKST |
|||
JP EMU_VDADISP |
|||
; |
|||
; |
|||
; |
|||
ANSI_OST: |
|||
XOR A |
|||
INC A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
ANSI_CFG: |
|||
XOR A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
ANSI_INI: |
|||
LD (ANSI_ROW),A |
|||
LD (ANSI_COL),A |
|||
LD B,BF_VDARES |
|||
JP EMU_VDADISP ; RESET VDA |
|||
; |
|||
; |
|||
; |
|||
ANSI_QRY: |
|||
XOR A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
ANSI_DOCHAR: |
|||
LD A,E ; CHARACTER TO PROCESS |
|||
CP 8 ; BACKSPACE |
|||
JR Z,ANSI_BS |
|||
CP 12 ; FORMFEED |
|||
JR Z,ANSI_FF |
|||
CP 13 ; CARRIAGE RETURN |
|||
JR Z,ANSI_CR |
|||
CP 10 ; LINEFEED |
|||
JR Z,ANSI_LF |
|||
CP 32 ; COMPARE TO SPACE (FIRST PRINTABLE CHARACTER) |
|||
RET C ; SWALLOW OTHER CONTROL CHARACTERS |
|||
LD B,BF_VDAWRC |
|||
CALL EMU_VDADISP ; SPIT OUT THE RAW CHARACTER |
|||
LD A,(ANSI_COL) ; GET CUR COL |
|||
INC A ; INCREMENT |
|||
LD (ANSI_COL),A ; SAVE IT |
|||
CP 80 ; COMPARE TO COLS IN LINE |
|||
RET C ; NOT PAST END OF LINE, ALL DONE |
|||
CALL ANSI_CR ; CARRIAGE RETURN |
|||
JR ANSI_LF ; LINEFEED AND RETURN |
|||
; |
|||
ANSI_FF: |
|||
LD DE,0 ; HOME CURSOR |
|||
LD (ANSI_ROWCOL),DE ; SAVE IT |
|||
CALL ANSI_XY ; EXECUTE |
|||
LD E,' ' ; FILL SCREEN WITH BLANKS |
|||
LD HL,80 * 24 ; NUMBER OF CHARACTER POSITIONS TO FILL |
|||
LD B,BF_VDAFIL |
|||
CALL EMU_VDADISP ; PERFORM FILL |
|||
JR ANSI_XY ; HOME CURSOR AND RETURN |
|||
; |
|||
ANSI_BS: |
|||
LD DE,(ANSI_ROWCOL) ; GET CURRENT ROW/COL IN DE |
|||
LD A,E ; GET CURRENT COLUMN |
|||
CP 1 ; COMPARE TO COLUMN 1 |
|||
RET C ; LESS THAN 1, NOTHING TO DO |
|||
DEC E ; POINT TO PREVIOUS COLUMN |
|||
LD (ANSI_ROWCOL),DE ; SAVE NEW COLUMN VALUE |
|||
CALL ANSI_XY ; MOVE CURSOR TO NEW TARGET COLUMN |
|||
LD E,' ' ; LOAD A SPACE CHARACTER |
|||
LD B,BF_VDAWRC |
|||
CALL EMU_VDADISP ; OVERWRITE WITH A SPACE CHARACTER |
|||
JR ANSI_XY ; NEED TO MOVE CURSOR BACK TO NEW TARGET COLUMN |
|||
; |
|||
ANSI_CR: |
|||
XOR A |
|||
LD (ANSI_COL),A |
|||
JR ANSI_XY |
|||
; |
|||
ANSI_LF: |
|||
LD A,(ANSI_ROW) |
|||
INC A |
|||
LD (ANSI_ROW),A |
|||
CP 24 ; COMPARE TO SCREEN ROWS |
|||
JR C,ANSI_XY ; NOT PAST END, ALL DONE |
|||
SUB 23 ; A WILL NOW HAVE NUM LINES TO SCROLL |
|||
LD E,A ; LINES TO SCROLL -> E |
|||
LD B,BF_VDASCR |
|||
CALL EMU_VDADISP ; DO THE SCROLLING |
|||
LD A,23 ; ROW 23 |
|||
LD (ANSI_ROW),A ; IS NOW CORRECT |
|||
JR ANSI_XY ; RESPOSITION CURSOR AND RETURN |
|||
; |
|||
ANSI_XY: |
|||
LD DE,(ANSI_ROWCOL) |
|||
LD B,BF_VDASCP |
|||
JP EMU_VDADISP |
|||
; |
|||
; |
|||
; |
|||
ANSI_ROWCOL: |
|||
ANSI_COL .DB 0 |
|||
ANSI_ROW .DB 0 |
|||
@ -0,0 +1,124 @@ |
|||
;__N8VDRIVER_______________________________________________________________________________________ |
|||
; |
|||
; N8 VIDEO DRIVER FOR ROMWBW |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; DATA CONSTANTS |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; BOARD INITIALIZATION |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
N8V_INIT: |
|||
; INIT TMS9918 HERE... |
|||
CALL PPK_INIT |
|||
XOR A |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; CHARACTER I/O (CIO) DISPATCHER |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
N8V_DISPCIO: |
|||
LD A,B ; GET REQUESTED FUNCTION |
|||
AND $0F ; ISOLATE SUB-FUNCTION |
|||
JP Z,PPK_READ |
|||
DEC A |
|||
JR Z,N8V_CIOOUT |
|||
DEC A |
|||
JP Z,PPK_STAT |
|||
DEC A |
|||
JR Z,N8V_CIOOST |
|||
CALL PANIC |
|||
; |
|||
N8V_CIOOUT: |
|||
JP N8V_VDAWRC |
|||
; |
|||
N8V_CIOOST: |
|||
XOR A |
|||
INC A |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; VIDEO DISPLAY ADAPTER (VDA) DISPATCHER |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
N8V_DISPVDA: |
|||
LD A,B ; GET REQUESTED FUNCTION |
|||
AND $0F ; ISOLATE SUB-FUNCTION |
|||
|
|||
JR Z,N8V_VDAINI |
|||
DEC A |
|||
JR Z,N8V_VDAQRY |
|||
DEC A |
|||
JR Z,N8V_VDARES |
|||
DEC A |
|||
JR Z,N8V_VDASCS |
|||
DEC A |
|||
JR Z,N8V_VDASCP |
|||
DEC A |
|||
JR Z,N8V_VDASAT |
|||
DEC A |
|||
JR Z,N8V_VDASCO |
|||
DEC A |
|||
JR Z,N8V_VDAWRC |
|||
DEC A |
|||
JR Z,N8V_VDAFIL |
|||
DEC A |
|||
JR Z,N8V_VDASCR |
|||
DEC A |
|||
JP Z,PPK_STAT |
|||
DEC A |
|||
JP Z,PPK_FLUSH |
|||
DEC A |
|||
JP Z,PPK_READ |
|||
CALL PANIC |
|||
|
|||
N8V_VDAINI: |
|||
XOR A |
|||
RET |
|||
|
|||
N8V_VDAQRY: |
|||
CALL PANIC |
|||
|
|||
N8V_VDARES: |
|||
JR N8V_INIT |
|||
|
|||
N8V_VDASCS: |
|||
CALL PANIC |
|||
|
|||
N8V_VDASCP: |
|||
XOR A |
|||
RET |
|||
|
|||
N8V_VDASAT: |
|||
CALL PANIC |
|||
|
|||
N8V_VDASCO: |
|||
CALL PANIC |
|||
|
|||
N8V_VDAWRC: |
|||
XOR A |
|||
RET |
|||
|
|||
N8V_VDAFIL: |
|||
XOR A |
|||
RET |
|||
|
|||
N8V_VDASCR: |
|||
XOR A |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; IMBED COMMON PRALLEL PORT KEYBOARD DRIVER |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
#INCLUDE "ppk.asm" |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; LOCAL DRIVER DATA |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
@ -0,0 +1,630 @@ |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
; PARALLEL PORT KEYBOARD DRIVER FOR N8VEM |
|||
; SUPPORT KEYBOARD/MOUSE ON VDU AND N8 |
|||
; |
|||
; ORIGINAL CODE BY DR JAMES MOXHAM |
|||
; ROMWBW ADAPTATION BY WAYNE WARTHEN |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; DATA CONSTANTS |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
#IF (PLATFORM == PLT_N8) |
|||
PPK_PPI .EQU PPI2 ; PPI PORT BASE FOR N8 |
|||
#ELSE |
|||
PPK_PPI .EQU 0F4H ; PPI PORT BASE FOR VDU |
|||
#ENDIF |
|||
|
|||
PPK_PPIA .EQU PPK_PPI + 0 ; KEYBOARD PPI PORT A |
|||
PPK_PPIB .EQU PPK_PPI + 1 ; KEYBOARD PPI PORT B |
|||
PPK_PPIC .EQU PPK_PPI + 2 ; KEYBOARD PPI PORT C |
|||
PPK_PPIX .EQU PPK_PPI + 3 ; KEYBOARD PPI CONTROL PORT |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD INITIALIZATION |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
PPK_INIT: |
|||
CALL PPK_SETPORTC ; SETS PORT C SO CAN INPUT AND OUTPUT |
|||
CALL PPK_RESET ; RESET TO THE KEYBOARD |
|||
LD A,200 ; 1 SECOND DELAY AS KEYBOARD SENDS STUFF BACK WHEN RESET |
|||
CALL PPK_DELAY ; IGNORE ANYTHING BACK AFTER A RESET |
|||
LD A,0 ; EMPTY KB QUEUE |
|||
LD (PPK_QLEN),A |
|||
XOR A |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD STATUS |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
PPK_STAT: |
|||
CALL PPK_PROCESS ; CALL KEYBOARD ROUTINE |
|||
LD A,(PPK_QLEN) ; ASK IF KEYBOARD HAS KEY WAITING |
|||
OR A ; SET FLAGS |
|||
JP Z,CIO_IDLE ; NO DATA, EXIT VIA IDLE PROCESSING |
|||
LD A,$FF ; SIGNAL DATA PENDING |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD READ |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
PPK_READ: |
|||
CALL PPK_STAT ; CHECK TO SEE IF KEY READY |
|||
JR Z,PPK_READ ; IF NOT, LOOP |
|||
CALL PPK_GETKEY ; GET IT |
|||
LD E,A ; PUT KEY WHERE IT BELONGS |
|||
XOR A ; SIGNAL SUCCESS |
|||
RET |
|||
; |
|||
;__________________________________________________________________________________________________ |
|||
; KEYBOARD FLUSH |
|||
;__________________________________________________________________________________________________ |
|||
; |
|||
PPK_FLUSH: |
|||
LD A,0 ; EMPTY KB QUEUE |
|||
LD (PPK_QLEN),A ; SAVE IT |
|||
XOR A ; SIGNAL SUCCESS |
|||
RET |
|||
|
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|||
|
|||
;__PPK_GETKEY______________________________________________________________________________________ |
|||
; |
|||
; GET KEY PRESS VALUE |
|||
;__________________________________________________________________________________________________ |
|||
PPK_GETKEY: |
|||
LD A,(PPK_QLEN) ; GET QUEUE POINTER |
|||
OR A |
|||
RET Z ; ABORT IF QUEUE EMPTY |
|||
PUSH BC ; STORE BC |
|||
LD B,A ; STORE QUEUE COUNT FOR LATER |
|||
PUSH HL ; STORE HL |
|||
LD A,(PPK_QUEUE) ; GET TOP BYTE FROM QUEUE |
|||
PUSH AF ; STORE IT |
|||
LD HL,PPK_QUEUE ; GET POINTER TO QUEUE |
|||
PPK_GETKEY1: ; |
|||
INC HL ; POINT TO NEXT VALUE IN QUEUE |
|||
LD A,(HL) ; GET VALUE |
|||
DEC HL ; |
|||
LD (HL),A ; MOVE IT UP ONE |
|||
INC HL ; |
|||
DJNZ PPK_GETKEY1 ; LOOP UNTIL DONE |
|||
LD A,(PPK_QLEN) ; DECREASE QUEUE POINTER BY ONE |
|||
DEC A ; |
|||
LD (PPK_QLEN),A |
|||
POP AF ; RESTORE VALUE |
|||
POP HL ; RESTORE HL |
|||
POP BC ; RESTORE BC |
|||
RET |
|||
|
|||
;__PPK_RESET________________________________________________________________________________________ |
|||
; |
|||
; RESET THE KEYBOARD |
|||
;__________________________________________________________________________________________________ |
|||
PPK_RESET: |
|||
CALL PPK_DATAHIGH ; |
|||
CALL PPK_CLOCKHIGH ; |
|||
LD B,255 ; |
|||
SF1: DJNZ SF1 ; |
|||
CALL PPK_CLOCKLOW ; STEP 1 |
|||
LD B,255 ; |
|||
SF2: DJNZ SF2 ; |
|||
CALL PPK_DATALOW ; STEP 2 |
|||
CALL PPK_CLOCKHIGH ; STEP 3 |
|||
CALL PPK_WAITCLOCKLOW ; STEP 4 |
|||
LD B,9 ; 8 DATA BITS + 1 PARITY BIT LOW |
|||
SF3: PUSH BC ; |
|||
CALL PPK_DATAHIGH ; STEP 5 |
|||
CALL PPK_WAITCLOCKHIGH ; STEP 6 |
|||
CALL PPK_WAITCLOCKLOW ; STEP 7 |
|||
POP BC ; |
|||
DJNZ SF3 ; |
|||
CALL PPK_DATAHIGH ; STEP9 |
|||
CALL PPK_WAITCLOCKLOW ; STEP 10 COULD READ THE ACK BIT HERE IF WANT TO |
|||
CALL PPK_WAITCLOCKHIGH ; STEP 11 |
|||
LD B,255 ; |
|||
SF4: DJNZ SF4 ; FINISH UP DELAY |
|||
RET |
|||
|
|||
;__PPK_SETPORTC_____________________________________________________________________________________ |
|||
; |
|||
; SETUP PORT C OF 8255 FOR KEYBOARD |
|||
;__________________________________________________________________________________________________ |
|||
PPK_SETPORTC: |
|||
LD A,10000010B ; A=OUT B=IN, C HIGH=OUT, CLOW=OUT |
|||
OUT (PPK_PPIX),A ; PPI CONTROL PORT |
|||
LD A,00000000B ; PORT A TO ZERO AS NEED THIS FOR COMMS TO WORK |
|||
OUT (PPK_PPIA),A ; PPI PORT A |
|||
CALL PPK_DATAHIGH ; |
|||
CALL PPK_CLOCKHIGH ; |
|||
LD A,0 ; |
|||
LD (CAPSLOCK),A ; SET CAPSLOCK OFF TO START |
|||
LD (CTRL),A ; CONTROL OFF |
|||
LD (NUMLOCK),A ; NUMLOCK OFF |
|||
RET |
|||
;_________________________________________________________________________________________________ |
|||
; |
|||
; PORT C BIT ROUTINES |
|||
;__________________________________________________________________________________________________ |
|||
PPK_PORTCBIT0HIGH: ; |
|||
LD A,01110001B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT1HIGH: ; |
|||
LD A,01110011B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT2HIGH: ; |
|||
LD A,01110101B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT3HIGH: ; |
|||
LD A,01110111B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT0LOW: ; |
|||
LD A,01110000B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT1LOW: ; |
|||
LD A,01110010B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT2LOW: ; |
|||
LD A,01110100B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_PORTCBIT3LOW: ; |
|||
LD A,01110110B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_DATAHIGH: |
|||
PPK_PORTCBIT4HIGH: ; |
|||
LD A,01111001B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_DATALOW: ; |
|||
PPK_PORTCBIT4LOW: ; |
|||
LD A,01111000B ; SEE THE 8255 DATA SHEET |
|||
JP PPK_SETBITS ; |
|||
PPK_CLOCKHIGH: ; |
|||
PPK_PORTCBIT5HIGH: ; |
|||
LD A,01111011B ; BIT 5 HIGH |
|||
JP PPK_SETBITS ; |
|||
PPK_CLOCKLOW: ; |
|||
PORTCBIT5LOW: ; |
|||
LD A,01111010B ; |
|||
PPK_SETBITS: ; |
|||
OUT (PPK_PPIX),A ; |
|||
RET ; |
|||
|
|||
;__PPK_WAITCLOCKLOW_________________________________________________________________________________ |
|||
; |
|||
; WAITCLOCKLOW SAMPLES DATA BIT 0, AND WAITS TILL |
|||
; IT GOES LOW, THEN RETURNS |
|||
; ALSO TIMES OUT AFTER 0 001 SECONDS |
|||
; USES A, CHANGES B |
|||
;__________________________________________________________________________________________________ |
|||
PPK_WAITCLOCKLOW: |
|||
LD B,255 ; FOR TIMEOUT COUNTER |
|||
PPK_WAITCLOCKLOW1: |
|||
IN A,(PPK_PPIB) ; GET A BYTE FROM PORT B |
|||
BIT 1,A ; TEST THE CLOCK BIT |
|||
RET Z ; EXIT IF IT WENT LOW |
|||
DJNZ PPK_WAITCLOCKLOW1 ; LOOP B TIMES |
|||
RET |
|||
|
|||
;__PPK_WAITCLOCKHIGH_________________________________________________________________________________ |
|||
; |
|||
; WAITCLOCKHIGH SAMPLES DATA BIT 0, AND WAITS TILL |
|||
; IT GOES HIGH, THEN RETURNS |
|||
; ALSO TIMES OUT AFTER 0 001 SECONDS |
|||
; USES A, CHANGES B |
|||
;__________________________________________________________________________________________________ |
|||
PPK_WAITCLOCKHIGH: |
|||
LD B,255 ; FOR TIMEOUT COUNTER |
|||
PPK_WAITCLOCKHIGH1: |
|||
IN A,(PPK_PPIB) ; GET A BYTE FROM PORT B |
|||
BIT 1,A ; TEST THE CLOCK BIT |
|||
RET NZ ; EXIT IF IT WENT HIGH |
|||
DJNZ PPK_WAITCLOCKHIGH1 ; LOOP B TIMES |
|||
RET |
|||
|
|||
;__PPK_DELAY________________________________________________________________________________________ |
|||
; |
|||
; PASS A - DELAY IS B*0 005 SECONDS, BCDEHL ALL PRESERVED |
|||
;__________________________________________________________________________________________________ |
|||
PPK_DELAY: |
|||
PUSH BC ; STORE ALL VARIABLES |
|||
PUSH DE ; |
|||
PUSH HL ; |
|||
LD B,A ; PUT THE VARIABLE DELAY IN B |
|||
LD DE,1 ; |
|||
PPK_DELAY1: |
|||
LD HL,740 ; ADJUST THIS VALUE FOR YOUR CLOCK 1481=3 68MHZ, 3219=8MHZ (TEST WITH A=1000=10 SECS) |
|||
PPK_DELAY2: |
|||
SBC HL,DE ; HL-1 |
|||
JR NZ,PPK_DELAY2 |
|||
DJNZ PPK_DELAY1 |
|||
POP HL ; RESTORE VARIABLES |
|||
POP DE ; |
|||
POP BC ; |
|||
RET ; |
|||
|
|||
;__PPK_PROCESS______________________________________________________________________________________ |
|||
; |
|||
; A=0 IF WANT TO KNOW IF A BYTE IS AVAILABLE, AND A=1 TO ASK FOR THE BYTE |
|||
;__________________________________________________________________________________________________ |
|||
PPK_PROCESS: |
|||
CALL PPK_SKIP ; DON'T TEST EVERY ONE AS TAKES TIME |
|||
OR A ; IS IT ZERO |
|||
RET Z ; RETURN IF ZERO |
|||
CALL PPK_WAITBYTE ; TEST KEYBOARD TIMES OUT AFTER A BIT |
|||
CALL PPK_DECODECHAR ; RETURNS CHAR OR 0 FOR THINGS LIKE KEYUP, SOME RETURN DIRECTLY TO CP/M |
|||
RET ; RETURN TO CP/M |
|||
|
|||
;----------------------------------------------- |
|||
; CPM CALLS THE KEYBOARD QUITE FREQUENTLY IF A KEYBOARD WAS LIKE A UART WHICH CAN BE CHECKED |
|||
; WITH ONE INSTRUCTION, THAT WOULD BE FINE BUT CHECKING A KEYBOARD INVOLVES PUTTING THE CLOCK LINE LOW |
|||
; THEN WAITING SOME TIME FOR A POSSIBLE REPLY, THEN READING IN BITS WITH TIMEOUTS AND THEN RETURNING |
|||
; THIS SLOWS DOWN A LOT OF CP/M PROCESSES, EG TRY TYPE MYPROG AND PRINTING OUT TEXT |
|||
PPK_SKIP: |
|||
LD B,0 ; |
|||
LD A,(SKIPCOUNT) ; |
|||
DEC A ; SUBTRACT 1 |
|||
LD (SKIPCOUNT),A ; STORE IT BACK |
|||
CP 0 ; |
|||
JP NZ,PPK_SKIP1 ; WORDSTAR IS VERY SLOW EVEN TRIED A VALUE OF 5 TO 200 HERE |
|||
LD A,200 ; ONLY ACT ON EVERY N CALLS - BIGGER=BETTER BECAUSE THIS SUB IS QUICKER THAN READBITS |
|||
LD (SKIPCOUNT),A ; RESET COUNTER |
|||
LD B,1 ; FLAG TO SAY RESET COUNTER |
|||
PPK_SKIP1: ; |
|||
LD A,B ; RETURN THE VALUE IN A |
|||
RET |
|||
|
|||
;__PPK_DECODECHAR____________________________________________________________________________________ |
|||
; |
|||
; DECODE CHARACTER PASS A AND PRINTS OUT THE CHAR |
|||
; ON THE LCD SCREEN |
|||
;__________________________________________________________________________________________________ |
|||
PPK_DECODECHAR: |
|||
CP 0 ; IS IT ZERO |
|||
RET Z ; RETURN IF A ZERO - NO NEED TO DO ANYTHING |
|||
CP 0F0H ; IS A KEY UP (NEED TO DO SPECIAL CODE FOR SHIFT) |
|||
JP Z,DECKEYUP ; IGNORE CHAR UP |
|||
CP 0E0H ; TWO BYTE KEYPRESSES |
|||
JP Z,TWOBYTE ; |
|||
CP 058H ; CAPS LOCK SO TOGGLE |
|||
JP Z,CAPSTOG ; |
|||
CP 12H ; SHIFT (DOWN, BECAUSE UP WOULD BE TRAPPED BY 0F ABOVE) |
|||
JP Z,SHIFTDOWN ; |
|||
CP 59H ; OTHER SHIFT KEY |
|||
JP Z,SHIFTDOWN ; |
|||
CP 014H ; CONTROL KEY |
|||
JP Z,CONTROLDOWN ; |
|||
CP 05AH ; ENTER KEY |
|||
JP Z,RETURN ; |
|||
CP 066H ; BACKSPACE KEY |
|||
JP Z,BACKSPACE ; |
|||
CP 0DH ; TAB KEY |
|||
JP Z,TABKEY ; |
|||
CP 076H ; ESCAPE KEY |
|||
JP Z,ESCAPE ; |
|||
LD C,A ; |
|||
LD B,0 ; ADD BC TO HL |
|||
LD HL,PPK_KEYMAP ; OFFSET TO ADD |
|||
ADD HL,BC ; |
|||
JP TESTCONTROL ; IS THE CONTROL KEY DOWN? |
|||
DC1: LD A,(CAPSLOCK) ; |
|||
CP 0 ; IS IT 0, IF SO THEN DON'T ADD THE CAPS OFFSET |
|||
JR Z,DC2 ; |
|||
LD C,080H ; ADD ANOTHER 50H TO SMALLS TO GET CAPS |
|||
ADD HL,BC ; |
|||
DC2: LD A,(HL) ; |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
TESTCONTROL: |
|||
LD A,(CTRL) ; |
|||
CP 0 ; IS CONTROL BEING HELD DOWN? |
|||
JP Z,DC1 ; NO SO GO BACK TO TEST CAPS LOCK ON |
|||
LD A,(HL) ; GET THE LETTER, SHOULD BE SMALLS |
|||
SUB 96 ; A=97 SO SUBTRACT 96 A=1=^A |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; RETURN INSTEAD OF THE RET AFTER DC2 |
|||
TABKEY: ; |
|||
LD A,9 ; |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ;TAB |
|||
BACKSPACE: ; |
|||
LD A,8 ; BACKSPACE |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
ESCAPE: ; |
|||
LD A,27 ; |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
RETURN: ; |
|||
LD A,13 ; CARRIAGE RETURN |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
DECKEYUP: |
|||
CALL PPK_WAITBYTE ; IGNORE KEY UP THROW AWAY THE CHARACTER UNLESS A SHIFT |
|||
CP 012H ; IS IT A SHIFT |
|||
JP Z,SHIFTUP ; |
|||
CP 59H ; OTHER SHIFT KEY |
|||
JP Z,SHIFTUP ; |
|||
CP 014H ; CONTROL UP |
|||
JP Z,CONTROLUP ; CONTROL UP |
|||
LD A,0 ; NOTHING CAPTURED SO SEND BACK A ZERO |
|||
RET |
|||
TWOBYTE:; ALREADY GOT EO SO GET THE NEXT CHARACTER |
|||
CALL PPK_WAITBYTE |
|||
CP 0F0H ; SEE THE NOTES - KEYUP FOR E0 KEYS IS EO F0 NN NOT F0 EO!! |
|||
JP Z,TWOBYTEUP ; |
|||
CP 071H ; DELETE |
|||
JP Z,DELETEKEY ; |
|||
CP 05AH ; RETURN ON NUMBER PAD |
|||
JP Z,RETURNKEY ; |
|||
CP 072H ; |
|||
JP Z,DOWNARROW ; |
|||
CP 074H ; |
|||
JP Z,RIGHTARROW ; |
|||
CP 06BH ; |
|||
JP Z,LEFTARROW ; |
|||
CP 075H ; |
|||
JP Z,UPARROW ; |
|||
CP 070H ; |
|||
JP Z,INSERT ; |
|||
CP 07DH ; |
|||
JP Z,PAGEUP ; |
|||
CP 07AH ; |
|||
JP Z,PAGEDOWN ; |
|||
CP 06CH ; |
|||
JP Z,HOME ; |
|||
CP 069H ; |
|||
JP Z,END ; |
|||
LD A,0 ; RETURNS NOTHING |
|||
RET |
|||
TWOBYTEUP: ;EXPECT A BYTE AND IGNORE IT |
|||
CALL PPK_WAITBYTE ; |
|||
LD A,0 ; |
|||
RET ; |
|||
HOME: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'?' ; ? |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'W' ; W |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
END: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'?' ; ? |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'Q' ; Q |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
DOWNARROW: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'B' ; B |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
RIGHTARROW: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'C' ; C |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
LEFTARROW: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'D' ; D |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
UPARROW: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'A' ; A |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
INSERT: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'?' ; ? |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'P' ; P |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
PAGEUP: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'?' ; ? |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'Y' ; Y |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
PAGEDOWN: ; |
|||
LD A,1BH ; ESC |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'?' ; ? |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
LD A,'S' ; S |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
CONTROLDOWN: ; SAME CODE AS SHIFTDOWN BUT DIFF LOCATION |
|||
LD A,0FFH ; |
|||
LD (CTRL),A ; CONTROL DOWN |
|||
LD A,0 ; |
|||
RET ; |
|||
CONTROLUP: ; CONTROL KEY UP SEE SHIFT FOR EXPLANATION |
|||
LD A,0 ; |
|||
LD (CTRL),A ; |
|||
LD A,0 ; |
|||
RET ; |
|||
RETURNKEY: ; |
|||
LD A,13 ; |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
DELETEKEY: ; |
|||
LD A,07FH ; DELETE KEY VALUE THAT CP/M USES |
|||
CALL PPK_ENQUEUE ; STORE ON KB QUEUE |
|||
RET ; |
|||
CAPSTOG: ; |
|||
LD A,(CAPSLOCK) ; |
|||
XOR 11111111B ; SWAP ALL THE BITS |
|||
LD (CAPSLOCK),A ; |
|||
LD A,0 ; RETURNS NOTHING |
|||
RET ; |
|||
SHIFTDOWN: ; SHIFT IS SPECIAL - HOLD IT DOWN AND IT AUTOREPEATS |
|||
; SO ONCE IT IS DOWN, TURN CAPS ON AND IGNORE ALL FURTHER SHIFTS |
|||
; ONLY AN F0+SHIFT TURNS CAPS LOCK OFF AGAIN |
|||
LD A,0FFH ; |
|||
LD (CAPSLOCK),A ; |
|||
LD A,0 ; RETURNS NOTHING |
|||
RET ; |
|||
SHIFTUP: ; SHIFTUP TURNS OFF CAPS LOCK DEFINITELY |
|||
LD A,0 ; |
|||
LD (CAPSLOCK),A ; |
|||
LD A,0 ; RETURNS NOTHING |
|||
RET ; |
|||
|
|||
;__PPK_ENQUEUE______________________________________________________________________________________ |
|||
; |
|||
; STORE A BYTE IN THE KEYBOARD QUEUE |
|||
; A: BYTE TO ENQUEUE |
|||
;__________________________________________________________________________________________________ |
|||
PPK_ENQUEUE: |
|||
PUSH DE ; STORE DE |
|||
PUSH HL ; STORE HL |
|||
PUSH AF ; STORE VALUE |
|||
LD A,(PPK_QLEN) ; PUT QUEUE POINTER IN A |
|||
CP 15 ; IS QUEUE FULL |
|||
JP P,PPK_ENQUEUE1 ; YES, ABORT |
|||
LD HL,PPK_QUEUE ; GET QUEUE POINTER |
|||
PUSH HL ; MOVE HL TO BC |
|||
POP BC ; |
|||
LD H,0 ; ZERO OUT H |
|||
LD L,A ; PLACE QUEUE POINTER IN L |
|||
ADD HL,BC ; POINT HL AT THE NEXT LOACTION TO ADD VALUE |
|||
POP AF ; RESTORE VALUE |
|||
LD (HL),A ; ENQUEUE VALUE |
|||
LD A,(PPK_QLEN) ; GET QUEUE POINTER |
|||
INC A ; INC IT |
|||
LD (PPK_QLEN),A ;STORE QUEUE POINTER |
|||
PPK_ENQUEUE1: |
|||
POP HL ; RESTORE HL |
|||
POP DE ; RESTORE DE |
|||
RET |
|||
|
|||
|
|||
;__PPK_WAITBYTE_____________________________________________________________________________________ |
|||
; |
|||
; WAIT FOR A BYTE - TESTS A NUMBER OF TIMES IF THERE IS A KEYBOARD INPUT, |
|||
; OVERWRITES ALL REGISTERS, RETURNS BYTE IN A |
|||
;__________________________________________________________________________________________________ |
|||
PPK_WAITBYTE: |
|||
CALL PPK_CLOCKHIGH ; TURN ON KEYBOARD |
|||
LD HL,500 ; NUMBER OF TIMES TO CHECK 200=SLOW TYPE |
|||
; 10=ERROR, 25 ?ERROR 50 OK - |
|||
; THIS DELAY HAS TO BE THERE OTHERWISE WEIRD KEYUP ERRORS |
|||
PPK_WAITBYTE1: |
|||
PUSH HL ; STORE COUNTER |
|||
CALL PPK_READBITS ; TEST FOR A LOW ON THE CLOCK LINE |
|||
POP HL ; GET THE COUNTER BACK |
|||
CP 0 ; TEST FOR A ZERO BACK FROM READBITS |
|||
JR NZ,PPK_WAITBYTE2 ; IF NOT A ZERO THEN MUST HAVE A BYTE IE A KEYBOARD PRESS |
|||
LD DE,1 ; LOAD WITH 1 |
|||
SBC HL,DE ; SUBTRACT 1 |
|||
JR NZ,PPK_WAITBYTE1 ; LOOP WAITING FOR A RESPONSE |
|||
PPK_WAITBYTE2: |
|||
PUSH AF ; STORE THE VALUE IN A |
|||
CALL PPK_CLOCKLOW ; TURN OFF KEYBOARD |
|||
POP AF ; GET BACK BYTE AS CLOCKLOW ERASED IT |
|||
RET |
|||
|
|||
;__PPK_READBITS_____________________________________________________________________________________ |
|||
; |
|||
; READBITS READS 11 BITS IN FROM THE KEYBOARD |
|||
; FIRST BIT IS A START BIT THEN 8 BITS FOR THE BYTE |
|||
; THEN A PARITY BIT AND A STOP BIT |
|||
; RETURNS AFTER ONE MACHINE CYCLE IF NOT LOW |
|||
; USES A, B,D, E |
|||
; RETURNS A=0 IF NO DATA, A= SCANCODE (OR PART THEREOF) |
|||
;__________________________________________________________________________________________________ |
|||
PPK_READBITS: |
|||
IN A,(PPK_PPIB) |
|||
BIT 1,A ; TEST THE CLOCK BIT |
|||
JR Z,PPK_READBITS1 ; IF LOW THEN START THE CAPTURE |
|||
LD A,0 ; RETURNS A=0 IF NOTHING |
|||
RET |
|||
PPK_READBITS1: |
|||
CALL PPK_WAITCLOCKHIGH ; IF GETS TO HERE THEN MUST BE LOW SO WAIT TILL HIGH |
|||
LD B,8 ; SAMPLE 8 TIMES |
|||
LD E,0 ; START WITH E=0 |
|||
PPK_READBITS2: |
|||
LD D,B ; STORE BECAUSE WAITCLOCKHIGH DESTROYS |
|||
CALL PPK_WAITCLOCKLOW ; WAIT TILL CLOCK GOES LOW |
|||
IN A,(PPK_PPIB) ; SAMPLE THE DATA LINE |
|||
RRA ; MOVE THE DATA BIT INTO THE CARRY REGISTER |
|||
LD A,E ; GET THE BYTE WE ARE BUILDING IN E |
|||
RRA ; MOVE THE CARRY BIT INTO BIT 7 AND SHIFT RIGHT |
|||
LD E,A ; STORE IT BACK AFTER 8 CYCLES 1ST BIT READ WILL BE IN B0 |
|||
CALL PPK_WAITCLOCKHIGH ; WAIT TILL GOES HIGH |
|||
LD B,D ; RESTORE FOR LOOP |
|||
DJNZ PPK_READBITS2 ; DO THIS 8 TIMES |
|||
CALL PPK_WAITCLOCKLOW ; GET THE PARITY BIT |
|||
CALL PPK_WAITCLOCKHIGH |
|||
CALL PPK_WAITCLOCKLOW ; GET THE STOP BIT |
|||
CALL PPK_WAITCLOCKHIGH |
|||
LD A,E ; RETURNS WITH ANSWER IN A |
|||
RET |
|||
|
|||
PPK_KEYMAP: |
|||
; THE TI CHARACTER CODES, OFFSET FROM LABEL BY KEYBOARD SCAN CODE |
|||
.DB $00, $00, $00, $00, $00, $00, $00, $00 |
|||
.DB $00, $00, $00, $00, $00, $09, "`", $00 ; $09=TAB |
|||
.DB $00, $00, $00, $00, $00, "q", "1", $00 |
|||
.DB $00, $00, "z", "s", "a", "w", "2", $00 |
|||
.DB $00, "c", "x", "d", "e", "4", "3", $00 |
|||
.DB $00, " ", "v", "f", "t", "r", "5", $00 |
|||
.DB $00, "n", "b", "h", "g", "y", "6", $00 |
|||
.DB $00, $00, "m", "j", "u", "7", "8", $00 |
|||
.DB $00, ",", "k", "i", "o", "0", "9", $00 |
|||
.DB $00, ".", "/", "l", ";", "p", "-", $00 |
|||
.DB $00, $00, $27, $00, "[", "=", $00, $00 ; $27=APOSTROPHE |
|||
.DB $00, $00, $00, "]", $00, $5C, $00, $00 ; $5C=BACKSLASH |
|||
.DB $00, $00, $00, $00, $00, $00, $00, $00 |
|||
.DB $00, "1", $00, "4", "7", $00, $00, $00 |
|||
.DB "0", ".", "2", "5", "6", "8", $00, $00 |
|||
.DB $00, "+", "3", "-", "*", "9", $00, $00 |
|||
|
|||
PPK_SHIFTKEYMAP: |
|||
.DB $00, $00, $00, $00, $00, $00, $00, $00 |
|||
.DB $00, $00, $00, $00, $00, $09, "~", $00 ; $09=TAB |
|||
.DB $00, $00, $00, $00, $00, "Q", "!", $00 |
|||
.DB $00, $00, "Z", "S", "A", "W", "@", $00 |
|||
.DB $00, "C", "X", "D", "E", "$", "#", $00 |
|||
.DB $00, " ", "V", "F", "T", "R", "%", $00 |
|||
.DB $00, "N", "B", "H", "G", "Y", "^", $00 |
|||
.DB $00, $00, "M", "J", "U", "&", "*", $00 |
|||
.DB $00, "<", "K", "I", "O", ")", "(", $00 |
|||
.DB $00, ">", "?", "L", ":", "P", "_", $00 |
|||
.DB $00, $00, $22, $00, "{", "+", $00, $00 ; $22=DBLQUOTE |
|||
.DB $00, $00, $00, "}", $00, "|", $00, $00 |
|||
.DB $00, $00, $00, $00, $00, $00, $00, $00 |
|||
.DB $00, "1", $00, "4", "7", $00, $00, $00 |
|||
.DB "0", ".", "2", "5", "6", "8", $00, $00 |
|||
.DB $00, "+", "3", "-", "*", "9", $00, $00 |
|||
; |
|||
;================================================================================================== |
|||
; PARALLEL PORT KEYBOARD DRIVER - DATA |
|||
;================================================================================================== |
|||
; |
|||
CAPSLOCK .DB 0 ; CAPS LOCK TOGGLED FLAG, $00=NO, $FF=YES |
|||
CTRL .DB 0 ; CTRL KEY PRESSED FLAG, $00=NO, $FF=YES |
|||
NUMLOCK .DB 0 ; NUM LOCK TOGGLED FLAG, $00=NO, $FF=YES |
|||
SKIPCOUNT .DB 0 ; SKIP COUNTER (SEE CODE COMMENTS) |
|||
PPK_QUEUE .FILL 16,0 ; 16 BYTE KB QUEUE |
|||
PPK_QLEN .DB 0 ; COUNT OF BYTES CURRENTLY IN QUEUE |
|||
@ -0,0 +1,150 @@ |
|||
; |
|||
;================================================================================================== |
|||
; TTY EMULATION MODULE |
|||
;================================================================================================== |
|||
; |
|||
TTY_INIT: |
|||
JR TTY_INI |
|||
; |
|||
; |
|||
; |
|||
TTY_DISPATCH: |
|||
LD A,B ; GET REQUESTED FUNCTION |
|||
AND $0F ; ISOLATE SUB-FUNCTION |
|||
JR Z,TTY_IN ; $30 |
|||
DEC A |
|||
JR Z,TTY_OUT ; $31 |
|||
DEC A |
|||
JR Z,TTY_IST ; $32 |
|||
DEC A |
|||
JR Z,TTY_OST ; $33 |
|||
DEC A |
|||
JR Z,TTY_CFG ; $34 |
|||
CP 8 |
|||
JR Z,TTY_INI ; $38 |
|||
CP 9 |
|||
JR Z,TTY_QRY ; $39 |
|||
CALL PANIC |
|||
; |
|||
; |
|||
; |
|||
TTY_IN: |
|||
LD B,BF_VDAKRD |
|||
JP EMU_VDADISP |
|||
; |
|||
; |
|||
; |
|||
TTY_OUT: |
|||
CALL TTY_DOCHAR |
|||
XOR A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
TTY_IST: |
|||
LD B,BF_VDAKST |
|||
JP EMU_VDADISP |
|||
; |
|||
; |
|||
; |
|||
TTY_OST: |
|||
XOR A |
|||
INC A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
TTY_CFG: |
|||
XOR A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
TTY_INI: |
|||
LD (TTY_ROW),A |
|||
LD (TTY_COL),A |
|||
LD B,BF_VDARES |
|||
JP EMU_VDADISP ; RESET VDA |
|||
; |
|||
; |
|||
; |
|||
TTY_QRY: |
|||
XOR A |
|||
RET |
|||
; |
|||
; |
|||
; |
|||
TTY_DOCHAR: |
|||
LD A,E ; CHARACTER TO PROCESS |
|||
CP 8 ; BACKSPACE |
|||
JR Z,TTY_BS |
|||
CP 12 ; FORMFEED |
|||
JR Z,TTY_FF |
|||
CP 13 ; CARRIAGE RETURN |
|||
JR Z,TTY_CR |
|||
CP 10 ; LINEFEED |
|||
JR Z,TTY_LF |
|||
CP 32 ; COMPARE TO SPACE (FIRST PRINTABLE CHARACTER) |
|||
RET C ; SWALLOW OTHER CONTROL CHARACTERS |
|||
LD B,BF_VDAWRC |
|||
CALL EMU_VDADISP ; SPIT OUT THE RAW CHARACTER |
|||
LD A,(TTY_COL) ; GET CUR COL |
|||
INC A ; INCREMENT |
|||
LD (TTY_COL),A ; SAVE IT |
|||
CP 80 ; COMPARE TO COLS IN LINE |
|||
RET C ; NOT PAST END OF LINE, ALL DONE |
|||
CALL TTY_CR ; CARRIAGE RETURN |
|||
JR TTY_LF ; LINEFEED AND RETURN |
|||
; |
|||
TTY_FF: |
|||
LD DE,0 ; HOME CURSOR |
|||
LD (TTY_ROWCOL),DE ; SAVE IT |
|||
CALL TTY_XY ; EXECUTE |
|||
LD E,' ' ; FILL SCREEN WITH BLANKS |
|||
LD HL,80 * 24 ; NUMBER OF CHARACTER POSITIONS TO FILL |
|||
LD B,BF_VDAFIL |
|||
CALL EMU_VDADISP ; PERFORM FILL |
|||
JR TTY_XY ; HOME CURSOR AND RETURN |
|||
; |
|||
TTY_BS: |
|||
LD DE,(TTY_ROWCOL) ; GET CURRENT ROW/COL IN DE |
|||
LD A,E ; GET CURRENT COLUMN |
|||
CP 1 ; COMPARE TO COLUMN 1 |
|||
RET C ; LESS THAN 1, NOTHING TO DO |
|||
DEC E ; POINT TO PREVIOUS COLUMN |
|||
LD (TTY_ROWCOL),DE ; SAVE NEW COLUMN VALUE |
|||
CALL TTY_XY ; MOVE CURSOR TO NEW TARGET COLUMN |
|||
LD E,' ' ; LOAD A SPACE CHARACTER |
|||
LD B,BF_VDAWRC |
|||
CALL EMU_VDADISP ; OVERWRITE WITH A SPACE CHARACTER |
|||
JR TTY_XY ; NEED TO MOVE CURSOR BACK TO NEW TARGET COLUMN |
|||
; |
|||
TTY_CR: |
|||
XOR A |
|||
LD (TTY_COL),A |
|||
JR TTY_XY |
|||
; |
|||
TTY_LF: |
|||
LD A,(TTY_ROW) |
|||
INC A |
|||
LD (TTY_ROW),A |
|||
CP 24 ; COMPARE TO SCREEN ROWS |
|||
JR C,TTY_XY ; NOT PAST END, ALL DONE |
|||
SUB 23 ; A WILL NOW HAVE NUM LINES TO SCROLL |
|||
LD E,A ; LINES TO SCROLL -> E |
|||
LD B,BF_VDASCR |
|||
CALL EMU_VDADISP ; DO THE SCROLLING |
|||
LD A,23 ; ROW 23 |
|||
LD (TTY_ROW),A ; IS NOW CORRECT |
|||
JR TTY_XY ; RESPOSITION CURSOR AND RETURN |
|||
; |
|||
TTY_XY: |
|||
LD DE,(TTY_ROWCOL) |
|||
LD B,BF_VDASCP |
|||
JP EMU_VDADISP |
|||
; |
|||
; |
|||
; |
|||
TTY_ROWCOL: |
|||
TTY_COL .DB 0 |
|||
TTY_ROW .DB 0 |
|||
@ -1,6 +1,6 @@ |
|||
#DEFINE RMJ 2 |
|||
#DEFINE RMN 2 |
|||
#DEFINE RUP 0 |
|||
#DEFINE RTP 1 |
|||
#DEFINE BIOSVER "2.2 B1" |
|||
#DEFINE RTP 2 |
|||
#DEFINE BIOSVER "2.2 B2" |
|||
#DEFINE REVISION 1741 |
|||
|
|||
Loading…
Reference in new issue