|
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: 1536 (0x600)
Types: TextFile
Names: »kklookt«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »kklookt«
s. a20,b20 w.
p.<:fpnames:>
k=h55
a19:0
a20:0
b1:ba w3 x3+1
rs. w3 a19.
rl w2 x3+2
bz w0 x3+1
sn w0 4
jl. b0.;goto create entry
sn w0 10
jl. b18.
jl. b20. ; goto stop
b0:al. w1 a0.
al. w3 a1.
al w0 0
rs w0 x3
jd 1<11+40; create entry
jl. w3 h32.-2; print w0
1<23+32<12+8
rl. w0 a3.
rs. w0 a2.
al. w0 a1.
jl. w3 h31.-2
al w2 x2-1
sl w2 1
jl. b0.
b20:al w2 0
jl. h7.
b18:al w3 x3+2; name addr
dl w1 x3+2
aa w1 x3+6
wa w1 0
ba w1 2
al w0 0
wd. w1 a6.
rs. w0 a20.; name key
al. w1 a0.; tail addr
jd 1<11+76; lookup entry
al w2 (0)
al w0 x3
jl. w3 h31.-2
al w0 x2
jl. w3 h32.-2
1<23+32<12+5
rl. w0 a20.
jl. w3 h32.-2
1<23+32<12+5
rl. w0 a0.
ls w0 12
ls w0 -15
jl. w3 h32.-2
1<23+32<12+5
al w2 10
jl. w3 h26.-2
rl. w3 a19.
jl. b1.
a0:0,0,r.20
a1:0,0,0
a2:0
a3:<:<10><0><0>:>
a6:499
e.
e.
▶EOF◀