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

⟦b25d01638⟧ TextFile

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

Derivation

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

TextFile

clear setpattern
setpattern=set 50
setpattern=algol
begin
integer array field ii;
integer i,j,k;
array ls(1:3);
integer array p(1:256);
ii:=0;
for k:=1 step 1 until 256 do begin
j:=0;
for i:=1,2,3 do
j:=j*256+((k-1)*3+i) mod 256;
p(k):=j;
end;
if readlsfp(ls) then begin
  stackcuri;
  i:=connectcuri(ls);
  if i<>0 then alarm(<:***left side :>,string inc(ls),i);
  cleararea(string inc(ls));
  setposition(in,0,1);
  outrec(in,128);
  for i:=1 step 1 until 256 do
   in.ii(i):=p(i);
setposition(in,0,0);
  unstackcuri;
end;
end;
▶EOF◀