DataMuseum.dk

top - download

    Length: 8631 (0x21b7)
    Types: TextFile
    Names: »RTP35022.ENV«

└─⟦b412bceaa⟧ Bits:30010501 DVBS1.SW2103.rel.1.14-1 SW2103 Release 1.14 RTP3502 Dos Compiler DANOSI PN:798 66072 MASTER BB 930614
    └─⟦this⟧ »RTP35022.ENV« 

TextFile

rtp35022env;\r
$SET fln=1\r
const\r
alfalength=12;\r
maxint=32767;\r
minint=-32768;\r
break_by_father=47;\r
maxpriority=0;\r
minpriority=-2;\r
stdpriority=minpriority;\r
type\r
bit=0..1;\r
byte=0..255;\r
double=\r
record\r
msp,lsp:integer;\r
end;\r
memno_type=0..63;\r
activation=(a_interrupt,a_semaphore,a_delay);\r
base_type=packed\r
record\r
onebit:bit;\r
mem_no:memno_type;\r
nilbit:bit\r
end;\r
adr=\r
record\r
base:base_type;\r
disp:integer\r
end;\r
addr=\r
record\r
nulbyte:byte;\r
base:base_type;\r
disp:integer;\r
end;\r
boolean=(false,true);\r
char=\r
(\r
nul,soh,stx,etx,eot,enq,ack,bel,bs,ht,\r
nl,vt,ff,cr,so,si,dle,dc1,dc2,dc3,\r
dc4,nak,syn,etb,can,em,sub,esc,fs,gs,\r
rs,us,sp,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,?,?,?,\r
?,?,?,?,?,?,?,del);\r
alfa=array(1..alfalength)of char;\r
coded_date=packed\r
record\r
year_after_1900:0..127;\r
month:0..12;\r
day:0..31;\r
end;\r
coded_time=packed\r
record\r
compiler_version:0..31;\r
hour:0..23;\r
minute:0..59;\r
end;\r
coded_secs=packed\r
record\r
sec:0..59;\r
msec:0..999;\r
end;\r
coded_inc=packed\r
record\r
days:0..31;\r
hours:0..23;\r
mins:0..59;\r
secs:0..59;\r
msecs:0..999;\r
end;\r
delaytype=\r
record\r
prev_date:coded_date;\r
prev_time:coded_time;\r
prev_secs:coded_secs;\r
inc:coded_inc;\r
end;\r
clocktype=\r
record\r
date:coded_date;\r
time:coded_time;\r
secs:coded_secs;\r
end;\r
semaphore=\r
record\r
?:addr;\r
?:^semaphore\r
end;\r
message_header=\r
record\r
?:byte;\r
?:^message_header;\r
u1,u2,u3,u4:byte;\r
messagekind:!integer;\r
size:!integer;\r
?:addr;\r
?:^semaphore;\r
?:^semaphore;\r
?:^message_header;\r
?:^message_header;\r
?:byte;\r
?:byte;\r
?:byte;\r
?:byte;\r
end;\r
reference=^message_header;\r
shadow=\r
record\r
?:^niltype;\r
?:^shadow;\r
end;\r
process_descriptor=\r
record\r
?:integer;\r
?:^niltype;\r
?:integer;\r
?:^niltype;\r
?:alfa;\r
?:^process_descriptor;\r
end;\r
processrec=\r
record\r
processref:^process_descriptor;\r
?:^niltype;\r
?:integer;\r
end;\r
adamsemtype=(adamsem,operatorsem,loadersem,globalsem,loaddriversem,paxsem,restartsem,?,\r
?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);\r
adamvector=array(adamsemtype)of^semaphore;\r
system_vector=!adamvector;\r
incarnation_descriptor=\r
record\r
timer:integer;\r
?:byte;\r
?:^incarnation_descriptor;\r
?:integer;\r
?:addr;\r
?:addr;\r
?:integer;\r
?:integer;\r
?:integer;\r
?:integer;\r
?:^process_descriptor;\r
?:^semaphore;\r
?:^reference;\r
?:^shadow;\r
?:^message_header;\r
?:^process_descriptor;\r
?:semaphore;\r
?:^niltype;\r
?:reference;\r
?:^niltype;\r
incname:alfa;\r
?:^incarnation_descriptor;\r
?:^shadow;\r
end;\r
lookup_descriptor_segment=\r
record\r
name:alfa;\r
descriptor_length,\r
no_of_pages,\r
pagesize,\r
last_page_length,\r
kind:integer;\r
default_appetite,\r
last_param_offset,\r
no_of_params:integer;\r
date:coded_date;\r
time:coded_time;\r
source_date:coded_date;\r
source_time:coded_time;\r
version:integer;\r
end;\r
var\r
own:incarnation_descriptor;\r
function abs(x:niltype):niltype;external;\r
procedure alloc(var r:reference;var p:pool 0;\r
var s:semaphore);external;\r
function allocdelay(var r:reference;var p:pool 0;\r
var s:semaphore;msecs:integer):activation;\r
external;\r
function allocpool(var p:pool 0;\r
number,bytes:integer):integer;external;\r
procedure break(var sh:shadow;excode:integer);external;\r
function bufcount(var r:reference):integer;external;\r
function bufsize(var r:reference):integer;external;\r
function bytecount(var r:reference):integer;external;\r
function chr(int:0..127):char;external;\r
function clock_increment(t:clocktype;inc:coded_inc):clocktype;\r
external;\r
function clock_less_than(t1,t2:clocktype):boolean;\r
external;\r
function clock_difference(t1,t2:clocktype):coded_inc;\r
external;\r
function crc16(op1,op2:integer):integer;external;\r
function create(incarnationname:alfa;\r
proces:processrec;\r
var sh:shadow;\r
storage:integer):integer;\r
external;\r
procedure definetimer(onoff:boolean);external;\r
function delete_semaphore(var s_name:!alfa):integer;\r
external;\r
function empty(var r:reference):boolean;external;\r
function eoi:boolean;external;\r
procedure exception(excode:integer);external;\r
function first(var r:reference):integer;external;\r
function getclock:clocktype;external;\r
procedure inbyteblock\r
(var next:integer;\r
first,last:integer;\r
var msg:reference);\r
external;\r
procedure inwordblock\r
(var next:integer;\r
first,last:integer;\r
var msg:reference);\r
external;\r
function last(var r:reference):integer;external;\r
function link(external_name:alfa;\r
var proces:process_descriptor):integer;external;\r
function locked(var s:semaphore):boolean;external;\r
function name_semaphore(var s:semaphore;var s_name:!alfa):integer;\r
external;\r
procedure new(var p:^niltype);external;\r
function next(var r:reference):integer;external;\r
function nil(var r:^niltype):boolean;external;\r
function nilref(var r:reference):boolean;external;\r
function offset=first(var r:reference):integer;external;\r
function open(var s:semaphore):boolean;external;\r
function openpool(var p:pool 1):boolean;external;\r
function ord(x:niltype):integer;external;\r
procedure outbyteblock\r
(var next:integer;\r
first,last:integer;\r
var msg:reference);\r
external;\r
procedure outwordblock\r
(var next:integer;\r
first,last:integer;\r
var msg:reference);\r
external;\r
function ownertest(var p:pool 1;\r
var r:reference):boolean;\r
external;\r
function passive(var s:semaphore):boolean;external;\r
procedure pop(var r1,r2:reference);external;\r
function pred(x:niltype):niltype;external;\r
procedure push(var r1,r2:reference);external;\r
function ref(var s:semaphore):^semaphore;external;\r
procedure release(var r:reference);external;\r
function releasepool(var p:pool 0;no:integer):integer;\r
external;\r
procedure remove(var sh:shadow);external;\r
function reservech(var ch_msg:reference;\r
level,mask:integer):integer;\r
external;\r
procedure return(var r:reference);external;\r
function search_semaphore(var s_name:!alfa):^semaphore;\r
external;\r
procedure sendlinker(var r:reference);external;\r
procedure sendtimer(var r:reference);external;\r
procedure sensesem(var r:reference;var s:semaphore);external;\r
procedure setbytecount(var r:reference;val:integer);external;\r
procedure setfirst(var r:reference;val:integer);external;\r
procedure setlast(var r:reference;val:integer);external;\r
procedure setnext(var r:reference;val:integer);external;\r
procedure setoffset(var r:reference;val:integer);external;\r
procedure setpriority(priority:integer);external;\r
procedure settop(var r:reference;val:integer);external;\r
procedure setu1(var r:reference;val:byte);external;\r
procedure setu2(var r:reference;val:byte);external;\r
procedure setu3(var r:reference;val:byte);external;\r
procedure setu4(var r:reference;val:byte);external;\r
procedure signal(var r:reference;var s:semaphore);external;\r
function stackdepth(var r:reference):integer;external;\r
procedure start(var sh:shadow;priority:integer);external;\r
procedure stop(var sh:shadow);external;\r
function succ(x:niltype):niltype;external;\r
function swap(i:integer):integer;external;\r
function top(var r:reference):integer;external;\r
procedure trace=exception(code:integer);external;\r
procedure shorttrace=trace(code:integer);external;\r
function unlink(var proces:process_descriptor):integer;external;\r
function u1(var r:reference):byte;external;\r
function u2(var r:reference):byte;external;\r
function u3(var r:reference):byte;external;\r
function u4(var r:reference):byte;external;\r
procedure wait(var r:reference;var s:semaphore);external;\r
procedure waiti;external;\r
procedure waits(var r:reference;var s:semaphore);external;\r
procedure waitd(delay:integer);external;\r
function waitid(delay:integer):activation;external;\r
function waitis(var r:reference;var s:semaphore):activation;\r
external;\r
function waitsd(var r:reference;\r
var s:semaphore;\r
delay:integer):activation;\r
external;\r
function waitisd(var r:reference;\r
var s:semaphore;\r
delay:integer):activation;\r
external;\r
function _bufsize__rc(var r:reference):integer;\r
external;\r
procedure _exchange_rc(var sh1,sh2:shadow);\r
external;\r
procedure ___exit___rc;external;\r
function _first____rc(var r:reference):integer;\r
external;\r
procedure _heapref__rc(p:^niltype);external;\r
procedure _heapsh___rc(p:^niltype);external;\r
procedure _initpool_rc(var s:semaphore;\r
number,size:integer);\r
external;\r
procedure _initproc_rc(p:^niltype;q:^niltype);external;\r
procedure _initref__rc(p:^niltype);external;\r
procedure _initsem__rc(p:^niltype);external;\r
procedure _initsh___rc(p:^niltype);external;\r
function _last_____rc(var r:reference):integer;\r
external;\r
function ___new____rc(bytes:integer;\r
wordallignment:boolean):^niltype;\r
external;\r
procedure _shift____rc(a,b:integer);\r
external;\r
.\r