1 
  2 
  3      "BEGIN INCLUDE FILE dskdcl.incl.alm
  4 
  5 
  6 " HISTORY COMMENTS:
  7 "  1) change(85-09-11,Fawcett), approve(85-09-11,MCR6979),
  8 "     audit(86-01-17,CLJones), install(86-03-21,MR12.0-1033):
  9 "     Support for FIPS dev 0.
 10 "  2) change(88-05-10,Farley), approve(88-06-03,MCR7906),
 11 "     audit(88-08-03,Fawcett), install(88-08-08,MR12.2-1080):
 12 "     Added reconnect_announce_time to chantab to allow announcement of
 13 "     reconnects at a throttled rate. Otherwise only report them in the
 14 "     syserr log.
 15 "                                                      END HISTORY COMMENTS
 16 
 17 
 18           "Created 05/12/88  1328.1 mst Thu by convert_include_file,
 19           "   Version of 01/09/85  0754.4 mst Wed.
 20 
 21           "Made from >user_dir_dir>Multics>Farley>install_dir>dc>dskdcl.incl.pl1,
 22           "   modified 05/12/88  1321.2 mst Thu
 23 
 24 "
 25 "         Structure disk_data
 26 "
 27 
 28           equ       disk_data.subsystems,0
 29 
 30           equ       disk_data.free_offset,1       " UPPER
 31 
 32           equ       disk_data.status_mask,2
 33           equ       disk_data.lock,3
 34           equ       disk_data.free_q,4            " LEVEL 2
 35 
 36           equ       disk_data.free_q_size,8
 37           equ       disk_data.array,9             " LEVEL 2
 38 
 39           equ       disk_data.offset,9            " UPPER
 40           equ       disk_data.mbz,9               " LOWER
 41 
 42           equ       disk_data.name,10
 43           equ       disk_data.stagnate_time,73
 44           equ       disk_data.bail_outs,74
 45           equ       disk_data.max_depth_reset_time,76 " DOUBLE
 46           equ       disk_data.sys_info,78         " LEVEL 2
 47 
 48           equ       disk_data.free_q_entries,106  " LEVEL 2
 49 
 50 
 51 "
 52 "         Structure sys_info
 53 "
 54           equ       sys_info_size,4
 55 
 56           equ       sys_info.depth,0
 57           equ       sys_info.max_depth,1
 58           equ       sys_info.fraction,2
 59 
 60           equ       sys_info.depth_map,3          " UPPER
 61 
 62           equ       dskdcl_chans_per_subsys,32    " MANIFEST
 63           equ       dskdcl_chans_per_subsys_shift,5 " MANIFEST
 64 
 65 "
 66 "         Structure disktab
 67 "
 68           equ       disktab.lock,0
 69           equ       disktab.nchan,1
 70 
 71           equ       disktab.first_dev,2           " UPPER
 72           equ       disktab.last_dev,2            " LOWER
 73 
 74           equ       disktab.channels_online,3
 75           equ       disktab.dev_busy,4            " DOUBLE
 76           equ       disktab.dev_queued,6          " DOUBLE
 77           equ       disktab.abs_mem_addr,8
 78 
 79           equ       disktab.channels,9            " UPPER
 80           equ       disktab.dev_index,9           " LOWER
 81 
 82           equ       disktab.errors,10
 83           equ       disktab.ferrors,11
 84           equ       disktab.edac_errors,12
 85           equ       disktab.call_lock_meters,14   " LEVEL 2
 86 
 87           equ       disktab.int_lock_meters,18    " LEVEL 2
 88 
 89           equ       disktab.alloc_wait_meters,22  " LEVEL 2
 90 
 91           equ       disktab.run_lock_meters,26    " LEVEL 2
 92 
 93           equ       disktab.devtab,30             " LEVEL 2
 94 
 95 
 96 "
 97 "         Structure disk_channel_table
 98 "
 99 
