Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/srtgen.c08
There are 4 other files named srtgen.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1365 on 9/19/83 at 9:47 AM by HOFFMAN                         
 WIT
	; UPD ID= 1557 on 4/25/84 at 9:04 AM by JBLAU                           
 INS 17/1	;08C2
	;EDITS
	;NAME	DATE		COMMENTS
	;V13*****************
	;JEH	19-MAR-84 	[1516] Don't zero sort record area if SAME RECORD AREA
	;				clause used

 INS 39/59	;08C3
		HLRZ	TA,CURFIL	;[1516] GET FILE TABLE ADDRESS
		PUSHJ	PP,LNKSET	;[1516] SO THAT WE CAN FIND OUT
		LDB	TE,FI.SRA##	;[1516] IF SAME RECORD AREA, IF SO
		JUMPN	TE,PUT.PJ	;[1516] WE DON'T WANT TO CLEAR THE RECORD AREA.
 SUM 217404