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