Google
 
Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qsrque.c13
There is 1 other file named qsrque.c13 in the archive. Click here to see a list.
 REP 50/14	;13C1
		MOVSI	S1,-TBLEN		;GET AOBJN AC FOR BLOCK TYPE SEARCH
		SOJG	T2,CRQE.2		;[1237] MAKE SURE LENGTH IS CORRECT
		CAIN	T1,.QCACT		;[1237] ACCOUNT STRING BLOCK?
		JRST	CRQE.2			;[1237] YES, THAT MAY BE ZERO LENGTH
		JRST	CRQE.5			;[1237] NO, THAT'S AN ERROR
 WIT
		SOJLE	T2,CRQE.5		;MAKE SURE LENGTH IS CORRECT
		MOVSI	S1,-TBLEN		;GET AOBJN AC FOR BLOCK TYPE SEARCH
 DEL 23/20	;13C2
		JUMPE	T2,.RETT		;[1237] QUIT IF ZERO-LENGTH ACCOUNT STRING
 SUM 47665