|
|
|
@ -107,7 +107,7 @@ TMS_INIT1: |
|
|
|
; |
|
|
|
XOR A ; SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
; |
|
|
|
; |
|
|
|
;====================================================================== |
|
|
|
; TMS DRIVER - VIDEO DISPLAY ADAPTER (VDA) FUNCTIONS |
|
|
|
;====================================================================== |
|
|
|
@ -170,19 +170,19 @@ TMS_VDARES1: ; ENTRY POINT TO AVOID TMS_Z180IO RECURSION |
|
|
|
DEC A |
|
|
|
LD (TMS_CURSAV),A |
|
|
|
CALL TMS_SETCUR ; SET CURSOR |
|
|
|
|
|
|
|
|
|
|
|
XOR A ; SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDADEV: |
|
|
|
LD D,VDADEV_TMS ; D := DEVICE TYPE |
|
|
|
LD E,0 ; E := PHYSICAL UNIT IS ALWAYS ZERO |
|
|
|
XOR A ; SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDASCS: |
|
|
|
CALL PANIC ; NOT IMPLEMENTED (YET) |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDASCP: |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
CALL TMS_Z180IO |
|
|
|
@ -192,15 +192,15 @@ TMS_VDASCP: |
|
|
|
CALL TMS_SETCUR |
|
|
|
XOR A ; SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDASAT: |
|
|
|
XOR A ; NOT POSSIBLE, JUST SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDASCO: |
|
|
|
XOR A ; NOT POSSIBLE, JUST SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDAWRC: |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
CALL TMS_Z180IO |
|
|
|
@ -211,7 +211,7 @@ TMS_VDAWRC: |
|
|
|
CALL TMS_SETCUR |
|
|
|
XOR A ; SIGNAL SUCCESS |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDAFIL: |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
CALL TMS_Z180IO |
|
|
|
@ -239,7 +239,7 @@ TMS_VDACPY: |
|
|
|
CALL TMS_SETCUR |
|
|
|
XOR A |
|
|
|
RET |
|
|
|
|
|
|
|
|
|
|
|
TMS_VDASCR: |
|
|
|
#IF (CPUFAM == CPU_Z180) |
|
|
|
CALL TMS_Z180IO |
|
|
|
@ -294,7 +294,7 @@ TMS_SET: |
|
|
|
OUT (TMS_CMDREG),A ; WRITE IT |
|
|
|
TMS_IODELAY |
|
|
|
LD A,C ; GET THE DESIRED REGISTER |
|
|
|
OR $80 ; SET BIT 7 |
|
|
|
OR $80 ; SET BIT 7 |
|
|
|
OUT (TMS_CMDREG),A ; SELECT THE DESIRED REGISTER |
|
|
|
TMS_IODELAY |
|
|
|
RET |
|
|
|
@ -398,7 +398,7 @@ TMS_LOADFONT: |
|
|
|
LD (TMS_STACK),SP ; SAVE STACK |
|
|
|
LD HL,(TMS_STACK) ; AND SHIFT IT |
|
|
|
LD DE,$2000 ; DOWN 4KB TO |
|
|
|
CCF ; CREATE A |
|
|
|
CCF ; CREATE A |
|
|
|
SBC HL,DE ; DECOMPRESSION BUFFER |
|
|
|
LD SP,HL ; HL POINTS TO BUFFER |
|
|
|
EX DE,HL ; START OF STACK BUFFER |
|
|
|
@ -597,7 +597,7 @@ TMS_SCROLL1: |
|
|
|
INC DE |
|
|
|
DJNZ TMS_SCROLL1 |
|
|
|
POP HL ; RECOVER THE DESTINATION |
|
|
|
; |
|
|
|
; |
|
|
|
; WRITE THE BUFFERED LINE TO CURRENT DESTINATION |
|
|
|
CALL TMS_WR ; SET UP TO WRITE |
|
|
|
LD DE,TMS_BUF |
|
|
|
@ -733,7 +733,7 @@ TMS_Z180IO: |
|
|
|
OUT0 (Z180_DCNTL),A ; IMPLEMENT IT |
|
|
|
POP AF ; RESTORE AF |
|
|
|
; BACK TO CALLER |
|
|
|
TMS_Z180IOR .EQU $+1 |
|
|
|
TMS_Z180IOR .EQU $+1 |
|
|
|
JP $0000 ; BACK TO CALLER |
|
|
|
; |
|
|
|
TMS_Z180IOX: |
|
|
|
|