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

⟦7c7de3f01⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »openv«

Derivation

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »openv«

TextFile

openv;
(*
     environment for operator comm. procedures

                                          1980.10.22   /hej
*)


type

opbuffer = record
first,
last,
next : integer;
name : alfa;
chars : array (6+alfalength..6+alfalength+80-1) of char
end;

zone = record               (*  document description     *)
driver : ^semaphore;        (*  operator process       *)
answer : ^semaphore;        (*  answers returns here   *)
dataready  : semaphore;     (*  buffers with data      *)
free  : semaphore;          (*  free buffers           *)
cur    : reference;         (*  current buffer         *)
u2val  : byte;              (*  u2 to driver  (lam)    *)
state  : byte;              (*  resultcode from answer *)
readstate : integer;        (*  0: ok,  >0: error, -1: cur=nil  *)
nextp  : integer;           (*  pointer into databuf   *)
lastpos : integer;          (*  last position in databuf  *)
end;


procedure openzone ( var z: zone; driv, answ: ^semaphore;
bufs: integer; var home: pool 1; v1, v2, v3, v4: byte      );
external;


procedure openopzone ( var z: zone; driv, answ: ^semaphore;
bufs: integer; var home: pool 1; v1, v2, v3, v4: byte           );
external;


procedure outend ( var z: zone);
external;


procedure outchar ( var z: zone; t: char);
external;


procedure outtext ( var z: zone; text: alfa);
external;


procedure outfill ( var z: zone; filler: char; rep: integer);
external;


procedure outnumber ( var z: zone; num, pos: integer);
external;


procedure outhex ( var z: zone; num, pos: integer);
external;


procedure opin ( var z: zone);
external;


procedure opanswer ( var msg: reference; var z: zone);
external;


function optest ( var z: zone): boolean;
external;


procedure opwait ( var z: zone; var inputpool: pool 1);
external;


procedure readchar ( var z: zone; var t: char);
external;


procedure readinteger ( var z: zone; var num: integer);
external;


procedure readhex ( var z: zone; var num: integer);
external;


procedure readname ( var z: zone; var name: alfa);
external;


.

▶EOF◀