1 /* BEGIN INCLUDE FILE ..... lalr_dpda.incl.pl1 ..... 06/28/76 D. Ward
 2    ^O                                               02/02/80 P. Prange */
 3 
 4 /* format: style4,indattr,idind30 */
 5 dcl  dpda_size                     fixed bin;
 6 dcl  dpda_ptr                      ptr;
 7 dcl  1 dpda                        (dpda_size) aligned based (dpda_ptr),
 8        2 v1                        fixed bin unaligned,
 9        2 v2                        fixed bin unaligned;
10 dcl  dpda_double                   (dpda_size) fixed bin (35) aligned based (dpda_ptr);
11 
12 dcl  skip_size                     fixed bin;
13 dcl  skip_ptr                      ptr;
14 dcl  1 skip                        (skip_size) aligned based (skip_ptr),
15        2 v1                        fixed bin unaligned,
16        2 v2                        fixed bin unaligned;
17 
18 /* dpda type codes used in the v1 entry of the first row of each table. */
19 
20 dcl  sRD                           fixed bin internal static options (constant) init (0);
21 dcl  LK                            fixed bin internal static options (constant) init (1);
22 dcl  sRDs                          fixed bin internal static options (constant) init (2);
23 dcl  LKs                           fixed bin internal static options (constant) init (3);
24 dcl  APP                           fixed bin internal static options (constant) init (4);
25 dcl  APP1                          fixed bin internal static options (constant) init (5);
26 dcl  APPs                          fixed bin internal static options (constant) init (6);
27 dcl  NULLs                         fixed bin internal static options (constant) init (7); /* When used in the DPDA itself. */
28 dcl  SKIPt                         fixed bin internal static options (constant) init (7); /* When used in the skip recovery table. */
29 dcl  FINAL                         fixed bin internal static options (constant) init (8); /* When used in the DPDA itself. */
30 dcl  ADJ                           fixed bin internal static options (constant) init (8); /* When used in the skip recovery table. */
31 dcl  RD                            fixed bin internal static options (constant) init (9);
32 dcl  RDs                           fixed bin internal static options (constant) init (10);
33 dcl  APa                           fixed bin internal static options (constant) init (11);
34 dcl  APa1                          fixed bin internal static options (constant) init (12);
35 dcl  APas                          fixed bin internal static options (constant) init (13);
36 dcl  LKd                           fixed bin internal static options (constant) init (14);
37 dcl  RDd                           fixed bin internal static options (constant) init (15);
38 dcl  LKc                           fixed bin internal static options (constant) init (16);
39 dcl  RDc                           fixed bin internal static options (constant) init (17);
40 dcl  APr                           fixed bin internal static options (constant) init (18);
41 dcl  APr1                          fixed bin internal static options (constant) init (19);
42 dcl  APrs                          fixed bin internal static options (constant) init (20);
43 
44 /* END INCLUDE FILE ..... lalr_dpda.incl.pl1 ..... */