|
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: »freet«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »freet«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »freet«
(free=slang list.no;
) ;
s. a20,f20 w. ;
p. <:fpnames:> ;
k=h55 ;
a0: 0 ;
a1: 0 ;
al. w0 a5. ;
jl. w3 h31.-2 ;
rl w2 92 ; first slictable
rs. w2 a0. ;
f0: rl w2 x2 ;
dl w0 x2-16 ;
lo. w0 a6. ;
lo. w3 a6. ;
ds. w0 a3. ;
dl w0 x2-12 ;
lo. w0 a6. ;
lo. w3 a6. ;
ds. w0 a4. ; move and
al. w0 a2. ;
jl. w3 h31.-2 ; write docname
;
bz w3 x2-6 ; w3:=number slices
al w1 x3 ;
wa w3 4 ; w3:=addr of last slice
f1: bl w0 x3 ; next slice
sh w0 -1 ; if free then
al w1 x1-1 ; used:=used-1
al w3 x3-1 ;
sl w3 x2 ; if more slices then
jl. f1. ; goto f1
bz w0 x2-6 ;
ws w0 2 ; w0:=number of free slices
; w1:=number of used slices
wm w0 x2-8 ; w0:=number of free segments
rl. w3 a7. ;
wa w3 0 ;
rs. w3 a7. ;
rs. w0 a1. ;
wm w1 x2-8 ; w1:=number of used segments
rl. w3 a8. ;
wa w3 2 ;
rs. w3 a8. ;
al w2 x1 ;
rl. w0 a1. ;
jl. w3 h32.-2 ;
1<23+32<12+8 ;
al w0 x2 ;
jl. w3 h32.-2 ;
1<23+32<12+12 ;
wa. w2 a1. ; sum
al w0 x2 ;
jl. w3 h32.-2 ;
1<23+32<12+12 ;
rl. w2 a0. ;
al w2 x2+2 ;
rs. w2 a0. ;
se w2 (96) ;
jl. f0. ;
al. w0 a9. ;
jl. w3 h31.-2 ;
rl. w0 a7. ;
jl. w3 h32.-2 ;
1<32+32<12+12 ;
rl. w0 a8. ;
jl. w3 h32.-2 ;
1<32+32<12+12 ;
rl. w0 a7. ;
wa. w0 a8. ;
jl. w3 h32.-2 ;
1<32+32<12+12 ;
al w2 10 ;
jl. w3 h26.-2 ;
al w2 0 ;
jl. w3 h7. ;
a2: <:<10><32><32>:>;
0 ;
a3: 0 ;
0 ;
a4: 0 ;
<:<32><32><32>:>,0;
a5: <:<10> segments:>;
<:<10> doc name free used sum<0>:>;
a6: <:<32><32><32>:>;
a7: 0 ; sum free
a8: 0 ; sum used
a9: <:<10> ------------------------------- :>;
<:<10> sum <0>:>;
e. ;
e. ;
▶EOF◀