Trailing-Edge
-
PDP-10 Archives
-
decuslib10-13
-
rsub.mac
There is 1 other file named rsub.mac in the archive. Click here to see a list.
title rsub
search uuosym
.common w [24]
r=1
s=2
t=3
p=17
;
d=w
num=24
first=%cvrsc
;
rsub::
move t,[%ccrsp] ;get response subtable pointer
gettab t,
halt
movei r,.gtc0v ;cpu0 variables
hrl r,t ;set up index
move s,[xwd -num,d] ;set up for loop
loop:
move t,r ;retrieve gettab arg
gettab t, ;get response data
setz t,
movem t,(s) ;save it
add r,[1,,0] ;prepare next gettab
aobjn s,loop ;loop
popj p,
quit::
monrt. ;return to monitor
jrst .-1 ;no continue
end