|
|
|
@ -58,7 +58,7 @@ CVDU_INIT1: |
|
|
|
PRTS("KB$") |
|
|
|
CALL CVDU_LOADFONT ; LOAD FONT DATA FROM ROM TO CVDU STRORAGE |
|
|
|
CALL CVDU_VDARES |
|
|
|
CALL KBD_INIT ; INITIALIZE KEYBOARD DRIVER |
|
|
|
; CALL KBD_INIT ; INITIALIZE KEYBOARD DRIVER |
|
|
|
|
|
|
|
; ADD OURSELVES TO VDA DISPATCH TABLE |
|
|
|
LD BC,CVDU_FNTBL ; BC := FUNCTION TABLE ADDRESS |
|
|
|
@ -373,7 +373,7 @@ CVDU_LOADFONT: |
|
|
|
LD (CVDU_STACK),SP ; SAVE STACK |
|
|
|
LD HL,(CVDU_STACK) ; AND SHIFT IT |
|
|
|
LD DE,$2000 ; DOWN 4KB TO |
|
|
|
CCF ; CREATE A |
|
|
|
OR A ; CREATE A |
|
|
|
SBC HL,DE ; DECOMPRESSION BUFFER |
|
|
|
LD SP,HL ; HL POINTS TO BUFFER |
|
|
|
EX DE,HL ; START OF STACK BUFFER |
|
|
|
@ -430,7 +430,7 @@ CVDU_XY2IDX: |
|
|
|
RET ; RETURN |
|
|
|
; |
|
|
|
;---------------------------------------------------------------------- |
|
|
|
; WRITE VALUE IN A TO CURRENT VDU BUFFER POSTION, ADVANCE CURSOR |
|
|
|
; WRITE VALUE IN A TO CURRENT VDU BUFFER POSITION, ADVANCE CURSOR |
|
|
|
;---------------------------------------------------------------------- |
|
|
|
; |
|
|
|
CVDU_PUTCHAR: |
|
|
|
@ -442,7 +442,7 @@ CVDU_PUTCHAR: |
|
|
|
CALL CVDU_WRX ; DO IT |
|
|
|
|
|
|
|
; PUT THE CHARACTER THERE |
|
|
|
POP AF ; RECOVER CHARACTER VALLUE TO WRITE |
|
|
|
POP AF ; RECOVER CHARACTER VALUE TO WRITE |
|
|
|
LD C,31 ; DATA REGISTER |
|
|
|
CALL CVDU_WR ; DO IT |
|
|
|
|
|
|
|
|