Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/srtgen.c12
There are 3 other files named srtgen.c12 in the archive. Click here to see a list.
REP 11/1 ;12C1
COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
WIT
COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
INS 20/1 ;12C2
;MJC 16-JUL-85 [1603] Fix edit 1516. Get FILTAB entry using EOPTAB.
REP 35/59 ;12C3
HLRZ TA,CURFIL ;GET FILE TABLE ADDRESS
PUSHJ PP,LNKSET ;SO THAT WE CAN FIND OUT
LDB TE,FI.SRA## ;IF SAME RECORD AREA, IF SO
JUMPN TE,PUT.PJ ;WE DON'T WANT TO CLEAR THE RECORD AREA.
HLRZ TA,CURFIL ;[1516] GET FILE TABLE ADDRESS
WIT
MOVE TC,CUREOP ;[1603] GET POINTER TO RECORD
HRRZ TA,1(TC) ;[1603] GET THE DATAB ENTRY FOR THE RECORD
PUSHJ PP,LNKSET ;[1603] GET THE ABSOLUTE ADDRESS IN DATAB
LDB TA,DA.POP ;[1603] FATHER IS FILTAB ENTRY
SUM 122758