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

⟦bac1d93d5⟧ TextFile

    Length: 1914 (0x77a)
    Types: TextFile
    Names: »IO.E02«

Derivation

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

TextFile

ioenvir;\r
const\r
linelength=80;\r
firstindex=6+alfalength;\r
lastindex=firstindex+linelength-1;\r
type\r
opbuffer=\r
record\r
first,\r
last,\r
next:integer;\r
name:alfa;\r
chars:array(firstindex..lastindex)of char\r
end;\r
zone=\r
record\r
driver:^semaphore;\r
answer:^semaphore;\r
dataready:semaphore;\r
free:semaphore;\r
cur:reference;\r
u2val:byte;\r
state:byte;\r
readstate:integer;\r
nextp:integer;\r
lastpos:integer;\r
end;\r
procedure openzone(var z:zone;driv,answ:^semaphore;\r
bufs:integer;var home:pool 1;v1,v2,v3,v4:byte);\r
external;\r
procedure openopzone(var z:zone;driv,answ:^semaphore;\r
bufs:integer;var home:pool 1;v1,v2,v3,v4:byte);\r
external;\r
procedure outend(var z:zone);\r
external;\r
procedure outchar(var z:zone;t:char);\r
external;\r
procedure outalfa(var z:zone;var text:!alfa);\r
external;\r
procedure outtext=outalfa(var z:zone;var text:!alfa);\r
external;\r
procedure outfill(var z:zone;filler:char;rep:integer);\r
external;\r
procedure outinteger(var z:zone;num,pos:integer);\r
external;\r
procedure outdouble(var z:zone;num:double;pos:integer);\r
external;\r
procedure outhex(var z:zone;num,pos:integer);\r
external;\r
procedure outnl(var z:zone);\r
external;\r
procedure outaddr(var z:zone;a:addr);\r
external;\r
procedure outdate(var z:zone;date:coded_date);\r
external;\r
procedure outtime(var z:zone;time:coded_time);\r
external;\r
procedure opin(var z:zone);\r
external;\r
procedure opanswer(var msg:reference;var z:zone);\r
external;\r
function optest(var z:zone):boolean;\r
external;\r
procedure opwait(var z:zone;var inputpool:pool 1);\r
external;\r
procedure inchar(var z:zone;var t:char);\r
external;\r
procedure ininteger(var z:zone;var num:integer);\r
external;\r
procedure indouble(var z:zone;var d:double);\r
external;\r
procedure inhex(var z:zone;var num:integer);\r
external;\r
procedure inname(var z:zone;var name:alfa);\r
external;\r
procedure printmessage(var z:zone;var r:reference;first,last,words_per_line:integer);\r
external;\r
.\r