Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lnkold.c08
There is 1 other file named lnkold.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN/PY/MFB/PAH	29-Aug-83
 WIT
	SUBTTL	D.M.NIXON/DMN/JLd/RKH/JBC/JNG/DCE/MCHC/DZN/PY/MFB/PAH/JBS 23-Mar-84
 REP 37/1	;08C2
	DECEVR==2047		;DEC EDIT VERSION
 WIT
	DECEVR==2064		;DEC EDIT VERSION
 INS 86/6	;08C3
	;2057	Don't hang if symbol table is fouled up.
	;2064	Clear P1 in T11CHx to avoid HALT when loading relocatable overlays.
 REP 20/55	;08C4
		JRST	T.5LP		;NO
 WIT
		 JRST	E02SFU		;[2057] NO, SYMBOL TABLE FOULED UP
 REP 33/87	;08C5
		SY.CHF##		;-3 FULL WORD FIXUP CHAIN
 WIT
	;**;[2064] Change one line at STRTAB+6. PAH 23-MAR-84
		T11CHF			;[2064] -3 FULL WORD FIXUP CHAIN
 INS 36/89	;08C6
	;**;[2064] Add two lines at T11CHR+3.  PAH 23-MAR-84
		SETZ	P1,		;[2064] Clear leftover pointer so P1
					;[2064] isn't treated as a fixup pointer
 INS 42/89	;08C7
	;**;[2064] Add two lines at T11CHL+3.  PAH 23-MAR-84
		SETZ	P1,		;[2064] Clear leftover pointer so P1
					;[2064] isn't treated as a fixup pointer
 INS 46/89	;08C8
	;**;[2064] Add 7 lines at T11CHL+7.  PAH 23-MAR-84
	;[2064] Here to clear P1 before going to the fullword chained fixup
	;[2064] routine -- that routine calls others which interpret a nonzero
	;[2064] value in P1 as a fixup block pointer.
	T11CHF:	SETZ	P1,		;[2064] Clear leftover pointer so P1
					;[2064] isn't treated as a fixup pointer
		PUSHJ	P,SY.CHF##	;[2064] Do the fullword chained fixup
		POPJ	P,		;[2064] And return to the dispatcher
 DEL 27/119	;08C9
	SUBTTL	THE END

 SUM 242861