Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0002/sddt.mac
There is 1 other file named sddt.mac in the archive. Click here to see a list.
.require sai:bail.rel
extern b.,bail,.uinit
search monsym
a=1
b=2
c=3
d=4
p=17
.jbddt=74
.jbsa=120
twoseg
loc .jbddt
exp ddst
reloc 400000
ddst: setzm .jbddt ;say we are no longer DDT, so we get real one
hrrz a,.jbsa ;look for place to put break
move b,[pushj p,.uinit] ;right after this
search: camn b,(a) ;now look for it
jrst found
caie a,777777 ;ran out
aoja a,search
hrroi a,[asciz /Doesn't seem to be a SAIL program
/]
esout
haltf
jrst .-1
found: move b,[pushj p,pat1] ;replace call to .uinit with to our patch
movem b,(a)
move a,.jbsa ;now start program
jrst (a)
pat1: pushj p,.uinit ;now really call .uinit
jrst bail ;and fake call to bail at that point
end