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