@ -352,15 +352,11 @@ TMS_VDARES:
CALL TMS_Z180IO
CALL TMS_Z180IO
# ENDIF
# ENDIF
CALL TMS_CRTINIT1A
CALL TMS_CRTINIT1A
# IF ( ! USELZSA2 )
; WE WANT TO RELOAD THE FONT ON RESET, BUT THIS IS NOT CURRENTLY
; POSSIBLE WHEN FONT COMPRESSION IS IN USE.
CALL TMS_CLRCUR ; CLEAR CURSOR
CALL TMS_CLRCUR ; CLEAR CURSOR
CALL TMS_LOADFONT ; RELOAD FONT
CALL TMS_LOADFONT ; RELOAD FONT
LD A , $ FF ; REMOVE
LD A , $ FF ; REMOVE
LD ( TMS_CURSAV ), A ; ... SAVED CURSOR CHAR
LD ( TMS_CURSAV ), A ; ... SAVED CURSOR CHAR
CALL TMS_SETCUR ; RESTORE CURSOR
CALL TMS_SETCUR ; RESTORE CURSOR
# ENDIF
XOR A
XOR A
RET
RET
@ -672,8 +668,15 @@ TMS_LOADFONT:
; SET WRITE ADDRESS TO TMS_FNTVADDR
; SET WRITE ADDRESS TO TMS_FNTVADDR
LD HL , TMS_FNTVADDR
LD HL , TMS_FNTVADDR
CALL TMS_WR
CALL TMS_WR
# IF USELZSA2
;
; THE USE OF COMPRESSED FONT STORAGE FOR THE TMS DRIVER IS DISABLED
; SO THAT WE CAN RELOAD THE FONT DATA ON USER RESET. THE TMS CHIP
; IS FREQUENTLY REPROGRAMMED BY GAMES, ETC., SO IT IS NECESSARY TO
; REINIT AND RELOAD FONTS. RELOADING A COMPRESSED FONT AFTER
; SYSTEM INITIALIZATION REQUIRES A LARGE DECOMPRESSION BUFFER THAT WE
; HAVE NO WAY TO ACCOMMODATE WITHOUT TRASHING OS/APP MEMORY.
;
# IF USELZSA2 & FALSE
LD ( TMS_STACK ), SP ; SAVE STACK
LD ( TMS_STACK ), SP ; SAVE STACK
LD HL ,( TMS_STACK ) ; AND SHIFT IT
LD HL ,( TMS_STACK ) ; AND SHIFT IT
LD DE , $ 2000 ; DOWN 4KB TO
LD DE , $ 2000 ; DOWN 4KB TO
@ -701,7 +704,7 @@ TMS_LOADFONT1:
OR E
OR E
JR NZ , TMS_LOADFONT1
JR NZ , TMS_LOADFONT1
;
;
# IF USELZSA2
# IF USELZSA2 & FALSE
LD HL ,( TMS_STACK ) ; ERASE DECOMPRESS BUFFER
LD HL ,( TMS_STACK ) ; ERASE DECOMPRESS BUFFER
LD SP , HL ; BY RESTORING THE STACK
LD SP , HL ; BY RESTORING THE STACK
RET ; DONE
RET ; DONE