#TITLE	"TEST PATTERN"
	MODULE	"TSTPTN"
;
#INCLUDE	"EQUATE"
;
	LOC	Data#
;
COLOR:	BYTE	0
;
	LOC	Code#
;
;
START:
	MOV	AL,=ASUB
	CALL	CHROUT
;
__CLP:	MOV	AL,=AESC
	CALL	CHROUT
	MOV	AL,='C'
	CALL	CHROUT
	MOV	AL,COLOR
	INC	AL
	AND	AL,=7
	MOV	COLOR,AL
	ADD	AL,='1'
	CALL	CHROUT
;
	MOV	AL,='.'
	MOV	CX,=(26*80)-1
__FLP:	CALL	CHROUT			; fill screen loop
	LOOP	__FLP
	CALL	BREAK
	JNZ	EXIT
	MOV	AL,='^'-0X40
	CALL	CHROUT
	JMPS	__CLP
;
EXIT:	RETF
;
DMSBX:	MOV	AL,[BX]
	INC	BX
	TEST	AL,AL
	JZ	__X
	CALL	CHROUT
	JMPS	DMSBX
__X:	RET
;
CHROUT:	PUSH	AX
	PUSH	BX
	PUSH	CX
	PUSH	DX
	MOV	DL,AL
	MOV	CL,=DCFCN
	INT	OPSYSC
	POP	DX
	POP	CX
	POP	BX
	POP	AX
	RET
;
BREAK:	PUSH	BX
	PUSH	CX
	PUSH	DX
	MOV	DL,=0XFF
	MOV	CL,=DCFCN
	INT	OPSYSC
	POP	DX
	POP	CX
	POP	BX
	TEST	AL,AL
	JZ	__X
	CMP	AL,='C'-0X40
	JZ	__SIG
	CMP	AL,=AESC
	JZ	__SIG
	XOR	AL,AL
__X:	RET
;
__SIG:	OR	AL,=0XFF
	RET
;
	RET
;
	END	START