DataMuseum.dk

top - download

    Length: 3450 (0xd7a)
    Types: TextFile
    Names: »COMMON86.ENV«

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

TextFile

common86env;\r
\r
          (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)\r
          (*                                                                 *)\r
          (*      This environment contains the types, constants and         *)\r
          (*      routines common to processes in the controller             *)\r
          (*                                                                 *)\r
          (*    DATE    AUTHOR  CHANGES                                      *)\r
          (*                                                                 *)\r
          (*  86.09.05   TOG    First release                                *)\r
          (*  86.12.08   TOG    Alfa declared                                *)\r
          (*                                                                 *)\r
          (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)\r
\r
(* declarations *)\r
\r
type\r
  alfa           = array(1..12) of char;\r
  \r
  octet          = 0..255;\r
\r
  octets (lgt: 0..maxint) = array (0..lgt-1) of octet;\r
\r
  mbx_pointer    = ^mailbox;\r
\r
  bit            = 0..1;\r
\r
const\r
\r
  nl             = chr(10);\r
\r
\r
  control        = 0;\r
  read           = 1;\r
  write          = 2;\r
  write_read     = 3;\r
\r
  (* u2 values *)\r
\r
  message        =  7;\r
  ill_opcode     =  12;\r
  timeout        =  26;\r
  format_err     =  28;\r
\r
  (* results - u2 values *)\r
  ok             =  0;\r
\r
  not_processed  =  1;\r
\r
type\r
  plm_name_type = record\r
                    name_lgt: 0..255;\r
                    name    : array(1..12) of char\r
                  end;\r
\r
  rc3502_address = record             (* = module * 64K + offset *)\r
                     offset: word;\r
                     module: word;\r
                   end;\r
                   \r
  i8086_address = record              (* = segment * 16 + offset *)\r
                    offset: word;\r
                    segment: word;\r
                  end;\r
                  \r
function mailbox_ptr(var mbx:mailbox): ^mailbox; external;\r
\r
function rc3502buffer(var ref: reference): boolean; external;\r
\r
function bufto3502(length:integer;\r
                   var ref_3502: reference; offset_3502: integer;\r
                   var ref_80186: reference; offset_80186: integer): integer;\r
external;\r
\r
function buffrom3502(length:integer;\r
                   var ref_3502: reference; offset_3502: integer;\r
                   var ref_80186: reference; offset_80186: integer): integer;\r
external;\r
                   \r
procedure datato3502(var ref_3502, ref_80186: reference); external;\r
\r
procedure datafrom3502(var ref_3502, ref_80186: reference); external;\r
\r
procedure name_object(var mbx: mailbox;inspect s:plm_name_type); external;\r
\r
function search_object(inspect s:plm_name_type): ^mailbox; external;\r
\r
function read_memory(var dest: octets;\r
                     start_segment, start_offset, length: word): word;\r
                     external;\r
                      \r
\r
procedure rc3502reftoaddress(var ref: reference; var addr: rc3502_address);\r
external;\r
\r
procedure copyfrom3502(length: word; source: rc3502_address; dest: i8086_address);\r
                       external;\r
                       \r
procedure copyto3502(length: word; dest: rc3502_address; source: i8086_address);\r
                     external;\r
\r
function read_data(var dest: octets; start_offset, length: word): word; \r
                   external;\r
\r
.\r