.TITLE	SCROLL
	.IDENT	/V36.1/
; EDIT # 0004	28 Oct 1980   11:31:52	DR1:[342,2]SCROLLPAT.MAC;6
; PREVIOUS EDIT	3 Sept 1980   13:21:56	DR1:[342,1]SCROLLPAT.MAC;5
EVFLAG=0100

; FOR A HAZELTINE WHERE WE USE BRIGHT FIELD, BECAUSE IT DOES NOT
; HAVE REVERSE VIDEO.  A BRIGHT SPACE IS JUST AS DARK AS A NON-BRIGHT
; SPACE, SO WE PUT IN ANOTHER CHARACTER.

	.PSECT	SCRSUB,RO,GBL
.=.+470
	CALL	CSP


	.PSECT	SCRPAT,RO,GBL
CSP:	CMP	R0,#040
	BNE	100$

	CMP	#6,CRTYPE(R5)	; HZL SPACE BECOMES BLOB...
	BNE	10$		; .... OR REVERSE QUOTE
	MOV	#140,R0
10$:	CLC
100$:	RETURN
	.END