Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lnkov2.c07
There is 1 other file named lnkov2.c07 in the archive. Click here to see a list.
 REP 2/1	;07C1
	SUBTTL	D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN/PY/PAH	6-Jan-83
 WIT
	SUBTTL	D.M.NIXON/DMN/JLd/RKH/JNG/MCHC/DZN/PY/PAH	2-Jun-83
 REP 36/1	;07C2
	DECEVR==2026		;DEC EDIT VERSION
 WIT
	DECEVR==2042		;DEC EDIT VERSION
 INS 62/2	;07C3
	;2042	Protect pointers to GS and LC when calling TR.WLK.
 REP 28/11	;07C4
		PUSHJ	P,TR.WLK##	;THESE ARE ONLY LINKS WE CAN REACH
 WIT
	;**;[2042] Replace at OVR6C+11 Lines	PY	2-Jun-83
		PUSHJ	P,OVR6TW	;[2042] THESE ARE ONLY LINKS WE CAN REACH
 REP 37/11	;07C5
		PUSHJ	P,TR.WLK##	;SEE IF WE CAN SEE IT
 WIT
	;**;[2042] Replace at OVR6C+20 Lines	PY	2-Jun-83
		PUSHJ	P,OVR6TW	;[2042] SEE IF WE CAN SEE IT
 REP 8/13	;07C6
		PUSHJ	P,TR.WLK##	;SINCE THESE ARE THE ONLY LINKS WE
 WIT
	;**;[2042] Replace at OVR6M+5 Lines	PY	2-Jun-83
		PUSHJ	P,OVR6TW	;[2042] SINCE THESE ARE THE ONLY LINKS WE
 REP 19/13	;07C7
		PUSHJ	P,TR.WLK##	;SEE IF WE CAN GET TO IT
 WIT
	;**;[2042] Replace at OVR6MA+3 Lines	PY	2-Jun-83
		PUSHJ	P,OVR6TW	;[2042] SEE IF WE CAN GET TO IT
 REP 12/14	;07C8
		PUSHJ	P,TR.WLK##	;SEE IF WE CAN GET TO IT
 WIT
	;**;[2042] Replace at OVR6MD+1 Line	PY	2-Jun-83
		PUSHJ	P,OVR6TW	;[2042] SEE IF WE CAN GET TO IT
 INS 50/15	;07C9

	;**;[2042] Insert before OVR6D		PY	2-Jun-83
	OVR6TW:	SUB	P3,GS.LB	;[2042] Subtract the base addresses
		SUB	R2,LC.LB	;[2042] Because TR.WLK calls DY.GET
		PUSHJ	P,TR.WLK##	;[2042] Walk the tree
		ADD	P3,GS.LB	;[2042] Add the base addresses back
		ADD	R2,LC.LB	;[2042] LC better not be paging!
		POPJ	P,		;[2042] And return

 SUM 256262