DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦59629731f⟧ TextFile

    Length: 2762 (0xaca)
    Types: TextFile
    Names: »IO.ENV«

Derivation

└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
    └─⟦this⟧ »RTP\IO.ENV« 
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\IO.ENV« 
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\IO.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\IO.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 = 20;\r
  lastindex = firstindex + linelength - 1;\r
  \r
type\r
  opbuffer = record\r
               dummy1, dummy2: integer;\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
           state: integer;\r
           readstate: integer;\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: byte);\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
*)\r
  procedure outend (var z: zone);\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
  procedure outnl (var z: zone);\r
  EXTERNAL;\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