|
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: »coredumpt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »coredumpt«
(coredump=slang list.no xref.no;
) ;
s. a40,b50 w. ;
p. <:fpnames:> ;
k=h55 ;
a0: 0 ;
a1: 0 ;
ds. w3 a1. ;
bz w0 x2+1 ;
se w0 10 ; if no text then
jl. b32. ; stop
dl w1 x2+4 ;
ds. w1 a3. ;
dl w1 x2+8 ;
ds. w1 a5. ; move name
ba w2 x2+1 ;
ba w2 x2+1 ;
bz w0 x2+1 ;
se w0 4 ; if no integer then
jl. b31. ; stop
rl w0 x2+2 ;
ba w2 x2+1 ;
bz w1 x2+1 ;
se w1 4 ; if no integer then
jl. b30. ;
rl w1 x2+2 ;
ds. w1 a1. ;
al. w1 a10. ; tail area
al. w3 a2. ; name
jd 1<11+42; lookup
se w0 0 ;
jl. b29. ;
rl w1 x1 ;
ls w1 9 ; w1:=length
sh w1 (x2+2) ; if area is too short then
jl. b28. ;
jd 1<11+52; create area process
se w0 0 ;
jl. b27. ;
jd 1<11+8 ;
al. w1 a20.
al w2 x1+510
ds. w2 a8. ;
b4: rl. w1 a1. ;
sh w1 0 ;
jl. b40. ;
al w1 0
rl. w2 a0. ;
b3: dl w0 x2+2 ;
am x1+2
ds. w0 a20.
al w2 x2+4
al w1 x1+4
sh w1 509 ;
jl. b3.
rs. w2 a0.
rl. w2 a1.
al w2 x2-512
rs. w2 a1.
al. w1 a6. ;
al. w3 a2.
jd 1<11+16;
al. w1 a15. ;
jd 1<11+18;
se w0 1 ;
jl. b26. ;
rl. w1 a9.
al w1 x1+1
rs. w1 a9.
jl. b4.
b20: al w2 0 ;
jl. h7. ;stop
b25: am 1 ;
b26: am 1 ;
b27: am 1 ;
b28: am 1 ;
b29: am 1 ;
b30: am 1 ;
b31: am 1
b32: al w0 0
jl. w3 h32.-2 ;
1<23+32<12+8 ;
jl. b20. ;
b40: al. w3 a2.
jd 1<11+10
jd 1<11+64
jl. b20.
a2: 5<12 ;
a3: 0 ;
a4: 0 ;
a5: 0,0 ;
a6: 5<12 ;
a7: 0 ;
a8: 0 ;
a9: 0,r.3 ;
a10: 0,r.17 ;
a15: 0,r.8 ;
a20:0,r.256
e. ;
e. ;
▶EOF◀