Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - iotmp.c10
There is 1 other file named iotmp.c10 in the archive. Click here to see a list.
 INS 20/2	;10C1


	;	EDIT HISTORY
	;
	;JEH	  7	09-DEC-83	Restore path block address to
	;				lookup and rename blocks in
	;				routine $ITRNF
	;
 INS 157/53	;10C2
		PUSH	P,(T1)		;[7] push PPN/Path block address
 INS 167/53	;10C3
		HRRZ	T2,.FOLEB(T1)	;[7] Get address of Loockup block
		POP	P,3(T2)		;[7] Restore PPN/path block address
 REP 176/53	;10C4
	REPEAT 0,<
 WIT
	;[7] REPEAT 0,<
 REP 192/53	;10C5
	>;END REPEAT 0
 WIT
	;[7] >;END REPEAT 0
 SUM 26328