Google
 
Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - srtgen.c12
There are 3 other files named srtgen.c12 in the archive. Click here to see a list.
 REP 10/1	;12C1
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 5/2	;12C2
	;MJC	16-JUL-85	[1603] Fix edit 1516.  Get FILTAB entry using EOPTAB.
 REP 35/58	;12C3
		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 259986