DataMuseum.dk

top - download

    Length: 2985 (0xba9)
    Types: TextFile
    Names: »IO5000.ENV«

└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
    └─⟦this⟧ »RTP\IO5000.ENV« 
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\IO5000.ENV« 
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\IO5000.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\IO5000.ENV« 

TextFile

ioenv;\r
(***********************************************************************)\r
(*                                                                     *)\r
(*                       IOENVIRONMENT                                 *)\r
(*                                                                     *)\r
(*    DATE    AUTHOR    CHANGES                                        *)\r
(*                                                                     *)\r
(*  89.01.17   tog      first version                                  *)\r
(*                                                                     *)\r
(***********************************************************************)\r
\r
const\r
  linelength = 80;\r
  firstindex = 12;\r
  lastindex = firstindex + linelength - 1;\r
  \r
type\r
  opbuffer = record\r
               name: array(1..12) of char;\r
               chars: array(firstindex..lastindex) of char;\r
             end;\r
             \r
  zone = record\r
           driver: ^mailbox;\r
           answer: ^mailbox;\r
           dataready: mailbox;\r
           free: mailbox;\r
           cur: reference;\r
           u2val: integer;\r
$IF target=rc3502\r
           state: byte;\r
           readstate: byte;\r
$ELSE\r
           state: integer;\r
           readstate: integer;\r
$ENDIF\r
           nextp: integer;\r
           lastpos: integer;\r
         end;\r
         \r
  procedure inchar (var z: zone; var t: char);\r
  EXTERNAL;\r
\r
  procedure inhex (var z: zone; var num: integer);\r
  EXTERNAL;\r
\r
  procedure ininteger (var z: zone; var num: integer);\r
  EXTERNAL;\r
\r
  procedure inname (var z: zone; name: string);\r
  EXTERNAL;\r
\r
  procedure opanswer (var msg: reference; var z: zone);\r
  EXTERNAL;\r
\r
  procedure openopzone (var z: zone; driv, answ: ^mailbox;\r
    bufs: integer; var home: pool; v1, v2, v3, v4: octet);\r
  EXTERNAL;\r
\r
  procedure opin (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 outchar (var z: zone; t: char);\r
  EXTERNAL;\r
\r
  procedure outdate (var z: zone; date: coded_date);\r
  EXTERNAL;\r
$IF target = ta\r
  procedure outend (var z: zone; end_of_writing: boolean);\r
$ELSE\r
  procedure outend (var z: zone);\r
$ENDIF  \r
EXTERNAL;\r
\r
  procedure outfill (var z: zone; filler: char; rep: integer);\r
  EXTERNAL;\r
\r
  procedure outhex (var z: zone; num, pos: integer);\r
  EXTERNAL;\r
\r
  procedure outinteger (var z: zone; num, pos: integer);\r
  EXTERNAL;\r
\r
$IF target = ta\r
  procedure outnl (var z: zone; end_of_writing: boolean);\r
$ELSE\r
  procedure outnl (var z: zone);\r
$ENDIF  \r
EXTERNAL;\r
\r
\r
  procedure outstring (var z: zone; textstring: string);\r
  EXTERNAL;\r
\r
  procedure outtime (var z: zone; time: coded_time);\r
  EXTERNAL;\r
\r
  procedure printmessage(var z: zone; var r: reference;\r
                         firstindex, lastindex, words_per_line: integer);\r
  EXTERNAL;                         \r
\r
. (* end  ioenv *)\r