1 
  2 /* BEGIN INCLUDE FILE ...   cobol_addr_tokens.incl.pl1 */
  3 
  4 
  5 /****^  HISTORY COMMENTS:
  6   1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8058),
  7      audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048):
  8      MCR8058 cobol_addr_tokens.incl.pl1 Change array extents to refer to
  9      constants rather than variables.
 10                                                    END HISTORY COMMENTS */
 11 
 12 
 13 /* Last modified on 10/1/74 by tg */
 14 
 15 
 16 /* parameter list */
 17 
 18      dcl     (input_ptr, inst_ptr, reloc_ptr) ptr;
 19 
 20 
 21 /* input_struc_basic is used for type 1 addressing */
 22 
 23      dcl     1 input_struc_basic    based (input_ptr),
 24                2 type               fixed bin,
 25                2 operand_no         fixed bin,
 26                2 lock               fixed bin,
 27                2 segno              fixed bin,
 28                2 char_offset        fixed bin (24),
 29                2 send_receive       fixed bin;
 30 
 31 
 32      dcl     1 input_struc          based (input_ptr),
 33                2 type               fixed bin,
 34                2 operand_no         fixed bin,
 35                2 lock               fixed bin,
 36                2 operand            (0 refer (input_struc.operand_no)),
 37                  3 token_ptr        ptr,
 38                  3 send_receive     fixed bin,
 39                  3 ic_mod           fixed bin,
 40                  3 size_sw          fixed bin;
 41 
 42 /* reloc_struc is used for all types of addressing * all types */
 43 
 44      dcl     1 reloc_struc          (input_struc.operand_no + 1) based (reloc_ptr),
 45                2 left_wd            bit (5) aligned,
 46                2 right_wd           bit (5) aligned;
 47 
 48 /* Instruction format for 1 word instruction */
 49 
 50 
 51      dcl     1 inst_struc_basic     based (inst_ptr) aligned,
 52                2 y                  unaligned,
 53                  3 pr               bit (3) unaligned,
 54                  3 wd_offset        bit (15) unaligned,
 55                2 fill1_op           bit (10) unaligned,
 56                2 zero1              bit (1) unaligned,
 57                2 pr_spec            bit (1) unaligned,
 58                2 tm                 bit (2) unaligned,
 59                2 td                 bit (4) unaligned;
 60 
 61 
 62 /* The detailed definitions of the fields in this structure
 63    can be found in the GMAP manual section 8 */
 64 /* EIS instruction format for 2_4 word instructions */
 65 
 66      dcl     1 inst_struc           based (inst_ptr) aligned,
 67                2 inst               unaligned,
 68                  3 zero1            bit (2) unaligned,
 69                  3 mf3              unaligned,
 70                    4 pr_spec        bit (1) unaligned,
 71                    4 reg_or_length  bit (1) unaligned,
 72                    4 zero2          bit (1) unaligned,
 73                    4 reg_mod        bit (4) unaligned,
 74                  3 zero3            bit (2) unaligned,
 75                  3 mf2              unaligned,
 76                    4 pr_spec        bit (1) unaligned,
 77                    4 reg_or_length  bit (1) unaligned,
 78                    4 zero4          bit (1) unaligned,
 79                    4 reg_mod        bit (4) unaligned,
 80                  3 fill1_op         bit (10) unaligned,
 81                  3 zero5            bit (1) unaligned,
 82                  3 mf1              unaligned,
 83                    4 pr_spec        bit (1) unaligned,
 84                    4 reg_or_length  bit (1) unaligned,
 85                    4 zero6          bit (1) unaligned,
 86                    4 reg_mod        bit (4) unaligned,
 87                2 desc_ext           unaligned,
 88                  3 desc             (512) unaligned,
 89                    4 desc_od        bit (36) unaligned;
 90 
 91 /* The detailed definitions of the fields in this structure
 92    can be found in the GMAP manual section 8.
 93    The desc_ext is the descriptor extension of this eis
 94    instruction. The number of descriptors associated with
 95    this instruction is equavalent to the operand number.
 96    Depending on operand data type, the descriptor
 97    can be alphanumeric or numeric.  The structures of the
 98    alphanumeric and the numeric descriptors are defined
 99    below. */
100 
101 /* alphanumeric descriptor format */
102 
103      dcl     1 desc_an              based (desc_an_ptr) unaligned,
104                2 desc_f             (512) unaligned,
105                  3 y                unaligned,
106                    4 pr             bit (3) unaligned,
107                    4 wd_offset      bit (15) unaligned,
108                  3 char_n           bit (3) unaligned,
109                  3 zero1            bit (1) unaligned,
110                  3 ta               bit (2),
111                  3 n                bit (12) unaligned;
112 
113 
114 /* The detailed definitions of the fields in this structure can
115    be found in the GMAP manual section 8. */
116 /* numeric descriptor format */
117 
118      dcl     desc_nn_ptr            ptr;
119      dcl     desc_an_ptr            ptr;
120 
121 
122      dcl     1 desc_nn              based (desc_nn_ptr) unaligned,
123                2 desc_f             (512) unaligned,
124                  3 y                unaligned,
125                    4 pr             bit (3) unaligned,
126                    4 wd_offset      bit (15) unaligned,
127                  3 digit_n          bit (3) unaligned,
128                  3 tn               bit (1) unaligned,
129                  3 sign_type        bit (2) unaligned,
130                  3 scal             bit (6) unaligned,
131                  3 n                bit (6) unaligned;
132 
133 
134 /* The detailed definitions of fields in this structure can
135    be found in the GMAP manual section 8. */
136 /* END INCLUDE FILE ...   cobol_addr_tokens.incl.pl1 */
137