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 - download

⟦4bcf7d466⟧ TextFile

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

Derivation

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »sleeptx     «

TextFile

procedure sleep(i);
  integer i;
begin
  integer array ia(1:12);
  zone z(1,1,stderror);

  open(z,0,<:clock:>,0);
  getshare6(z,ia,1);
  ia(4):=2 shift 12;
  ia(5):=i;
  ia(6):=0;
  setshare6(z,ia,1);
  monitor(16,z,1,ia);
  monitor(18,z,1,ia);
  close(z,true);
end;
▶EOF◀