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

⟦88433827b⟧ TextFile

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

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »treadparam«

TextFile

external
integer procedure readparam(A);
array A;
begin
  own integer p;
  integer i;
  if p>=0 then
  begin
    i:= system(4,p,A);
    i:= (if i shift(-12)=8 then 2 else 0)+
        i shift(-2)extract 2;
    if p=0 then
    begin
      array a(1:2);
      if system(4,1,a)=6 shift 12+10 then i:= -1
    end;
    p:= if i=0 then -1 else p+1;
    readparam:= i
  end else readparam:= 0
end;
end
▶EOF◀