.TITLE	RTNS
	.IDENT	/V0102A/
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
; MODIFICATIONS:
;
;	BLS020	FIX TO ALLOW LINES WITH LENGTHS 127.-132. BYTES
;
	.PSECT	CODE,RW,I,CON,LCL

CODEI=.
.=.+712
	CALL	PAT001
.=CODEI

	.PSECT	PAT001,I,RW,CON,LCL
PAT001:	CLR	R1
	BISB	L.LEN(R0),R1
	RETURN

	.END