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

⟦650ef55b4⟧ TextFile

    Length: 9986 (0x2702)
    Types: TextFile
    Names: »RTPSTD86.ENV«, »RTPSTDO.ENV«

Derivation

└─⟦037c0ce35⟧ Bits:30010524 DVBS1.SW2114.src.2.6-2 RTP compiler source SW2104+SW2114 Disk#2 30/1-92 HHA
    └─⟦this⟧ »RTP\RTPSTDO.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\RTPSTD86.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\RTPSTD86.ENV« 
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
    └─⟦this⟧ »OLDRTP\RTPSTD86.ENV« 
└─⟦828f0d3dd⟧ Bits:30010527 DVBS1.SW2114.src.2.6-5 RTP Compiler Source SW2104+SW2114 Disk 2 92.02.03 HEJ HHA
    └─⟦this⟧ »RTP\RTPSTDO.ENV« 
└─⟦891417be1⟧ Bits:30010519 DVBS1.SW2114.src.2-1 SW2114 1/4 Real Time Pascal 2.7 92.06.16
    └─⟦this⟧ »RTP\RTPSTDO.ENV« 
└─⟦a2bcc95d7⟧ Bits:30010511 DVBS1.SW2114.src.2.14-2 SW2114 REAL #2/4 TIME PASCAL SOURCE REL 2.14 92.09.01
    └─⟦this⟧ »RTP\RTPSTDO.ENV« 
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
    └─⟦this⟧ »OLDRTP\RTPSTD86.ENV« 
└─⟦effb21ab9⟧ Bits:30010520 DVBS1.SW2104.Rel.2.6 MSDOS RTP86 Compiler Rel 2.6 SW2104 31/1-92 HHA
    └─⟦this⟧ »RTPSTD86.ENV«

TextFile

\f

\r
$listoff\r
stdenv;     (* standard environment       TOG 870927 *)\r
\r
(***** PREDEFINED CONSTANTS *****)\r
CONST\r
maxint = 32767;\r
minint = -32768;\r
\r
\r
(***** PREDEFINED TYPES *****)\r
TYPE\r
\r
buffer(bufsize: 0..maxint) =\r
      ARRAY (0..bufsize - 1) OF BYTE;\r
\r
conn_service = (cs_normal, cs_high);\r
\r
type create_result = (create_ok, no_memory);\r
prio_type=129..254;\r
\r
dataarea(offset, top: 0..maxint) =\r
        ARRAY(offset..top - 1) OF BYTE;\r
\r
event_type = (not_event, message_event, answer_event,\r
              process_removed, port_closed, disconnected,\r
              letter_sent, letter_arrived,\r
              local_connect, remote_connect,\r
              reset_indication, reset_completion,\r
              credit, data_sent, data_arrived, data_overrun,\r
              dummy_letter, dummy_lcnct, dummy_rcnct,\r
              dummy_rindic, dummy_rcmpl, dummy_credit,\r
              dummy_sent, dummy_arrived);\r
\r
type link_result=(link_ok, file_not_found, file_not_object, no_men,\r
                  missing_subprogram, already_linked, external_not_found);\r
\r
mem_type = ( MEM_PRIVATE, MEM_DUALPORT, MEM_BORD );\r
\r
reason_type = (reason_ok, reason_name, reason_resource,\r
               reason_closed, reason_network);\r
\r
scope_type = (anonymous, local, regional, global);\r
\r
string(length: 0..255) = ARRAY(1..length) OF char;\r
\r
type unlink_result = (unlink_ok, no_program_linked, existing_incarnations);\r
\r
wait_result = (a_buffer, a_delay);\r
\r
(* shielded type declarations *)\r
(******************************)\r
\r
mailbox_ = record\r
  mbx:          WORD;\r
  s:            INTEGER;\r
  next:         ^integer; --^mailbox_\r
end;\r
\r
pool_ = record\r
  mbx:          WORD;\r
  s:            WORD;\r
  size:         INTEGER;\r
  mem:          BYTE;\r
  bufs:         WORD;\r
  next:         ^integer; --^pool_\r
end;\r
\r
process_ = record\r
  proc:         WORD;\r
  next:         ^integer; --^process_\r
end;\r
\r
reference_ = record\r
  topbuf:       WORD;\r
  locked:       INTEGER;\r
  next:         ^integer; --^reference_\r
end;\r
\r
chain_ = record\r
  curbuf:       WORD;\r
  locked:       INTEGER;\r
  start:        WORD;\r
  length:       WORD;\r
  next:         ^integer; --^chain_\r
end;\r
\r
port_ = record\r
  prt:          WORD;\r
  state:        BYTE;\r
  next:         ^integer; --^port_\r
