1 
 2 /*
 3 cobol_arg_descriptor: proc(in_word, out_word,out_conoff);
 4 
 5 create an argument descriptor for a non array element.
 6 See subsystem writers guide (volume V of the MPM)  for a
 7 definition of the argument descriptor and a definition of the
 8 parameters described below. The argument descriptor will
 9 be pooled on a word boundry in the constant portion of the
10 text segment.
11 
12 dcl       in_word bit (36);
13 dcl       out_word bit (36);
14 dcl       out_conoff          fixed bin;
15 
16  in_word  will contain the input information it the
17           following bit positions. (input)
18           0         always 1
19           1-6       data type
20           7         has a value of 1 if the data item
21                     is packed
22           8-11      unused
23           12-35     size of the data item
24  out_word will contain the word offset (from the
25           logical instruction counter) of the argument
26           descriptor in bits 0-17. This is a form suitable
27           to be used in a machine instruction with
28           IC modification. (output)
29 */
30 
31 
32 /*
33 type9:    entry (token_ptr, out_word,out_conoff);
34 
35 create an argument descriptor from a type 9 token.
36 See subsystem writers guide (volume V of the MPM)
37 for a definition of the argument descriptor. The argument
38 descriptor will be pooled on a word boundry in the constant
39 portion of the text segment.
40 
41  token_ptr is a pointer to the type 9 token (input)
42  out_word will contain the word offset (from the logical
43           instruction counter) of the argument descriptor
44           in bits 0-17. This is a form suitable to be used in
45           a machine instruction with IC modification. (output)
46 */
47