1 
  2 
  3      "BEGIN INCLUDE FILE iom_data.incl.alm
  4 
  5 
  6           "Created 03/22/85  1256.2 est Fri by convert_include_file,
  7           "   Version of 01/09/85  0954.4 est Wed.
  8 
  9           "Made from >pool>m>CLJones>d>rcf>iom_data.incl.pl1,
 10           "   modified 03/22/85  1256.1 est Fri
 11 
 12 "
 13 "         Structure iom_data
 14 "
 15 
 16           equ       iom_data.n_devices,0
 17           equ       iom_data.stop_lpw,1
 18           equ       iom_data.stop_dcw,2
 19           equ       iom_data.stop_scw,3
 20           equ       iom_data.imw_lock,4
 21           equ       iom_data.n_intr_procs,5
 22           equ       iom_data.stop_status,8        " DOUBLE
 23           equ       iom_data.rfh1,10
 24           equ       iom_data.stop_ext_status,16   " DOUBLE
 25           equ       iom_data.invalid_interrupts,29
 26           equ       iom_data.null_interrupts,30
 27           equ       iom_data.multiple_interrupts,31
 28           equ       iom_data.per_iom,32           " LEVEL 2
 29 
 30           equ       iom_data.per_device,160       " LEVEL 2
 31 
 32 
 33 "
 34 "         Structure per_iom
 35 "
 36           equ       per_iom_size,32
 37 
 38           equ       per_iom.lock,0
 39           equ       per_iom.flags,1               " LEVEL 2
 40 
 41           bool      per_iom.configured,400000     " DU
 42           bool      per_iom.on_line,200000        " DU
 43 
 44           equ       per_iom.model,2
 45           equ       per_iom.port,3
 46           equ       per_iom.connect_time,4        " DOUBLE
 47           equ       per_iom.connect_lpw,6
 48           equ       per_iom.cow,7
 49           equ       per_iom.special_chx,8
 50           equ       per_iom.fault_chx,9
 51           equ       per_iom.abandoned_connects,14
 52           equ       per_iom.reconnects,15
 53 
 54           equ       per_iom.chantab_word,16
 55           equ       per_iom.chantab_shift,27
 56           bool      per_iom.chantab_mask,000777
 57 
 58 "
 59 "         Structure per_device
 60 "
 61           equ       per_device_size,40
 62 
 63 
 64           equ       per_device.status,0           " DOUBLE
 65           equ       per_device.rfh1,2
 66           equ       per_device.ext_status,8       " DOUBLE
 67           equ       per_device.iom,16
 68           equ       per_device.channel,17
 69           equ       per_device.handler,18
 70           equ       per_device.flags,22           " LEVEL 2
 71 
 72           bool      per_device.in_use,400000      " DU
 73           bool      per_device.queue_status,200000 " DU
 74           bool      per_device.on_line,100000     " DU
 75 
 76           equ       per_device.index,23
 77           equ       per_device.pcw,24             " DOUBLE
 78           equ       per_device.lpw,26             " DOUBLE
 79           equ       per_device.scw,28
 80           equ       per_device.status_queue_ptr,30
 81           equ       per_device.connect_time,32    " DOUBLE
 82           equ       per_device.connects,34        " DOUBLE
 83           equ       per_device.interrupts,36      " DOUBLE
 84           equ       per_device.interrupt_time,38  " DOUBLE
 85 
 86 "
 87 "         Structure iom_mailbox_seg
 88 "
 89           equ       iom_mailbox_seg_size,1152
 90 
 91           equ       iom_mailbox_seg.imw_array_word,0
 92           equ       iom_mailbox_seg.imw_array_shift,4
 93 
 94           equ       iom_mailbox_seg.system_fault,32 " LEVEL 2
 95 
 96           equ       iom_mailbox_seg.special_status,80 " LEVEL 2
 97 
 98           equ       iom_mailbox_seg.iom_mailbox,128 " LEVEL 2
 99 
100 
101 "
102 "         Structure status_queue
103 "
104           equ       status_queue_size,12
105 
106           equ       status_queue.status,0
107 
108 "
109 "         Structure iom_mailbox
110 "
111           equ       iom_mailbox_size,256
112 
113           equ       iom_mailbox.channel_mailbox,0 " LEVEL 2
114 
115 
116 "
117 "         Structure channel_mailbox
118 "
119           equ       channel_mailbox_size,4
120 
121           equ       channel_mailbox.lpw,0         " DOUBLE
122           equ       channel_mailbox.scw,2
123           equ       channel_mailbox.dcw,3
124 
125           equ       system_fault_channel,1        " MANIFEST
126           equ       connect_channel,2             " MANIFEST
127           equ       special_status_channel,6      " MANIFEST
128 
129      "END INCLUDE FILE iom_data.incl.alm