Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/qsrque.c10
There are 2 other files named qsrque.c10 in the archive. Click here to see a list.
 INS 44/2	;10C1
	;**;[1234]Add 1 line at STATS:+18L  DRB  1/11/85
		[0,,0]				;[1234].OTSNA
 INS 47/14	;10C2
	;**;[1234]Add 1 line at BLKTBL:+23L  DRB  1/11/85
		CRQSNA,,.QCSNA			;[1234]FP Word for SNA-Workstations
 INS 22/19	;10C3
	;**;[1234]Add 10 lines at CRQFRR:+7L  DRQ  1/11/85
	CRQSNA:	CAIE	T2,1			;[1234]Block length must be 1
		$RETF				;[1234]No,,thats an error
		MOVEI	S1,EQHSIZ(P1)		;[1234]Point to the FP
		LOAD	T3,(T4),FP.TAB		;[1234]Get tab flag
		STORE	T3,.FPINF(S1),FP.TAB	;[1234]Save the tab flag
		LOAD	T3,(T4),FP.NXL		;[1234]Get the notranslate flag
		STORE	T3,.FPINF(S1),FP.NXL	;[1234]Save the notranslate flag
		LOAD	T3,(T4),FP.RCL		;[1234]Get record len
		STORE	T3,.FPINF(S1),FP.RCL	;[1234]Save the record len
		$RETT				;[1234]Return ok

 SUM 165743