1 /* BEGIN INCLUDE FILE gtss_FMS_catalog.incl.pl1  */
  2 /*
  3   Created: (Wardd Multics)  09/14/78 1813.7 mst Thu
  4   Change: Paul Benjamin       10/12/79  Further break down FS0_PBK_05
  5 */
  6 
  7 /**       The structure FMS_catalog1 is from
  8           FMS PROGRAM LOGIC MANUAL
  9           DC26, Rev. 0, January 1974
 10           Page 4-9
 11 **/
 12 dcl  FMS_cat_ptr              ptr init(null());
 13 dcl  1 FMS_catalog            aligned based(FMS_cat_ptr)
 14 ,     3 FSnTYP_0
 15 ,       4 bits00_05           bit(06)unal
 16 ,       4 bits06_10           bit(05)unal
 17 ,       4 bits11_17           bit(07)unal
 18 ,       4 bits18_35           bit(18)unal
 19 ,     3 FSnNLL_1
 20 ,       4 bits00_17           bit(18)unal
 21 ,       4 bits18_35           bit(18)unal
 22 ,     3 FSnPLL_2
 23 ,       4 bits00_17           bit(18)unal
 24 ,       4 bits18_35           bit(18)unal
 25 ,     3 FSnPTP_3
 26 ,       4 bits00_17           bit(18)unal
 27 ,       4 bits18_35           bit(18)unal
 28 ,     3 FSnCBK_4
 29 ,       4 bits00_17           bit(18)unal
 30 ,       4 bits18_35           bit(18)unal
 31 ;
 32 
 33 /**       Page 4-10.          **/
 34 dcl  1 Type_0_Catalog         aligned based(FMS_cat_ptr)
 35 ,     3 FS0_TYP_00            bit(36)
 36 ,     3 FS0_NLL_01
 37 ,       4 bits00_17           bit(18)unal
 38 ,       4 bits18_35           bit(18)unal
 39 ,     3 FS0_PLL_02            bit(36)
 40 ,     3 FS0_PTP_03
 41 ,       4 bits00_17           fixed bin(17)unal
 42 ,       4 bits18_35           bit(18)unal
 43 ,     3 FS0_CBK_04
 44 ,       4 bits00_17           fixed bin(17)unal
 45 ,       4 bits18_35           bit(18)unal
 46 ,     3 FS0_PBK_05
 47 ,       4 bits00_17           bit(18)unal
 48 ,       4 bits18_35           bit(18)unal
 49 ,     3 FS0_CNM_06_07         bit(72)
 50 ,     3 FS0_ORG_10_11         bit(72)
 51 ,     3 FS0_PWD_12_13         bit(72)
 52 ,     3 FS0_CDT_14            bit(36)
 53 ,     3 FS0_MOD_15            bit(36)
 54 ,     3 FS0_IND_16            bit(36)
 55 ,     3 FS0_PER_17
 56 ,       4 bits00_11           bit(12)unal
 57 ,       4 bits12_14           bit(03)unal
 58 ,       4 bit15               bit(01)unal
 59 ,       4 bit16               bit(01)unal
 60 ,       4 bit17               bit(01)unal
 61 ,       4 bits18_35           bit(18)unal
 62 ,     3 FS0_OP1_20            bit(36)
 63 ,     3 FS0_OP2_21            bit(36)
 64 ,     3 FS0_VAR_22_76         (15)
 65 ,       4 FS0_SNM_00_01       bit(72)
 66 ,       4 FS0_SPT_02
 67 ,         5 bit00             bit(01)unal
 68 ,         5 bit01             bit(01)unal
 69 ,         5 bits02_17         bit(16)unal
 70 ,         5 bits18_35         bit(18)unal
 71 ,     3 checksum_77           bit(36)
 72 ;
 73 
 74 /* Condensed form of type 0 record. */
 75 dcl 1 t0c                     aligned based(FMS_cat_ptr)
 76 ,     2 fill                  (0:17)bit(36)
 77 ,     2 name                  (15)
 78 ,       3 bcd                 bit(72)
 79 ,       3 more                bit(36)
 80 ;
 81 
 82 /**       Page 4-10.          **/
 83 dcl  Type_1_ptr               ptr init(null());
 84 dcl  1 Type_1_Catalog         aligned based(Type_1_ptr)
 85 ,     3 FS1_TYP_00            bit(36)
 86 ,     3 FS1_NLL_01
 87 ,       4 bits00_17           bit(18)unal
 88 ,       4 bits18_35           bit(18)unal
 89 ,     3 FS1_PLL_02            bit(36)
 90 ,     3 FS1_PTP_03
 91 ,       4 bits00_17           fixed bin(17)unal
 92 ,       4 bits18_35           bit(18)unal
 93 ,     3 FS1_CBK_04
 94 ,       4 bits00_17           bit(18)unal
 95 ,       4 bits18_35           bit(18)unal
 96 ,     3 FS1_OPN_05            bit(36)
 97 ,     3 FS1_VAR_06_76         (19)
 98 ,       4 FS1_SNM_00_01       bit(72)
 99 ,       4 FS1_SPT_02
