	.TITLE	HR
	.MCALL	.CSTAT
	.DSABL	GBL
	.GLOBL	AREA	ADDR
	.GLOBL	OUT$ADR
	.GLOBL	BHR
	.GLOBL	PCENTER
	
;----------------------------------
BLK:	.BYTE	-1	,10
	.BYTE	2
PCDRI::	.BYTE	123
PCTRK::	.BYTE	80.
	.BYTE	0
	.WORD	BHR
	.WORD	200
;----------------------------------

HR::	.CSTAT	#AREA,#17,#ADDR
	BISB	ADDR+10,PCDRI
	MOV	#BLK,R0
	MOV	#3,R1
1$:	CALL	OUT$ADR
	TSTB	@R0
	BEQ	2$
	SOB	R1,1$
	MOV	#-1,PCENTER
2$:	RETURN

EXOR::	.END
                                                      