.TITLE	P5CEL
	.IDENT	/03A/
;
; MODIFICATIONS:
;	03A	FIX CREF OUTPUT TO CORRECTLY PRINT ADDRESSES
;		OF REFERENCES IN TREES WITH DEFINITIONS IN ROOT.
;
	.PSECT
.BLK.=.
.=.BLK.+46			; 03A
SYVAL:	.BLKW	1		; 03A
.=.BLK.+512			; 03A
	NOP			; 03A
.=.BLK.+540			; 03A
	CALL	$PAT1		; 03A
	NOP			; 03A
;
	.PSECT	$$PAT1		; 03A
$PAT1:	CMP	#SY$REL,S$YFLG(R0)	; 03A
	BEQ	10$		; 03A
	ADD	$OFFST,SYVAL	; 03A
10$:	CMP	$CRVSR,$RTSEG	; 03A
	RETURN			; 03A
;
	.END