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

⟦583d26956⟧ TextFile

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

Derivation

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

TextFile

clear user ramng
ramng=set 1 disc5
scope user ramng
ramng=algol
external procedure ramng(nr,a,type);
long array a; integer nr,type;

begin integer i; long no;
      no:=nr;

      a(1):=a(2):=long <::>;
      a(1):=long
      (case type of(<:ra:>,<:p:>,<:m:>,<:s:>,<:t:>,<:a:>,<:e:>,<:k:>,<:l:>)) +
      ((no//100) mod 10 + 48) shift (if type=1 then  24 else 32) +
      ((no//10 ) mod 10 + 48) shift (if type=1 then  16 else 24) +
      ( no       mod 10 + 48) shift (if type=1 then   8 else 16);
end; end
▶EOF◀