|
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: 768 (0x300)
Types: TextFile
Names: »arbejdtxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »arbejdtxt«
;mik
arbn=algol list.yes
external
boolean procedure arbn(a);
array a;
begin
boolean lu;
long nr;
integer array t,tail(1:10);
for nr:=1 step 1 until 10 do t(nr):=tail(nr):=0;
lu:=lookup_tail(<:arbnr:>,tail)=0;
nr:=if lu then tail(9)*1000+tail(10) else 1;
a(1):=a(2):=real <::>;
rep:a(1):=real (long <:arb:> +
((nr//1000) mod 10 + 48) shift 16 +
((nr//100 ) mod 10 + 48) shift 8 +
( nr//10 ) mod 10 + 48);
a(2):=real (((nr mod 10) + 48) shift 40);
nr:= (nr+1) mod 10000;
if lookup_tail(a,t)=0 then goto rep;
tail(9):=nr//1000;
tail(10):=nr mod 1000;
if lu then
change_entry(<:arbnr:>,tail)
else
begin
create_entry(<:arbnr:>,tail);
perm_entry(<:arbnr:>,18);
end;
arbn:=lu;
end;
end;
▶EOF◀