1 /* Begin include file ..... tape_ioi_hw_status.incl.pl1 */
  2 
  3 /* This structure defines the data returned by tape_ioi_$hardware_status */
  4 
  5 /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */
  6 /* Written May 1982 by Chris Jones */
  7 /* Modified 15 June 1982 by Chris Jones to add reformatted status constants */
  8 
  9 dcl       ths_ptr                ptr;
 10 
 11 dcl       1 ths                  aligned based (ths_ptr),
 12             2 version            fixed bin,
 13             2 description        char (256) varying,
 14             2 major              fixed bin,
 15             2 minor              bit (36),
 16             2 iom                bit (72),
 17             2 lpw                bit (72);
 18 
 19 dcl       THS_VERSION_1          fixed bin static options (constant) init (1);
 20 dcl       THS_VERSION            fixed bin static options (constant) init (1);
 21 ^L
 22 /* The following are used to describe the status in a non-hardware specific way. */
 23 
 24 /* Major Status */
 25 
 26 dcl       SUBSYSTEM_READY        fixed bin static options (constant) init (0);
 27 dcl       DEVICE_BUSY            fixed bin static options (constant) init (1);
 28 dcl       DEVICE_ATTENTION       fixed bin static options (constant) init (2);
 29 dcl       DEVICE_DATA_ALERT      fixed bin static options (constant) init (3);
 30 dcl       END_OF_FILE            fixed bin static options (constant) init (4);
 31 dcl       COMMAND_REJECT         fixed bin static options (constant) init (5);
 32 dcl       MPC_DEVICE_ATTENTION   fixed bin static options (constant) init (10);
 33 dcl       MPC_DEVICE_DATA_ALERT  fixed bin static options (constant) init (11);
 34 dcl       MPC_COMMAND_REJECT     fixed bin static options (constant) init (13);
 35 dcl       POWER_OFF              fixed bin static options (constant) init (16);
 36 dcl       SYSTEM_FAULT           fixed bin static options (constant) init (17);
 37 dcl       IOM_CENTRAL            fixed bin static options (constant) init (18);
 38 dcl       IOM_CHANNEL            fixed bin static options (constant) init (19);
 39 dcl       TIME_OUT               fixed bin static options (constant) init (20);
 40 
 41 /* Minor Status */
 42 
 43 /* Minor status for SUBSYSTEM_READY */
 44 
 45 dcl       WRITE_PROTECTED        bit (36) aligned static options (constant)
 46                                  init ("100000000000000000000000000000000000"b);
 47 dcl       AT_BOT                 bit (36) aligned static options (constant)
 48                                  init ("010000000000000000000000000000000000"b);
 49 dcl       TWO_BIT_FILL           bit (36) aligned static options (constant)
 50                                  init ("001000000000000000000000000000000000"b);
 51 dcl       FOUR_BIT_FILL          bit (36) aligned static options (constant)
 52                                  init ("000100000000000000000000000000000000"b);
 53 dcl       SIX_BIT_FILL           bit (36) aligned static options (constant)
 54                                  init ("000010000000000000000000000000000000"b);
 55 dcl       ASCII_ALERT            bit (36) aligned static options (constant)
 56                                  init ("000001000000000000000000000000000000"b);
 57 
 58 /* Minor status for DEVICE_BUSY */
 59 
 60 dcl       REWINDING              bit (36) aligned static options (constant)
 61                                  init ("100000000000000000000000000000000000"b);
 62 dcl       RESERVED               bit (36) aligned static options (constant)
 63                                  init ("010000000000000000000000000000000000"b);
 64 dcl       ALTERNATE_CHANNEL      bit (36) aligned static options (constant)
 65                                  init ("001000000000000000000000000000000000"b);
 66 dcl       LOADING                bit (36) aligned static options (constant)
 67                                  init ("000100000000000000000000000000000000"b);
 68 
 69 /* Minor status for DEVICE_ATTENTION */
 70 
 71 /* WRITE_PROTECTED declared above with SUBSYSTEM_READY status */
 72 
 73 dcl       NO_SUCH_HANDLER        bit (36) aligned static options (constant)
 74                                  init ("010000000000000000000000000000000000"b);
 75 dcl       HANDLER_IN_STANDBY     bit (36) aligned static options (constant)
 76                                  init ("001000000000000000000000000000000000"b);
 77 dcl       HANDLER_CHECK          bit (36) aligned static options (constant)
 78                                  init ("000100000000000000000000000000000000"b);
 79 dcl       BLANK_TAPE_ON_WRITE    bit (36) aligned static options (constant)
 80                                  init ("000010000000000000000000000000000000"b);
 81 
 82 /* Minor status for DEVICE_DATA_ALERT */
 83 
 84 dcl       TRANSFER_TIMING_ALERT  bit (36) aligned static options (constant)
 85                                  init ("100000000000000000000000000000000000"b);
 86 dcl       BLANK_TAPE_ON_READ     bit (36) aligned static options (constant)
 87                                  init ("010000000000000000000000000000000000"b);
 88 dcl       BIT_DURING_ERASE       bit (36) aligned static options (constant)
 89                                  init ("001000000000000000000000000000000000"b);
 90 dcl       TRANSMISSION_PARITY_ALERT
 91                                  bit (36) aligned static options (constant)
 92                                  init ("000100000000000000000000000000000000"b);
 93 dcl       LATERAL_PARITY_ALERT   bit (36) aligned static options (constant)
 94                                  init ("000010000000000000000000000000000000"b);
 95 dcl       LONGITUDINAL_PARITY_ALERT
 96                                  bit (36) aligned static options (constant)
 97                                  init ("000001000000000000000000000000000000"b);
 98 dcl       END_OF_TAPE            bit (36) aligned static options (constant)
 99                                  init ("000000100000000000000000000000000000"b);
