|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Types: TextFile
Names: »tisotable«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »tisotable«
; ta 1978.06.20 isotable page ...1...
s. g5 w.
d.
p.<:fpnames:>
l.
b. d1, j30, a2, c0
w. k=0
h.
g2: d1 , d0 ; rel last point, rel last abs word
j8: 8 , 0 ; rs entry end addr expr
j13: 13 , 0 ; rs variable last used
j18: 18 , 0 ; rs entry index alarm
j30: 30 , 0 ; rs variable saved last used
d0=k-2-g2
d1=k-2-g2
w. ; external list:
g3: 0 ; number of externals
0 ; halfs to copy into perm core
s3 ; date
s4 ; clock
g4: rl. w2 (j13.) ; w2:=last used
ds. w3 (j30.) ; saved last used:=last used;
rl w3 x2+8 ; w3:=array descr;
ba w3 x2+6 ; w3:=dope addr;
al w1 0 ;
sh w1 (x3) ; if lower limit>=0 then
jl. w3 (j18.) ; indexalarm(0);
rl w1 x3-2 ;
ls w1 -1 ;
al w1 x1+1 ;
sh w1 127 ; if upper limit<127 then
jl. w3 (j18.) ; indexalarm(upper limit + 1 );
al w1 -1 ; w1:=value;
rl w3 (x2+8) ; w3:=addr ia(0);
al. w2 c0. ; w2:=addr valuetable
a0: al w1 x1+1 ; fill: value:=value+1;
sn w1 128 ; if value=128 then
jl. a1. ; goto filled;
bl w0 x2 ; w0:=class
ls w0 12 ; shift 12
ba w0 3 ; +value;
rs w0 x3 ; ia(value):=w0;
al w3 x3+2 ; ia addr:=ia addr+2;
al w2 x2+1 ; value:=value+1;
jl. a0. ; goto fill;
a1: dl. w3 (j30.) ; filled: w3:=saved last used;
rs. w2 (j13.) ; w2:=last used;
jl. w3 (j8.) ; end addr expr;
h.
c0: 0,7,7,7,7,7,7,7
7,7,8,7,8,0,7,7
7,7,7,7,7,7,7,7
7,8,7,7,7,7,7,7
7,7,7,7,7,7,7,5
7,7,7,3,7,3,4,7
2,2,2,2,2,2,2,2
2,2,7,7,7,7,7,7
7,6,6,6,6,6,6,6
6,6,6,6,6,6,6,6
6,6,6,6,6,6,6,6
6,6,6,6,6,6,7,7
7,6,6,6,6,6,6,6
6,6,6,6,6,6,6,6
6,6,6,6,6,6,6,6
6,6,6,6,6,6,7,0
m. rc isotable 1978.06.20
0, r.g2.+ 513 ; fill segm with zeroes
w.
g0: g1: ; information for insertproc
1 ; 1 segm
0 , r.4 ; space for docname
1<23+g4-g2 ; entry point
1<18+25<12 ; no type procedure, param=integer array
0 ; param spec2
4<12+g3-g2 ; start external list
1<12+0 ; 1 code segm
d.
p.<:insertproc:>
e.
▶EOF◀