Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93h-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