1 /* BEGIN INCLUDE FILE gtss_spa.incl.pl1 */
 2 /*
 3   Created: (Grimes SMP)  04/15/78
 4    Changed          6/22/78   A. Kepner           add labrt
 5    Changed          6/28/78   D. Ward             lwrap defined (lrap)
 6    Changed          10/16/79  Al Dupuis           lsztm was off by two words.
 7    Changed          84-02-27  Ron Barstad         added hex ir bit
 8    */
 9 dcl 1 gtss_spa aligned based (gseg),
10       3 fault_vector (0:9) bit(36),
11       3 lhstr char (8) unal,
12       3 lbrk,
13         4 ic        bit(18) unal,
14         4 ir        bit(18) unal,
15         4 tra_addr  bit(18) unal,
16         4 tra_op    bit(18) unal,
17       3 fill1 (0:1) bit(36),
18       3 lsztm,
19         4 ic_ir,
20           5 IC      bit(18)unal,
21           5 IR      bit(16)unal,
22           5 b34     bit(1)unal,
23           5 b35     bit(1)unal,
24         4 tra       bit(36)unal,
25       3 losti unal,
26         4 ilc       bit(18) unal,
27         4 ir unal,                                /* INDICATOR  REGISTERS */
28           5 zero    bit(1) unal,                            /* zero indicator */
29           5 neg     bit(1) unal,                            /* negative indicator */
30           5 carry   bit(1) unal,                            /* carryry indicator */
31           5 ovfl    bit(1) unal,                            /* overflow indicator */
32           5 eovf    bit(1) unal,                            /* eponent overflow */
33           5 eufl    bit(1) unal,                            /* exponent underflow */
34           5 oflm    bit(1) unal,                            /* overflow mask */
35           5 tro     bit(1) unal,                            /* tally runout */
36           5 par     bit(1) unal,                            /* parity error */
37           5 parm    bit(1) unal,                            /* parity mask */
38           5 bm      bit(1) unal,                            /* ^bar mode */
39           5 tru     bit(1) unal,                            /* truncation mode */
40           5 mif     bit(1) unal,                            /* multi-word instruction mode */
41           5 abs     bit(1) unal,                            /* absolute mode */
42           5 hex     bit(1) unal,                            /* hexadecimalexponent mode */
43           5 pad     bit(3) unal,
44       3 lnam        bit(36),                      /* Library name (bcd). */
45       3 labrt,
46         4 b0_17     bit(18) unal,
47         4 b18_35 fixed bin (17) unal,
48       3 fill2       bit(36),
49       3 lfig        bit(36),
50       3 lwrap,
51           5 b0_17   bit(1) unal,
52           5 b18     bit(1) unal,
53           5 b19     bit(1) unal,
54           5 b20     bit(1) unal,
55           5 b21     bit(1) unal,
56           5 b22     bit(1) unal,
57           5 b23     bit(1) unal,
58           5 b24     bit(1) unal,
59           5 b25     bit(1) unal,
60           5 b26     bit(1) unal,
61           5 b27     bit(1) unal,
62           5 b28     bit(1) unal,
63           5 b29     bit(1) unal,
64           5 b30     bit(1) unal,
65           5 b31     bit(1) unal,
66           5 b32     bit(1) unal,
67           5 b33     bit(1) unal,
68           5 b34     bit(1) unal,
69           5 b35     bit(1) unal,
70       3 lsid        bit(36),
71       3 lftst       bit(36),
72       3 lpcal (0:3) bit(36),
73       3 lpcnt fixed bin (35) unal,
74       3 lhole,
75         4 high fixed bin (17) unal,
76         4 total fixed bin (17) unal,
77       3 lostr unal,
78         4 regs unal,                                        /* registers */
79           5 x (0:7) bit(18) unal,                           /* index registers */
80           5 a       bit(36),                      /* accumulator */
81           5 q       bit(36),                      /* q-register */
82           5 e       bit(8) unal,                            /* exponent */
83           5 pad1    bit(28) unal,
84           5 t       bit(27) unal,                           /* timer register */
85           5 pad2    bit(6) unal,
86           5 ralr    bit(3) unal,                            /* ring alarm register */
87       3 leisa       (0:7) bit(36),
88       3 leisp       (0:7) bit(36),
89       3 fill3       (0:35) bit(36);
90 
91 /*   END INCLUDE FILE gtss_spa.incl.pl1 */