1 /*  BEGIN INCLUDE FILE ... x25_info.incl.pl1  */
 2 /*   Created March 25, 1986 by D. Kozlowski   */
 3 /*   Modified 87-03-02 by DMK (UNCA) added x25_iti */
 4  dcl x25_info_ptr ptr init (null());
 5  dcl 1 x25_info aligned based (x25_info_ptr),
 6        2 x25_info_version char (8),
 7        2 state fixed bin,                                   /* see definitions below */
 8        2 max_packet_size uns fixed bin (18),                /* maximum data packet allowed */
 9        2 baud_rate fixed bin,                               /* speed of remote correspondent */
10        2 flags aligned,                                     /* start on a word. */
11          3 iti_call bit (1) unaligned,                      /* set if iti call */
12          3 int_issued bit (1) unaligned,                    /* interrupt packet issued */
13          3 rnr_received bit (1) unaligned,                  /* dce sent rnr packet */
14          3 iti_break bit (1) unaligned,                     /* iti break being serviced */
15          3 rnr_sent bit (1) unaligned,                      /* we sent a RNR */
16          3 originate bit (1) unaligned,                     /* we started this call */
17          3 timer_set bit (1) unaligned,                     /* timing out on RR */
18          3 collect_call bit (1) unaligned,                  /* who pays for call */
19          3 write_status_sync_sent bit (1) unaligned,        /* we sent one, and haven't heard the result. */
20          3 datapac_caller bit(1) unaligned,                 /* set for datapac callers */
21          3 telenet_caller bit(1) unaligned,                 /* set for telenet callers */
22          3 tymnet_caller bit(1) unaligned,                  /* set for tymnet callers */
23          3 pad bit (24) unaligned,
24        2 his_address varying char (15),                     /* outgoing host number */
25        2 call_data varying char (16),                       /* call user data */
26        2 iti_params (18) uns fixed bin (9) unaligned,       /* PAD simulation parameters */
27        2 pad1 (4) fixed bin;                                /* For future expansion */
28 dcl X25_INFO_VERSION_1 char (8) int static options (constant) init
29    ("X25I0001");
30 
31  dcl x25_iti_info_ptr ptr init (null());
32  dcl x25_iti_count fixed bin;
33  dcl 1 x25_iti aligned based (x25_iti_info_ptr),
34        2 x25_iti_version char (8),
35        2 pcount fixed bin,
36        2 parameters (x25_iti_count refer (x25_iti.pcount)),
37          3 parameter uns fixed bin (9),
38          3 value uns fixed bin (9);
39 dcl X25_ITI_VERSION_1 char (8) int static options (constant) init
40    ("X25P0001");
41 
42 
43 /* End include file x25_info.incl.pl1 */