|
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: »kkmesst«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kkmesst«
(mess=slang list.no;
) ;
s. a30,b30 w. ;
p. <:fpnames:> ;
k=h55 ;
a0: 0 ;
a1: 0 ;
rs. w2 a0. ;
rl w0 x1+h16 ;
rs. w0 a1. ; own pda
al. w0 a2. ;
jl. w3 h31.-2 ;
al w2 32 ;
jl. w3 h33.-2 ;
al. w3 a5. ;
al w0 0 ;
ds. w0 a4. ;
b0: jl. w3 h25.-2 ;
dl. w0 a4. ;
ls w0 8 ;
lo w0 4 ;
ds. w0 a4. ;
sz. w0 ( a6.) ;
jl. b1. ;
se w2 10 ;
jl. b0. ;
b1: rs w0 x3 ;
al w3 x3+2 ;
al w0 0 ;
ds. w0 a4. ;
se w2 10 ;
jl. b0. ;
al. w2 a5. ;
al. w1 a14. ;
ds w3 x1+4 ; save first and last addr
al. w1 a17. ;
rs. w1 a15. ;
rs. w1 a16. ;
rl w3 74 ; w3:=first dev
b2: rs. w3 a3. ;
rl w1 x3 ;
rl w0 x1 ;
se w0 84 ; if not terminal then
jl. b5. ;
rl w0 x1+2 ;
se. w0 ( a7.) ; if name = con or
sn. w0 ( a8.) ; name= ter then
jl. b3. ; goto b3
jl. b5. ;
b3: dl w0 x1+4 ; move name
ds. w0 a10. ;
dl w0 x1+8 ;
ds. w0 a12. ;
al. w1 a14. ;
al. w3 a9. ;
jd 1<11+16;
rl. w1 a15. ;
rs w2 x1 ;
al w1 x1+2 ;
rs. w1 a15. ;
rl. w1 a1. ;
bz w1 x1+26 ; w1:=buffer claim
sl w1 1 ; if more buffers then
jl. b5. ; goto next
rl. w1 a16. ;
rl w2 x1 ;
al w1 x1+2 ;
rs. w1 a16. ;
al. w1 a13. ;
jd 1<11+18; wait answer (get a free buffer)
b5: rl. w3 a3. ;
al w3 x3+2 ;
se w3 ( 76) ;
jl. b2. ;
al w2 0 ;
jl. h7. ;
a2: <:write message: :>;
a3: 0 ;
a4: 0 ;
a6: 2.11111111 00000000 00000000;
a5: 0,r.50 ;
a7: <:con:> ;
a8: <:ter:> ;
a9: 0 ;
a10: 0 ;
a11: 0 ;
a12: 0 ;
0 ;
a13:0,r.8
a14: 5<12 ;
0,r.7 ;
a15: 0 ;
a16: 0 ;
a17: <:<10><10><10>:>,r.80 ;
e. ;
e. ;
▶EOF◀