DataMuseum.dk

top - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »TESTIO.ENV«

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

TextFile

testio;\r
\r
type \r
  word = minint..maxint;\r
$if (target = i86)\r
$set target86 = 1\r
$else\r
$set target86 = 0\r
$endif\r
$if target86 = 1\r
  op_zone  = record         (* document description  *)\r
               driver    ,                (* operator process              *)\r
               answer    ,                (* answers return here           *)\r
               dataready ,                (* buffers with data             *)\r
               free      : ^mailbox;      (* free buffers                  *)\r
               cur       : reference;     (* current buffer                *)\r
               u2val     : 0..255;        (* u2 to driver (lam)            *)\r
               state     : 0..255;        (* 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
     inoutzone=record\r
                 iz,oz: op_zone;\r
                 p: ^pool;\r
          end;\r
$else\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
     inoutzone=record\r
                 iz,oz: zone;\r
                 p: ^pool;\r
          end;\r
$endif\r
  \r
          \r
procedure writechar(var z: inoutzone; aa: char); external;\r
\r
procedure writestring(var z: inoutzone; inspect aa: string); external;\r
\r
procedure printboolean(var z: inoutzone; aa: boolean); external;\r
\r
procedure printinteger(var z: inoutzone; aa: integer); external;\r
\r
procedure printword(var z: inoutzone; aa: word); external;\r
\r
procedure printbyte(var z: inoutzone; aa: byte); external;\r
\r
function readchar(var z: inoutzone): char; external;\r
\r
function readinteger(var z: inoutzone): integer; external;\r
\r
function byt(x : integer) : byte;\r
external;\r
\r
function int(x : INT16) : integer;\r
external;\r
\r
function wrd(x : integer) : INT16; external;\r
.\r