Google
 
Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - plrlbp.c13
There are no other files named plrlbp.c13 in the archive.
 REP 21/38	;13C1
		MOVE	T2,[POINT 7,[ASCIZ/ /]]	;POINT AT ACCESS ALLOWED CHAR
		MOVE	T1,[CPTRI ^D11,0(BUF)]	;AIM AT ACCESS CHARACTER (CP 11)
 WIT
		$RETF				; OR IT'S A BAD LABEL

	VLA.AS:	MOVE	T2,BNKPTR		;POINT AT ALL ACCESS ALLOWED CHAR
		MOVX	S1,TS.D1A		;GET BIT TO CLEAR
		ANDCAM	S1,TCB.ST(B)		;CLEAR IT IN THE TCB
		MOVE	T1,[CPTRI ^D11,0(BUF)]	;Aim at access character (CP 11)
 DEL 26/38	;13C2
		JUMPT	.RETT			;IT MUST BE A SPACE
		$RETF				; OR IT'S A BAD LABEL

	VLA.AS:	MOVE	T2,BNKPTR		;POINT AT ALL ACCESS ALLOWED CHAR
		MOVX	S1,TS.D1A		;GET BIT TO CLEAR
		ANDCAM	S1,TCB.ST(B)		;CLEAR IT IN THE TCB
		MOVE	T1,[CPTRI ^D11,0(BUF)]	;Aim at access character (CP 11)
		MOVEI	T3,1			;ONE CHARACTER LONG
		HRL	T3,CVTTAB(LT)		;CONVERSION IF NECESSARY
		PUSHJ	P,STRCMP		;COMPARE
 SUM 65815