end;\r
\r
program_descriptor= record\r
  state:        BYTE;\r
  paramdesc:    ^word;\r
  poolparam:    BYTE;\r
  LBDR:         ^integer; --^extenal_lbdr\r
  prgname:      array(1..13) of char;\r
  count:        WORD;\r
  paramptr:     ^word;\r
  noparams:     BYTE;\r
  next:         ^integer; --program_descriptor\r
end;\r
\r
\r
(*****  PREDEFINED ROUTINES  *****)\r
(*********************************)\r
\r
\r
\r
function abs(n: integer): 0..maxint;\r
openroutine;\r
\r
function allocpool(var p: pool; no_of_bufs, bufsize: 0..maxint;\r
mem: mem_type): 0..maxint;\r
external;\r
\r
procedure breakpoint;\r
openroutine;\r
\r
function bufcount(var r: reference): 0..maxint;\r
openroutine;\r
\r
function bufsize(var r: rtype    ): 0..maxint;\r
openroutine;\r
\r
function int(v: byte ): integer; openroutine;\r
function wrd(v: integer): word;   (* !!!?? skal fjernes !! *)\r
openroutine;\r
\r
function byt(v: integer): byte;    openroutine;\r
function chr(v: 0..255): char;    openroutine;\r
function int(v: word ): integer; openroutine;\r
function ord(v: btype): 0..255;  openroutine;\r
function ord(v: wtype): integer; openroutine;\r
function wrd(v: integer): word;\r
openroutine;\r
\r
function bytecount(var r: rtype   ): 0..maxint;\r
openroutine;\r
\r
procedure chaindown(var ch: chain);\r
external;\r
\r
procedure chainextract(var ch: chain;var ref: reference);\r
external;\r
\r
procedure chaininsert(var ch: chain;var ref: reference);\r
external;\r
\r
function chainlength(var ch: chain): 0..maxint;\r
openroutine;\r
\r
procedure chainreset(var ch: chain);\r
external;\r
\r
procedure chainstart(var ch: chain);\r
external;\r
\r
procedure chainup(var ch: chain);\r
external;\r
\r
(* chr see byt *)\r
\r
function create(inspect incname: string; var prog: program_descriptor;\r
     var pr: process; size: 0..maxint; prio: prio_type): create_result;\r
external;\r
\r
function creditcount(var r: reference): 0..255;\r
openroutine;\r
\r
procedure dec(var v: byte);\r
openroutine;\r
\r
procedure dec(var v: word);\r
openroutine;\r
\r
procedure delay(ms: 0..maxint);\r
external;\r
\r
function equal_home(var a: rtype    ; var b: rtype    ): boolean;\r
openroutine;\r
\r
function eventkind(var r: rtype): event_type;\r
openroutine;\r
\r
procedure getbuf(var p: pool; var ra: mailbox; var r: reference);\r
external;\r
\r
function getbufdelay(var p:pool; var ra: mailbox; var r:reference; \r
                     ms: 0..maxint): wait_result;\r
external;\r
\r
function homeless(var r: rtype    ): boolean; external;\r
\r
function hometest(var p: pool; var r:rtype): boolean;\r
openroutine;\r
\r
procedure inc(var v:byte);\r
openroutine;\r
\r
procedure inc(var v:word);\r
openroutine;\r
\r
function index(var r:reference): 0..255;\r
openroutine;\r
\r
(**\r
function initpool(var r:reference): 0..maxint;\r
external;\r
**)\r
\r
(* int see byt *)\r
\r
function input_byte(ioport: word): byte;\r
openroutine;\r
\r
function input_word(ioport: word): word;\r
openroutine;\r
\r
function link(inspect incname: string;var prog: program_descriptor): \r
              link_result;\r
external;\r
 \r
