	PAGE	,132
;---------------------------------------------------------------------
;
; This program demonstates using multiple screen pages and includes
; 2 macros.
;
; Malcolm McCorquodale III. Summer 1983   713 - 626 - 4979
;
;---------------------------------------------------------------------

MYPROG	SEGMENT 'CODE'
	ASSUME	CS:MYPROG

ACT_DISP_PAGE	MACRO	PAGE_NO
	MOV	AH,5
	MOV	AL,PAGE_NO
	INT	10H
	ENDM

WRITE_CHAR	MACRO	PAGE,CNT,CHAR
	MOV	BH,PAGE
	MOV	CX,CNT
	MOV	AH,10
	MOV	AL,CHAR
	INT	10H
	ENDM

TEST	PROC	FAR
	PUSH	DS	; DOS LINKAGE
	XOR	AX,AX
	PUSH	AX

	WRITE_CHAR	1,2000,30H
	WRITE_CHAR	0,2000,31H
	MOV	CX,1001

LP:
	PUSH	CX
	ACT_DISP_PAGE 1
	ACT_DISP_PAGE 0
	POP	CX
	LOOP	LP
	RET
TEST	ENDP
MYPROG	ENDS
	END
