1 /* BEGIN INCLUDE FILE ... tuning_parameter_info.incl.pl1 ... 04/21/81 ... WOS */
 2 
 3 dcl  tp_info_ptr pointer;
 4 
 5 dcl 1 tp_info aligned based (tp_info_ptr),
 6     2 ptr pointer unaligned,                                /* Location of the value */
 7     2 value bit (36) aligned,                               /* Current value */
 8     2 type fixed bin,                                       /* See types, below */
 9     2 special bit (1) aligned,                              /* Whether this one is "special" */
10     2 long_name char (32) unaligned,                        /* Long and short names */
11     2 short_name char (16) unaligned;
12 
13 dcl (TP_ON_OFF                init (1),                     /* bit (1) aligned -- also "on" and "off" to the command */
14      TP_INTEGER               init (2),                     /* fixed bin (35) */
15      TP_MICROSECONDS          init (3),                     /* fixed bin (35) microseconds, scaled by command */
16      TP_SCALED_INTEGER        init (4),                     /* fixed bin (35, 18) */
17      TP_CHAR                  init (5),                     /* char (4) aligned */
18      TP_FLOAT                 init (6)                      /* float bin (27) aligned */
19           ) fixed binary internal static options (constant);
20 
21 /* END INCLUDE FILE ... tuning_parameter_info.incl.pl1 */