home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
trs80model4.tar.gz
/
trs80model4.tar
/
m4h19.mac
< prev
next >
Wrap
Text File
|
1986-10-22
|
726b
|
76 lines
; m4h19/mac
*LIST OFF
SWAP_IN MACRO
PUSH AF
DI
LD A,(IY+SCR_MASK)
AND S_IN
OUT (132),A
POP AF
ENDM
;
SWAP_OUT MACRO
PUSH AF
LD A,(IY+SCR_MASK)
OR S_OUT
OUT (132),A
EI
POP AF
ENDM
;
SVC MACRO #P1
PUSH AF
LD A,#P1
RST 28H
POP AF
ENDM
;
SSVC MACRO #P1
LD A,#P1
RST 28H
ENDM
;
GET_CURSOR MACRO
PUSH BC
LD B,4
SVC @VDCTL
POP BC
ENDM
;
PUT_CURSOR MACRO
PUSH BC
PUSH DE
PUSH HL
LD B,3
SVC @VDCTL
POP HL
POP DE
POP BC
ENDM
;
GET_LINE MACRO
PUSH BC
PUSH HL
PUSH DE
LD B,9
LD C,1
SVC @VDCTL
POP DE
POP HL
POP BC
ENDM
;
PUT_LINE MACRO
PUSH BC
PUSH HL
PUSH DE
LD B,9
LD C,0
SVC @VDCTL
POP DE
POP HL
POP BC
ENDM
;
*LIST ON