|
|
|
@ -252,6 +252,12 @@ TMS_INIT: |
|
|
|
RET |
|
|
|
; |
|
|
|
TMS_INIT1: |
|
|
|
#IF (TMSTIMENABLE) |
|
|
|
EZ80_UTIL_DEBUG |
|
|
|
|
|
|
|
PRTS(" INTERRUPT ENABLED$") |
|
|
|
|
|
|
|
#ENDIF |
|
|
|
CALL TMS_CRTINIT ; SETUP THE TMS CHIP REGISTERS |
|
|
|
CALL TMS_LOADFONT ; LOAD FONT DATA FROM ROM TO TMS STRORAGE |
|
|
|
CALL TMS_CLEAR ; CLEAR SCREEN, HOME CURSOR |
|
|
|
@ -814,7 +820,7 @@ TMS_SETCUR1: ; READ GLYPH LOOP |
|
|
|
IN A,(TMS_DATREG) ; GET NEXT BYTE |
|
|
|
TMS_IODELAY ; IO DELAY |
|
|
|
LD (HL),A ; SAVE VALUE IN BUF |
|
|
|
INC HL ; BUMP BUF POINTER |
|
|
|
INC HL ; BUMP BUF POINTER |
|
|
|
DJNZ TMS_SETCUR1 ; LOOP FOR 8 BYTES |
|
|
|
; |
|
|
|
; NOW WRITE INVERTED GLYPH INTO FONT INDEX 255 |
|
|
|
@ -1098,12 +1104,7 @@ TMS_Z180IOX: |
|
|
|
|
|
|
|
#IF (TMSTIMENABLE & (INTMODE > 0)) |
|
|
|
TMS_TSTINT: |
|
|
|
#IF (CPUFAM == CPU_EZ80) |
|
|
|
LD BC, IO_SEGMENT<<8 | TMS_CMDREG |
|
|
|
IN A,(C) ; TEST FOR INT FLAG |
|
|
|
#ELSE |
|
|
|
IN A,(TMS_CMDREG) ; TEST FOR INT FLAG |
|
|
|
#ENDIF |
|
|
|
IN_A_NN(TMS_CMDREG) |
|
|
|
AND $80 |
|
|
|
JR NZ,TMS_INTHNDL |
|
|
|
AND $00 ; RETURN Z - NOT HANDLED |
|
|
|
|