|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4352 (0x1100)
Types: TextFile
Names: »IO86.ENV«
└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
└─⟦this⟧ »RTP\IO86.ENV«
└─⟦316f7fc78⟧ Bits:30010522 DVBS1.SW2114.src.2.7-4 SW2114 4/4 Real Time Pascal 2.7 til old rtp 92.06.10
└─⟦this⟧ »OLDRTP\IO86.ENV«
└─⟦3651f6bb8⟧ Bits:30010514 DVBS1.SW2114.src.2.14-4 SW2114 REAL #4/4 TIME PASCAL SOURCE REL 2.14 92.09.01
└─⟦this⟧ »OLDRTP\IO86.ENV«
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
└─⟦this⟧ »OLDRTP\IO86.ENV«
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
└─⟦this⟧ »RTP\IO86.ENV«
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
└─⟦this⟧ »RTP\IO86.ENV«
└─⟦a2bcc95d7⟧ Bits:30010511 DVBS1.SW2114.src.2.14-2 SW2114 REAL #2/4 TIME PASCAL SOURCE REL 2.14 92.09.01
└─⟦this⟧ »RTP\IO86.ENV«
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
└─⟦this⟧ »OLDRTP\IO86.ENV«
io86env;\r
(***********************************************************************)\r
(* *)\r
(* IOENVIRONMENT *)\r
(* *)\r
(* DATE AUTHOR CHANGES *)\r
(* *)\r
(* 85.02.25 poh first version *)\r
(* 85.05.23 poh alfa type deleted (use string/string(12)) *)\r
(* opbuffer type deleted *)\r
(* 85.06.13 poh e_o_w inserted *) \r
(* 85.07.18 poh dc1 and dc3 inserted *)\r
(* *)\r
(***********************************************************************)\r
\r
const\r
\r
(* functions - u1 values, other values are taken from TTX.ENV *)\r
op_change = 0;\r
op_event = 4;\r
op_regret = 8;\r
op_request = 12; (* requests i/o according to i/o mode *)\r
\r
(* u2 value, indicating end of writing *)\r
e_o_w = message + 1;\r
\r
(* i/o mode - u3 values, should be used together with change function *)\r
loc_i_glob_o = 0; (* input from console, output to global_mbx *)\r
loc_i_loc_o = 1; (* input from console, output to console *)\r
glob_i_loc_o = 2; (* input from request-process, output to console *)\r
glob_i_glob_o = 3; (* input from request_process, output to request-process *)\r
\r
alfalength = 12;\r
\r
firstindex = alfalength;\r
linelength = 80;\r
lastindex = firstindex + linelength - 1;\r
\r
operator_name = plm_name_type(:8,\r
(:'O','P','E','R','A','T','O','R',4***' ' :) :) ;\r
type\r
\r
op_zone = record (* document description *)\r
driver , (* operator process *)\r
answer , (* answers return here *)\r
dataready , (* buffers with data *)\r
free : mbx_pointer; (* free buffers *)\r
cur : reference; (* current buffer *)\r
u2val : octet; (* u2 to driver (lam) *)\r
state : octet; (* result code 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 op_initzone (var z: op_zone);\r
EXTERNAL;\r
\r
procedure op_openzone (var z: op_zone; driv, answ: ^mailbox;\r
bufs: integer; var home: pool; v1, v2, v3, v4: octet);\r
EXTERNAL;\r
\r
procedure op_outhex (var z: op_zone; num, pos: integer);\r
EXTERNAL;\r
\r
procedure op_outdate (var z: op_zone; date: coded_date);\r
EXTERNAL;\r
\r
procedure op_outtime (var z: op_zone; time: coded_time);\r
EXTERNAL;\r
\r
procedure op_outinteger (var z: op_zone; num, pos: integer);\r
EXTERNAL;\r
\r
procedure op_in (var z: op_zone);\r
EXTERNAL;\r
\r
procedure op_answer (var msg: reference; var z: op_zone);\r
EXTERNAL;\r
\r
function op_test (var z: op_zone): boolean;\r
EXTERNAL;\r
\r
procedure op_wait (var z: op_zone; var inputpool: pool);\r
EXTERNAL;\r
\r
procedure op_ininteger (var z: op_zone; var num: integer);\r
EXTERNAL;\r
\r
procedure op_inhex (var z: op_zone; var num: integer);\r
EXTERNAL;\r
\r
procedure op_inname (var z: op_zone; name: string);\r
EXTERNAL;\r
\r
procedure op_outnl (var z: op_zone; end_of_writing: boolean);\r
EXTERNAL;\r
\r
procedure op_outfill (var z: op_zone; filler: char; rep: integer);\r
EXTERNAL;\r
\r
procedure op_outstring (var z: op_zone; textstring: string);\r
EXTERNAL;\r
\r
procedure op_outchar (var z: op_zone; t: char);\r
EXTERNAL;\r
\r
procedure op_inchar (var z: op_zone; var t: char);\r
EXTERNAL;\r
\r
procedure op_outend (var z: op_zone; end_of_writing: boolean);\r
EXTERNAL;\r
\r
\r
. (* end io86env *)\r
«eof»