SETCURS		MACRO			;DESIRED CURSOR POSITION IN DX
		MOV	AH,2		;SET CURSOR FUNCTION
		XOR	BH,BH		;PAGE 0
		INT	10H		;MOVE CURSOR
		ENDM
		.MODEL SMALL
		.CODE
		PUBLIC	_filtoscr, _scrtofil, _pnumdisp
_pnumdisp	PROC	NEAR
		PUSH	BP
		MOV	BP,SP
		MOV	AX,[BP+4]	;CUR_PNUM
		ADD	AL,30H		;CONVERT PAGE NUMBER TO ASCII
		MOV	DX,022BH	;SCREEN LOCATION TO DISPLAY PAGE NUM
		SETCURS
		MOV	AH,9		;DISPLAY CHARACTER IN AL
		XOR	BH,BH		;PAGE 0
		MOV	BL,2		;COLOR OF PAGE NUMBER - GREEN
		MOV	CX,1		;DISPLAY ONLY ONCE
		INT	10H
		MOV	DX,0400H	;RETURN CURSOR TO START OF TEXT
		SETCURS
		POP	BP
		RET
_pnumdisp	ENDP
_filtoscr	PROC	NEAR
		PUSH	BP
		MOV	BP,SP
		PUSH	ES
		MOV	AX,47104
		MOV	ES,AX
		PUSH	DI
		PUSH	SI
		MOV	DI,0280H
		MOV	SI,[BP+4]	;CUR_PAGE
		MOV	CX,0500H
		MOV	BL,2		;COLOR OF TEXT AREA - GREEN
	FTS10:	MOV	AL,[SI]		;MOVE A BYTE FROM BUFFER TO AL
		MOV	ES:[DI],AL
		INC	SI		;BUMP INDEX FOR NEXT BYTE
		INC	DI
		MOV	ES:[DI],BL
		INC	DI
		LOOP	FTS10		;LOOP FOR NUMBER OF BYTES LEFT IN PAGE
		POP	SI
		POP	DI
		POP	ES
		POP	BP
		RET
_filtoscr	ENDP
_scrtofil	PROC	NEAR
		PUSH	BP
		MOV	BP,SP
		PUSH	ES
		MOV	AX,47104
		MOV	ES,AX
		PUSH	DI
		PUSH	SI
		MOV	DI,0280H
		MOV	SI,[BP+4]	;CUR_PAGE
		MOV	CX,0500H
	STF10:	MOV	AL,ES:[DI]
		MOV	[SI],AL		;MOVE IT TO THE BUFFER
		ADD	DI,2
		INC	SI		;BUMP BUFFER INDEX
		LOOP	STF10		;LOOP FOR REMAINING CHARACTERS ON SCRN
		POP	SI
		POP	DI
		POP	ES
		POP	BP
		RET
_scrtofil	ENDP
		END