|
|
@ -27,6 +27,9 @@ CVDU_DATA .EQU CVDU_BASE + $0C ; READ/WRITE M8563 DATA |
|
|
CVDU_ROWS .EQU 25 |
|
|
CVDU_ROWS .EQU 25 |
|
|
CVDU_COLS .EQU 80 |
|
|
CVDU_COLS .EQU 80 |
|
|
; |
|
|
; |
|
|
|
|
|
#DEFINE USEFONT8X16 |
|
|
|
|
|
#DEFINE CVDU_FONT FONT8X16 |
|
|
|
|
|
; |
|
|
TERMENABLE .SET TRUE ; INCLUDE TERMINAL PSEUDODEVICE DRIVER |
|
|
TERMENABLE .SET TRUE ; INCLUDE TERMINAL PSEUDODEVICE DRIVER |
|
|
; |
|
|
; |
|
|
;====================================================================== |
|
|
;====================================================================== |
|
|
@ -360,7 +363,7 @@ CVDU_LOADFONT: |
|
|
LD C,18 ; UPDATE ADDRESS REGISTER PAIR |
|
|
LD C,18 ; UPDATE ADDRESS REGISTER PAIR |
|
|
CALL CVDU_WRX ; DO IT |
|
|
CALL CVDU_WRX ; DO IT |
|
|
|
|
|
|
|
|
#IF USEZLSA2 |
|
|
|
|
|
|
|
|
#IF USELZSA2 |
|
|
LD (CVDU_STACK),SP ; SAVE STACK |
|
|
LD (CVDU_STACK),SP ; SAVE STACK |
|
|
LD HL,(CVDU_STACK) ; AND SHIFT IT |
|
|
LD HL,(CVDU_STACK) ; AND SHIFT IT |
|
|
LD DE,$2000 ; DOWN 4KB TO |
|
|
LD DE,$2000 ; DOWN 4KB TO |
|
|
@ -387,7 +390,7 @@ CVDU_LOADFONT1: |
|
|
OR E ; FOR COUNTER EXHAUSTED |
|
|
OR E ; FOR COUNTER EXHAUSTED |
|
|
JR NZ,CVDU_LOADFONT1 ; LOOP TILL DONE |
|
|
JR NZ,CVDU_LOADFONT1 ; LOOP TILL DONE |
|
|
|
|
|
|
|
|
#IF USEZLSA2 |
|
|
|
|
|
|
|
|
#IF USELZSA2 |
|
|
LD HL,(CVDU_STACK) ; ERASE DECOMPRESS BUFFER |
|
|
LD HL,(CVDU_STACK) ; ERASE DECOMPRESS BUFFER |
|
|
LD SP,HL ; BY RESTORING THE STACK |
|
|
LD SP,HL ; BY RESTORING THE STACK |
|
|
RET ; DONE |
|
|
RET ; DONE |
|
|
|