DataMuseum.dk

top - metrics - download

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

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »ioenvir« 

TextFile

ioenvir;
(*
     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 outinteger ( var z: zone; num, pos: integer);
external;


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


procedure outnl(var z : zone);
external;


procedure outaddr(var z : zone; a : addr);
external;


procedure outdate(var z : zone; date : coded_date);
external;


procedure outtime(var z : zone; time : coded_time);
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 inchar ( var z: zone; var t: char);
external;


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


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


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


.
▶EOF◀