|
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: »klistt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »klistt«
; time 3.0
(klist =slang list.no xref.no;
) ;
s. a30,b30,c10,t248 w.;
p. <:fpnames:> ;
k=h55 ;
c0=1<23+32<12+5 ;
c1=1<23+32<12+8 ;
c2=1<23+32<12+3 ;
c3=1<23+32<12+7 ;
a0: 0 ;
a1: 0 ;
al. w0 a9. ;
jl. w3 h31.-2 ;
dl w3 80 ; w2:=name table start for ip
ds. w3 a1. ;
b1: rl w2 x2 ; w2:= next internal
rl w3 x2+2 ; first of name
sh w3 0 ; if no name then
jl. b10. ; goto next
dl w0 x2+4 ;
lo. w3 a8. ;
lo. w0 a8. ;
ds. w0 a3. ;
dl w0 x2+8 ;
lo. w3 a8. ;
lo. w0 a8. ;
ds. w0 a5. ;
al. w0 a2. ;
jl. w3 h31.-2 ;
rl w0 x2+22 ;
jl. w3 h32.-2,c3; write start addr
rl w0 x2+24 ;
ws w0 x2+22 ;
jl. w3 h32.-2,c1; write size
; state
bz w1 x2+11 ;
bz. w1 x1+a20. ; w1:=relative text addr
al. w0 x1+a21.;
jl. w3 h31.-2 ; write state
bz w0 x2+10 ;
jl. w3 h32.-2,c2; write stop count
bz w0 x2+26 ;
jl. w3 h32.-2,c3; write buf
bz w0 x2+27 ;
jl. w3 h32.-2,c0; write area
bz w0 x2+28 ;
jl. w3 h32.-2,c0; write internal
rl w1 x2+50 ; parent
sn w1 0 ;
jl. b5. ;
dl w0 x1+4 ;
lo. w3 a8. ;
lo. w0 a8. ;
ds. w0 a3. ;
dl w0 x1+8 ;
lo. w3 a8. ;
lo. w0 a8. ;
ds. w0 a5. ;
al. w0 a6. ;
jl. w3 h31.-2 ;
b5: al w2 10 ;
jl. w3 h26.-2 ;
b10:rl. w2 a0. ;
al w2 x2+2 ;
rs. w2 a0. ;
se. w2 (a1.) ;
jl. b1. ;
b20:al w2 0 ;
jl. h7. ;
a6: 32<16+32<8+32 ;
a2: 0 ;
a3: 0 ;
a4: 0 ;
a5: 0,32<16 ; name
a8: <:<32><32><32>:>;
a9: <:<10>name first addr size state scount buf area int parent<10><0>:>
a21: ;
t0: <: unknown state<0><0>:>;
t8: <: error <0><0>:>;
t72: <: running <0><0>:>;
t141:<: wait message <0><0>:>;
t142:<: wait answer <0><0>:>;
t143:<: wait event <0><0>:>;
t160:<: wait stop a <0><0>:>;
t168:<: wait start a <0><0>:>;
t176:<: wait stop p <0><0>:>;
t184:<: wait start p <0><0>:>;
t204:<: wait pr func <0><0>:>;
t248:<: wait ext int <0><0>:>;
a20: ;
h. ;
t0,r.8 ;
t8-a21 ;
t0,r.(:72-8-1:) ;
t72-a21 ;
t0,r.(:141-72-1:);
t141-a21 ;
t142-a21 ;
t143-a21 ;
t0,r.(:160-143-1:);
t160-a21 ;
t0,r.(:168-160-1:);
t168-a21 ;
t0,r.(:176-168-1:);
t176-a21 ;
t0,r.(:184-176-1:);
t184-a21 ;
t0,r.(:204-184-1:);
t204-a21 ;
t0,r.(:248-204-1:);
t248-a21 ;
t0,r.(:255-248-1:);
w. ;
e. ;
e. ;
▶EOF◀