1 /* Begin amu_mc.incl.pl1 */
 2 
 3 dcl number_val_args fixed bin (17) init (23) static options (constant);
 4 
 5 dcl valid_mc_arg (24) char (8) init
 6 ("-dump",               /*  mc from bos dump */
 7 "-lg",                  /*  all of the info stored at the given pointer */
 8 "-scu","-ppr","-tpr","-inst",   /*  scu data or trs or psr (if scu then not psr nor tsr) */
 9 "-reg",                 /*  basic ou regs */
10 "-misc","-code","-flt","-tm", /* misc line of mc data if misc then not others */
11 "-eis",                 /* eis info if MIF flag in scu_data */
12 "-prs","-pr0","-pr1","-pr2","-pr3","-pr4","-pr5","-pr6","-pr7", /* pointer regs if prs then not the others */
13 "-vbf","-oct","-set")  /* control args */
14  static options (constant);
15 
16 /* the next structuers all all the same real data word and a dcl'ed in
17      many ways to make the code easer to write and undersand, only time
18      will tell if this is the correct end result. If any are changed they
19      all must by changed, The bit order must corespond to valid_mc_arg */
20 
21 
22 
23 dcl 1 arg_bits based (arg_bits_ptr) aligned,
24     2 request_arg(number_val_args) bit (1) unal;
25 
26 dcl 1 what_prs based (arg_bits_ptr) aligned,
27     2 pad bit (13) unal,
28     2 pregs (0:7) bit (1) unal,
29     2 padr bit (16);
30 
31 
32 dcl 1 arg_bits_def based (arg_bits_ptr),
33     2 dump bit (1) unal,
34     2 all bit (1) unal,
35     2 scu bit (1) unal,
36     2 ppr bit (1) unal,
37     2 tpr bit (1) unal,
38     2 inst bit (1) unal,
39     2 regs bit (1) unal,
40     2 xreg (0:7) bit (1) unal,
41     2 areg bit (1) unal,
42     2 qreg bit (1) unal,
43     2 mis bit (1) unal,
44     2 mc_err bit (1) unal,
45     2 flt bit (1) unal,
46     2 tm bit (1) unal,
47     2 eis bit (1) unal,
48     2 prs bit (1) unal,
49     2 pr (0:7) bit (1) unal,
50     2 long bit (1) unal,
51     2 set_ptr bit (1) unal,
52     2 mc_stored bit (1) unal,
53     2 rest_bits bit (1) unal;   /* bits to fill out the word **/
54 
55 
56 
57 dcl arg_bits_ptr ptr;
58 
59 /* End amu_mc.incl.pl1 */