|
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«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦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. ;
rl w2 x2 ;
jl. b2. ; write procfunc
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. ;
b2: al. w0 a2. ;
jl. w3 h31.-2 ;
rl w0 x2+22 ;
wa w0 x2+98 ; +base
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: <:pro:> ;
a3: <:cfu:> ;
a4: <:nc<32>:> ;
a5: <:<32><32><32>:>,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>:>;
t8: <: error <0>:>;
t72: <: running <0>:>;
t141:<: wait message <0>:>;
t142:<: wait answer <0>:>;
t143:<: wait event <0>:>;
t160:<: stop ancestor <0>:>;
t168:<: start ancestor<0>:>;
t176:<: stop parent <0>:>;
t184:<: start parent <0>:>;
t204:<: proc func <0>:>;
t248:<: wait ext int <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◀