DataMuseum.dk

top - download

    Length: 5152 (0x1420)
    Types: TextFile
    Names: »OSIPC.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\OSIPC.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\OSIPC.ENV« 
└─⟦783187a02⟧ Bits:30010525 DVBS1.SW2114.src.2.6-3 RTP compiler source SW2104+SW2114 Disk#3 30/1-92 HHA
    └─⟦this⟧ »OLDRTP\OSIPC.ENV« 
└─⟦ca921ce75⟧ Bits:30010528 DVBS1.SW2114.src.2.6-6 RTP Compiler Source SW2104+SW2114 Disk 3 92.02.03 HEJ HHA
    └─⟦this⟧ »OLDRTP\OSIPC.ENV« 

TextFile

osipcenv;\r
\r
    (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)\r
    (*                                                                   *)\r
    (*                         O S I P C . E N V                         *)\r
    (*                                                                   *)\r
    (*  This environment contains declarations used by most of the       *)\r
    (*  modules of the OSI-PC.                                           *)\r
    (*                                                                   *)\r
    (*  Related environments:                                            *)\r
    (*                                                                   *)\r
    (*  IO.ENV       : Declarations for users of the operator            *)\r
    (*  TIMER.ENV    :      -        -    -   -   -  timer               *)\r
    (*  PI3IO.ENV    :      -        -    -   -   -  PI3 file system     *)\r
    (*                                                                   *)\r
    (*  Xyyy.ENV     :      -        -    -   -   -  yyy module          *)\r
    (*  Cyyy.ENV     :      -        -  the father of the yyy module     *)\r
    (*                                                                   *)\r
    (*  'yyy' denotes the various modules in the OSI-PC                  *)\r
    (*                                                                   *)\r
    (*-------------------------------------------------------------------*)\r
    (*                                                                   *)\r
    (*  Date    Author Changes                                           *)\r
    (*  870625  pgr    First version.                                    *)\r
    (*  880204  pgr    HDLC and DTE min offset's included, octets deleted*)\r
    (* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *)\r
\r
const\r
\r
    (* priority *)\r
\r
  std_prio      = 200;\r
  driver_prio   = 192;\r
\r
    (* u1 values *)\r
\r
  control       = 0;\r
  read          = 1;\r
  write         = 2;\r
  write_read    = 3;\r
\r
    (* u2 values *)\r
\r
  message       =  7;\r
\r
    (* results - u2 values *)\r
    (* note that the values below may be different *)\r
    (* from the values in the RC3502 netenv        *)\r
    (* this may be changed in a later version      *)\r
\r
  ok            =  0;\r
\r
  not_processed =  1;\r
\r
  trans_err     =  2;\r
  rej_trans     = 10;\r
  busy          = 18;\r
  timeout       = 26;\r
\r
  pers_err      =  3;\r
  rej_pers      = 11;\r
  dupl_fct      = 19;\r
  rec_unkw      = 27;\r
  ill_fac       = 35;\r
\r
  fatal_err     =  4;\r
  ill_opcode    = 12;\r
  fct_not_allw  = 20;\r
  format_err    = 28;\r
  buf_lgth_err  = 36;\r
\r
    (* various constants *)\r
\r
  alfalength    = 12;\r
\r
type\r
\r
  bit     = 0..1;\r
  duo     = 0..3;\r
  trio    = 0..7;\r
  quartet = 0..15;\r
  quintet = 0..31;\r
  sextet  = 0..63;\r
  septet  = 0..127;\r
  octet   = 0..255;\r
\r
  mbx_pointer   = ^mailbox;\r
\r
  tap_pointer   = record\r
                    s : mbx_pointer;\r
                    w : mbx_pointer\r
                  end;\r
\r
  double_word   = record\r
                    lsw,\r
                    msw : word\r
                  end;\r
\r
  double        = record\r
                    lsp,\r
                    msp : integer\r
                  end;\r
\r
  f_l_n_type    = record\r
                    first,\r
                    last,\r
                    next : integer;\r
                  end;\r
\r
    -- alfa    = string(alfalength);  This is still not implemented in the compiler\r
  alfa    = array(1..alfalength) of char;\r
\r
  plm_name_type = record\r
                    name_lgt: byte;\r
                    name    : array(1..12) of char\r
                  end;\r
$EJECT\r
    (************************************)\r
    (*   Address Parameters and Types   *)\r
    (************************************)\r
\r
const\r
\r
  nl_addr_length        = 40;\r
  afi_length            =  2;\r
  idi_length            = 14;\r
\r
type\r
\r
  afi_type              = array(1..afi_length) of '0'..'9';\r
  idi_type              = array(1..idi_length) of '0'..'9';\r
  dsp_type              = array(1..nl_addr_length - afi_length - idi_length) of '0'..'9';\r
\r
  net_addr_type         = record\r
                            afi : afi_type;\r
                            idi : idi_type;\r
                            dsp : dsp_type;\r
                          end;\r
\r
  nsap_addr_type        = record\r
                            net_act_lg  : octet;\r
                            net_addr    : net_addr_type;\r
                          end;\r
\r
const\r
\r
  x121_afi      = afi_type (:'3', '6':);\r
\r
$EJECT\r
    (*******************)\r
    (*  Buffer Layout  *)\r
    (*******************)\r
\r
const\r
$IF RTP86 > 0\r
  hdlc_min_offset       = 2;\r
$ELSE\r
  hdlc_min_offset       = 2 + typesize( f_l_n_type);\r
$ENDIF\r
  dte_data_header       = 3;\r
  dte_min_offset        = hdlc_min_offset + dte_data_header;\r
\r
\r
procedure panic( code: integer);\r
external;\r
\r
procedure name_object( var obj: mailbox; inspect obj_name: plm_name_type);\r
external;\r
\r
function search_object( inspect obj_name: plm_name_type): mbx_pointer;\r
external;\r
\r
. (* end osipcenv *)\r