DataMuseum.dk

top - metrics - download

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

└─⟦041268bb6⟧ Bits:30003098 SW2001/2/3.02 RC3502 Operating System
    └─⟦6fc3bf78b⟧ 
        └─⟦this⟧ »ioenvir« 

TextFile

ioenvir;
const
linelength=80;
firstindex=6+alfalength;
lastindex=firstindex+linelength-1;
type
opbuffer=
record
first,
last,
next:integer;
name:alfa;
chars:array(firstindex..lastindex)of char
end;
zone=
record
driver:^semaphore;
answer:^semaphore;
dataready:semaphore;
free:semaphore;
cur:reference;
u2val:byte;
state:byte;
readstate:integer;
nextp:integer;
lastpos:integer;
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 outalfa(var z:zone;var text:!alfa);
external;
procedure outtext=outalfa(var z:zone;var text:!alfa);
external;
procedure outfill(var z:zone;filler:char;rep:integer);
external;
procedure outinteger(var z:zone;num,pos:integer);
external;
procedure outdouble(var z:zone;num:double;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 indouble(var z:zone;var d:double);
external;
procedure inhex(var z:zone;var num:integer);
external;
procedure inname(var z:zone;var name:alfa);
external;
procedure printmessage(var z:zone;var r:reference;first,last,words_per_line:integer);
external;
.
▶EOF◀