Trailing-Edge
-
PDP-10 Archives
-
bb-jr93e-bb
-
7,6/ap013/srtgen.c13
There are 10 other files named srtgen.c13 in the archive. Click here to see a list.
INS 5/2 ;13C1
;MJC 16-JUL-85 [1603] Fix edit 1516. Get FILTAB entry using EOPTAB.
REP 35/58 ;13C2
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 3307