function locked(var m:mailbox): boolean;\r
openroutine;\r
\r
procedure new(var p: ptype); external;\r
\r
function nil(var p:ptype  ): boolean;\r
openroutine;\r
\r
function nil(var p:reference): boolean;\r
openroutine;\r
\r
function nil(var p:process): boolean;\r
openroutine;\r
\r
function offset(var r:rtype    ): 0..maxint;\r
openroutine;\r
\r
function open(var m:mailbox): boolean;\r
openroutine;\r
\r
(* ord see byt *)\r
\r
procedure output_byte(ioport: word; data: byte);\r
openroutine;\r
\r
procedure output_word(ioport: word; data: word);\r
openroutine;\r
\r
function own_name(var name:string): 0..255;\r
external;\r
\r
function own_priority: byte;\r
openroutine;\r
\r
procedure set_priority(prio: 0..255);\r
openroutine;\r
\r
function own_stack_bound: word;\r
openroutine;\r
\r
function own_stack_size: word;\r
openroutine;\r
\r
function passive(var m:mailbox): boolean;\r
openroutine;\r
\r
procedure pop(var s,b: reference);\r
external;\r
\r
function pred(v: btype): btype;\r
openroutine;\r
\r
function pred(v: wtype): wtype;\r
openroutine;\r
\r
function priority(var p: process): byte;\r
openroutine;\r
\r
function process_name(var name: string; var p: process): 0..255;\r
external;\r
\r
procedure push(var s,b: reference);\r
external;\r
\r
procedure putbuf(var r: reference);\r
external;\r
\r
function reason(var r:reference): reason_type;\r
openroutine;\r
\r
function releasepool(var p:pool; bufs: 1..maxint): 0..maxint;\r
external;\r
\r
procedure remove(var pr: process);\r
external;\r
\r
procedure resetevent(var r: rtype);\r
openroutine;\r
\r
procedure resume(var pr: process);\r
external;\r
\r
procedure return(var r:reference);\r
external;\r
\r
procedure setbytecount(var r: rtype    ; v: 0..maxint);\r
openroutine;\r
\r
procedure setoffset(var r: rtype    ; v: 0..maxint);\r
openroutine;\r
\r
procedure settop(var r: rtype    ; v: 0..maxint);\r
openroutine;\r
\r
procedure setu1(var r: rtype    ; v: 0..255);\r
openroutine;\r
\r
procedure setu2(var r: rtype    ; v: 0..255);\r
openroutine;\r
\r
procedure setu3(var r: rtype    ; v: 0..255);\r
openroutine;\r
\r
procedure setu4(var r: rtype    ; v: 0..255);\r
openroutine;\r
\r
procedure signal(var m:mailbox; var r:reference);\r
external;\r
\r
function stack_bound(var p: process): word;\r
openroutine;\r
\r
function stackdepth(var r:reference  ): 0..maxint;\r
openroutine;\r
\r
function stack_size(var p: process): word;\r
openroutine;\r
\r
procedure stop(var p: process);\r
external;\r
\r
function succ(v:btype): btype;\r
openroutine;\r
\r
function succ(v:wtype): wtype;\r
openroutine;\r
\r
function top(var r:rtype    ): 0..maxint;\r
openroutine;\r
\r
procedure trace(f: integer);\r
external;\r
\r
procedure dtrace(f: integer);\r
external;\r
\r
procedure strace(f: integer);\r
external;\r
\r
function u1(var r:rtype    ): 0..255;\r
openroutine;\r
\r
function u2(var r:rtype    ): 0..255;\r
openroutine;\r
\r
function u3(var r:rtype    ): 0..255;\r
openroutine;\r
\r
function u4(var r:rtype    ): 0..255;\r
openroutine;\r
\r
function rest_of_delay: integer;\r
openroutine;\r
\r
function mailbox_state(var m:mailbox): integer;\r
openroutine;\r
\r
function swop(n: word): word; openroutine;\r
function swop(n: integer): integer;\r
openroutine;\r
\r
function data_segment(var r:rtype    ): word;\r
openroutine;\r
\r
procedure enable;\r
openroutine;\r
\r
procedure disable;\r
openroutine;\r
\r
\r
function unlink(var prog: program_descriptor): unlink_result; external;\r
\r
procedure wait(var m: mailbox; var r:reference);\r
external;\r
\r
function waitdelay(var m: mailbox; var r:reference;\r
                   ms: 0..maxint): wait_result;\r
external;\r
\r
(* wrd see byt *)\r
\r
procedure closeport(var p: port);\r
external;\r
\r
procedure connect(var p:port; index:1..255; var compl, disc: reference;\r
                  inspect remote_name:string; service: conn_service);\r
external;\r
procedure disconnect(var p:port; index:1..255);\r
external;\r
\r
procedure getconnection(var p:port; index:1..255; var compl, disc:reference);\r
external;\r
\r
procedure getcredit(var p:port; index:1..255; var credbuf: reference);\r
external;\r
\r
procedure getreset(var p:port; index:1..255; var indic: reference);\r
external;\r
\r
function maxconnections:0..maxint;\r
external;\r
\r
function maxlettersize:0..maxint;\r
external;\r
\r
procedure openport(var p:port; var closebuf: reference;\r
                   inspect name:string; scope: scope_type;\r
                   no_of_cons: 0..255; rcv_all:boolean);\r
external;\r
\r
procedure receive(var p:port; index:1..255; var databuf: reference);\r
external;\r
\r
procedure receiveall(var p:port; var databuf: reference);\r
external;\r
\r
procedure receiveletter(var p:port; var databuf: reference);\r
external;\r
\r
procedure reset(var p:port; index:1..255; var compl: reference);\r
external;\r
\r
procedure send(var p:port; index:1..255; var databuf: reference);\r
external;\r
\r
procedure sendletter(inspect destination: string; var databuf: reference);\r
external;\r
.\r