|
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: 1536 (0x600)
Types: TextFile
Names: »TESTIO.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\TESTIO.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\TESTIO.ENV«
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
└─⟦this⟧ »OLDRTP\TESTIO.ENV«
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
└─⟦this⟧ »OLDRTP\TESTIO.ENV«
testio;\r
\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 : ^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
\r
zone=record iz,oz: op_zone;\r
p: ^pool;\r
end;\r
\r
procedure writechar(var z: zone; aa: char); external;\r
\r
procedure writestring(var z: zone; inspect aa: string); external;\r
\r
procedure printboolean(var z: zone; aa: boolean); external;\r
\r
procedure printinteger(var z: zone; aa: integer); external;\r
\r
procedure printword(var z: zone; aa: word); external;\r
\r
procedure printbyte(var z: zone; aa: byte); external;\r
\r
function readchar(var z: zone): char; external;\r
\r
function readinteger(var z: zone): integer; external;\r
\r
.\r
«eof»