DataMuseum.dk

top - download

    Length: 2854 (0xb26)
    Types: TextFile
    Names: »SYSIO.ENV«

└─⟦289818552⟧ Bits:30010516 DVBS1.SW2114.src.2.7-3 SW2114 3/4 Real Time Pascal 2.7
    └─⟦this⟧ »RTPSTD\SYSIO.ENV« 
└─⟦d5707feda⟧ Bits:30010512 DVBS1.SW2114.src.2.14-3 SW2114 REAL #3/4 TIME PASCAL SOURCE REL 2.14 92.09.01
    └─⟦this⟧ »RTPSTD\SYSIO.ENV« 

TextFile

sysioenv;\r
\r
--   environment for operator comm. procedures\r
--    1986.10.01   /bb\r
-- 880721 bb changed to rtp3502 release 4\r
-- 900201 bb Compiler switch controls first, last, next.\r
--           Removed outtext.\r
\r
const\r
\r
linelength = 80;\r
$if fln > 0\r
firstindex = 6 + alfalength;\r
$else\r
firstindex = alfalength;\r
$endif\r
lastindex  = firstindex + linelength - 1;\r
\r
type\r
\r
opbuffer =\r
record\r
$if fln > 0\r
first ,\r
last  ,\r
next  : integer;\r
$endif\r
name  : alfa;\r
chars : array (firstindex..lastindex) of char\r
end;\r
\r
\r
\r
zone =\r
record\r
driver    : ^mailbox; (* operator process       *)\r
answer    : ^mailbox; (* answers returns here   *)\r
dataready : mailbox;  (* buffers with data      *)\r
openstate : byte;       (* which open was called  *)\r
free      : mailbox;  (* free buffers           *)\r
u1val     : byte;       (* current u1 to driver   *)\r
cur       : reference;  (* current buffer         *)\r
u2val     : byte;       (* u2 to driver           *)\r
state     : byte;       (* resultcode from answer *)\r
readstate : integer;    (* 0: ok, >0: error, -1: cur=nil *)\r
nextp     : integer;    (* pointer into databuf   *)\r
lastpos   : integer;    (* last position in databuf *)\r
end;\r
\r
\r
procedure openzone (var z : zone; driv, answ : ^mailbox;\r
bufs : integer; var home : pool; v1, v2, v3, v4 : byte);\r
external;\r
\r
procedure openopzone (var z : zone; driv, answ : ^mailbox;\r
bufs : integer; var home : pool; v1, v2, v3, v4 : byte);\r
external;\r
\r
procedure outend (var z : zone);\r
external;\r
\r
procedure outchar (var z : zone; t : char);\r
external;\r
\r
procedure outalfa (var z : zone; inspect text : alfa);\r
external;\r
\r
procedure outdouble (var z : zone; num : double; pos : integer);\r
external;\r
\r
procedure outfill (var z : zone; filler : char; rep : integer);\r
external;\r
\r
procedure outinteger (var z : zone; num, pos : integer);\r
external;\r
\r
procedure outhex (var z : zone; num, pos : integer);\r
external;\r
\r
procedure outnl (var z : zone);\r
external;\r
\r
procedure outaddr (var z : zone; a : addr);\r
external;\r
\r
procedure outdate (var z : zone; date : coded_date);\r
external;\r
\r
procedure outtime (var z : zone; time : coded_time);\r
external;\r
\r
procedure opin (var z : zone);\r
external;\r
\r
procedure opanswer (var msg : reference; var z : zone);\r
external;\r
\r
function optest (var z : zone) : boolean;\r
external;\r
\r
procedure opwait (var z : zone; var inputpool : pool);\r
external;\r
\r
procedure inchar (var z : zone; var t : char);\r
external;\r
\r
procedure indouble (var z : zone; var num : double);\r
external;\r
\r
procedure ininteger (var z : zone; var num : integer);\r
external;\r
\r
procedure inhex (var z : zone; var num : integer);\r
external;\r
\r
procedure inname (var z : zone; var name : alfa);\r
external;\r
\r
procedure printmessage (var z : zone; var r : reference; first,last,words_per_line : integer);\r
external;\r
\r
.\r