|
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: »setpatttxt«
└─⟦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⟧
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◀