|
DataMuseum.dkPresents historical artifacts from the history of: RC3500 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC3500 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 7680 (0x1e00)
Types: TextFileVerbose
Names: »xrouenv«
└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
└─⟦72244f0ef⟧
└─⟦this⟧ »xrouenv«
xrouenv;
(**************************************************************)
(* *)
(* external router environments *)
(* *)
(**************************************************************)
const
(* user interface *)
(*----------------*)
(* u1 values *)
connect_ext=1*4+0;
disconnect_ext=2*4+0;
reset=3*4+0;
trm_packet=0*4+2; (* transmit packet *)
dir_transm=1*4+2; (* directed transmit *)
rec_packet=0*4+1; (* receive packet *)
get_packet=1*4+1; (* get packet *)
sense_ready=2*4+1; (* sense ready *)
not_processed=1;
ill_p_form=1*8+4; (* illegal packet format *)
buf_lgth_err=3*8+4; (* buffer length error *)
no_resources=5;
ext_exists=6; (* extension number exists already *)
ext_unkn=5; (* extension number unknown *)
conn_unkn=6; (* connector number unknown *)
(* packet parameters *)
(* packet formats *)
dg_form1=2; (* format 1 *)
dg_form2=4; (* format 2 *)
dg_form3=128; (* format 3 *)
(* packet types *)
ext_user_p=1; (* external user packet *)
int_sup_p=2; (* internal supervisor packet *)
(* packet states *)
st_notrmreso=1; (* transmission closed caused by no resources *)
st_extunkn=5; (* extension dst unknown *)
st_norecreso=6; (* no receive resources *)
st_congestion=7; (* congestion in the network *)
st_ltexceed=8; (* lifetime exceeded *)
st_lineerror=9; (* line error *)
st_fpatherr=10; (* fixed path error *)
st_mirrored=11; (* mirrored *)
(* lengths of fields in packet *)
trhead_lgt=8; (* trailer head length in bytes *)
trrec_lgt=4; (* trailer record length in bytes *)
rparam_lgt=8; (* length in bytes (even) of the router
parameter fields *)
phead1_lgt=20; (* packet head format 1 length in bytes *)
pmax=200; (* data packet length in bytes *)
(* displacements within trailer *)
tim_limit=0; (* time limit *)
link_limit=2; (* link limit *)
top_of_trail=4; (* top of trailer *)
next_rec=6; (* next record *)
tr_rec_reg=0; (* trailer record region *)
tr_rec_node=1; (* trailer record node *)
tr_rec_time=2; (* trailer record time *)
type
drvbuftype=record
first,last,next: integer;
end;
rparamtype=record
rparam1,rparam2,rparam3,rparam4: integer;
end;
routptype=record
drvbuf: drvbuftype;
rparam: rparamtype;
end;
fac_mask=packed record
rej,
rejlt,
timelt,
linklt,
hrej,
bcast,
ffu9,ffu8,
mirror,
drop,
spath,
fpath,
ffu3,ffu2,ffu1,
trace: bit;
end;
phead1=packed record
format,priority,
typ,net_dst,
reg_dst,node_dst: byte;
ext_dst: integer;
state,net_org,
reg_org,node_org: byte;
ext_org: integer;
fac: fac_mask;
user_field,
top_of_data: integer;
end;
pack1=packed record
drvbuf: drvbuftype;
rparam: rparamtype;
head: phead1;
data: array(0..pmax-1) of byte;
end;
phead2=packed record
format,priority,
typ,net_dst,
reg_dst,node_dst: byte;
ext_dst: integer;
end;
pack2=packed record
drvbuf: drvbuftype;
rparam: rparamtype;
head: phead2;
data: array(1..pmax) of byte;
end;
(* LCP formats and functions ********************************)
type
(* control operations *)
(* supervisor *)
set_timer_type = packed record
timer_id: integer;
delay1, delay2: byte;
end;
set_nwtime_type = record
msp, lsp: integer;
end;
(* hdlc line connector *)
hlopen_type = record
conn_id,
t1,
n2: integer;
end;
(* sense operations *)
(* supervisor *)
(* get timers *)
loc_tim_typ=packed record
c:integer;
node:integer;
ps_del1,ps_del2: byte;
p_xmit_del1,p_xmit_del2: byte;
end;
supv_tim_type = packed record
netwtim: int32;
nwt_del1,nwt_del2: byte;
nwt_update: integer;
broadc_del1,broadc_del2: byte;
end;
(* sense connectors *)
connsense_type = packed record
conn_no, conn_type: byte;
cid: integer;
nblevel: byte;
conn_state: byte;
queuelgt: integer;
end;
(* get routing table *)
rtabhead_type = packed record
rl: integer;
connmax, nnmax: byte;
infway: integer;
end;
(* statistical records in router module *)
(* local connector *)
ext_stat_type=record
xmit, (* no of xmitted packets *)
rec, (* no of received packets *)
lost: integer; (* no of lost packets *)
end;
statexttype= record
ext_no: integer;
st: ext_stat_type;
end;
(* hdlc line connector *)
stat_hlcon= record
trmnorm, trmdir, trmnnp, trmrng,
recnorm, recnnp, recunkn: integer;
end;
(* event record formats *)
eventrecordtype=packed record
event_type,
bytecount: byte;
rout_mod,
incarnation: byte;
end;
event_extcon_type=packed record (* event connect extension *)
evtrec:eventrecordtype;
ext_no: integer;
end;
event_extdisc_type=packed record (* event disconnect extension *)
evtrec: eventrecordtype;
st: statexttype;
end;
event_lost_type=packed record (* event lost events *)
evtrec:eventrecordtype;
lost: integer; (* no of lost events *)
end;
const
fac_mask_0=fac_mask(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
(* lcp_cntr modif values: *)
opc_set_evmask=1; (* set event mask *)
opc_crea_conn= 5; (* create connector *)
opc_rem_conn= 6; (* remove connector *)
opc_start_conn= 3; (* start connector *)
opc_stop_conn= 4; (* stop connector *)
opc_set_netwt=2; (* set network time *)
opc_set_tim=7; (* set timers *)
tid_nwupd=0; (* network time update *)
tid_nwbroadc=1; (* network time broadcast *)
tid_psdel=2; (* packet storage timer *)
tid_pxmit=3; (* packet entry timer *)
tid_nnpupd=4; (* nnp update max freq *)
(* lcp_sense modif values: *)
opc_sense_conn= 1; (* sense connector *)
opc_get_timers= 2; (* get timers *)
opc_get_rtab=3; (* get routing table *)
(* lcp_get_stat modif values: *)
opc_g_hlcon_st= 1; (* get hdlc connector statistics *)
opc_g_hldrv_st= 2; (* get hdlc driver statistics *)
opc_g_ext_st= 3; (* get extension statistics *)
(* event values *)
ev_lcp_modif= 0; (* lcp_oper.modif in router events *)
ev_hline_up= 1*4+3; (* hdlc line up event *)
ev_hline_down= 2*4+3;(* hdlc line down event *)
ev_conext= 3*4+3; (* extension connected event *)
ev_discext= 4*4+3; (* extension disconnected event *)
ev_hlev= 5*4+3; (* hdlc event *)
ev_lost= 63*4+3; (* event lost *)
lgtconnsense= 8; (* length of connsense_type *)
lgtrtabhead= 6; (* length og rtabhead *)
lgt_rhlopen= 6;
(* router module identification values *)
supervisor_mod=0;
connector_mod=1;
buffer_mod= 2;
nnp_pool_incarn= 0; (* incarnation number of nnp pool *)
trans_pool_incarn= 1; (* incarnation number of transit pool *)
(* length of statistics in bytes *)
statextlgt= 8; (* length of each extension statistic *)
stathlconlgt= 14; (* length of hdlc line conn. statistics *)
.
«eof»