DataMuseum.dk

top - metrics - download

    Length: 7680 (0x1e00)
    Types: TextFile
    Names: »rtp35022env«

└─⟦242fa0fec⟧ Bits:30003097 SW2101/2/3.02 RC3502/2 Real-Time Pascal Cross Compiler
    └─⟦0d4b7be7a⟧ 
        └─⟦this⟧ »rtp35022env« 

TextFile

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