Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_3_19910112
-
utilities/dfind.fai
There are no other files named dfind.fai in the archive.
search monsym
start: move 1,[sixbit/FIND/]
move 2,1
SETSN
jfcl ;no error returns
movsi 1,(gj%sht+gj%old)
hrroi 2,[asciz/sys:FIND.exe/]
GTJFN
erjmp error
hrli 1,.fhslf ;get file on top of ourselves
move 5,[GET]
move 6,[movei 1,.fhslf]
move 7,[setz 2,]
move 8,[SFRKV] ;start ourselves (!) at start address
jrst 5 ;go and do it all
error: hrroi 1,[asciz/Can't find FIND/]
PSOUT
haltf
jrst start
end start