100 
101 /* Minor status for END_OF_FILE */
102 
103 dcl       DATA_ALERT_CONDITION   bit (36) aligned static options (constant)
104                                  init ("100000000000000000000000000000000000"b);
105 
106 /* Minor status for COMMAND_REJECT */
107 
108 dcl       READ_AFTER_WRITE       bit (36) aligned static options (constant)
109                                  init ("100000000000000000000000000000000000"b);
110 /**** AT_BOT declared above with SUBSYSTEM_READY status */
111 dcl       BAD_IDCW_PARITY        bit (36) aligned static options (constant)
112                                  init ("001000000000000000000000000000000000"b);
113 dcl       BAD_DEVICE_CODE        bit (36) aligned static options (constant)
114                                  init ("000100000000000000000000000000000000"b);
115 dcl       BAD_OP_CODE            bit (36) aligned static options (constant)
116                                  init ("000010000000000000000000000000000000"b);
117 dcl       BAD_DENSITY            bit (36) aligned static options (constant)
118                                  init ("000001000000000000000000000000000000"b);
119 dcl       NINE_TRACK_ERROR       bit (36) aligned static options (constant)
120                                  init ("000000100000000000000000000000000000"b);
121 
122 /* Minor status for MPC_DEVICE_ATTENTION */
123 
124 dcl       CONFIG_SWITCH_ERROR    bit (36) aligned static options (constant)
125                                  init ("100000000000000000000000000000000000"b);
126 dcl       MULTIPLE_DEVICES       bit (36) aligned static options (constant)
127                                  init ("010000000000000000000000000000000000"b);
128 dcl       ILLEGAL_DEVICE_ID      bit (36) aligned static options (constant)
129                                  init ("001000000000000000000000000000000000"b);
130 dcl       INCOMPATIBLE_MODE      bit (36) aligned static options (constant)
131                                  init ("000100000000000000000000000000000000"b);
132 dcl       TCA_MALFUNCTION        bit (36) aligned static options (constant)
133                                  init ("000010000000000000000000000000000000"b);
134 dcl       MTH_MALFUNCTION        bit (36) aligned static options (constant)
135                                  init ("000001000000000000000000000000000000"b);
136 dcl       MULTIPLE_BOT           bit (36) aligned static options (constant)
137                                  init ("000000100000000000000000000000000000"b);
138 
139 /* Minor status for MPC_DEVICE_DATA_ALERT */
140 
141 dcl       BYTE_LOCKED_OUT        bit (36) aligned static options (constant)
142                                  init ("100000000000000000000000000000000000"b);
143 dcl       INCONSISTENT_COMMAND   bit (36) aligned static options (constant)
144                                  init ("010000000000000000000000000000000000"b);
145 dcl       SUM_CHECK_ERROR        bit (36) aligned static options (constant)
146                                  init ("001000000000000000000000000000000000"b);
147 /**** TRANSMISSION_PARITY_ALERT declared above with DEVICE_DATA_ALERT */
148 dcl       ID_BURST_WRITE_ERROR   bit (36) aligned static options (constant)
149                                  init ("000010000000000000000000000000000000"b);
150 dcl       PREAMBLE_ERROR         bit (36) aligned static options (constant)
151                                  init ("000001000000000000000000000000000000"b);
152 dcl       MARGINAL_CONDITION     bit (36) aligned static options (constant)
153                                  init ("000000100000000000000000000000000000"b);
154 dcl       MULTI_TRACK_ERROR      bit (36) aligned static options (constant)
155                                  init ("000000010000000000000000000000000000"b);
156 dcl       SKEW_ERROR             bit (36) aligned static options (constant)
157                                  init ("000000001000000000000000000000000000"b);
158 dcl       POSTAMBLE_ERROR        bit (36) aligned static options (constant)
159                                  init ("000000000100000000000000000000000000"b);
160 dcl       NRZI_CCC_ERROR         bit (36) aligned static options (constant)
161                                  init ("000000000010000000000000000000000000"b);
162 dcl       CODE_ALERT             bit (36) aligned static options (constant)
163                                  init ("000000000001000000000000000000000000"b);
164 
165 /* Minor status for MPC_COMMAND_REJECT */
166 
167 dcl       ILLEGAL_PROCEDURE      bit (36) aligned static options (constant)
168                                  init ("100000000000000000000000000000000000"b);
169 dcl       ILLEGAL_LC_NUMBER      bit (36) aligned static options (constant)
170                                  init ("010000000000000000000000000000000000"b);
171 dcl       ILLEGAL_SUSPENDED_LC_NUMBER
172                                  bit (36) aligned static options (constant)
173                                  init ("001000000000000000000000000000000000"b);
174 dcl       CONTINUE_BIT_NOT_SET   bit (36) aligned static options (constant)
175                                  init ("000100000000000000000000000000000000"b);
176 
177 /* Minor status for POWER_OFF */
178 
179 /* There are no minor statuses defined for POWER_OFF. */
180 
181 /* Minor status for SYSTEM_FAULT */
182 
183 /* Minor status for IOM_CENTRAL */
184 
185 dcl       LPW_TRO                bit (36) aligned static options (constant)
186                                  init ("100000000000000000000000000000000000"b);
187 dcl       CONSECUTIVE_TDCWS      bit (36) aligned static options (constant)
188                                  init ("010000000000000000000000000000000000"b);
189 dcl       BOUNDARY_ERROR         bit (36) aligned static options (constant)
190                                  init ("001000000000000000000000000000000000"b);
191 dcl       EXT_CHANGE_WHILE_RESTRICTED
192                                  bit (36) aligned static options (constant)
193                                  init ("000100000000000000000000000000000000"b);
194 dcl       IDCW_WHILE_RESTRICTED  bit (36) aligned static options (constant)
195                                  init ("000010000000000000000000000000000000"b);
196 dcl       CP_SIZE_DISCREPANCY    bit (36) aligned static options (constant)
197                                  init ("000001000000000000000000000000000000"b);
198 dcl       BUS_PARITY_FROM_CHANNEL
199                                  bit (36) aligned static options (constant)
200                                  init ("000000100000000000000000000000000000"b);
201 
202 /* Minor status for IOM_CHANNEL */
203 
204 dcl       CONNECT_WHILE_BUSY     bit (36) aligned static options (constant)
205                                  init ("100000000000000000000000000000000000"b);
206 dcl       BAD_PCW_CHANNEL_INST   bit (36) aligned static options (constant)
207                                  init ("010000000000000000000000000000000000"b);
208 dcl       INCORRECT_DCW          bit (36) aligned static options (constant)
209                                  init ("001000000000000000000000000000000000"b);
210 dcl       INCOMPLETE_COMMAND_SEQUENCE
211                                  bit (36) aligned static options (constant)
212                                  init ("000100000000000000000000000000000000"b);
213 dcl       PARITY_ERROR_AT_PRPH_INTERFACE
214                                  bit (36) aligned static options (constant)
215                                  init ("000010000000000000000000000000000000"b);
216 dcl       BUS_PARITY_TO_CHANNEL  bit (36) aligned static options (constant)
217                                  init ("000001000000000000000000000000000000"b);
218 
219 /* Minor status for TIME_OUT */
220 
221 /* There are no minor statuses defined for TIME_OUT. */
222 
223 /* End include file ..... tape_ioi_hw_status.incl.pl1 */