1 /* BEGIN INCLUDE FILE ... lap_line_info.incl.pl1 */
 2 
 3 /*
 4    Line status and control information for LAP -- extracted from x25_mpx
 5 
 6    Created January 10, 1983 by Olin Sibert to support LAP multiplexers.
 7 */
 8 
 9 /****^  HISTORY COMMENTS:
10   1) change(88-07-07,Beattie), approve(88-06-27,MCR7926),
11      audit(88-07-22,Brunelle), install(88-08-08,MR12.2-1082):
12      Prepared for installation.
13                                                    END HISTORY COMMENTS */
14 
15 dcl  L2_HEADER_PAD fixed bin internal static options (constant) init (2);
16 
17 dcl  lap_line_control_info_ptr pointer;
18 
19 dcl 1 lap_line_control_info aligned based (lap_line_control_info_ptr),
20     2 dce_or_dte bit (1) unaligned,                         /* ON = DCE */
21     2 lap_or_lapb bit (1) unaligned,                        /* ON = lapb */
22     2 disc_first bit (1) unaligned,                         /* ON = send disc upon physical connect */
23     2 trace_off bit (1) unaligned,                          /* ON = turn off trace upon line crash */
24     2 pad bit (5) unaligned,                                /* padding */
25     2 command bit (9) unaligned,                            /* One of the values below */
26     2 frame_size fixed bin (18) unsigned unaligned,         /* max size of I-frame */
27 
28     2 K fixed bin (9) unsigned unaligned,                   /* max un-acked frames allowed */
29     2 N2 fixed bin (9) unsigned unaligned,                  /* number of retries */
30     2 T1 fixed bin (9) unsigned unaligned,                  /* frame ack wait timer in tenths of seconds */
31     2 T3 fixed bin (9) unsigned unaligned;                  /* init timer */
32 
33 dcl  ACTIVATE_COMMAND init ("001"b3) bit (9) internal static options (constant);
34 dcl  DEACTIVATE_COMMAND init ("002"b3) bit (9) internal static options (constant);
35 dcl  DISCONNECT_COMMAND init ("003"b3) bit (9) internal static options (constant);
36 
37 dcl  lap_line_status_info_ptr pointer;
38 
39 dcl 1 lap_line_status_info aligned based (lap_line_status_info_ptr),
40     2 status_type fixed bin (18) unsigned unaligned,        /* One of the values below */
41     2 last_function_process fixed bin (17) unaligned,       /* coded function */
42 
43     2 which_state_process fixed bin (9) unsigned unaligned, /* process state */
44     2 main_state fixed bin (9) unsigned unaligned,          /* current frame level state */
45     2 primary_sub_state fixed bin (9) unsigned unaligned,   /* sub link up state */
46     2 secondary_sub_state fixed bin (9) unsigned unaligned;
47 
48 dcl  LINE_DOWN_STATUS init (1) fixed bin (18) unsigned internal static options (constant);
49 
50 dcl  FRAME_STATE_ARRAY (5) char (32) static options (constant) init
51     ("Down", "T3", "SABM Sent", "Set Up", "Up");
52 
53 dcl  FRAME_SUB_STATE_ARRAY (0:14) char (32) static options (constant) init
54     ("Link down: see frame", "Link down: down", "Link down: T3",                                    /* 0, 1, 2 */
55      "Link down: SABM sent", "Link down: set up", "Primary normal",                                 /* 3, 4, 5 */
56      "Primary remote busy", "Primary T1 expired", "Primary SARM reset",                             /* 6, 7, 8 */
57      "Secondary normal", "Secondary local busy", "Secondary reject",                                /* 9, 10, 11 */
58      "Secondary CMDR send", "Link up FRMR send", "Link up reset started (lapb)");                   /* 12, 13, 14 */
59 
60 dcl  FRAME_FUNCTION_CODE (0:19) char (32) static options (constant) init
61     ("Recieved invalid command or data", "Recieved DISC", "Recieved DM (lapb)",                     /* 0, 1, 2 */
62      "Recieved SARM (lap)", "Recieved SABM (lapb)", "Recieved UA",                                  /* 3, 4, 5 */
63      "Recieved CMDR/FRMR", "Recieved RR", "Recieved RNR",                                           /* 6, 7, 8 */
64      "Recieved REJ", "Recieved bad command or response", "Timer (T1) expired with rc<N2",           /* 9, 10, 11 */
65      "Timer (T1) expired with rc=N2", "Recieved bad final bit", "Recieved bad I-frame (N(R))",      /* 12, 13, 14 */
66      "Recieved bad I-frame (N(S))", "Recieved I-frame", "Recieved poll RR command (lapb)",          /* 15, 16, 17 */
67      "Recieved poll RNR command (lapb)", "Recieved poll REJ command (lapb)");                       /* 18, 19 */
68 
69 /* END INCLUDE FILE ... lap_line_info.incl.pl1 */