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

⟦1b292c6c8⟧ TextFile

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

Derivation

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

TextFile

vent=set 1 disc1
vent=algol
begin
integer array ia(1:10);
integer i;
procedure ventetid(sek);
  value            sek;
  real             sek;
begin
  integer i, j, k;
  long l;
  integer array ia(1:20);
  zone z(1,1,stderror);
  l:=sek*10000.0;
  
  open(z,2<*kind=interval clock*>,<:clock:>,0);
  ia(1):=2;<*2= interval i 1/10 milisek.*>
  ia(2):=l shift(-24) extract 24;
  ia(3):=l extract 24;
  sendwait(z,ia);
end ventetid;
if findfpparam(<:tid:>,true,ia)>0 then ventetid(ia(1));
trapmode:= 1 shift 10;
end
▶EOF◀