Commit | Line | Data |
---|---|---|
196ba1fc PH |
1 | /* s3_disk.c: IBM 5444 Disk Drives\r |
2 | \r | |
3 | Copyright (c) 2001-2005, Charles E. Owen\r | |
4 | \r | |
5 | Permission is hereby granted, free of charge, to any person obtaining a\r | |
6 | copy of this software and associated documentation files (the "Software"),\r | |
7 | to deal in the Software without restriction, including without limitation\r | |
8 | the rights to use, copy, modify, merge, publish, distribute, sublicense,\r | |
9 | and/or sell copies of the Software, and to permit persons to whom the\r | |
10 | Software is furnished to do so, subject to the following conditions:\r | |
11 | \r | |
12 | The above copyright notice and this permission notice shall be included in\r | |
13 | all copies or substantial portions of the Software.\r | |
14 | \r | |
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r | |
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r | |
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL\r | |
18 | ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r | |
19 | IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r | |
20 | CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r | |
21 | \r | |
22 | Except as contained in this notice, the name of Charles E. Owen shall not be\r | |
23 | used in advertising or otherwise to promote the sale, use or other dealings\r | |
24 | in this Software without prior written authorization from Charles E. Owen.\r | |
25 | \r | |
26 | r1 Removeable disk 1\r | |
27 | f1 Fixed disk 1\r | |
28 | r2 Removeable disk 2\r | |
29 | f2 Fixed disk 2\r | |
30 | \r | |
31 | 25-Apr-03 RMS Revised for extended file support\r | |
32 | 08-Oct-02 RMS Added impossible function catcher\r | |
33 | */\r | |
34 | \r | |
35 | #include "s3_defs.h"\r | |
36 | #include <ctype.h>\r | |
37 | \r | |
38 | extern uint8 M[];\r | |
39 | extern int32 IAR[], level;\r | |
40 | extern FILE *trace;\r | |
41 | extern int32 debug_reg;\r | |
42 | char dbuf[DSK_SECTSIZE]; /* Disk buffer */\r | |
43 | int32 dsk (int32 disk, int32 op, int32 m, int32 n, int32 data);\r | |
44 | int32 read_sector(UNIT *uptr, char *dbuf, int32 sect);\r | |
45 | int32 write_sector(UNIT *uptr, char *dbuf, int32 sect);\r | |
46 | t_stat r1_svc (UNIT *uptr);\r | |
47 | t_stat r1_boot (int32 unitno, DEVICE *dptr);\r | |
48 | t_stat r1_attach (UNIT *uptr, char *cptr);\r | |
49 | t_stat r1_reset (DEVICE *dptr);\r | |
50 | t_stat f1_svc (UNIT *uptr);\r | |
51 | t_stat f1_boot (int32 unitno, DEVICE *dptr);\r | |
52 | t_stat f1_attach (UNIT *uptr, char *cptr);\r | |
53 | t_stat f1_reset (DEVICE *dptr);\r | |
54 | t_stat r2_svc (UNIT *uptr);\r | |
55 | t_stat r2_boot (int32 unitno, DEVICE *dptr);\r | |
56 | t_stat r2_attach (UNIT *uptr, char *cptr);\r | |
57 | t_stat r2_reset (DEVICE *dptr);\r | |
58 | t_stat f2_svc (UNIT *uptr);\r | |
59 | t_stat f2_boot (int32 unitno, DEVICE *dptr);\r | |
60 | t_stat f2_attach (UNIT *uptr, char *cptr);\r | |
61 | t_stat f2_reset (DEVICE *dptr);\r | |
62 | extern int32 GetMem(int32 addr);\r | |
63 | extern int32 PutMem(int32 addr, int32 data);\r | |
64 | \r | |
65 | char opstr[5][5] = { "SIO", "LIO", "TIO", "SNS", "APL" };\r | |
66 | \r | |
67 | int32 DDAR[2]; /* Data address register */\r | |
68 | int32 DCAR[2]; /* Disk Control Address Register */\r | |
69 | int32 diskerr[2] = { 0, 0 }; /* Error status */\r | |
70 | int32 notrdy[2] = { 0, 0 }; /* Not ready error */\r | |
71 | int32 seekbusy[2] = { 0, 0 }; /* Drive busy flags */\r | |
72 | int32 seekhead[2] = { 0, 0 }; /* Disk head 0,1 */\r | |
73 | int32 found[2] = { 0, 0 }; /* Scan found bit */\r | |
74 | int32 RIDsect[2] = { 0, 0 }; /* for Read ID */\r | |
75 | \r | |
76 | /* Disk data structures\r | |
77 | \r | |
78 | xy_dev CDR descriptor\r | |
79 | xy_unit CDR unit descriptor\r | |
80 | xy_reg CDR register list\r | |
81 | \r | |
82 | x = F or R\r | |
83 | y = 1 or 2\r | |
84 | */\r | |
85 | \r | |
86 | UNIT r1_unit = { UDATA (&r1_svc, UNIT_FIX+UNIT_ATTABLE, 0), 100 };\r | |
87 | \r | |
88 | REG r1_reg[] = {\r | |
89 | { FLDATA (NOTRDY, notrdy[0], 0) },\r | |
90 | { FLDATA (SEEK, seekbusy[0], 0) },\r | |
91 | { HRDATA (DAR, DDAR[0], 16) },\r | |
92 | { HRDATA (CAR, DCAR[0], 16) },\r | |
93 | { HRDATA (ERR, diskerr[0], 16) },\r | |
94 | { DRDATA (CYL, r1_unit.u3, 8) },\r | |
95 | { DRDATA (HEAD, seekhead[0], 8) },\r | |
96 | { DRDATA (POS, r1_unit.pos, T_ADDR_W), PV_LEFT },\r | |
97 | { DRDATA (TIME, r1_unit.wait, 24), PV_LEFT },\r | |
98 | { BRDATA (BUF, dbuf, 8, 8, 256) },\r | |
99 | { NULL }\r | |
100 | };\r | |
101 | \r | |
102 | DEVICE r1_dev = {\r | |
103 | "R1", &r1_unit, r1_reg, NULL,\r | |
104 | 1, 10, 31, 1, 8, 7,\r | |
105 | NULL, NULL, &r1_reset,\r | |
106 | &r1_boot, &r1_attach, NULL\r | |
107 | };\r | |
108 | \r | |
109 | UNIT f1_unit = { UDATA (&f1_svc, UNIT_FIX+UNIT_ATTABLE, 0), 100 };\r | |
110 | \r | |
111 | REG f1_reg[] = {\r | |
112 | { FLDATA (NOTRDY, notrdy[0], 0) },\r | |
113 | { FLDATA (SEEK, seekbusy[0], 0) },\r | |
114 | { HRDATA (DAR, DDAR[0], 16) },\r | |
115 | { HRDATA (CAR, DCAR[0], 16) },\r | |
116 | { HRDATA (ERR, diskerr[0], 16) },\r | |
117 | { DRDATA (CYL, f1_unit.u3, 8) },\r | |
118 | { DRDATA (HEAD, seekhead[0], 8) },\r | |
119 | { DRDATA (POS, f1_unit.pos, 32), PV_LEFT },\r | |
120 | { DRDATA (TIME, f1_unit.wait, 24), PV_LEFT },\r | |
121 | { BRDATA (BUF, dbuf, 8, 8, 256) },\r | |
122 | { NULL }\r | |
123 | };\r | |
124 | \r | |
125 | DEVICE f1_dev = {\r | |
126 | "F1", &f1_unit, f1_reg, NULL,\r | |
127 | 1, 10, 31, 1, 8, 7,\r | |
128 | NULL, NULL, &f1_reset,\r | |
129 | &f1_boot, &f1_attach, NULL\r | |
130 | };\r | |
131 | \r | |
132 | UNIT r2_unit = { UDATA (&r2_svc, UNIT_FIX+UNIT_ATTABLE, 0), 100 };\r | |
133 | \r | |
134 | REG r2_reg[] = {\r | |
135 | { FLDATA (NOTRDY, notrdy[1], 0) },\r | |
136 | { FLDATA (SEEK, seekbusy[1], 0) },\r | |
137 | { HRDATA (DAR, DDAR[1], 16) },\r | |
138 | { HRDATA (CAR, DCAR[1], 16) },\r | |
139 | { HRDATA (ERR, diskerr[1], 16) },\r | |
140 | { DRDATA (CYL, r2_unit.u3, 8) },\r | |
141 | { DRDATA (HEAD, seekhead[1], 8) },\r | |
142 | { DRDATA (POS, r2_unit.pos, 32), PV_LEFT },\r | |
143 | { DRDATA (TIME, r2_unit.wait, 24), PV_LEFT },\r | |
144 | { BRDATA (BUF, dbuf, 8, 8, 256) },\r | |
145 | { NULL }\r | |
146 | };\r | |
147 | \r | |
148 | DEVICE r2_dev = {\r | |
149 | "R2", &r2_unit, r2_reg, NULL,\r | |
150 | 1, 10, 31, 1, 8, 7,\r | |
151 | NULL, NULL, &r2_reset,\r | |
152 | &r2_boot, &r2_attach, NULL\r | |
153 | };\r | |
154 | \r | |
155 | UNIT f2_unit = { UDATA (&f2_svc, UNIT_FIX+UNIT_ATTABLE, 0), 100 };\r | |
156 | \r | |
157 | REG f2_reg[] = {\r | |
158 | { FLDATA (NOTRDY, notrdy[1], 0) },\r | |
159 | { FLDATA (SEEK, seekbusy[1], 0) },\r | |
160 | { HRDATA (DAR, DDAR[1], 16) },\r | |
161 | { HRDATA (CAR, DCAR[1], 16) },\r | |
162 | { HRDATA (ERR, diskerr[1], 16) },\r | |
163 | { DRDATA (CYL, f2_unit.u3, 8) },\r | |
164 | { DRDATA (HEAD, seekhead[1], 8) },\r | |
165 | { DRDATA (POS, f2_unit.pos, 32), PV_LEFT },\r | |
166 | { DRDATA (TIME, f2_unit.wait, 24), PV_LEFT },\r | |
167 | { BRDATA (BUF, dbuf, 8, 8, 256) },\r | |
168 | { NULL }\r | |
169 | };\r | |
170 | \r | |
171 | DEVICE f2_dev = {\r | |
172 | "F2", &f2_unit, f2_reg, NULL,\r | |
173 | 1, 10, 31, 1, 8, 7,\r | |
174 | NULL, NULL, &f2_reset,\r | |
175 | &f2_boot, &f2_attach, NULL\r | |
176 | };\r | |
177 | \r | |
178 | /* -------------------------------------------------------------------- */\r | |
179 | \r | |
180 | /* 5444: master routines */\r | |
181 | \r | |
182 | int32 dsk1 (int32 op, int32 m, int32 n, int32 data)\r | |
183 | {\r | |
184 | int32 r;\r | |
185 | \r | |
186 | r = dsk(0, op, m, n, data);\r | |
187 | return (r);\r | |
188 | }\r | |
189 | \r | |
190 | int32 dsk2 (int32 op, int32 m, int32 n, int32 data)\r | |
191 | {\r | |
192 | int32 r;\r | |
193 | \r | |
194 | r = dsk(1, op, m, n, data);\r | |
195 | return (r);\r | |
196 | }\r | |
197 | \r | |
198 | /* 5444: operational routine */\r | |
199 | \r | |
200 | int32 dsk (int32 disk, int32 op, int32 m, int32 n, int32 data)\r | |
201 | {\r | |
202 | int32 iodata, i, j, u, sect, nsects, addr, r, c, res;\r | |
203 | int32 F, C, S, N, usave;\r | |
204 | UNIT *uptr;\r | |
205 | \r | |
206 | u = m;\r | |
207 | if (disk == 1) u += 2;\r | |
208 | F = GetMem(DCAR[disk]+0); /* Flag bits */\r | |
209 | C = GetMem(DCAR[disk]+1); /* Cylinder */\r | |
210 | S = GetMem(DCAR[disk]+2); /* Sector */\r | |
211 | N = GetMem(DCAR[disk]+3); /* Number of sectors */\r | |
212 | switch (u) {\r | |
213 | case 0:\r | |
214 | uptr = r1_dev.units;\r | |
215 | break;\r | |
216 | case 1:\r | |
217 | uptr = f1_dev.units;\r | |
218 | break;\r | |
219 | case 2:\r | |
220 | uptr = r2_dev.units;\r | |
221 | break;\r | |
222 | case 3:\r | |
223 | uptr = f2_dev.units;\r | |
224 | break;\r | |
225 | default:\r | |
226 | break;\r | |
227 | }\r | |
228 | if (debug_reg & 0x02)\r | |
229 | fprintf(trace, "==> %04X %s %01X,%d,%04X DAR=%04X CAR=%04X C=%02X, S=%02X, N=%02X\n",\r | |
230 | IAR[level],\r | |
231 | opstr[op],\r | |
232 | m, n, data,\r | |
233 | DDAR[disk],\r | |
234 | DCAR[disk],\r | |
235 | C, S, N);\r | |
236 | \r | |
237 | switch (op) {\r | |
238 | \r | |
239 | /* SIO 5444 */\r | |
240 | case 0:\r | |
241 | if ((uptr->flags & UNIT_ATT) == 0)\r | |
242 | return SCPE_UNATT;\r | |
243 | diskerr[disk] = 0; /* SIO resets errors */\r | |
244 | found[disk] = 0; /* ... and found bit */\r | |
245 | iodata = 0;\r | |
246 | switch (n) {\r | |
247 | case 0x00: /* Seek */\r | |
248 | if (S & 0x80)\r | |
249 | seekhead[disk] = 1;\r | |
250 | else\r | |
251 | seekhead[disk] = 0;\r | |
252 | if (S & 1) {\r | |
253 | uptr -> u3 += N;\r | |
254 | } else {\r | |
255 | uptr -> u3 -= N;\r | |
256 | }\r | |
257 | if (uptr -> u3 < 0)\r | |
258 | uptr -> u3 = 0;\r | |
259 | if (uptr -> u3 > 203) {\r | |
260 | uptr -> u3 = 0;\r | |
261 | diskerr[disk] |= 0x0100;\r | |
262 | if (debug_reg & 0x02)\r | |
263 | fprintf(trace, "==> Seek Past End of Disk\n");\r | |
264 | } \r | |
265 | \r | |
266 | /*sim_activate(uptr, uptr -> wait);*/ \r | |
267 | sim_activate(uptr, 1); \r | |
268 | \r | |
269 | /* Seek arms are the same for both disks on a drive:\r | |
270 | update the other arm */\r | |
271 | \r | |
272 | usave = uptr -> u3; \r | |
273 | if (u == 0) uptr = f1_dev.units;\r | |
274 | if (u == 1) uptr = r1_dev.units;\r | |
275 | if (u == 2) uptr = f2_dev.units;\r | |
276 | if (u == 3) uptr = r2_dev.units;\r | |
277 | uptr -> u3 = usave; \r | |
278 | \r | |
279 | seekbusy[disk] = 1; \r | |
280 | iodata = SCPE_OK;\r | |
281 | break;\r | |
282 | \r | |
283 | case 0x01: /* Read */\r | |
284 | switch (data) {\r | |
285 | case 0: /* Read data */\r | |
286 | sect = (S >> 2) & 0x3F;\r | |
287 | nsects = N + 1;\r | |
288 | addr = DDAR[disk];\r | |
289 | \r | |
290 | for (i = 0; i < nsects; i++) {\r | |
291 | r = read_sector(uptr, dbuf, sect);\r | |
292 | if (r != 1 || uptr->u3 != C) {\r | |
293 | diskerr[disk] |= 0x0800;\r | |
294 | break;\r | |
295 | } \r | |
296 | for (j = 0; j < DSK_SECTSIZE; j++) {\r | |
297 | PutMem(addr, dbuf[j]);\r | |
298 | addr++;\r | |
299 | }\r | |
300 | \r | |
301 | if ((sect == 55) ) { /* HJS MODS */\r | |
302 | S = sect;\r | |
303 | N = nsects - i - 2;\r | |
304 | if (N > -1) diskerr[disk] |= 0x0020; /* end of cyl. */\r | |
305 | DDAR[disk] = addr & 0xFFFF; /* HJS mod */\r | |
306 | PutMem(DCAR[disk]+2, S << 2);\r | |
307 | PutMem(DCAR[disk]+3, N);\r | |
308 | sim_activate(uptr, 1);\r | |
309 | iodata = SCPE_OK;\r | |
310 | break;\r | |
311 | }\r | |
312 | \r | |
313 | sect++;\r | |
314 | S = sect - 1;\r | |
315 | N = nsects - i - 2;\r | |
316 | if (sect == 24)\r | |
317 | sect = 32;\r | |
318 | }\r | |
319 | DDAR[disk] = addr & 0xFFFF; /* HJS mod */\r | |
320 | PutMem(DCAR[disk]+2, S << 2);\r | |
321 | PutMem(DCAR[disk]+3, N);\r | |
322 | /*sim_activate(uptr, uptr -> wait);*/\r | |
323 | sim_activate(uptr, 1);\r | |
324 | iodata = SCPE_OK;\r | |
325 | break;\r | |
326 | case 1: /* Read ID */\r | |
327 | if (uptr -> u3 > 0 && uptr -> u3 < 4)\r | |
328 | PutMem(DCAR[disk], 1);\r | |
329 | else\r | |
330 | PutMem(DCAR[disk], 0);\r | |
331 | PutMem(DCAR[disk]+1, uptr -> u3);\r | |
332 | PutMem(DCAR[disk]+2, RIDsect[disk]);\r | |
333 | RIDsect[disk]++;\r | |
334 | if (RIDsect[disk] > 23)\r | |
335 | RIDsect[disk] = 32;\r | |
336 | if (RIDsect[disk] > 55)\r | |
337 | RIDsect[disk] = 0; \r | |
338 | break;\r | |
339 | case 2: /* Read Diagnostic */\r | |
340 | iodata = STOP_INVDEV;\r | |
341 | break;\r | |
342 | case 3: /* Verify */\r | |
343 | sect = (S >> 2) & 0x3F;\r | |
344 | nsects = N + 1;\r | |
345 | addr = DDAR[disk];\r | |
346 | for (i = 0; i < nsects; i++) {\r | |
347 | r = read_sector(uptr, dbuf, sect);\r | |
348 | if (r != 1 || uptr->u3 != C) {\r | |
349 | diskerr[disk] |= 0x0800;\r | |
350 | break;\r | |
351 | } \r | |
352 | if ((sect == 55) ) { /* HJS MODS */\r | |
353 | S = sect;\r | |
354 | N = nsects - i - 2;\r | |
355 | if (N > -1) diskerr[disk] |= 0x0020; /* end of cyl. */\r | |
356 | DDAR[disk] = addr & 0xFFFF;\r | |
357 | PutMem(DCAR[disk]+2, S << 2);\r | |
358 | PutMem(DCAR[disk]+3, N);\r | |
359 | sim_activate(uptr, 1);\r | |
360 | iodata = SCPE_OK;\r | |
361 | break;\r | |
362 | }\r | |
363 | sect++;\r | |
364 | S = sect - 1;\r | |
365 | N = nsects - i - 2;\r | |
366 | if (sect == 24)\r | |
367 | sect = 32;\r | |
368 | }\r | |
369 | DDAR[disk] = addr & 0xFFFF;\r | |
370 | PutMem(DCAR[disk]+2, S << 2);\r | |
371 | PutMem(DCAR[disk]+3, N);\r | |
372 | /*sim_activate(uptr, uptr -> wait);*/\r | |
373 | sim_activate(uptr, 1);\r | |
374 | break; \r | |
375 | default:\r | |
376 | return STOP_INVDEV;\r | |
377 | } \r | |
378 | break;\r | |
379 | case 0x02: /* Write */\r | |
380 | switch (data) {\r | |
381 | case 0: /* Write Data */\r | |
382 | sect = (S >> 2) & 0x3F;\r | |
383 | nsects = N + 1;\r | |
384 | addr = DDAR[disk];\r | |
385 | for (i = 0; i < nsects; i++) {\r | |
386 | for (j = 0; j < DSK_SECTSIZE; j++) {\r | |
387 | dbuf[j] = GetMem(addr);\r | |
388 | addr++;\r | |
389 | }\r | |
390 | r = write_sector(uptr, dbuf, sect);\r | |
391 | if (r != 1 || uptr->u3 != C) {\r | |
392 | diskerr[disk] |= 0x0400;\r | |
393 | break;\r | |
394 | } \r | |
395 | if ((sect == 55) ) { /* HJS MODS */\r | |
396 | S = sect;\r | |
397 | N = nsects - i - 2;\r | |
398 | if (N > -1) diskerr[disk] |= 0x0020; /* end of cyl. */\r | |
399 | DDAR[disk] = addr & 0xFFFF;\r | |
400 | PutMem(DCAR[disk]+2, S << 2);\r | |
401 | PutMem(DCAR[disk]+3, N);\r | |
402 | sim_activate(uptr, 1);\r | |
403 | iodata = SCPE_OK;\r | |
404 | break;\r | |
405 | }\r | |
406 | sect++;\r | |
407 | S = sect - 1;\r | |
408 | N = nsects - i - 2;\r | |
409 | if (sect == 24)\r | |
410 | sect = 32;\r | |
411 | }\r | |
412 | DDAR[disk] = addr & 0xFFFF; /* HJS mod */\r | |
413 | PutMem(DCAR[disk]+2, S << 2);\r | |
414 | PutMem(DCAR[disk]+3, N);\r | |
415 | /*sim_activate(uptr, uptr -> wait);*/\r | |
416 | sim_activate(uptr, 1);\r | |
417 | break;\r | |
418 | case 1: /* Write identifier */\r | |
419 | if (seekhead[disk] == 0)\r | |
420 | S = 0;\r | |
421 | else\r | |
422 | S = 0x80;\r | |
423 | N = 23;\r | |
424 | \r | |
425 | sect = (S >> 2) & 0x3F;\r | |
426 | nsects = N + 1;\r | |
427 | addr = DDAR[disk];\r | |
428 | for (i = 0; i < nsects; i++) {\r | |
429 | for (j = 0; j < DSK_SECTSIZE; j++) {\r | |
430 | dbuf[j] = GetMem(addr);\r | |
431 | }\r | |
432 | r = write_sector(uptr, dbuf, sect);\r | |
433 | if (r != 1) {\r | |
434 | diskerr[disk] |= 0x0400;\r | |
435 | break;\r | |
436 | } \r | |
437 | if ((sect == 55) ) {\r | |
438 | S = sect;\r | |
439 | N = nsects - i - 2;\r | |
440 | if (N > 0) diskerr[disk] |= 0x0020;\r | |
441 | DDAR[disk] = addr & 0xFFFF;\r | |
442 | PutMem(DCAR[disk]+2, S << 2);\r | |
443 | PutMem(DCAR[disk]+3, N);\r | |
444 | sim_activate(uptr, 1);\r | |
445 | iodata = SCPE_OK;\r | |
446 | break;\r | |
447 | }\r | |
448 | sect++;\r | |
449 | S = sect - 1;\r | |
450 | N = nsects - i - 2;\r | |
451 | if (sect == 24)\r | |
452 | sect = 32;\r | |
453 | }\r | |
454 | DDAR[disk] = addr & 0xFFFF;\r | |
455 | PutMem(DCAR[disk]+2, S << 2);\r | |
456 | PutMem(DCAR[disk]+3, N);\r | |
457 | /*sim_activate(uptr, uptr -> wait);*/\r | |
458 | sim_activate(uptr, 1);\r | |
459 | break;\r | |
460 | default:\r | |
461 | return STOP_INVDEV;\r | |
462 | } \r | |
463 | break;\r | |
464 | case 0x03: /* Scan */\r | |
465 | sect = (S >> 2) & 0x3F;\r | |
466 | nsects = N + 1;\r | |
467 | addr = DDAR[disk];\r | |
468 | for (i = 0; i < nsects; i++) {\r | |
469 | r = read_sector(uptr, dbuf, sect);\r | |
470 | if (r != 1 || uptr->u3 != C) {\r | |
471 | diskerr[disk] |= 0x0800;\r | |
472 | break;\r | |
473 | }\r | |
474 | res = 0; \r | |
475 | for (j = 0; j < DSK_SECTSIZE; j++) {\r | |
476 | c = GetMem(addr);\r | |
477 | if (j != 0xff) {\r | |
478 | if (dbuf[i] < c)\r | |
479 | res = 1;\r | |
480 | if (dbuf[i] > c)\r | |
481 | res = 3; \r | |
482 | }\r | |
483 | addr++;\r | |
484 | }\r | |
485 | if (res == 0)\r | |
486 | found[disk] = 1;\r | |
487 | if (res == data)\r | |
488 | break;\r | |
489 | if ((sect == 55) ) { /* HJS MODS */\r | |
490 | S = sect;\r | |
491 | N = nsects - i - 2;\r | |
492 | if (N > -1) diskerr[disk] |= 0x0020; /* end of cyl. */\r | |
493 | DDAR[disk] = addr & 0xFFFF;\r | |
494 | PutMem(DCAR[disk]+2, S << 2);\r | |
495 | PutMem(DCAR[disk]+3, N);\r | |
496 | sim_activate(uptr, 1);\r | |
497 | iodata = SCPE_OK;\r | |
498 | break;\r | |
499 | }\r | |
500 | sect++;\r | |
501 | S = sect - 1;\r | |
502 | N = nsects - i - 2;\r | |
503 | if (sect == 24)\r | |
504 | sect = 32;\r | |
505 | }\r | |
506 | PutMem(DCAR[disk]+2, S << 2);\r | |
507 | PutMem(DCAR[disk]+3, N);\r | |
508 | /*sim_activate(uptr, uptr -> wait);*/\r | |
509 | sim_activate(uptr, 1);\r | |
510 | break;\r | |
511 | default:\r | |
512 | return STOP_INVDEV;\r | |
513 | }\r | |
514 | return iodata;\r | |
515 | \r | |
516 | /* LIO 5444 */\r | |
517 | case 1: \r | |
518 | if ((uptr->flags & UNIT_ATT) == 0)\r | |
519 | return SCPE_UNATT;\r | |
520 | switch (n) {\r | |
521 | case 0x04: /* Data Addr */\r | |
522 | DDAR[disk] = data;\r | |
523 | break;\r | |
524 | case 0x06: /* Control Addr */\r | |
525 | DCAR[disk] = data;\r | |
526 | break;\r | |
527 | default:\r | |
528 | return STOP_INVDEV;\r | |
529 | }\r | |
530 | return SCPE_OK;\r | |
531 | /* TIO 5444 */\r | |
532 | case 2:\r | |
533 | if ((uptr->flags & UNIT_ATT) == 0)\r | |
534 | return SCPE_UNATT << 16;\r | |
535 | iodata = 0;\r | |
536 | switch (n) {\r | |
537 | case 0x00: /* Error */\r | |
538 | if (diskerr[disk] || notrdy[disk])\r | |
539 | iodata = 1;\r | |
540 | if ((uptr -> flags & UNIT_ATT) == 0)\r | |
541 | iodata = 1;\r | |
542 | break;\r | |
543 | case 0x02: /* Busy */\r | |
544 | if (sim_is_active (uptr))\r | |
545 | iodata = 1;\r | |
546 | break;\r | |
547 | case 0x04:\r | |
548 | if (found[disk])\r | |
549 | iodata = 1;\r | |
550 | break; \r | |
551 | default:\r | |
552 | return (STOP_INVDEV << 16);\r | |
553 | } \r | |
554 | return ((SCPE_OK << 16) | iodata);\r | |
555 | \r | |
556 | /* SNS 5444 */\r | |
557 | case 3: \r | |
558 | if ((uptr->flags & UNIT_ATT) == 0)\r | |
559 | return SCPE_UNATT << 16;\r | |
560 | iodata = 0;\r | |
561 | switch (n) {\r | |
562 | case 0x01:\r | |
563 | break;\r | |
564 | case 0x02:\r | |
565 | iodata = diskerr[disk];\r | |
566 | if (notrdy[disk])\r | |
567 | iodata |= 0x4000;\r | |
568 | if ((uptr -> flags & UNIT_ATT) == 0)\r | |
569 | iodata |= 0x4000;\r | |
570 | if (seekbusy[disk])\r | |
571 | iodata |= 0x0010;\r | |
572 | if (uptr -> u3 == 0)\r | |
573 | iodata |= 0x0040; \r | |
574 | break;\r | |
575 | case 0x03:\r | |
576 | iodata = 0;\r | |
577 | break; \r | |
578 | case 0x04:\r | |
579 | iodata = DDAR[disk];\r | |
580 | break;\r | |
581 | case 0x06:\r | |
582 | iodata = DCAR[disk];\r | |
583 | break; \r | |
584 | default:\r | |
585 | return (STOP_INVDEV << 16);\r | |
586 | }\r | |
587 | iodata |= ((SCPE_OK << 16) & 0xffff0000); \r | |
588 | return (iodata);\r | |
589 | \r | |
590 | /* APL 5444 */\r | |
591 | case 4: \r | |
592 | if ((uptr->flags & UNIT_ATT) == 0)\r | |
593 | return SCPE_UNATT << 16;\r | |
594 | iodata = 0;\r | |
595 | switch (n) {\r | |
596 | case 0x00: /* Error */\r | |
597 | if (diskerr[disk] || notrdy[disk])\r | |
598 | iodata = 1;\r | |
599 | if ((uptr -> flags & UNIT_ATT) == 0)\r | |
600 | iodata = 1;\r | |
601 | break;\r | |
602 | case 0x02: /* Busy */\r | |
603 | if (sim_is_active (uptr))\r | |
604 | iodata = 1;\r | |
605 | break; \r | |
606 | default:\r | |
607 | return (STOP_INVDEV << 16);\r | |
608 | } \r | |
609 | return ((SCPE_OK << 16) | iodata);\r | |
610 | default:\r | |
611 | break;\r | |
612 | }\r | |
613 | printf (">>DSK%d non-existent function %d\n", disk, op);\r | |
614 | return SCPE_OK; \r | |
615 | }\r | |
616 | \r | |
617 | /* Disk unit service. If a stacker select is active, copy to the\r | |
618 | selected stacker. Otherwise, copy to the normal stacker. If the\r | |
619 | unit is unattached, simply exit.\r | |
620 | */\r | |
621 | \r | |
622 | t_stat r1_svc (UNIT *uptr)\r | |
623 | {\r | |
624 | seekbusy[0] = 0;\r | |
625 | return SCPE_OK;\r | |
626 | }\r | |
627 | t_stat f1_svc (UNIT *uptr)\r | |
628 | {\r | |
629 | seekbusy[0] = 0;\r | |
630 | return SCPE_OK;\r | |
631 | }\r | |
632 | t_stat r2_svc (UNIT *uptr)\r | |
633 | {\r | |
634 | seekbusy[1] = 0;\r | |
635 | return SCPE_OK;\r | |
636 | }\r | |
637 | t_stat f2_svc (UNIT *uptr)\r | |
638 | {\r | |
639 | seekbusy[1] = 0;\r | |
640 | return SCPE_OK;\r | |
641 | }\r | |
642 | \r | |
643 | \r | |
644 | /* Disk reset */\r | |
645 | \r | |
646 | t_stat r1_reset (DEVICE *dptr)\r | |
647 | {\r | |
648 | diskerr[0] = notrdy[0] = seekbusy[0] = 0; /* clear indicators */\r | |
649 | found[0] = 0;\r | |
650 | sim_cancel (&r1_unit); /* clear event */\r | |
651 | r1_unit.u3 = 0; /* cylinder 0 */\r | |
652 | return SCPE_OK;\r | |
653 | }\r | |
654 | t_stat f1_reset (DEVICE *dptr)\r | |
655 | {\r | |
656 | diskerr[0] = notrdy[0] = seekbusy[0] = 0; /* clear indicators */\r | |
657 | found[0] = 0;\r | |
658 | sim_cancel (&f1_unit); /* clear event */\r | |
659 | f1_unit.u3 = 0; /* cylinder 0 */\r | |
660 | return SCPE_OK;\r | |
661 | }\r | |
662 | t_stat r2_reset (DEVICE *dptr)\r | |
663 | {\r | |
664 | diskerr[1] = notrdy[1] = seekbusy[1] = 0; /* clear indicators */\r | |
665 | found[1] = 0;\r | |
666 | sim_cancel (&r2_unit); /* clear event */\r | |
667 | r2_unit.u3 = 0; /* cylinder 0 */\r | |
668 | return SCPE_OK;\r | |
669 | }\r | |
670 | t_stat f2_reset (DEVICE *dptr)\r | |
671 | {\r | |
672 | diskerr[1] = notrdy[1] = seekbusy[1] = 0; /* clear indicators */\r | |
673 | found[1] = 0;\r | |
674 | sim_cancel (&f2_unit); /* clear event */\r | |
675 | f2_unit.u3 = 0; /* cylinder 0 */\r | |
676 | return SCPE_OK;\r | |
677 | }\r | |
678 | \r | |
679 | /* Disk unit attach */\r | |
680 | \r | |
681 | t_stat r1_attach (UNIT *uptr, char *cptr)\r | |
682 | {\r | |
683 | diskerr[0] = notrdy[0] = seekbusy[0] = 0; /* clear status */\r | |
684 | found[0] = 0;\r | |
685 | uptr -> u3 = 0; /* cylinder 0 */\r | |
686 | return attach_unit (uptr, cptr);\r | |
687 | }\r | |
688 | t_stat f1_attach (UNIT *uptr, char *cptr)\r | |
689 | {\r | |
690 | diskerr[0] = notrdy[0] = seekbusy[0] = 0; /* clear status */\r | |
691 | found[0] = 0;\r | |
692 | uptr -> u3 = 0; /* cylinder 0 */\r | |
693 | return attach_unit (uptr, cptr);\r | |
694 | }\r | |
695 | t_stat r2_attach (UNIT *uptr, char *cptr)\r | |
696 | {\r | |
697 | diskerr[1] = notrdy[1] = seekbusy[1] = 0; /* clear status */\r | |
698 | found[1] = 0;\r | |
699 | uptr -> u3 = 0; /* cylinder 0 */\r | |
700 | return attach_unit (uptr, cptr);\r | |
701 | }\r | |
702 | t_stat f2_attach (UNIT *uptr, char *cptr)\r | |
703 | {\r | |
704 | diskerr[1] = notrdy[1] = seekbusy[1] = 0; /* clear status */\r | |
705 | found[1] = 0;\r | |
706 | uptr -> u3 = 0; /* cylinder 0 */\r | |
707 | return attach_unit (uptr, cptr);\r | |
708 | }\r | |
709 | \r | |
710 | /* Bootstrap routine */\r | |
711 | \r | |
712 | t_stat r1_boot (int32 unitno, DEVICE *dptr)\r | |
713 | {\r | |
714 | int i;\r | |
715 | r1_unit.u3 = 0;\r | |
716 | read_sector(r1_dev.units, dbuf, 0);\r | |
717 | for (i = 0; i < 256; i++) {\r | |
718 | M[i] = dbuf[i];\r | |
719 | }\r | |
720 | return SCPE_OK;\r | |
721 | }\r | |
722 | t_stat f1_boot (int32 unitno, DEVICE *dptr)\r | |
723 | {\r | |
724 | int i;\r | |
725 | f1_unit.u3 = 0;\r | |
726 | read_sector(f1_dev.units, dbuf, 0);\r | |
727 | for (i = 0; i < 256; i++) {\r | |
728 | M[i] = dbuf[i];\r | |
729 | }\r | |
730 | return SCPE_OK;\r | |
731 | }\r | |
732 | t_stat r2_boot (int32 unitno, DEVICE *dptr)\r | |
733 | {\r | |
734 | int i;\r | |
735 | r2_unit.u3 = 0;\r | |
736 | read_sector(r2_dev.units, dbuf, 0);\r | |
737 | for (i = 0; i < 256; i++) {\r | |
738 | M[i] = dbuf[i];\r | |
739 | }\r | |
740 | return SCPE_OK;\r | |
741 | }\r | |
742 | t_stat f2_boot (int32 unitno, DEVICE *dptr)\r | |
743 | {\r | |
744 | int i;\r | |
745 | f2_unit.u3 = 0;\r | |
746 | read_sector(f2_dev.units, dbuf, 0);\r | |
747 | for (i = 0; i < 256; i++) {\r | |
748 | M[i] = dbuf[i];\r | |
749 | }\r | |
750 | return SCPE_OK;\r | |
751 | }\r | |
752 | \r | |
753 | \r | |
754 | /* Raw Disk Data In/Out */\r | |
755 | \r | |
756 | int32 read_sector(UNIT *uptr, char *dbuf, int32 sect)\r | |
757 | {\r | |
758 | static int32 rtn, realsect;\r | |
759 | static long pos;\r | |
760 | \r | |
761 | /* calculate real sector no */\r | |
762 | if (sect > 23)\r | |
763 | realsect = sect - 8;\r | |
764 | else\r | |
765 | realsect = sect;\r | |
766 | /* physically read the sector */\r | |
767 | pos = DSK_CYLSIZE * uptr -> u3;\r | |
768 | pos += DSK_SECTSIZE * realsect;\r | |
769 | rtn = fseek(uptr -> fileref, pos, 0);\r | |
770 | rtn = fread(dbuf, DSK_SECTSIZE, 1, uptr -> fileref);\r | |
771 | return (rtn);\r | |
772 | }\r | |
773 | \r | |
774 | int32 write_sector(UNIT *uptr, char *dbuf, int32 sect)\r | |
775 | {\r | |
776 | static int32 rtn, realsect;\r | |
777 | static long pos;\r | |
778 | \r | |
779 | /* calculate real sector no */\r | |
780 | if (sect > 23)\r | |
781 | realsect = sect - 8;\r | |
782 | else\r | |
783 | realsect = sect;\r | |
784 | if (uptr -> u3 == 0 && realsect == 32)\r | |
785 | rtn = 0;\r | |
786 | /* physically write the sector */\r | |
787 | pos = DSK_CYLSIZE * uptr -> u3;\r | |
788 | pos += DSK_SECTSIZE * realsect;\r | |
789 | rtn = fseek(uptr -> fileref, pos, 0);\r | |
790 | rtn = fwrite(dbuf, DSK_SECTSIZE, 1, uptr -> fileref);\r | |
791 | return (rtn);\r | |
792 | }\r |