100 "
101 "         Structure quentry
102 "
103           equ       quentry_size,6
104 
105           equ       quentry.next,0                " UPPER
106           equ       quentry.prev,0                " LOWER
107 
108           equ       quentry.intrpt_word,1
109           bool      quentry.intrpt,400000         " DU
110           equ       quentry.used_word,1
111           bool      quentry.used,200000           " DU
112           equ       quentry.type_word,1
113           equ       quentry.type_shift,30
114           bool      quentry.type_mask,000017
115           equ       quentry.coreadd_word,1
116           equ       quentry.coreadd_shift,0
117 
118           equ       quentry.pvtx_word,2
119           equ       quentry.pvtx_shift,28
120           bool      quentry.pvtx_mask,000377
121           equ       quentry.pdi_word,2
122           equ       quentry.pdi_shift,22
123           bool      quentry.pdi_mask,000077
124           equ       quentry.dev_word,2
125           equ       quentry.dev_shift,16
126           bool      quentry.dev_mask,000077
127           equ       quentry.cylinder_word,2
128           equ       quentry.cylinder_shift,0
129           bool      quentry.cylinder_mask,003777
130 
131           equ       quentry.n_sectors_word,3
132           equ       quentry.n_sectors_shift,30
133           bool      quentry.n_sectors_mask,000077
134           equ       quentry.sector_word,3
135           equ       quentry.sector_shift,0
136 
137           equ       quentry.time,4                " DOUBLE
138 
139 "
140 "         Structure chantab
141 "
142           equ       chantab_size,32
143 
144           equ       chantab.chx,0
145           equ       chantab.ioi_ctx,1
146           equ       chantab.statusp,2
147           equ       chantab.chanid,4              " DOUBLE
148 
149           equ       chantab.in_use_word,6
150           bool      chantab.in_use,400000         " DL
151           equ       chantab.active_word,6
152           bool      chantab.active,200000         " DL
153           equ       chantab.rsr_word,6
154           bool      chantab.rsr,100000            " DL
155           equ       chantab.ioi_use_word,6
156           bool      chantab.ioi_use,040000        " DL
157           equ       chantab.inop_word,6
158           bool      chantab.inop,020000           " DL
159           equ       chantab.broken_word,6
160           bool      chantab.broken,010000         " DL
161           equ       chantab.action_code_word,6
162           equ       chantab.action_code_shift,10
163           bool      chantab.action_code_mask,000003
164 
165           equ       chantab.qrp,7                 " UPPER
166           equ       chantab.command_word,7
167           equ       chantab.command_shift,9
168           bool      chantab.command_mask,000077
169           equ       chantab.erct_word,7
170           equ       chantab.erct_shift,0
171           bool      chantab.erct_mask,000777
172 
173           equ       chantab.select_data,8         " LEVEL 2
174 
175           equ       chantab.limit_shift,24
176           bool      chantab.limit_mask,007777
177           equ       chantab.mbz_shift,21
178           bool      chantab.mbz_mask,000007
179           equ       chantab.sector_shift,0
180 
181           equ       chantab.reconnect_announce_time,10 " DOUBLE
182           equ       chantab.connect_time,12       " DOUBLE
183           equ       chantab.connects,14
184 
185           equ       chantab.detailed_status_word,15
186           equ       chantab.detailed_status_shift,28
187           bool      chantab.detailed_status_mask,000377
188 
189           equ       chantab.rstdcw,19
190           equ       chantab.scdcw,20
191           equ       chantab.sddcw,21
192           equ       chantab.dcdcw,22
193           equ       chantab.dddcw,23
194           equ       chantab.dscdcw,24
195           equ       chantab.dsddcw,25
196           equ       chantab.rssdcw,26
197           equ       chantab.status,27
198           equ       chantab.no_io_terminate,28
199           equ       chantab.terminate_not_active,29
200           equ       chantab.no_status_terminate,30
201           equ       chantab.status_from_run,31
202 
203 "
204 "         Structure qht
205 "
206           equ       qht_size,4
207 
208           equ       qht.sum,0
209           equ       qht.count,1
210 
211           equ       qht.max_depth,2               " UPPER
212           equ       qht.depth,2                   " LOWER
213 
214           equ       qht.head,3                    " UPPER
215           equ       qht.tail,3                    " LOWER
216 
217 "
218 "         Structure devtab
219 "
220           equ       devtab_size,80
221 
222           equ       devtab.pvtx_word,0
223           equ       devtab.pvtx_shift,27
224           bool      devtab.pvtx_mask,000777
225           equ       devtab.inop_word,0
226           bool      devtab.inop,000400            " DU
227           equ       devtab.was_broken_word,0
228           bool      devtab.was_broken,000200      " DU
229           equ       devtab.broken_word,0
230           bool      devtab.broken,000100          " DU
231           equ       devtab.abandoned_word,0
232           bool      devtab.abandoned,000040       " DU
233           equ       devtab.forward_word,0
234           bool      devtab.forward,000020         " DU
235           equ       devtab.buddy_word,0
236           equ       devtab.buddy_shift,6
237           bool      devtab.buddy_mask,000077
238           equ       devtab.pdi_word,0
239           equ       devtab.pdi_shift,0
240           bool      devtab.pdi_mask,000077
241 
242           equ       devtab.cylinder,1
243           equ       devtab.comb,2
244           equ       devtab.time_inop,4            " DOUBLE
245           equ       devtab.wq,6                   " LEVEL 2
246 
247           equ       devtab.opt_info,10            " LEVEL 2
248 
249 
250 "
251 "         Structure opt_info
252 "
253           equ       opt_info_size,10
254 
255           equ       opt_info.multiplier,0
256           equ       opt_info.slope,1
257           equ       opt_info.intercept,2
258 
259           equ       opt_info.sys_info,3           " UPPER
260           equ       opt_info.depth,3              " LOWER
261 
262           equ       opt_info.channel_wait,4       " DOUBLE
263           equ       opt_info.queue_wait,6         " DOUBLE
264 
265           equ       opt_info.seek_sum_word,8
266           equ       opt_info.seek_sum_shift,0
267 
268           equ       opt_info.seek_count_word,9
269           equ       opt_info.seek_count_shift,0
270 
271 "
272 "         Structure pvtdi
273 "
274           equ       pvtdi.sx_shift,24
275           bool      pvtdi.sx_mask,007777
276           equ       pvtdi.usable_sect_per_cyl_shift,12
277           bool      pvtdi.usable_sect_per_cyl_mask,007777
278           equ       pvtdi.unused_sect_per_cyl_shift,0
279           bool      pvtdi.unused_sect_per_cyl_mask,007777
280 
281 "
282 "         Structure disk_lock_meters
283 "
284           equ       disk_lock_meters_size,4
285 
286 
287           equ       disk_lock_meters.count,0
288           equ       disk_lock_meters.waits,1
289           equ       disk_lock_meters.wait_time,2  " DOUBLE
290 
291           equ       RST_LISTX,1                   " MANIFEST
292           equ       SC_LISTX,2                    " MANIFEST
293           equ       DSC_LISTX,6                   " MANIFEST
294           equ       RSS_LISTX,8                   " MANIFEST
295           equ       PAGE_READ,0                   " MANIFEST
296           equ       PAGE_WRITE,1                  " MANIFEST
297           equ       VTOC_READ,2                   " MANIFEST
298           equ       VTOC_WRITE,3                  " MANIFEST
299           equ       TEST,4                        " MANIFEST
300           equ       BOOTLOAD_READ,5               " MANIFEST
301           equ       BOOTLOAD_WRITE,6              " MANIFEST
302           equ       MAX_IO_TYPE,6                 " MANIFEST
303           bool      write_mapping,244000          " DU  MANIFEST
304           bool      sector_mapping,174000         " DU  MANIFEST
305           bool      bootload_mapping,014000       " DU  MANIFEST
306 
307      "END INCLUDE FILE dskdcl.incl.alm