DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦d015aeedf⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »cgnici«

Derivation

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦this⟧ »cgnici« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »cgnici«

TextFile

begin integer poi,sh,p,q,r,s,k,f,top,ba,co,l,i;
zone z(256*2,2,stderror);
integer array par(1:112);

integer procedure next;
begin
  if poi=3 then begin poi:=0; inrec6(z,4) end;
  poi:=poi+1;
  sh := case poi of(-32,-16,0);
  q:= z(1) shift sh extract 16;
  p := q extract 8; q:=q shift (-8);
  k:=p shift 8 +q;
  if false add (k shift (-15)) then k:= ((-1) shift 16) +k;
  next :=k;
  end;
open(z,18,<:mtsolo:>,0);
read(in,f);
setposition(z,f-1,0);
poi:=3;
top:=next;
write(out,<< -ddddd>,top);
for ba:=2 step 2 until top do
  write(out,<< -ddddd>,next);
outchar(out,12); outchar(out,25); close(z,true);
end;
▶EOF◀