ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/BasiliskII/src/cdrom.cpp
Revision: 1.1.1.1 (vendor branch)
Committed: 1999-10-03T14:16:25Z (25 years, 1 month ago) by cebix
Branch: cebix
CVS Tags: release-0_7-2, start
Changes since 1.1: +0 -0 lines
Log Message:
Imported sources

File Contents

# User Rev Content
1 cebix 1.1 /*
2     * cdrom.cpp - CD-ROM driver
3     *
4     * Basilisk II (C) 1997-1999 Christian Bauer
5     *
6     * This program is free software; you can redistribute it and/or modify
7     * it under the terms of the GNU General Public License as published by
8     * the Free Software Foundation; either version 2 of the License, or
9     * (at your option) any later version.
10     *
11     * This program is distributed in the hope that it will be useful,
12     * but WITHOUT ANY WARRANTY; without even the implied warranty of
13     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14     * GNU General Public License for more details.
15     *
16     * You should have received a copy of the GNU General Public License
17     * along with this program; if not, write to the Free Software
18     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19     */
20    
21     /*
22     * SEE ALSO
23     * Inside Macintosh: Devices, chapter 1 "Device Manager"
24     * Technote DV 05: "Drive Queue Elements"
25     * Technote DV 22: "CD-ROM Driver Calls"
26     * Technote DV 23: "Driver Education"
27     * Technote FL 24: "Don't Look at ioPosOffset for Devices"
28     * Technote FL 36: "Apple Extensions to ISO 9660"
29     */
30    
31     #include <string.h>
32    
33     #include "sysdeps.h"
34     #include "cpu_emulation.h"
35     #include "main.h"
36     #include "macos_util.h"
37     #include "sys.h"
38     #include "prefs.h"
39     #include "cdrom.h"
40    
41     #define DEBUG 0
42     #include "debug.h"
43    
44    
45     // CDROM disk/drive icon
46     const uint8 CDROMIcon[258] = {
47     0x3f, 0xff, 0xff, 0xf0, 0x40, 0x00, 0x00, 0x08, 0x80, 0x1f, 0xc0, 0x04, 0x80, 0x75, 0x70, 0x04,
48     0x81, 0xaa, 0xac, 0x04, 0x83, 0x55, 0x56, 0x04, 0x86, 0xaa, 0xab, 0x04, 0x8d, 0x55, 0x55, 0x84,
49     0x8a, 0xaa, 0xaa, 0xc4, 0x95, 0x5f, 0xd5, 0x44, 0x9a, 0xb0, 0x6a, 0xe4, 0xb5, 0x67, 0x35, 0x64,
50     0xaa, 0xcf, 0x9a, 0xb4, 0xb5, 0x5c, 0x55, 0x74, 0xaa, 0xd8, 0x5a, 0xb4, 0xb5, 0x58, 0x55, 0x74,
51     0xaa, 0xc8, 0x9a, 0xb4, 0xb5, 0x67, 0x35, 0x74, 0x9a, 0xb0, 0x6a, 0xf4, 0x95, 0x5f, 0xd5, 0x64,
52     0x8a, 0xaa, 0xaa, 0xe4, 0x8d, 0x55, 0x55, 0xc4, 0x86, 0xaa, 0xab, 0xc4, 0x83, 0x55, 0x57, 0x84,
53     0x81, 0xaa, 0xaf, 0x04, 0x80, 0xf5, 0x7e, 0x04, 0x80, 0x3f, 0xf8, 0x04, 0x80, 0x0f, 0xe0, 0x04,
54     0xff, 0xff, 0xff, 0xfc, 0x80, 0x00, 0x00, 0x04, 0x80, 0x1f, 0xf0, 0x04, 0x7f, 0xff, 0xff, 0xf8,
55    
56     0x3f, 0xff, 0xff, 0xf0, 0x7f, 0xff, 0xff, 0xf8, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
57     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
58     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
59     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
60     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
61     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
62     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc,
63     0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0xff, 0xff, 0xff, 0xfc, 0x7f, 0xff, 0xff, 0xf8,
64    
65     0, 0
66     };
67    
68    
69     // Tables for converting bin<->BCD
70     static const uint8 bin2bcd[256] = {
71     0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09,
72     0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19,
73     0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29,
74     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39,
75     0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49,
76     0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59,
77     0x60, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67, 0x68, 0x69,
78     0x70, 0x71, 0x72, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78, 0x79,
79     0x80, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87, 0x88, 0x89,
80     0x90, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96, 0x97, 0x98, 0x99,
81     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
82     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
83     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
84     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
85     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
86     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
87     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
88     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
89     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
90     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
91     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
92     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
93     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
94     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
95     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
96     0xff, 0xff, 0xff, 0xff, 0xff, 0xff
97     };
98    
99     static const uint8 bcd2bin[256] = {
100     0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
101     10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
102     20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
103     30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
104     40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
105     50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
106     60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
107     70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
108     80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
109     90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
110     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
111     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
112     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
113     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
114     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
115     0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
116     };
117    
118    
119     // Struct for each drive
120     struct DriveInfo {
121     DriveInfo()
122     {
123     next = NULL;
124     num = 0;
125     fh = NULL;
126     start_byte = 0;
127     status = 0;
128     }
129    
130     DriveInfo *next; // Pointer to next DriveInfo (must be first in struct!)
131     int num; // Drive number
132     void *fh; // File handle
133     int block_size; // CD-ROM block size
134     int twok_offset; // Offset of beginning of 2K block to last Prime position
135     uint32 start_byte; // Start of HFS partition on disk
136     bool to_be_mounted; // Flag: drive must be mounted in accRun
137     bool mount_non_hfs; // Flag: Issue disk-inserted events for non-HFS disks
138    
139     uint8 toc[804]; // TOC of currently inserted disk
140     uint8 lead_out[3]; // MSF address of lead-out track
141     uint8 stop_at[3]; // MSF address of audio play stopping point
142    
143     uint8 play_mode; // Audio play mode
144     uint8 power_mode; // Power mode
145     uint32 status; // Mac address of drive status record
146     };
147    
148     // Linked list of DriveInfos
149     static DriveInfo *first_drive_info;
150    
151     // Icon address (Mac address space, set by PatchROM())
152     uint32 CDROMIconAddr;
153    
154    
155     /*
156     * Get pointer to drive info, NULL = invalid drive number
157     */
158    
159     static DriveInfo *get_drive_info(int num)
160     {
161     DriveInfo *info = first_drive_info;
162     while (info != NULL) {
163     if (info->num == num)
164     return info;
165     info = info->next;
166     }
167     return NULL;
168     }
169    
170    
171     /*
172     * Find HFS partition, set info->start_byte (0 = no HFS partition)
173     */
174    
175     static void find_hfs_partition(DriveInfo *info)
176     {
177     info->start_byte = 0;
178     uint8 *map = new uint8[512];
179    
180     // Search first 64 blocks for HFS partition
181     for (int i=0; i<64; i++) {
182     if (Sys_read(info->fh, map, i * 512, 512) != 512)
183     break;
184    
185     // Skip driver descriptor
186     uint16 sig = ntohs(((uint16 *)map)[0]);
187     if (sig == 'ER')
188     continue;
189    
190     // No partition map? Then look at next block
191     if (sig != 'PM')
192     continue;
193    
194     // Partition map found, Apple HFS partition?
195     if (strcmp((char *)(map + 48), "Apple_HFS") == 0) {
196     info->start_byte = ntohl(((uint32 *)map)[2]) << 9;
197     D(bug(" HFS partition found at %ld, %ld blocks\n", info->start_byte, ntohl(((uint32 *)map)[3])));
198     break;
199     }
200     }
201     delete[] map;
202     }
203    
204    
205     /*
206     * Read TOC of disk and set lead_out
207     */
208    
209     static void read_toc(DriveInfo *info)
210     {
211     // Read TOC
212     memset(&info->toc, 0, sizeof(info->toc));
213     SysCDReadTOC(info->fh, info->toc);
214     D(bug(" TOC: %08lx %08lx\n", ntohl(((uint32 *)info->toc)[0]), ntohl(((uint32 *)info->toc)[1])));
215    
216     // Find lead-out track
217     info->lead_out[0] = 0;
218     info->lead_out[1] = 0;
219     info->lead_out[2] = 0;
220     for (int i=4; i<804; i+=8) {
221     if (info->toc[i+2] == 0xaa) {
222     info->stop_at[0] = info->lead_out[0] = info->toc[i+5];
223     info->stop_at[1] = info->lead_out[1] = info->toc[i+6];
224     info->stop_at[2] = info->lead_out[2] = info->toc[i+7];
225     break;
226     }
227     }
228     D(bug(" Lead-Out M %d S %d F %d\n", info->lead_out[0], info->lead_out[1], info->lead_out[2]));
229     }
230    
231    
232     /*
233     * Convert audio positioning type/position to MSF address
234     * Return: false = error
235     */
236    
237     static bool position2msf(DriveInfo *info, uint16 postype, uint32 pos, bool stopping, uint8 &m, uint8 &s, uint8 &f)
238     {
239     switch (postype) {
240     case 0:
241     m = pos / (60 * 75);
242     s = (pos / 75) % 60;
243     f = pos % 75;
244     return true;
245     case 1:
246     m = bcd2bin[(pos >> 16) & 0xff];
247     s = bcd2bin[(pos >> 8) & 0xff];
248     f = bcd2bin[pos & 0xff];
249     return true;
250     case 2: {
251     uint8 track = bcd2bin[pos & 0xff];
252     if (stopping)
253     track++;
254     for (int i=4; i<804; i+=8) {
255     if (info->toc[i+2] == track || info->toc[i+2] == 0xaa) {
256     m = info->toc[i+5];
257     s = info->toc[i+6];
258     f = info->toc[i+7];
259     return true;
260     }
261     }
262     return false;
263     }
264     default:
265     return false;
266     }
267     }
268    
269    
270     /*
271     * Initialization
272     */
273    
274     void CDROMInit(void)
275     {
276     first_drive_info = NULL;
277    
278     // No drives specified in prefs? Then add defaults
279     if (PrefsFindString("cdrom", 0) == NULL)
280     SysAddCDROMPrefs();
281    
282     // Add drives specified in preferences
283     int32 index = 0;
284     const char *str;
285     while ((str = PrefsFindString("cdrom", index++)) != NULL) {
286     void *fh = Sys_open(str, true);
287     if (fh) {
288     DriveInfo *info = new DriveInfo;
289     info->fh = fh;
290     DriveInfo *p = (DriveInfo *)&first_drive_info;
291     while (p->next != NULL)
292     p = p->next;
293     p->next = info;
294     }
295     }
296     }
297    
298    
299     /*
300     * Deinitialization
301     */
302    
303     void CDROMExit(void)
304     {
305     DriveInfo *info = first_drive_info, *next;
306     while (info != NULL) {
307     Sys_close(info->fh);
308     next = info->next;
309     delete info;
310     info = next;
311     }
312     }
313    
314    
315     /*
316     * Disk was inserted, flag for mounting
317     */
318    
319     bool CDROMMountVolume(void *fh)
320     {
321     DriveInfo *info;
322     for (info = first_drive_info; info != NULL && info->fh != fh; info = info->next) ;
323     if (info) {
324     if (SysIsDiskInserted(info->fh)) {
325     SysPreventRemoval(info->fh);
326     WriteMacInt8(info->status + dsDiskInPlace, 1);
327     read_toc(info);
328     find_hfs_partition(info);
329     if (info->start_byte != 0 || info->mount_non_hfs)
330     info->to_be_mounted = true;
331     }
332     return true;
333     } else
334     return false;
335     }
336    
337    
338     /*
339     * Driver Open() routine
340     */
341    
342     int16 CDROMOpen(uint32 pb, uint32 dce)
343     {
344     D(bug("CDROMOpen\n"));
345    
346     // Set up DCE
347     WriteMacInt32(dce + dCtlPosition, 0);
348    
349     // Install drives
350     for (DriveInfo *info = first_drive_info; info; info = info->next) {
351    
352     info->num = FindFreeDriveNumber(1);
353     info->to_be_mounted = false;
354    
355     if (info->fh) {
356     info->mount_non_hfs = true;
357     info->block_size = 512;
358     info->twok_offset = -1;
359     info->play_mode = 0x09;
360     info->power_mode = 0;
361    
362     // Allocate drive status record
363     M68kRegisters r;
364     r.d[0] = SIZEOF_DrvSts;
365     Execute68kTrap(0xa71e, &r); // NewPtrSysClear()
366     if (r.a[0] == 0)
367     continue;
368     info->status = r.a[0];
369     D(bug(" DrvSts at %08lx\n", info->status));
370    
371     // Set up drive status
372     WriteMacInt8(info->status + dsWriteProt, 0x80);
373     WriteMacInt8(info->status + dsInstalled, 1);
374     WriteMacInt8(info->status + dsSides, 1);
375    
376     // Disk in drive?
377     if (SysIsDiskInserted(info->fh)) {
378     SysPreventRemoval(info->fh);
379     WriteMacInt8(info->status + dsDiskInPlace, 1);
380     read_toc(info);
381     find_hfs_partition(info);
382     info->to_be_mounted = true;
383     }
384    
385     // Add drive to drive queue
386     D(bug(" adding drive %d\n", info->num));
387     r.d[0] = (info->num << 16) | (CDROMRefNum & 0xffff);
388     r.a[0] = info->status + dsQLink;
389     Execute68kTrap(0xa04e, &r); // AddDrive()
390     }
391     }
392     return noErr;
393     }
394    
395    
396     /*
397     * Driver Prime() routine
398     */
399    
400     int16 CDROMPrime(uint32 pb, uint32 dce)
401     {
402     WriteMacInt32(pb + ioActCount, 0);
403    
404     // Drive valid and disk inserted?
405     DriveInfo *info;
406     if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
407     return nsDrvErr;
408     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
409     return offLinErr;
410    
411     // Get parameters
412     void *buffer = Mac2HostAddr(ReadMacInt32(pb + ioBuffer));
413     size_t length = ReadMacInt32(pb + ioReqCount);
414     loff_t position = ReadMacInt32(dce + dCtlPosition);
415     if ((length & (info->block_size - 1)) || (position & (info->block_size - 1)))
416     return paramErr;
417     info->twok_offset = (position + info->start_byte) & 0x7ff;
418    
419     size_t actual = 0;
420     if ((ReadMacInt16(pb + ioTrap) & 0xff) == aRdCmd) {
421    
422     // Read
423     actual = Sys_read(info->fh, buffer, position + info->start_byte, length);
424     if (actual != length) {
425    
426     // Read error, tried to read HFS root block?
427     if (length == 0x200 && position == 0x400) {
428    
429     // Yes, fake (otherwise audio CDs won't get mounted)
430     memset(buffer, 0, 0x200);
431     actual = 0x200;
432     } else
433     return readErr;
434     }
435     } else
436     return wPrErr;
437    
438     // Update ParamBlock and DCE
439     WriteMacInt32(pb + ioActCount, actual);
440     WriteMacInt32(dce + dCtlPosition, ReadMacInt32(dce + dCtlPosition) + actual);
441     return noErr;
442     }
443    
444    
445     /*
446     * Driver Control() routine
447     */
448    
449     int16 CDROMControl(uint32 pb, uint32 dce)
450     {
451     uint16 code = ReadMacInt16(pb + csCode);
452     D(bug("CDROMControl %d\n", code));
453    
454     // General codes
455     switch (code) {
456     case 1: // KillIO
457     return noErr;
458    
459     case 65: { // Periodic action ("insert" disks on startup and check for disk changes)
460     DriveInfo *info = first_drive_info;
461     while (info != NULL) {
462    
463     // Disk in drive?
464     if (ReadMacInt8(info->status + dsDiskInPlace) == 0) {
465    
466     // No, check if disk was inserted
467     if (SysIsDiskInserted(info->fh))
468     CDROMMountVolume(info->fh);
469     }
470    
471     // Mount disk if flagged
472     if (info->to_be_mounted) {
473     D(bug(" mounting drive %d\n", info->num));
474     M68kRegisters r;
475     r.d[0] = info->num;
476     r.a[0] = 7; // diskEvent
477     Execute68kTrap(0xa02f, &r); // PostEvent()
478     info->to_be_mounted = false;
479     }
480    
481     info = info->next;
482     }
483     return noErr;
484     }
485    
486     case 81: // Set poll freq
487     WriteMacInt16(dce + dCtlDelay, ReadMacInt16(pb + csParam));
488     return noErr;
489     }
490    
491     // Drive valid?
492     DriveInfo *info;
493     if ((info = get_drive_info(ReadMacInt16(pb + ioVRefNum))) == NULL)
494     if (first_drive_info == NULL)
495     return nsDrvErr;
496     else
497     info = first_drive_info; // This is needed for Apple's Audio CD program
498    
499     // Drive-specific codes
500     switch (code) {
501     case 5: // VerifyTheDisc
502     if (ReadMacInt8(info->status + dsDiskInPlace) > 0)
503     return noErr;
504     else
505     return offLinErr;
506    
507     case 6: // FormatTheDisc
508     return writErr;
509    
510     case 7: // EjectTheDisc
511     if (ReadMacInt8(info->status + dsDiskInPlace) > 0) {
512     SysAllowRemoval(info->fh);
513     SysEject(info->fh);
514     WriteMacInt8(info->status + dsDiskInPlace, 0);
515     info->twok_offset = -1;
516     }
517     return noErr;
518    
519     case 21: // GetDriveIcon
520     case 22: // GetMediaIcon
521     WriteMacInt32(pb + csParam, CDROMIconAddr);
522     return noErr;
523    
524     case 23: // DriveInfo
525     WriteMacInt32(pb + csParam, 0x00000b01); // Unspecified external removable SCSI disk
526     return noErr;
527    
528     case 70: { // SetPowerMode
529     uint8 mode = ReadMacInt8(pb + csParam);
530     if (mode > 3)
531     return paramErr;
532     else {
533     info->power_mode = mode;
534     return noErr;
535     }
536     }
537    
538     case 76: // ModifyPostEvent
539     info->mount_non_hfs = ReadMacInt16(pb + csParam);
540     return noErr;
541    
542     case 79: { // Change block size
543     uint16 size = ReadMacInt16(pb + csParam);
544     D(bug(" change block size to %d bytes\n", size));
545     if (size != 512 && size != 2048)
546     return paramErr;
547     else {
548     info->block_size = size;
549     return noErr;
550     }
551     }
552    
553     case 80: // SetUserEject
554     if (ReadMacInt8(info->status + dsDiskInPlace) > 0) {
555     if (ReadMacInt16(pb + csParam) == 1)
556     SysAllowRemoval(info->fh);
557     else
558     SysPreventRemoval(info->fh);
559     return noErr;
560     } else
561     return offLinErr;
562    
563     case 100: { // ReadTOC
564     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
565     return offLinErr;
566    
567     int action = ReadMacInt16(pb + csParam);
568     D(bug(" read TOC %d\n", action));
569     switch (action) {
570     case 1: // Get first/last track number
571     WriteMacInt8(pb + csParam, bin2bcd[info->toc[2]]);
572     WriteMacInt8(pb + csParam + 1, bin2bcd[info->toc[3]]);
573     WriteMacInt16(pb + csParam + 2, 0);
574     break;
575    
576     case 2: // Get lead out MSF starting address
577     WriteMacInt8(pb + csParam, bin2bcd[info->lead_out[0]]);
578     WriteMacInt8(pb + csParam + 1, bin2bcd[info->lead_out[1]]);
579     WriteMacInt8(pb + csParam + 2, bin2bcd[info->lead_out[2]]);
580     WriteMacInt8(pb + csParam + 3, 0);
581     break;
582    
583     case 3: { // Get track starting address
584     uint8 *buf = Mac2HostAddr(ReadMacInt32(pb + csParam + 2));
585     uint16 buf_size = ReadMacInt16(pb + csParam + 6);
586     int track = bcd2bin[ReadMacInt8(pb + csParam + 8)];
587    
588     // Search start track in TOC
589     int i;
590     for (i=4; i<804; i+=8) {
591     if (info->toc[i+2] == track)
592     break;
593     }
594    
595     // Fill buffer
596     if (i != 804)
597     while (buf_size > 0) {
598     *buf++ = info->toc[i+1] & 0x0f; // Control
599     *buf++ = bin2bcd[info->toc[i+5]]; // M
600     *buf++ = bin2bcd[info->toc[i+6]]; // S
601     *buf++ = bin2bcd[info->toc[i+7]]; // F
602    
603     // Lead-Out? Then stop
604     if (info->toc[i+2] == 0xaa)
605     break;
606    
607     buf_size -= 4;
608     i += 8;
609     }
610     break;
611     }
612    
613     case 5: // Get session information
614     WriteMacInt16(pb + csParam, 1); // First session number
615     WriteMacInt16(pb + csParam + 2, 1); // Last session number
616     WriteMacInt16(pb + csParam + 4, bin2bcd[info->toc[2]]); // First track number of last session
617     WriteMacInt8(pb + csParam + 6, info->toc[5] & 0x0f); // Control
618     WriteMacInt8(pb + csParam + 7, bin2bcd[info->toc[9]]); // M
619     WriteMacInt8(pb + csParam + 8, bin2bcd[info->toc[10]]); // S
620     WriteMacInt8(pb + csParam + 9, bin2bcd[info->toc[11]]); // F
621     break;
622    
623     default:
624     printf("FATAL: .AppleCD/Control(100): unimplemented TOC type\n");
625     return paramErr;
626     }
627     return noErr;
628     }
629    
630     case 101: { // ReadTheQSubcode
631     if (ReadMacInt8(info->status + dsDiskInPlace) == 0) {
632     memset(Mac2HostAddr(pb + csParam), 0, 10);
633     return offLinErr;
634     }
635    
636     uint8 pos[16];
637     if (SysCDGetPosition(info->fh, pos)) {
638     uint8 *p = Mac2HostAddr(pb + csParam);
639     *p++ = pos[5] & 0x0f; // Control
640     *p++ = bin2bcd[pos[6]]; // Track number
641     *p++ = bin2bcd[pos[7]]; // Index number
642     *p++ = bin2bcd[pos[13]]; // M (rel)
643     *p++ = bin2bcd[pos[14]]; // S (rel)
644     *p++ = bin2bcd[pos[15]]; // F (rel)
645     *p++ = bin2bcd[pos[9]]; // M (abs)
646     *p++ = bin2bcd[pos[10]]; // S (abs)
647     *p++ = bin2bcd[pos[11]]; // F (abs)
648     *p++ = 0;
649     return noErr;
650     } else
651     return ioErr;
652     }
653    
654     case 102: // ReadHeader
655     printf("FATAL: .AppleCD/Control(102): unimplemented call\n");
656     return controlErr;
657    
658     case 103: { // AudioTrackSearch
659     D(bug(" AudioTrackSearch postype %d, pos %08lx, hold %d\n", ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), ReadMacInt16(pb + csParam + 6)));
660     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
661     return offLinErr;
662    
663     uint8 start_m, start_s, start_f;
664     if (!position2msf(info, ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), false, start_m, start_s, start_f))
665     return paramErr;
666     info->play_mode = ReadMacInt8(pb + csParam + 9) & 0x0f;
667     if (!SysCDPlay(info->fh, start_m, start_s, start_f, info->stop_at[0], info->stop_at[1], info->stop_at[2]))
668     return paramErr;
669     if (ReadMacInt16(pb + csParam + 6) == 0) // Hold
670     SysCDPause(info->fh);
671     return noErr;
672     }
673    
674     case 104: // AudioPlay
675     D(bug(" AudioPlay postype %d, pos %08lx, hold %d\n", ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), ReadMacInt16(pb + csParam + 6)));
676     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
677     return offLinErr;
678    
679     if (ReadMacInt16(pb + csParam + 6)) {
680     // Given stopping address
681     if (!position2msf(info, ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), true, info->stop_at[0], info->stop_at[1], info->stop_at[2]))
682     return paramErr;
683     } else {
684     // Given starting address
685     uint8 start_m, start_s, start_f;
686     if (!position2msf(info, ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), false, start_m, start_s, start_f))
687     return paramErr;
688     info->play_mode = ReadMacInt8(pb + csParam + 9) & 0x0f;
689     if (!SysCDPlay(info->fh, start_m, start_s, start_f, info->stop_at[0], info->stop_at[1], info->stop_at[2]))
690     return paramErr;
691     }
692     return noErr;
693    
694     case 105: // AudioPause
695     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
696     return offLinErr;
697    
698     switch (ReadMacInt32(pb + csParam)) {
699     case 0:
700     if (!SysCDResume(info->fh))
701     return paramErr;
702     break;
703     case 1:
704     if (!SysCDPause(info->fh))
705     return paramErr;
706     break;
707     default:
708     return paramErr;
709     }
710     return noErr;
711    
712     case 106: // AudioStop
713     D(bug(" AudioStop postype %d, pos %08lx\n", ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2)));
714     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
715     return offLinErr;
716    
717     if (ReadMacInt16(pb + csParam) == 0 && ReadMacInt32(pb + csParam + 2) == 0) {
718     // Stop immediately
719     if (!SysCDStop(info->fh, info->lead_out[0], info->lead_out[1], info->lead_out[2]))
720     return paramErr;
721     } else {
722     // Given stopping address
723     if (!position2msf(info, ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), true, info->stop_at[0], info->stop_at[1], info->stop_at[2]))
724     return paramErr;
725     }
726     return noErr;
727    
728     case 107: { // AudioStatus
729     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
730     return offLinErr;
731    
732     uint8 pos[16];
733     if (!SysCDGetPosition(info->fh, pos))
734     return paramErr;
735    
736     uint8 *p = Mac2HostAddr(pb + csParam);
737     switch (pos[1]) {
738     case 0x11:
739     *p++ = 0; // Audio play in progress
740     break;
741     case 0x12:
742     *p++ = 1; // Audio play paused
743     break;
744     case 0x13:
745     *p++ = 3; // Audio play completed
746     break;
747     case 0x14:
748     *p++ = 4; // Error occurred
749     break;
750     default:
751     *p++ = 5; // No audio play operation requested
752     break;
753     }
754     *p++ = info->play_mode;
755     *p++ = pos[5] & 0x0f; // Control
756     *p++ = bin2bcd[pos[9]]; // M (abs)
757     *p++ = bin2bcd[pos[10]]; // S (abs)
758     *p++ = bin2bcd[pos[11]]; // F (abs)
759     return noErr;
760     }
761    
762     case 108: { // AudioScan
763     if (ReadMacInt8(info->status + dsDiskInPlace) == 0)
764     return offLinErr;
765    
766     uint8 start_m, start_s, start_f;
767     if (!position2msf(info, ReadMacInt16(pb + csParam), ReadMacInt32(pb + csParam + 2), false, start_m, start_s, start_f))
768     return paramErr;
769    
770     if (!SysCDScan(info->fh, start_m, start_s, start_f, ReadMacInt16(pb + csParam + 6)))
771     return paramErr;
772     else
773     return noErr;
774     }
775    
776     case 109: // AudioControl
777     SysCDSetVolume(info->fh, ReadMacInt8(pb + csParam), ReadMacInt8(pb + csParam + 1));
778     return noErr;
779    
780     case 110: // ReadMCN
781     printf("FATAL: .AppleCD/Control(110): unimplemented call\n");
782     return controlErr;
783    
784     case 111: // ReadISRC
785     printf("FATAL: .AppleCD/Control(111): unimplemented call\n");
786     return controlErr;
787    
788     case 112: { // ReadAudioVolume
789     uint8 left, right;
790     SysCDGetVolume(info->fh, left, right);
791     WriteMacInt8(pb + csParam, left);
792     WriteMacInt8(pb + csParam + 1, right);
793     return noErr;
794     }
795    
796     case 113: // GetSpindleSpeed
797     WriteMacInt16(pb + csParam, 0xff);
798     return noErr;
799    
800     case 114: // SetSpindleSpeed
801     return noErr;
802    
803     case 115: // ReadAudio
804     printf("FATAL: .AppleCD/Control(115): unimplemented call\n");
805     return controlErr;
806    
807     case 116: // ReadAllSubcodes
808     printf("FATAL: .AppleCD/Control(116): unimplemented call\n");
809     return controlErr;
810    
811     case 122: // SetTrackList
812     printf("FATAL: .AppleCD/Control(122): unimplemented call\n");
813     return controlErr;
814    
815     case 123: // GetTrackList
816     printf("FATAL: .AppleCD/Control(123): unimplemented call\n");
817     return controlErr;
818    
819     case 124: // GetTrackIndex
820     printf("FATAL: .AppleCD/Control(124): unimplemented call\n");
821     return controlErr;
822    
823     case 125: // SetPlayMode
824     D(bug(" SetPlayMode %04x\n", ReadMacInt16(pb + csParam)));
825     printf("FATAL: .AppleCD/Control(125): unimplemented call\n");
826     return controlErr;
827    
828     case 126: // GetPlayMode (Apple's Audio CD program needs this)
829     WriteMacInt16(pb + csParam, 0);
830     return noErr;
831    
832     default:
833     printf("WARNING: Unknown CDROMControl(%d)\n", code);
834     return controlErr;
835     }
836     }
837    
838    
839     /*
840     * Driver Status() routine
841     */
842    
843     int16 CDROMStatus(uint32 pb, uint32 dce)
844     {
845     DriveInfo *info = get_drive_info(ReadMacInt16(pb + ioVRefNum));
846     uint16 code = ReadMacInt16(pb + csCode);
847     D(bug("CDROMStatus %d\n", code));
848    
849     // General codes
850     switch (code) {
851     case 43: { // DriverGestalt
852     uint32 sel = ReadMacInt32(pb + csParam);
853     D(bug(" driver gestalt %c%c%c%c\n", sel >> 24, sel >> 16, sel >> 8, sel));
854     switch (sel) {
855     case 'vers': // Version
856     WriteMacInt32(pb + csParam + 4, 0x05208000);
857     break;
858     case 'devt': // Device type
859     WriteMacInt32(pb + csParam + 4, 'cdrm');
860     break;
861     case 'intf': // Interface type
862     WriteMacInt32(pb + csParam + 4, 'basi');
863     break;
864     case 'sync': // Only synchronous operation?
865     WriteMacInt32(pb + csParam + 4, 0x01000000);
866     break;
867     case 'boot': // Boot ID
868     if (info != NULL)
869     WriteMacInt16(pb + csParam + 4, info->num);
870     else
871     WriteMacInt16(pb + csParam + 4, 0);
872     WriteMacInt16(pb + csParam + 6, (uint16)CDROMRefNum);
873     break;
874     case 'wide': // 64-bit access supported?
875     WriteMacInt16(pb + csParam + 4, 0);
876     break;
877     case 'purg': // Purge flags
878     WriteMacInt32(pb + csParam + 4, 0);
879     break;
880     case 'ejec': // Eject flags
881     WriteMacInt32(pb + csParam + 4, 0x00030003); // Don't eject on shutdown/restart
882     break;
883     case 'flus': // Flush flags
884     WriteMacInt16(pb + csParam + 4, 0);
885     break;
886     case 'vmop': // Virtual memory attributes
887     WriteMacInt32(pb + csParam + 4, 0); // Drive not available for VM
888     break;
889     default:
890     return statusErr;
891     }
892     return noErr;
893     }
894     }
895    
896     // Drive valid?
897     if (info == NULL)
898     if (first_drive_info == NULL)
899     return nsDrvErr;
900     else
901     info = first_drive_info; // This is needed for Apple's Audio CD program
902    
903     // Drive-specific codes
904     switch (code) {
905     case 8: // DriveStatus
906     memcpy(Mac2HostAddr(pb + csParam), Mac2HostAddr(info->status), 22);
907     return noErr;
908    
909     case 70: // GetPowerMode
910     WriteMacInt16(pb + csParam, info->power_mode << 8);
911     return noErr;
912    
913     case 95: // Get2KOffset
914     if (info->twok_offset > 0) {
915     WriteMacInt16(pb + csParam, info->twok_offset);
916     return noErr;
917     } else
918     return statusErr;
919    
920     case 96: // Get drive type
921     WriteMacInt16(pb + csParam, 3); // Apple CD 300 or newer
922     return noErr;
923    
924     case 98: // Get block size
925     WriteMacInt16(pb + csParam, info->block_size);
926     return noErr;
927    
928     case 120: // Return device ident
929     WriteMacInt32(pb + csParam, 0);
930     return noErr;
931    
932     case 121: // Get CD features
933     WriteMacInt16(pb + csParam, 0x0200); // 300 KB/s
934     WriteMacInt16(pb + csParam, 0x0300); // SCSI-2, stereo
935     return noErr;
936    
937     default:
938     printf("WARNING: Unknown CDROMStatus(%d)\n", code);
939     return statusErr;
940     }
941     }