; Patch to AMOSL 1.2(96) to allow old style screen control commands to
; work properly under the patched monitor. This patch works properly
; with COLOR CRTs and still prevents bonafide COLOR commands from reaching
; monochrome CRTs.

; This is NOT an official Alpha Micro patch.

	COPY	PATCH

	OVER	1, 2, 96., 0

	.=13626

	CMPW	D1,#100377		; old function or cursor pos ?
	BLOS	DOIT			;  yes-do it
	CMPW	D1,#177400		; new type function call ?
	BHIS	DOIT			;  yes-do it also
; only expanded (COLOR) calls remain at this point
	BTST	#3,22(A6)		; COLOR terminal ?
	BEQ	NOPE			;  no-ignore color TCRT call
DOIT:	CALL	10(A6)			; call terminal driver
NOPE:	SSTS	D7			; save status
	NOP				; fill a word to match up.

	END

.