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

⟦a31f38da3⟧ TextFile

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

Derivation

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

TextFile

begin
  integer array ia(1:8),ia1(1:5);
  long array l(1:3),l1(1:1);
  real array r(1:3);
  integer i,j,k;
i:=lookupbs(<:kk:>,<:disc:>,ia);
  if i<>0 then write(out,<:result= :>,i) else
  for i:= 1 step 1 until 8 do write(out,<< dddddd>,ia(i));

  for i:=1 step 1 until 5 do ia1(i):= 0;
  ia1(1):= 115 shift 16;
  outchar(out,10);

  i:=lookupbs(ia1,<:drum:>,ia);
  if i<>0 then write(out,<:result= :>,i) else
  for i:= 1 step 1 until 8 do write(out,<< dddddd>,ia(i));

  for i:=1 step 1 until 3 do r(i):=real extend 0;
  r(1):=real <:disc3:>;
  outchar(out,10);

  i:=lookupbs(l1,r,ia);
  if i<>0 then write(out,<:result= :>,i) else
  for i:= 1 step 1 until 8 do write(out,<< dddddd>,ia(i));

end;
▶EOF◀