DataMuseum.dk

top - download

    Length: 12160 (0x2f80)
    Types: TextFile
    Names: »RTP35022.ENV«

└─⟦b6837b237⟧ Bits:30010500 SW2103 REL 1.11 Sourcer DVBS1.SW2103.rel.1.11-1 MASTER 31-1-192
    └─⟦this⟧ »RTP35022.ENV« 

TextFile

sys35022env;\r
const\r
alfalength=12;\r
maxint=32767;\r
minint=-32768;\r
ok=0;\r
mpexcfirst=1;\r
rsexcfirst=mpexcfirst+29;\r
cpexcfirst=rsexcfirst+5;\r
dbl_mul_exc=#h21;\r
dbl_conv_exc=#h22;\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
chain:addr;\r
semchain:^semaphore\r
end;\r
message_header=\r
record\r
nulbyte:byte;\r
chain:^message_header;\r
u1,u2,u3,u4:byte;\r
messagekind:integer;\r
size:integer;\r
start:addr;\r
owner:^semaphore;\r
answer:^semaphore;\r
msgchain:^message_header;\r
stackchain:^message_header;\r
connection_index:byte;\r
credit_count:byte;\r
reason:byte;\r
event_kind:byte;\r
end;\r
reference=^message_header;\r
shadow=\r
record\r
inc:^niltype;\r
shadowchain:^shadow;\r
end;\r
process_inf=\r
record\r
entry_point:adr;\r
exception_point:adr;\r
default_appetite:integer;\r
last_param_offset:integer\r
end;\r
const\r
maxparams=30;\r
regsetsize=8;\r
ps=-7;\r
sb=-6;\r
gf=-5;\r
lf=-4;\r
lu=-3;\r
lm=-2;\r
ib=-1;\r
ic=0;\r
rtc_level_index=0;\r
tto_level_index=1;\r
watchdogh=6;\r
output_index=8;\r
version_index=9;\r
switch0_index=10;\r
switch1_index=11;\r
first_io_index=12;\r
ram_bitmap_index=28;\r
prom_bitmap_index=34;\r
id_index=40;\r
mask_index=42;\r
param_index=43;\r
name_index=44;\r
copy0_index=52;\r
copy1_index=53;\r
printcount_index=54;\r
first_module=16;\r
last_module=63;\r
stopstate=1;\r
exitstate=2;\r
runstate=3;\r
waitstate=4;\r
stop_length=8;\r
header_size=typesize(message_header);\r
wordsize=typesize(integer);\r
pointersize=typesize(adr);\r
addrsize=typesize(addr);\r
type\r
descriptor_segment=\r
record\r
descriptor_length:integer;\r
no_of_pages:integer;\r
pagesize:integer;\r
last_page_length:integer;\r
kind:integer;\r
name:alfa;\r
entry_point:addr;\r
exception_point:addr;\r
default_appetite:integer;\r
last_param_offset:integer;\r
source_date:coded_date;\r
source_time:coded_time;\r
version:integer;\r
?:integer;\r
end;\r
const\r
sumkind=0;\r
processkind=1;\r
procedurekind=2;\r
functionkind=3;\r
datakind=6;\r
type\r
param_descr=\r
record\r
kind,\r
size:integer;\r
end;\r
param_array=array(1..maxparams)of param_descr;\r
param_record=\r
record\r
no_of_params:integer;\r
params:param_array;\r
end;\r
ext_linktable_entry=\r
record\r
name:alfa;\r
params:param_record;\r
end;\r
process_descriptor=\r
record\r
incarnationcount:integer;\r
param_descr_ref:^param_record;\r
link_state:integer;\r
process_inf_ref:^niltype;\r
name:alfa;\r
processchain:^process_descriptor;\r
end;\r
processrec=\r
record\r
processref:^process_descriptor;\r
firstparam:^niltype;\r
size_of_params:integer;\r
end;\r
adamsemtype=(adamsem,operatorsem,loadersem,globalsem,loaddriversem,paxsem,restartsem,?,\r
?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?);\r
adamvector=array(adamsemtype)of^semaphore;\r
system_vector=!adamvector;\r
semtype=(deallocatorsem,linkersem,stopsem,allocsem,exceptionsem,\r
opsem,restart_sem,stop_msg,writeramsem,addrsem,testoutputsem,commonpool,\r
monitorsem,printstatsem,timersem,iotimersem,?,\r
timerbase,exceptionstack,monitorstack,\r
timerstack,allocatorstack,linkerstack,operatorstack);\r
secret_vector=array(semtype)of\r
record\r
nulbyte:byte;\r
p:^semaphore;\r
end;\r
incarnation_descriptor=\r
record\r
timer:integer;\r
level:byte;\r
delaychain:^incarnation_descriptor;\r
exceptioncode:integer;\r
exic:addr;\r
exceptionpoint:addr;\r
maxstack:integer;\r
regset:integer;\r
mregset:integer;\r
incstate:integer;\r
processref:^process_descriptor;\r
semchain:^semaphore;\r
refchain:^reference;\r
shadowchain:^shadow;\r
msgchain:^message_header;\r
processchain:^process_descriptor;\r
worksem:semaphore;\r
secretpointer:^secret_vector;\r
workref:reference;\r
plinetable:^niltype;\r
incname:alfa;\r
father:^incarnation_descriptor;\r
shadowref:^shadow;\r
end;\r
ext_incarnation_descriptor=\r
record\r
timer:integer;\r
level:byte;\r
delaychain:adr;\r
exceptioncode:integer;\r
exic:addr;\r
exceptionpoint:addr;\r
maxstack:integer;\r
regset:integer;\r
mregset:integer;\r
incstate:integer;\r
processref:adr;\r
semchain:adr;\r
refchain:adr;\r
shadowchain:adr;\r
msgchain:adr;\r
processchain:adr;\r
worksem:addr;\r
statistic:adr;\r
secretpointer:adr;\r
workref:addr;\r
heap:adr;\r
plinetable:adr;\r
incname:alfa;\r
father:adr;\r
shadowref:adr;\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
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
function addptr(p:^niltype;inc:integer):^niltype;external;\r
function addrptr(p:^niltype):addr;external;\r
function bufstart(var r:reference):^niltype;external;\r
procedure checkstack(appetite:integer);external;\r
procedure checkeval;external;\r
procedure excptcall(excode:integer);\r
external;\r
function madd(a,b:integer):integer;external;\r
function mmul(a,b:integer):integer;external;\r
function msub(a,b:integer):integer;external;\r
function ptraddr(a:addr):^niltype;external;\r
function uadd(i,j:integer):integer;external;\r
function udiv(i,j:integer):integer;external;\r
function ult(i,j:integer):boolean;external;\r
function umod(i,j:integer):integer;external;\r
function umul(i,j:integer):integer;external;\r
function usub(i,j:integer):integer;external;\r
.\r
«eof»