.TITLE	M1145P
	.IDENT	/V04N/
;  MODIFICATIONS:
;	NAPC	3/7/79 -- CORRECT OUTPUT OF REGISTER
;			ADDRESS AND CONTENTS
	.PSECT
B=.
.=B+324
	CALL	PAT1
.=B
	.PSECT	$$PAT1
$$PAT1=.
PAT1:	ADD	#4,R2		;STEP TO R$REG
	SUB	#4,R0
	RETURN
.=$$PAT1
	.END