;		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