DataMuseum.dk

top - metrics - download

    Length: 6144 (0x1800)
    Types: TextFile
    Names: »pxenv«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »pxenv« 

TextFile

paxenv;

(*******************************************************************)
(*                                                                 *)
(*  paxopsys environment                                           *)
(*                                                                 *)
(*******************************************************************)

(*
This environment contains constants and types necessary for
the PAXOPSYS module compilation.

The constants are configuration constants need to be known by
PAXOPSYS and in some cases by other modules too. By changing
the constants in PAXENV it is possible to change the PAXNET
node configuration by recompiling the affected modules.
*)


(*------------------------------------------*)
(*  router  -  special parameters           *)
(*------------------------------------------*)

const

(* number of rows in routing tables (no of nodes):  *)
nmax=10;

(* number of routing levels:  *)
rlmax=2;

(* max number of connectors in a router:  *)
cmax=6;

(* number of parameters in connector create:  *)
cparam_max=10;

(* supervisor parameters:  *)
nwu_del1 = 125;    (* network time update delay (u3) *)
nwu_del2 = 4;      (*  -       -    -      -    (u4) *)
nwb_del1 = 120;    (* network time broadcast delay (u3) *)
nwb_del2 = 11;     (*  -       -    -         -    (u4) *)

(* local connector parameters:  *)
extmax=10;    (* max no of extensions *)
psmax=10;     (* size of paxkage storage *)

(* hdlc line connector parameters:  *)
rbuf=2;       (* multibuffering on input from line *)
tbuf=10;      (* multibuffering on output to line *)


type

nwadr = array (1 .. rlmax) of integer;

ltsmarray = array (1 .. cmax) of tap_pointer;

conn_typ = (none, typ_locon, typ_hlcon);  (* connector types *)

cparams_type = array (1 .. cparam_max) of integer;

conn_desc_type = record
ctyp: conn_typ;
cparams: cparams_type;
end;

conn_desc_array = array (1 .. cmax) of conn_desc_type;


const

(* infinite distance in routing table (level):  *)
rlinf = nwadr (10,4);

(* number of rows in routing table (level):  *)
rlnmax = nwadr (10,4);

(* initial connector configuration:  *)
(* no connectors *)
ini_connconfi = conn_desc_array (cmax***
conn_desc_type(none, cparams_type(cparam_max***0)));

(*-----------------------------------------*)
(*  lic  -  special parameters             *)
(*-----------------------------------------*)


(*-----------------------------------------*)
(*  dce  -  special parameters             *)
(*-----------------------------------------*)

const

dte_addr_lgt = 11;    (* national part of dte address field *)


type

bit4 = 0 .. 15;

dte_addr_type = packed array (1 .. dte_addr_lgt) of bit4;


(*-----------------------------------------*)
(*  ncp  -  special parameters             *)
(*-----------------------------------------*)


(*-----------------------------------------*)
(*  ncth  -  special parameters            *)
(*-----------------------------------------*)


(*-----------------------------------------*)
(*  lcp identification values              *)
(*-----------------------------------------*)

const

lid_ncp = 8;        (* ncp *)
lid_dcepool = 10;   (* dce buffer pool *)
lid_dce0 = 11;      (* dce incarnation 0 *)
lid_lic0 = 31;      (* lic incarnation 0 *)
lid_router0 = 51;  (* router incarnation 0 *)
lid_pht = 56;       (* router transit buffer pool incarnation 0 *)
lid_phnnp = 61;     (* router nnp buffer pool incarnation 0 *)
lid_dte = 2;        (* dte (internal dte) *)
lid_routraf = 66;   (* router traffic incarnation 0 *)

(*-----------------------------------------*)
(*  paxopsys parameters                    *)
(*-----------------------------------------*)

ts_sem_total= 80;

(* semaphore indices of processes *)

sno_ncp = 1;
sno_ncth = 2;
sno_timout = 3;

sno_rout0 = 7;    (* router 0 supervisor semaphore *)
isn_pht = 1;      (* transit pool 0 semaphore relative to rout0 *)
isn_phnnp = 2;    (* nnp pool 0 semaphore relative to rout0 *)
isn_conn = 3;     (* connector 1 relative to rout0 *)
slgt_conn = 3;    (* no of semaphores for each connector *)

sno_hltest = 4;
sno_hltout = 5;
sno_hltans = 6;

sno_dcepool0 = 29;(* dce pool 0 semaphore *)
sno_dcetrace = 28;(* dce trace seamphore *)
sno_dce0 = 30;    (* dce 0 semaphore *)
slgt_dce = 3;     (* number of sems per dce incarnation *)
isn_lic = 1;      (* lic semaphore relative to dce semaphore *)
isn_dcedrv = 2;   (* dce hdlc semaphore relative to dce *)

sno_routraf0 = 51;  (* router traffic main sem of inc 0 *)
slgt_routraf = 3;   (* number of sems per router traffic inc *)
sno_rappl0 = 47;  (* rappl inc. one semaphore *)
sno_lic0 = 45;    (* test lic *)



(* process indices in shadow array *)

noofmodules = 40;
noofph = 6;

ix_ncp = 1;
ix_ncth = 2;
ix_timout = 3;
ix_rout0 = 4;
six_pht = 1;
six_phnnp = 2;
ix_dcepool0 = 7;
ix_dce0 = 8;
ix_dcel = 12;

ix_dte = 19;
ix_dcetest = 20;

ix_tap0 = 21;
ix_tapl = 26;
nooftaps = ix_tapl - ix_tap0 + 1;

ix_rappl0 = 27;
ix_rappll = 28;

ix_tranp0 = 29;
ix_tranpl = 30;

ix_hlsim0 = 13;
ix_hlsiml = 17;

ix_routraf0 = 31;
ix_routrafl = 32;

ix_hltest = 33;  (* hdlc test output collecting process *)
ix_hltout = 34;  (* hdlc test output printing process *)

ix_ekko = 35;
ix_traffic = 36;

ix_lic0 = 37;
ix_licl = 38;

.
▶EOF◀