100 ,         5 bit00             bit(01)unal
101 ,         5 bit01             bit(01)unal
102 ,         5 bits02_17         bit(16)unal
103 ,         5 bits18_35         bit(18)unal
104 ,     3 checksum_77           bit(36)
105 ;
106 
107 /* Condensed form of type 1 record. */
108 dcl 1 t1c                     aligned based(FMS_cat_ptr)
109 ,     2 fill                  (0:5)bit(36)
110 ,     2 name                  (19) like t0c.name
111 ;
112 
113 /**       Page 4-11.          **/
114 dcl  1 Type_2_Catalog         aligned based(FMS_cat_ptr)
115 ,     3 FS2_TYP_00            bit(36)
116 ,     3 FS2_NLL_01            bit(36)
117 ,     3 FS2_PLL_02            bit(36)
118 ,     3 FS2_PTP_03            bit(36)
119 ,     3 FS2_CBK_04            bit(36)
120 ,     3 FS2_PBK_05
121 ,       4 bits00_17           bit(18)unal
122 ,       4 bits18_35           bit(18)unal
123 ,     3 FS2_FNM_06_07         bit(72)
124 ,     3 FS2_ORG_10_11         bit(72)
125 ,     3 FS2_PWD_12_13         bit(72)
126 ,     3 FS2_CDT_14            bit(36)
127 ,     3 FS2_MOD_15            bit(36)
128 ,     3 FS2_IND_16            bit(36)
129 ,     3 FS2_PER_17
130 ,       4 bits00_11           bit(12)unal
131 ,       4 bits12_15           bit(04)unal
132 ,       4 bit16               bit(01)unal
133 ,       4 bit17               bit(01)unal
134 ,       4 bits18_35           bit(18)unal
135 ,     3 FS2_MTR_20_21         bit(72)
136 ,     3 FS2_FU1_22
137 ,       4 bit00               bit(01)unal
138 ,       4 bit01               bit(01)unal
139 ,       4 bit02               bit(01)unal
140 ,       4 bit03               bit(01)unal
141 ,       4 bit04               bit(01)unal
142 ,       4 bit05               bit(01)unal
143 ,       4 bit06               bit(01)unal
144 ,       4 bit07               bit(01)unal
145 ,       4 bit08               bit(01)unal
146 ,       4 bit09               bit(01)unal
147 ,       4 bits10_11           bit(02)unal
148 ,       4 bits12_17           bit(06)unal
149 ,       4 bits18_35           bit(18)unal
150 ,     3 FS2_FUS_23
151 ,       4 bits00_17           bit(18)unal
152 ,       4 bit18               bit(01)unal
153 ,       4 bit19               bit(01)unal
154 ,       4 bit20               bit(01)unal
155 ,       4 bit21               bit(01)unal
156 ,       4 bit22               bit(01)unal
157 ,       4 bit23               bit(01)unal
158 ,       4 bit24               bit(01)unal
159 ,       4 bit25               bit(01)unal
160 ,       4 bit26               bit(01)unal
161 ,       4 bit27               bit(01)unal
162 ,       4 bit28               bit(01)unal
163 ,       4 bit29               bit(01)unal
164 ,       4 bits30_35           bit(06)unal
165 ,     3 FS2_USI_24
166 ,       4 bit00               bit(01)unal
167 ,       4 bits01_35           bit(35)unal
168 ,     3 FS2_FU2_25
169 ,       4 bit00               bit(01)unal
170 ,       4 bit01               bit(01)unal
171 ,       4 bit02               bit(01)unal
172 ,       4 bit03               bit(01)unal
173 ,       4 bit04               bit(01)unal
174 ,       4 bit05               bit(01)unal
175 ,       4 bit06               bit(01)unal
176 ,       4 bit07               bit(01)unal
177 ,       4 bit08               bit(01)unal
178 ,       4 bit09               bit(01)unal
179 ,       4 bit10               bit(01)unal
180 ,       4 bit11               bit(01)unal
181 ,       4 bit12               bit(01)unal
182 ,       4 bit13               bit(01)unal
183 ,       4 bit14               bit(01)unal
184 ,       4 bit15               bit(01)unal
185 ,       4 bit16               bit(01)unal
186 ,       4 bit17               bit(01)unal
187 ,       4 bits18_35           bit(18)unal
188 ,     3 FS2_LCD_26            bit(36)
189 ,     3 FS2_LAD_27            bit(36)
190 ,     3 FS2_LST_30
191 ,       4 bits00_05           bit(06)unal
192 ,       4 bits06_35           bit(30)unal
193 ,     3 FS2_ATB_31            bit(36)
194 ,     3 FS2_PDF_32            bit(36)
195 ,     3 FS2_STC_33            bit(36)
196 ,     3 FS2_BSY_34            bit(36)
197 ,     3 FS2_TBC_35            bit(36)
198 ,     3 FS2_OP2_7_36_43       (2:7)bit(36)
199 ,     3 FS2_VAR_44_75
200 ,       4 Device_descriptor
201 ,         5 bits00_03         bit(04)unal         /* 0101 */
202 ,         5 bits04_05         bit(02)unal
203 ,         5 bits06_35         bit(30)unal
204 ,       4 Space_descriptor
205 ,         5 bit00             bit(01)unal
206 ,         5 bit01             bit(01)unal         /* =0 => space desc. */
207 ,         5 bit02             bit(01)unal
208 ,         5 bits03_17         bit(15)unal
209 ,         5 bits18_35         bit(18)unal
210 ,       4 zero                (24)bit(36)
211 ,     3 zero_76               bit(36)
212 ,     3 checksum_77           bit(36)
213 ;
214 
215 /**       Page 4-13.          **/
216 dcl  Type_4_ptr               ptr init(null());
217 dcl  1 Type_4_Catalog         aligned based(Type_4_ptr)
218 ,     3 FS4_TYP_00            bit(36)
219 ,     3 FS4_NLL_01            bit(36)
220 ,     3 FS4_PLL_02            bit(36)
221 ,     3 FS4_PTP_03            bit(36)
222 ,     3 FS4_CBK_04            bit(36)
223 ,     3 FS4_OP1_2_05_06       bit(72)
224 ,     3 FS4_VAR_07_75         bit(1980) /* 1980 = 55 * 36bits @ */
225 ,     3 zero                  bit(36)
226 ,     3 checksum_77           bit(36)
227 ;
228 
229 /**       Page 2-69           **/
230 dcl  buffer_ptr               ptr init(null());
231 dcl 1 callers_buffer          aligned based(buffer_ptr)
232 ,     3 first25               (25)bit(36)         /* Work area for  ???. */
233 /**       Next 35 words. FMS work area. **/
234 ,     3 W00_FSCODE            bit(036)
235 ,     3 W01_02_FSCALL         bit(072)
236 ,     3 W03                   bit(036)
237 ,     3 W04_06                bit(108)
238 ,     3 W07                   bit(036)
239 ,     3 W10                   bit(036)
240 ,     3 W11_12                bit(072)
241 ,     3 W13_FSSSLV            bit(036)
242 ,     3 W14_15                bit(072)
243 ,     3 W16_FSFBSY            bit(036)
244 ,     3 W17_FSRETP            bit(036)
245 ,     3 W20
246 ,       4 FSMME               unal
247 ,         5 bits00_17         bit(18)unal
248 ,       4 FSARG               unal
249 ,         5 bits18_35         bit(18)unal
250 ,     3 W21_FSCPOS
251 ,       4 bits00_17           bit(18)unal
252 ,       4 bits18_35           bit(18)unal
253 ,     3 W22_FSCCFP
254 ,       4 bits00_17           bit(18)unal
255 ,       4 bits18_35           bit(18)unal
256 ,     3 W23_FSPCFP
257 ,       4 bits00_17           bit(18)unal
258 ,       4 bits18_35           bit(18)unal
259 ,     3 W24
260 ,       4 FSREGU              unal
261 ,         5 bits00_17         bit(18)unal
262 ,       4 FSREGL              unal
263 ,         5 bits18_35         bit(18)unal
264 ,     3 W25_FSCDEV
265 ,       4 bits00_15           bit(16)unal
266 ,       4 bit16               bit(01)unal
267 ,       4 bit17               bit(01)unal
268 ,       4 bits18_35           bit(18)unal
269 ,     3 W26_FSDDEV
270 ,       4 bits00_15           bit(16)unal
271 ,       4 bit16               bit(01)unal
272 ,       4 bit17               bit(01)unal
273 ,       4 bits18_35           bit(18)unal
274 ,     3 W27_FSENDT            bit(036)
275 ,     3 W30_FSCPAT            bit(036)
276 ,     3 W31_FSPERM            bit(036)
277 ,     3 W32_FSDDCW            bit(036)
278 ,     3 W33_FSDCWP            bit(036)
279 ,     3 W34_FSDUPD            bit(036)
280 ,     3 W35_FSAVBL            bit(036)
281 ,     3 W36_FSTEMP            bit(036)
282 ,     3 W37_FSCKSM            bit(036)
283 ,     3 W40_FSIOS1            bit(036)
284 ,     3 W41_FSSRW1            bit(036)
285 ,     3 W42_FSSRW2            bit(036)
286 ,     3 W43_FSBFER            bit(036)  /* Starting location of buffer for catalog record(s). */
287 ,     3 remainder_of_buffer   (319)bit(36)
288 ;
289 
290 /*   END INCLUDE FILE gtss_FMS_catalog.incl.pl1 */