]> Shamusworld >> Repos - virtualjaguar/blob - cdrom.cpp
c45a8f0306c06c5970a8a52bbd98e4b1daa4e45e
[virtualjaguar] / cdrom.cpp
1 //
2 // CD handler
3 //
4 // Originally by David Raingeard
5 // GCC/SDL port by Niels Wagenaar (Linux/WIN32) and Caz (BeOS)
6 // Extensive rewrites/cleanups/fixes by James L. Hammons
7 // (C) 2010 Underground Software
8 //
9 // JLH = James L. Hammons <jlhamm@acm.org>
10 //
11 // Who  When        What
12 // ---  ----------  -------------------------------------------------------------
13 // JLH  01/16/2010  Created this log ;-)
14 //
15
16 #include "cdrom.h"
17
18 #include <string.h>                                                                     // For memset, etc.
19 //#include "jaguar.h"                                                                   // For GET32/SET32 macros
20 #include "m68k.h"
21 //#include "memory.h"
22 #include "cdintf.h"                                                                     // System agnostic CD interface functions
23 #include "log.h"
24 #include "dac.h"
25
26 //#define CDROM_LOG                                                                     // For CDROM logging, obviously
27
28 /*
29 BUTCH     equ  $DFFF00          ; base of Butch=interrupt control register, R/W
30 DSCNTRL   equ  BUTCH+4          ; DSA control register, R/W
31 DS_DATA   equ  BUTCH+$A         ; DSA TX/RX data, R/W
32 I2CNTRL   equ  BUTCH+$10        ; i2s bus control register, R/W
33 SBCNTRL   equ  BUTCH+$14        ; CD subcode control register, R/W
34 SUBDATA   equ  BUTCH+$18        ; Subcode data register A
35 SUBDATB   equ  BUTCH+$1C        ; Subcode data register B
36 SB_TIME   equ  BUTCH+$20        ; Subcode time and compare enable (D24)
37 FIFO_DATA equ  BUTCH+$24        ; i2s FIFO data
38 I2SDAT1   equ  BUTCH+$24        ; i2s FIFO data
39 I2SDAT2   equ  BUTCH+$28        ; i2s FIFO data
40 2C = ?
41
42 ;
43 ; Butch's hardware registers
44 ;
45 ;BUTCH     equ  $DFFF00         ;base of Butch=interrupt control register, R/W
46 ;
47 ;  When written (Long):
48 ;
49 ;  bit0 - set to enable interrupts
50 ;  bit1 - enable CD data FIFO half full interrupt
51 ;  bit2 - enable CD subcode frame-time interrupt (@ 2x spped = 7ms.)
52 ;  bit3 - enable pre-set subcode time-match found interrupt
53 ;  bit4 - CD module command transmit buffer empty interrupt
54 ;  bit5 - CD module command receive buffer full
55 ;  bit6 - CIRC failure interrupt
56 ;
57 ;  bit7-31  reserved, set to 0
58 ;
59 ;  When read (Long):
60 ;
61 ;  bit0-8 reserved
62 ;
63 ;  bit9  - CD data FIFO half-full flag pending
64 ;  bit10 - Frame pending
65 ;  bit11 - Subcode data pending
66 ;  bit12 - Command to CD drive pending (trans buffer empty if 1)
67 ;  bit13 - Response from CD drive pending (rec buffer full if 1)
68 ;  bit14 - CD uncorrectable data error pending
69 ;
70 ;   Offsets from BUTCH
71 ;
72 O_DSCNTRL   equ  4              ; DSA control register, R/W
73 O_DS_DATA   equ  $A             ; DSA TX/RX data, R/W
74 ;
75 O_I2CNTRL   equ  $10            ; i2s bus control register, R/W
76 ;
77 ;  When read:
78 ;
79 ;  b0 - I2S data from drive is ON if 1
80 ;  b1 - I2S path to Jerry is ON if 1
81 ;  b2 - reserved
82 ;  b3 - host bus width is 16 if 1, else 32
83 ;  b4 - FIFO state is not empty if 1
84 ;
85 O_SBCNTRL   equ  $14            ; CD subcode control register, R/W
86 O_SUBDATA   equ  $18            ; Subcode data register A
87 O_SUBDATB   equ  $1C            ; Subcode data register B
88 O_SB_TIME   equ  $20            ; Subcode time and compare enable (D24)
89 O_FIFODAT   equ  $24            ; i2s FIFO data
90 O_I2SDAT2   equ  $28            ; i2s FIFO data (old)
91 */
92
93 /*
94 Commands sent through DS_DATA:
95
96 $01nn - ? Play track nn ? Seek to track nn ?
97 $0200 - Stop CD
98 $03nn - Read session nn TOC (short)
99 $0400 - Pause CD
100 $0500 - Unpause CD
101 $10nn - Goto (min?)
102 $11nn - Goto (sec?)
103 $12nn - Goto (frm?)
104 $14nn - Read session nn TOC (full)
105 $15nn - Set CD mode
106 $18nn - Spin up CD to session nn
107 $5000 - ?
108 $5100 - Mute CD (audio mode only)
109 $51FF - Unmute CD (audio mode only)
110 $5400 - Read # of sessions on CD
111 $70nn - Set oversampling mode
112
113 Commands send through serial bus:
114
115 $100 - ? Acknowledge ?
116 $130 - ? (Seems to always prefix the $14n commands)
117 $140 - Returns ACK (1) (Write to NVRAM?)
118 $141 - Returns ACK (1)
119 $142 - Returns ACK (1)
120 $143 - Returns ACK (1)
121 $144 - Returns ACK (1)
122 $145 - Returns ACK (1)
123 $180 - Returns 16-bit value (NVRAM?)
124 $181 - Returns 16-bit value
125 $182 - Returns 16-bit value
126 $183 - Returns 16-bit value
127 $184 - Returns 16-bit value
128 $185 - Returns 16-bit value
129 */
130
131 // Private function prototypes
132
133 static void CDROMBusWrite(uint16);
134 static uint16 CDROMBusRead(void);
135
136 #define BUTCH           0x00                            // base of Butch == interrupt control register, R/W
137 #define DSCNTRL         BUTCH + 0x04            // DSA control register, R/W
138 #define DS_DATA         BUTCH + 0x0A            // DSA TX/RX data, R/W
139 #define I2CNTRL         BUTCH + 0x10            // i2s bus control register, R/W
140 #define SBCNTRL         BUTCH + 0x14            // CD subcode control register, R/W
141 #define SUBDATA         BUTCH + 0x18            // Subcode data register A
142 #define SUBDATB         BUTCH + 0x1C            // Subcode data register B
143 #define SB_TIME         BUTCH + 0x20            // Subcode time and compare enable (D24)
144 #define FIFO_DATA       BUTCH + 0x24            // i2s FIFO data
145 #define I2SDAT2         BUTCH + 0x28            // i2s FIFO data (old)
146 #define UNKNOWN         BUTCH + 0x2C            // Seems to be some sort of I2S interface
147
148 const char * BReg[12] = { "BUTCH", "DSCNTRL", "DS_DATA", "???", "I2CNTRL", "SBCNTRL", "SUBDATA", "SUBDATB",
149         "SB_TIME", "FIFO_DATA", "I2SDAT2", "UNKNOWN" };
150 //extern const char * whoName[9];
151
152
153 static uint8 cdRam[0x100];
154 static uint16 cdCmd = 0, cdPtr = 0;
155 static bool haveCDGoodness;
156 static uint32 min, sec, frm, block;
157 static uint8 cdBuf[2352 + 96];
158 static uint32 cdBufPtr = 2352;
159 //Also need to set up (save/restore) the CD's NVRAM
160
161
162 //extern bool GetRawTOC(void);
163 void CDROMInit(void)
164 {
165         haveCDGoodness = CDIntfInit();
166
167 //GetRawTOC();
168 /*uint8 buf[2448];
169 uint32 sec = 18667 - 150;
170 memset(buf, 0, 2448);
171 if (!CDIntfReadBlock(sec, buf))
172 {
173         WriteLog("CDROM: Attempt to read with subchannel data failed!\n");
174         return;
175 }
176
177 //24x98+96
178 //96=4x24=4x4x6
179 WriteLog("\nCDROM: Read sector %u...\n\n", sec);
180 for(int i=0; i<98; i++)
181 {
182         WriteLog("%04X: ", i*24);
183         for(int j=0; j<24; j++)
184         {
185                 WriteLog("%02X ", buf[j + (i*24)]);
186         }
187         WriteLog("\n");
188 }
189 WriteLog("\nRaw P-W subchannel data:\n\n");
190 for(int i=0; i<6; i++)
191 {
192         WriteLog("%02X: ", i*16);
193         for(int j=0; j<16; j++)
194         {
195                 WriteLog("%02X ", buf[2352 + j + (i*16)]);
196         }
197         WriteLog("\n");
198 }
199 WriteLog("\nP subchannel data: ");
200 for(int i=0; i<96; i+=8)
201 {
202         uint8 b = 0;
203         for(int j=0; j<8; j++)
204                 b |= ((buf[2352 + i + j] & 0x80) >> 7) << (7 - j);
205
206         WriteLog("%02X ", b);
207 }
208 WriteLog("\nQ subchannel data: ");
209 for(int i=0; i<96; i+=8)
210 {
211         uint8 b = 0;
212         for(int j=0; j<8; j++)
213                 b |= ((buf[2352 + i + j] & 0x40) >> 6) << (7 - j);
214
215         WriteLog("%02X ", b);
216 }
217 WriteLog("\n\n");//*/
218 }
219
220 void CDROMReset(void)
221 {
222         memset(cdRam, 0x00, 0x100);
223         cdCmd = 0;
224 }
225
226 void CDROMDone(void)
227 {
228         CDIntfDone();
229 }
230
231
232 //
233 // This approach is probably wrong, but let's do it for now.
234 // What's needed is a complete overhaul of the interrupt system so that
235 // interrupts are handled as they're generated--instead of the current
236 // scheme where they're handled on scanline boundaries.
237 //
238 void BUTCHExec(uint32 cycles)
239 {
240 #if 1
241 // We're chickening out for now...
242 return;
243 #else
244 //      extern uint8 * jerry_ram_8;                                     // Hmm.
245
246         // For now, we just do the FIFO interrupt. Timing is also likely to be WRONG as well.
247         uint32 cdState = GET32(cdRam, BUTCH);
248
249         if (!(cdState & 0x01))                                          // No BUTCH interrupts enabled
250                 return;
251
252         if (!(cdState & 0x22))
253                 return;                                                                 // For now, we only handle FIFO/buffer full interrupts...
254
255         // From what I can make out, it seems that each FIFO is 32 bytes long
256
257 //      DSPSetIRQLine(DSPIRQ_EXT, ASSERT_LINE);
258 //I'm *sure* this is wrong--prolly need to generate DSP IRQs as well!
259         if (jerry_ram_8[0x23] & 0x3F)                           // Only generate an IRQ if enabled!
260                 GPUSetIRQLine(GPUIRQ_DSP, ASSERT_LINE);
261 #endif
262 }
263
264
265 //
266 // CD-ROM memory access functions
267 //
268
269 uint8 CDROMReadByte(uint32 offset, uint32 who/*=UNKNOWN*/)
270 {
271 #ifdef CDROM_LOG
272         if ((offset & 0xFF) < 12 * 4)
273                 WriteLog("[%s] ", BReg[(offset & 0xFF) / 4]);
274         WriteLog("CDROM: %s reading byte $%02X from $%08X [68K PC=$%08X]\n", whoName[who], offset, cdRam[offset & 0xFF], m68k_get_reg(NULL, M68K_REG_PC));
275 #endif
276         return cdRam[offset & 0xFF];
277 }
278
279 static uint8 trackNum = 1, minTrack, maxTrack;
280 //static uint8 minutes[16] = {  0,  0,  2,  5,  7, 10, 12, 15, 17, 20, 22, 25, 27, 30, 32, 35 };
281 //static uint8 seconds[16] = {  0,  0, 30,  0, 30,  0, 30,  0, 30,  0, 30,  0, 30,  0, 30,  0 };
282 //static uint8 frames[16]  = {  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0 };
283 //static uint16 sd = 0;
284 uint16 CDROMReadWord(uint32 offset, uint32 who/*=UNKNOWN*/)
285 {
286         offset &= 0xFF;
287
288         uint16 data = 0x0000;
289
290         if (offset == BUTCH)
291                 data = 0x0000;
292         else if (offset == BUTCH + 2)
293 // We need to fix this so it's not as brain-dead as it is now--i.e., make it so that when
294 // a command is sent to the CDROM, we control here whether or not it succeeded or whether
295 // the command is still being carried out, etc.
296
297 // bit12 - Command to CD drive pending (trans buffer empty if 1)
298 // bit13 - Response from CD drive pending (rec buffer full if 1)
299 //              data = (haveCDGoodness ? 0x3000 : 0x0000);      // DSA RX Interrupt pending bit (0 = pending)
300 //This only returns ACKs for interrupts that are set:
301 //This doesn't work for the initial code that writes $180000 to BUTCH. !!! FIX !!!
302                 data = (haveCDGoodness ? cdRam[BUTCH + 3] << 8 : 0x0000);
303 //      else if (offset == SUBDATA + 2)
304 //              data = sd++ | 0x0010;                                           // Have no idea what this is...
305         else if (offset == DS_DATA && haveCDGoodness)
306         {
307                 if ((cdCmd & 0xFF00) == 0x0100)                         // ???
308                 {
309 //Not sure how to acknowledge the ???...
310 //                      data = 0x0400;//?? 0x0200;
311                         cdPtr++;
312                         switch (cdPtr)
313                         {
314                         case 1:
315                                 data = 0x0000;
316                                 break;
317                         case 2:
318                                 data = 0x0100;
319                                 break;
320                         case 3:
321                                 data = 0x0200;
322                                 break;
323                         case 4:
324                                 data = 0x0300;
325                                 break;
326                         case 5:
327                                 data = 0x0400;
328                         }//*/
329                         WriteLog("CDROM: Reading DS_DATA (???), cdCmd=$%04X\n", cdCmd);
330                 }
331                 else if ((cdCmd & 0xFF00) == 0x0200)                    // Stop CD
332                 {
333 //Not sure how to acknowledge the stop...
334                         data = 0x0400;//?? 0x0200;
335 /*                      cdPtr++;
336                         switch (cdPtr)
337                         {
338                         case 1:
339                                 data = 0x00FF;
340                                 break;
341                         case 2:
342                                 data = 0x01FF;
343                                 break;
344                         case 3:
345                                 data = 0x02FF;
346                                 break;
347                         case 4:
348                                 data = 0x03FF;
349                                 break;
350                         case 5:
351                                 data = 0x0400;
352                         }//*/
353                         WriteLog("CDROM: Reading DS_DATA (stop), cdCmd=$%04X\n", cdCmd);
354                 }
355                 else if ((cdCmd & 0xFF00) == 0x0300)            // Read session TOC (overview?)
356                 {
357
358 /*
359 TOC: [Sess] [adrCtl] [?] [point] [?] [?] [?] [?] [pmin] [psec] [pframe]
360 TOC: 1 10 00 a0 00:00:00 00 01:00:00
361 TOC: 1 10 00 a1 00:00:00 00 01:00:00
362 TOC: 1 10 00 a2 00:00:00 00 03:42:42
363 TOC: 1 10 00  1 00:00:00 00 00:02:00   <-- Track #1
364 TOC: 1 50 00 b0 06:12:42 02 79:59:74
365 TOC: 1 50 00 c0 128:00:32 00 97:18:06
366 TOC: 2 10 00 a0 00:00:00 00 02:00:00
367 TOC: 2 10 00 a1 00:00:00 00 11:00:00
368 TOC: 2 10 00 a2 00:00:00 00 54:32:18
369 TOC: 2 10 00  2 00:00:00 00 06:14:42   <-- Track #2
370 TOC: 2 10 00  3 00:00:00 00 06:24:42   <-- Track #3
371 TOC: 2 10 00  4 00:00:00 00 17:42:00   <-- Track #4
372 TOC: 2 10 00  5 00:00:00 00 22:26:15   <-- Track #5
373 TOC: 2 10 00  6 00:00:00 00 29:50:16   <-- Track #6
374 TOC: 2 10 00  7 00:00:00 00 36:01:49   <-- Track #7
375 TOC: 2 10 00  8 00:00:00 00 40:37:59   <-- Track #8
376 TOC: 2 10 00  9 00:00:00 00 45:13:70   <-- Track #9
377 TOC: 2 10 00  a 00:00:00 00 49:50:06   <-- Track #10
378 TOC: 2 10 00  b 00:00:00 00 54:26:17   <-- Track #11
379 */
380
381 //Should do something like so:
382 //                      data = GetSessionInfo(cdCmd & 0xFF, cdPtr);
383                         data = CDIntfGetSessionInfo(cdCmd & 0xFF, cdPtr);
384                         if (data == 0xFF)       // Failed...
385                         {
386                                 data = 0x0400;
387                                 WriteLog("CDROM: Requested invalid session #%u (or failed to load TOC, or bad cdPtr value)\n", cdCmd & 0xFF);
388                         }
389                         else
390                         {
391                                 data |= (0x20 | cdPtr++) << 8;
392                                 WriteLog("CDROM: Reading DS_DATA (session #%u TOC byte #%u): $%04X\n", cdCmd & 0xFF, cdPtr, data);
393                         }
394
395 /*                      bool isValidSession = ((cdCmd & 0xFF) == 0 ? true : false);//Hardcoded... !!! FIX !!!
396 //NOTE: This should return error condition if the requested session doesn't exist! ($0400?)
397                         if (isValidSession)
398                         {
399                                 cdPtr++;
400                                 switch (cdPtr)
401                                 {
402                                 case 1:
403                                         data = 0x2001;  // Min track for this session?
404                                         break;
405                                 case 2:
406                                         data = 0x210A;  // Max track for this session?
407                                         break;
408                                 case 3:
409                                         data = 0x2219;  // Max lead-out time, absolute minutes
410                                         break;
411                                 case 4:
412                                         data = 0x2319;  // Max lead-out time, absolute seconds
413                                         break;
414                                 case 5:
415                                         data = 0x2419;  // Max lead-out time, absolute frames
416                                         break;
417                                 default:
418                                         data = 0xFFFF;
419
420 //;    +0 - unused, reserved (0)
421 //;    +1 - unused, reserved (0)
422 //;    +2 - minimum track number
423 //;    +3 - maximum track number
424 //;    +4 - total number of sessions
425 //;    +5 - start of last lead-out time, absolute minutes
426 //;    +6 - start of last lead-out time, absolute seconds
427 //;    +7 - start of last lead-out time, absolute frames
428
429                                 }
430                                 WriteLog("CDROM: Reading DS_DATA (session #%u TOC byte #%u): $%04X\n", cdCmd & 0xFF, cdPtr, data);
431                         }
432                         else
433                         {
434                                 data = 0x0400;
435                                 WriteLog("CDROM: Requested invalid session #%u\n", cdCmd & 0xFF);
436                         }*/
437                 }
438                 // Seek to m, s, or f position
439                 else if ((cdCmd & 0xFF00) == 0x1000 || (cdCmd & 0xFF00) == 0x1100 || (cdCmd & 0xFF00) == 0x1200)
440                         data = 0x0100;  // Success, though this doesn't take error handling into account.
441                         // Ideally, we would also set the bits in BUTCH to let the processor know that
442                         // this is ready to be read... !!! FIX !!!
443                 else if ((cdCmd & 0xFF00) == 0x1400)            // Read "full" session TOC
444                 {
445 //Need to be a bit more tricky here, since it's reading the "session" TOC instead of the
446 //full TOC--so we need to check for the min/max tracks for each session here... [DONE]
447
448                         if (trackNum > maxTrack)
449                         {
450                                 data = 0x400;
451 WriteLog("CDROM: Requested invalid track #%u for session #%u\n", trackNum, cdCmd & 0xFF);
452                         }
453                         else
454                         {
455                                 if (cdPtr < 0x62)
456                                         data = (cdPtr << 8) | trackNum;
457                                 else if (cdPtr < 0x65)
458                                         data = (cdPtr << 8) | CDIntfGetTrackInfo(trackNum, (cdPtr - 2) & 0x0F);
459
460 WriteLog("CDROM: Reading DS_DATA (session #%u, full TOC byte #%u): $%04X\n", cdCmd & 0xFF, (cdPtr+1) & 0x0F, data);
461
462                                 cdPtr++;
463                                 if (cdPtr == 0x65)
464                                         cdPtr = 0x60, trackNum++;
465                         }
466
467                         // Note that it seems to return track info in sets of 4 (or is it 5?)
468 /*
469 ;    +0 - track # (must be non-zero)
470 ;    +1 - absolute minutes (0..99), start of track
471 ;    +2 - absolute seconds (0..59), start of track
472 ;    +3 - absolute frames, (0..74), start of track
473 ;    +4 - session # (0..99)
474 ;    +5 - track duration minutes
475 ;    +6 - track duration seconds
476 ;    +7 - track duration frames
477 */
478                         // Seems to be the following format: $60xx -> Track #xx
479                         //                                   $61xx -> min?   (trk?)
480                         //                                   $62xx -> sec?   (min?)
481                         //                                   $63xx -> frame? (sec?)
482                         //                                   $64xx -> ?      (frame?)
483 /*                      cdPtr++;
484                         switch (cdPtr)
485                         {
486                         case 1:
487                                 data = 0x6000 | trackNum;       // Track #
488                                 break;
489                         case 2:
490                                 data = 0x6100 | trackNum;       // Track # (again?)
491                                 break;
492                         case 3:
493                                 data = 0x6200 | minutes[trackNum];      // Minutes
494                                 break;
495                         case 4:
496                                 data = 0x6300 | seconds[trackNum];      // Seconds
497                                 break;
498                         case 5:
499                                 data = 0x6400 | frames[trackNum];               // Frames
500                                 trackNum++;
501                                 cdPtr = 0;
502                         }//*/
503                 }
504                 else if ((cdCmd & 0xFF00) == 0x1500)            // Read CD mode
505                 {
506                         data = cdCmd | 0x0200;  // ?? not sure ?? [Seems OK]
507                         WriteLog("CDROM: Reading DS_DATA (mode), cdCmd=$%04X\n", cdCmd);
508                 }
509                 else if ((cdCmd & 0xFF00) == 0x1800)            // Spin up session #
510                 {
511                         data = cdCmd;
512                         WriteLog("CDROM: Reading DS_DATA (spin up session), cdCmd=$%04X\n", cdCmd);
513                 }
514                 else if ((cdCmd & 0xFF00) == 0x5400)            // Read # of sessions
515                 {
516                         data = cdCmd | 0x00;    // !!! Hardcoded !!! FIX !!!
517                         WriteLog("CDROM: Reading DS_DATA (# of sessions), cdCmd=$%04X\n", cdCmd);
518                 }
519                 else if ((cdCmd & 0xFF00) == 0x7000)            // Read oversampling
520                 {
521 //NOTE: This setting will probably affect the # of DSP interrupts that need to happen. !!! FIX !!!
522                         data = cdCmd;
523                         WriteLog("CDROM: Reading DS_DATA (oversampling), cdCmd=$%04X\n", cdCmd);
524                 }
525                 else
526                 {
527                         data = 0x0400;
528                         WriteLog("CDROM: Reading DS_DATA, unhandled cdCmd=$%04X\n", cdCmd);
529                 }
530         }
531         else if (offset == DS_DATA && !haveCDGoodness)
532                 data = 0x0400;                                                          // No CD interface present, so return error
533         else if (offset >= FIFO_DATA && offset <= FIFO_DATA + 3)
534         {
535         }
536         else if (offset >= FIFO_DATA + 4 && offset <= FIFO_DATA + 7)
537         {
538         }
539         else
540                 data = GET16(cdRam, offset);
541
542 //Returning $00000008 seems to cause it to use the starfield. Dunno why.
543 // It looks like it's getting the CD_mode this way...
544 //Temp, for testing...
545 //Very interesting...! Seems to control sumthin' or other...
546 /*if (offset == 0x2C || offset == 0x2E)
547         data = 0xFFFF;//*/
548 /*if (offset == 0x2C)
549         data = 0x0000;
550 if (offset == 0x2E)
551         data = 0;//0x0008;//*/
552         if (offset == UNKNOWN + 2)
553                 data = CDROMBusRead();
554
555 #ifdef CDROM_LOG
556         if ((offset & 0xFF) < 11 * 4)
557                 WriteLog("[%s] ", BReg[(offset & 0xFF) / 4]);
558         if (offset != UNKNOWN && offset != UNKNOWN + 2)
559                 WriteLog("CDROM: %s reading word $%04X from $%08X [68K PC=$%08X]\n", whoName[who], data, offset, m68k_get_reg(NULL, M68K_REG_PC));
560 #endif
561         return data;
562 }
563
564 void CDROMWriteByte(uint32 offset, uint8 data, uint32 who/*=UNKNOWN*/)
565 {
566         offset &= 0xFF;
567         cdRam[offset] = data;
568
569 #ifdef CDROM_LOG
570         if ((offset & 0xFF) < 12 * 4)
571                 WriteLog("[%s] ", BReg[(offset & 0xFF) / 4]);
572         WriteLog("CDROM: %s writing byte $%02X at $%08X [68K PC=$%08X]\n", whoName[who], data, offset, m68k_get_reg(NULL, M68K_REG_PC));
573 #endif
574 }
575
576 void CDROMWriteWord(uint32 offset, uint16 data, uint32 who/*=UNKNOWN*/)
577 {
578         offset &= 0xFF;
579         SET16(cdRam, offset, data);
580
581         // Command register
582 //Lesse what this does... Seems to work OK...!
583         if (offset == DS_DATA)
584         {
585                 cdCmd = data;
586                 if ((data & 0xFF00) == 0x0200)                          // Stop CD
587                 {
588                         cdPtr = 0;
589                         WriteLog("CDROM: Stopping CD\n", data & 0xFF);
590                 }
591                 else if ((data & 0xFF00) == 0x0300)                     // Read session TOC (short? overview?)
592                 {
593                         cdPtr = 0;
594                         WriteLog("CDROM: Reading TOC for session #%u\n", data & 0xFF);
595                 }
596 //Not sure how these three acknowledge...
597                 else if ((data & 0xFF00) == 0x1000)                     // Seek to minute position
598                 {
599                         min = data & 0x00FF;
600                 }
601                 else if ((data & 0xFF00) == 0x1100)                     // Seek to second position
602                 {
603                         sec = data & 0x00FF;
604                 }
605                 else if ((data & 0xFF00) == 0x1200)                     // Seek to frame position
606                 {
607                         frm = data & 0x00FF;
608                         block = (((min * 60) + sec) * 75) + frm;
609                         cdBufPtr = 2352;                                                // Ensure that SSI read will do so immediately
610                         WriteLog("CDROM: Seeking to %u:%02u:%02u [block #%u]\n", min, sec, frm, block);
611                 }
612                 else if ((data & 0xFF00) == 0x1400)                     // Read "full" TOC for session
613                 {
614                         cdPtr = 0x60,
615                         minTrack = CDIntfGetSessionInfo(data & 0xFF, 0),
616                         maxTrack = CDIntfGetSessionInfo(data & 0xFF, 1);
617                         trackNum = minTrack;
618                         WriteLog("CDROM: Reading \"full\" TOC for session #%u (min=%u, max=%u)\n", data & 0xFF, minTrack, maxTrack);
619                 }
620                 else if ((data & 0xFF00) == 0x1500)                     // Set CDROM mode
621                 {
622                         // Mode setting is as follows: bit 0 set -> single speed, bit 1 set -> double,
623                         // bit 3 set -> multisession CD, bit 3 unset -> audio CD
624                         WriteLog("CDROM: Setting mode $%02X\n", data & 0xFF);
625                 }
626                 else if ((data & 0xFF00) == 0x1800)                     // Spin up session #
627                 {
628                         WriteLog("CDROM: Spinning up session #%u\n", data & 0xFF);
629                 }
630                 else if ((data & 0xFF00) == 0x5400)                     // Read # of sessions
631                 {
632                         WriteLog("CDROM: Reading # of sessions\n", data & 0xFF);
633                 }
634                 else if ((data & 0xFF00) == 0x7000)                     // Set oversampling rate
635                 {
636                         // 1 = none, 2 = 2x, 3 = 4x, 4 = 8x
637                         uint32 rates[5] = { 0, 1, 2, 4, 8 };
638                         WriteLog("CDROM: Setting oversample rate to %uX\n", rates[(data & 0xFF)]);
639                 }
640                 else
641                         WriteLog("CDROM: Unknown command $%04X\n", data);
642         }//*/
643
644         if (offset == UNKNOWN + 2)
645                 CDROMBusWrite(data);
646
647 #ifdef CDROM_LOG
648         if ((offset & 0xFF) < 11 * 4)
649                 WriteLog("[%s] ", BReg[(offset & 0xFF) / 4]);
650         if (offset != UNKNOWN && offset != UNKNOWN + 2)
651                 WriteLog("CDROM: %s writing word $%04X at $%08X [68K PC=$%08X]\n", whoName[who], data, offset, m68k_get_reg(NULL, M68K_REG_PC));
652 #endif
653 }
654
655 //
656 // State machine for sending/receiving data along a serial bus
657 //
658
659 enum ButchState { ST_INIT, ST_RISING, ST_FALLING };
660 static ButchState currentState = ST_INIT;
661 static uint16 counter = 0;
662 static bool cmdTx = false;
663 static uint16 busCmd;
664 static uint16 rxData, txData;
665 static uint16 rxDataBit;
666 static bool firstTime = false;
667
668 static void CDROMBusWrite(uint16 data)
669 {
670 //This is kinda lame. What we should do is check for a 0->1 transition on either bits 0 or 1...
671 //!!! FIX !!!
672
673 #ifdef CDROM_LOG
674         if (data & 0xFFF0)
675                 WriteLog("CDROM: BusWrite write on unknown line: $%04X\n", data);
676 #endif
677
678         switch (currentState)
679         {
680         case ST_INIT:
681                 currentState = ST_RISING;
682                 break;
683         case ST_RISING:
684                 if (data & 0x0001)                                                      // Command coming
685                 {
686                         cmdTx = true;
687                         counter = 0;
688                         busCmd = 0;
689                 }
690                 else
691                 {
692                         if (cmdTx)
693                         {
694                                 busCmd <<= 1;                                           // Make room for next bit
695                                 busCmd |= (data & 0x04);                        // & put it in
696                                 counter++;
697
698                                 if (counter == 9)
699                                 {
700                                         busCmd >>= 2;                                   // Because we ORed bit 2, we need to shift right by 2
701                                         cmdTx = false;
702
703 //What it looks like:
704 //It seems that the $18x series reads from NVRAM while the
705 //$130, $14x, $100 series writes values to NVRAM...
706                                         if (busCmd == 0x180)
707                                                 rxData = 0x0024;//1234;
708                                         else if (busCmd == 0x181)
709                                                 rxData = 0x0004;//5678;
710                                         else if (busCmd == 0x182)
711                                                 rxData = 0x0071;//9ABC;
712                                         else if (busCmd == 0x183)
713                                                 rxData = 0xFF67;//DEF0;
714                                         else if (busCmd == 0x184)
715                                                 rxData = 0xFFFF;//892F;
716                                         else if (busCmd == 0x185)
717                                                 rxData = 0xFFFF;//8000;
718                                         else
719                                                 rxData = 0x0001;
720 //                                              rxData = 0x8349;//8000;//0F67;
721
722                                         counter = 0;
723                                         firstTime = true;
724                                         txData = 0;
725 #ifdef CDROM_LOG
726                                         WriteLog("CDROM: *** BusWrite got command $%04X\n", busCmd);
727 #endif
728                                 }
729                         }
730                         else
731                         {
732                                 txData = (txData << 1) | ((data & 0x04) >> 2);
733 //WriteLog("[%s]", data & 0x04 ? "1" : "0");
734
735                                 rxDataBit = (rxData & 0x8000) >> 12;
736                                 rxData <<= 1;
737                                 counter++;
738 #ifdef CDROM_LOG
739                                 if (counter == 16)
740                                         WriteLog("CDROM: *** BusWrite got extra command $%04X\n", txData);
741 #endif
742                         }
743                 }
744
745                 currentState = ST_FALLING;
746                 break;
747         case ST_FALLING:
748                 currentState = ST_INIT;
749                 break;
750         }
751 }
752
753 static uint16 CDROMBusRead(void)
754 {
755 // It seems the counter == 0 simply waits for a single bit acknowledge-- !!! FIX !!!
756 // Or does it? Hmm. It still "pumps" 16 bits through above, so how is this special?
757 // Seems to be because it sits and looks at it as if it will change. Dunno!
758 #ifdef CDROM_LOG
759         if ((counter & 0x0F) == 0)
760         {
761                 if (counter == 0 && rxDataBit == 0)
762                 {
763                         if (firstTime)
764                         {
765                                 firstTime = false;
766                                 WriteLog("0...\n");
767                         }
768                 }
769                 else
770                         WriteLog("%s\n", rxDataBit ? "1" : "0");
771         }
772         else
773                 WriteLog("%s", rxDataBit ? "1" : "0");
774 #endif
775
776         return rxDataBit;
777 }
778
779 //
780 // This simulates a read from BUTCH over the SSI to JERRY. Uses real reading!
781 //
782 //temp, until I can fix my CD image... Argh!
783 static uint8 cdBuf2[2532 + 96], cdBuf3[2532 + 96];
784 uint16 GetWordFromButchSSI(uint32 offset, uint32 who/*= UNKNOWN*/)
785 {
786         bool go = ((offset & 0x0F) == 0x0A || (offset & 0x0F) == 0x0E ? true : false);
787
788         if (!go)
789                 return 0x000;
790
791 // The problem comes in here. Really, we should generate the IRQ once we've stuffed
792 // our values into the DAC L/RRXD ports...
793 // But then again, the whole IRQ system needs an overhaul in order to make it more
794 // cycle accurate WRT to the various CPUs. Right now, it's catch-as-catch-can, which
795 // means that IRQs get serviced on scanline boundaries instead of when they occur.
796         cdBufPtr += 2;
797
798         if (cdBufPtr >= 2352)
799         {
800 WriteLog("CDROM: %s reading block #%u...\n", whoName[who], block);
801                 //No error checking. !!! FIX !!!
802 //NOTE: We have to subtract out the 1st track start as well (in cdintf_foo.cpp)!
803 //              CDIntfReadBlock(block - 150, cdBuf);
804
805 //Crappy kludge for shitty shit. Lesse if it works!
806                 CDIntfReadBlock(block - 150, cdBuf2);
807                 CDIntfReadBlock(block - 149, cdBuf3);
808                 for(int i=0; i<2352-4; i+=4)
809                 {
810                         cdBuf[i+0] = cdBuf2[i+4];
811                         cdBuf[i+1] = cdBuf2[i+5];
812                         cdBuf[i+2] = cdBuf2[i+2];
813                         cdBuf[i+3] = cdBuf2[i+3];
814                 }
815                 cdBuf[2348] = cdBuf3[0];
816                 cdBuf[2349] = cdBuf3[1];
817                 cdBuf[2350] = cdBuf2[2350];
818                 cdBuf[2351] = cdBuf2[2351];//*/
819
820                 block++, cdBufPtr = 0;
821         }
822
823 /*extern bool doDSPDis;
824 if (block == 244968)
825         doDSPDis = true;//*/
826
827 WriteLog("[%04X:%01X]", GET16(cdBuf, cdBufPtr), offset & 0x0F);
828 if (cdBufPtr % 32 == 30)
829         WriteLog("\n");
830
831 //      return GET16(cdBuf, cdBufPtr);
832 //This probably isn't endian safe...
833 // But then again... It seems that even though the data on the CD is organized as
834 // LL LH RL RH the way it expects to see the data is RH RL LH LL.
835 // D'oh! It doesn't matter *how* the data comes in, since it puts each sample into
836 // its own left or right side queue, i.e. it reads them 32 bits at a time and puts
837 // them into their L/R channel queues. It does seem, though, that it expects the
838 // right channel to be the upper 16 bits and the left to be the lower 16.
839         return (cdBuf[cdBufPtr + 1] << 8) | cdBuf[cdBufPtr + 0];
840 }
841
842 bool ButchIsReadyToSend(void)
843 {
844 WriteLog("Butch is%s ready to send...\n", cdRam[I2CNTRL + 3] & 0x02 ? "" : " not");
845
846         return (cdRam[I2CNTRL + 3] & 0x02 ? true : false);
847 }
848
849 //
850 // This simulates a read from BUTCH over the SSI to JERRY. Uses real reading!
851 //
852 void SetSSIWordsXmittedFromButch(void)
853 {
854
855 // The problem comes in here. Really, we should generate the IRQ once we've stuffed
856 // our values into the DAC L/RRXD ports...
857 // But then again, the whole IRQ system needs an overhaul in order to make it more
858 // cycle accurate WRT to the various CPUs. Right now, it's catch-as-catch-can, which
859 // means that IRQs get serviced on scanline boundaries instead of when they occur.
860
861 // NOTE: The CD BIOS uses the following SMODE:
862 //       DAC: M68K writing to SMODE. Bits: WSEN FALLING  [68K PC=00050D8C]
863         cdBufPtr += 4;
864
865         if (cdBufPtr >= 2352)
866         {
867 WriteLog("CDROM: Reading block #%u...\n", block);
868                 //No error checking. !!! FIX !!!
869 //NOTE: We have to subtract out the 1st track start as well (in cdintf_foo.cpp)!
870 //              CDIntfReadBlock(block - 150, cdBuf);
871
872 //Crappy kludge for shitty shit. Lesse if it works!
873 //It does! That means my CD is WRONG! FUCK!
874
875 // But, then again, according to Belboz at AA the two zeroes in front *ARE* necessary...
876 // So that means my CD is OK, just this method is wrong!
877 // It all depends on whether or not the interrupt occurs on the RISING or FALLING edge
878 // of the word strobe... !!! FIX !!!
879
880 // When WS rises, left channel was done transmitting. When WS falls, right channel is done.
881 //              CDIntfReadBlock(block - 150, cdBuf2);
882 //              CDIntfReadBlock(block - 149, cdBuf3);
883                 CDIntfReadBlock(block, cdBuf2);
884                 CDIntfReadBlock(block + 1, cdBuf3);
885                 memcpy(cdBuf, cdBuf2 + 2, 2350);
886                 cdBuf[2350] = cdBuf3[0];
887                 cdBuf[2351] = cdBuf3[1];//*/
888
889                 block++, cdBufPtr = 0;
890
891 /*extern bool doDSPDis;
892 static int foo = 0;
893 if (block == 244968)
894 {
895         foo++;
896 WriteLog("\n***** foo = %u, block = %u *****\n\n", foo, block);
897         if (foo == 2)
898                 doDSPDis = true;
899 }//*/
900         }
901
902
903 WriteLog("[%02X%02X %02X%02X]", cdBuf[cdBufPtr+1], cdBuf[cdBufPtr+0], cdBuf[cdBufPtr+3], cdBuf[cdBufPtr+2]);
904 if (cdBufPtr % 32 == 28)
905         WriteLog("\n");
906
907 //This probably isn't endian safe...
908 // But then again... It seems that even though the data on the CD is organized as
909 // LL LH RL RH the way it expects to see the data is RH RL LH LL.
910 // D'oh! It doesn't matter *how* the data comes in, since it puts each sample into
911 // its own left or right side queue, i.e. it reads them 32 bits at a time and puts
912 // them into their L/R channel queues. It does seem, though, that it expects the
913 // right channel to be the upper 16 bits and the left to be the lower 16.
914
915 // This behavior is strictly a function of *where* the WS creates an IRQ. If the data
916 // is shifted by two zeroes (00 00 in front of the data file) then this *is* the
917 // correct behavior, since the left channel will be xmitted followed by the right
918
919 // Now we have definitive proof: The MYST CD shows a word offset. So that means we have
920 // to figure out how to make that work here *without* having to load 2 sectors, offset, etc.
921 // !!! FIX !!!
922         lrxd = (cdBuf[cdBufPtr + 3] << 8) | cdBuf[cdBufPtr + 2],
923         rrxd = (cdBuf[cdBufPtr + 1] << 8) | cdBuf[cdBufPtr + 0];
924 }
925
926 /*
927 [18667]
928 TOC for MYST
929
930 CDINTF: Disc summary
931         # of sessions: 2, # of tracks: 10
932         Session info:
933         1: min track= 1, max track= 1, lead out= 1:36:67
934         2: min track= 2, max track=10, lead out=55:24:71
935         Track info:
936          1: start= 0:02:00
937          2: start= 4:08:67
938          3: start= 4:16:65
939          4: start= 4:29:19
940          5: start=29:31:03
941          6: start=33:38:50
942          7: start=41:38:60
943          8: start=44:52:18
944          9: start=51:51:22
945         10: start=55:18:73
946
947 CDROM: Read sector 18517 (18667 - 150)...
948
949 0000: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
950 0018: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
951 0030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
952 0048: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
953 0060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
954 0078: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
955 0090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
956 00A8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
957 00C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
958 00D8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
959 00F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
960 0108: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
961 0120: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
962 0138: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
963 0150: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
964 0168: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
965 0180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
966 0198: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
967 01B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
968 01C8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
969 01E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
970 01F8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
971 0210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
972 0228: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
973 0240: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
974 0258: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
975 0270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
976 0288: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
977 02A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
978 02B8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
979 02D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
980 02E8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
981 0300: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
982 0318: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
983 0330: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
984 0348: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
985 0360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
986 0378: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
987 0390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
988 03A8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
989 03C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
990 03D8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
991 03F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
992 0408: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
993 0420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
994 0438: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
995 0450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
996 0468: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
997 0480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
998 0498: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
999 04B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1000 04C8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1001 04E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1002 04F8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1003 0510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1004 0528: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1005 0540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1006 0558: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1007 0570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1008 0588: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1009 05A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1010 05B8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1011 05D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1012 05E8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1013 0600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1014 0618: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1015 0630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1016 0648: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1017 0660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1018 0678: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1019 0690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1020 06A8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1021 06C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1022 06D8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1023 06F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1024 0708: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1025 0720: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1026 0738: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1027 0750: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1028 0768: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1029 0780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1030 0798: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1031 07B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
1032 07C8: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00[54 41 49 52]54 41
1033 07E0: 49 52 54 41 49 52 54 41 49 52 54 41 49 52 54 41 49 52 54 41 49 52 54 41
1034 07F8: 49 52 54 41 49 52 54 41 49 52 54 41 49 52 54 41 49 52 54 41 49 52 54 41
1035 0810: 49 52 54 41 49 52[54 41 49 52]54 41 52 41 20 49 50 41 52 50 56 4F 44 45
1036 0828: 44 20 54 41 20 41 45 48 44 41 52 45 41 20 52 54 20 49[00 00 00 50]01 00
1037 0840: 80 83 FC 23 07 00 07 00 F0 00 0C 21 FC 23 07 00 07 00 F1 00 0C A1 FC 33
1038 0858: FF FF F0 00 4E 00 7C 2E 1F 00 FC FF 00 61 08 00 F9 4E 00 00 00 51 E7 48
1039 0870: 00 FE 39 30 F1 00 02 40 40 02 10 00 00 67 1C 00 79 42 01 00 8C D3 3C 34
1040 0888: 37 03 3C 30 81 05 3C 3C 0A 01 3C 38 F1 00 00 60 1A 00 FC 33 01 00 01 00
1041 08A0: 8C D3 3C 34 4B 03 3C 30 65 05 3C 3C 42 01 3C 38 1F 01 C0 33 01 00 88 D3
1042 08B8: C4 33 01 00 8A D3 00 32 41 E2 41 94 7C D4 04 00 7C 92 01 00 41 00 00 04
1043 08D0: C1 33 01 00 82 D3 C1 33 F0 00 3C 00 C2 33 01 00 80 D3 C2 33 F0 00 38 00
1044 08E8: C2 33 F0 00 3A 00 06 3A 44 9A C5 33 01 00 84 D3 44 DC C6 33 01 00 86 D3
1045 0900: F9 33 01 00 84 D3 F0 00 46 00 FC 33 FF FF F0 00 48 00 FC 23 00 00 00 00
1046 0918: F0 00 2A 00 FC 33 00 00 F0 00 58 00 DF 4C 7F 00 75 4E 00 00 00 00 00 00
1047
1048 Raw P-W subchannel data:
1049
1050 00: 80 80 C0 80 80 80 80 C0 80 80 80 80 80 80 C0 80
1051 10: 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80
1052 20: 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 C0
1053 30: 80 80 80 80 80 80 80 80 80 80 80 80 80 C0 80 80
1054 40: 80 80 80 80 C0 80 80 80 80 C0 C0 80 80 C0 C0 80
1055 50: C0 80 80 C0 C0 C0 80 80 C0 80 80 80 C0 80 80 80
1056
1057 P subchannel data: FF FF FF FF FF FF FF FF FF FF FF FF
1058 Q subchannel data: 21 02 00 00 00 01 00 04 08 66 9C 88
1059
1060 Run address: $5000, Length: $18380
1061 */
1062
1063
1064 /*
1065 CD_read function from the CD BIOS: Note that it seems to direct the EXT1 interrupt
1066 to the GPU--so that would mean *any* interrupt that BUTCH generates would be routed
1067 to the GPU...
1068
1069 read:
1070                 btst.l  #31,d0
1071                 bne.w   .play
1072                 subq.l  #4,a0           ; Make up for ISR pre-increment
1073                 move.l  d0,-(sp)
1074                 move.l  BUTCH,d0
1075                 and.l   #$ffff0000,d0
1076                 move.l  d0,BUTCH        ; NO INTERRUPTS!!!!!!!!!!!
1077                 move.l  (sp)+,d0
1078 ;               move.l  #0,BUTCH
1079
1080                 move.w  #$101,J_INT
1081
1082                 move.l  d1,-(sp)
1083                 move.l  I2CNTRL,d1      ;Read I2S Control Register
1084                 bclr    #2,d1           ; Stop data
1085                 move.l  d1,I2CNTRL
1086                 move.l  (sp)+,d1
1087
1088                 move.l  PTRLOC,a2
1089                 move.l  a0,(a2)+
1090                 move.l  a1,(a2)+
1091                 move.l  #0,(a2)+
1092
1093                 btst.b  #7,INITTYPE
1094                 beq     .not_bad
1095                 move.l  PTRLOC,a0
1096                 asl.l   #5,d2
1097
1098                 move.l  d2,-(sp)
1099
1100                 or.l    #$089a3c1a,d2           ; These instructions include the bclr
1101                 move.l  d2,188(a0)
1102
1103                 move.l  (sp)+,d2
1104
1105                 swap    d2
1106                 or.l    #$3c1a1838,d2           ; These instructions include the bclr
1107                 move.l  d2,196(a0)
1108
1109                 move.l  #16,(a2)+
1110                 move.l  d1,(a2)
1111
1112 .not_bad:
1113
1114                 move.w  DS_DATA,d1                      ; Clear any pending DSARX states
1115                 move.l  I2CNTRL,d1                      ; Clear any pending errors
1116
1117 ; Drain the FIFO so that we don't get overloaded
1118
1119 .dump:
1120                 move.l  FIFO_DATA,d1
1121                 move.l  I2CNTRL,d1
1122                 btst    #4,d1
1123                 bne.b   .dump
1124
1125 .butch_go:
1126                 move.l  BUTCH,d1
1127                 and.l   #$FFFF0000,d1
1128                 or.l    #%000100001,d1                   ;Enable DSARX interrupt
1129                 move.l  d1,BUTCH
1130 ;               move.l  #%000100001,BUTCH                ;Enable DSARX interrupt
1131
1132 ; Do a play @
1133
1134 .play:  move.l  d0,d1           ; mess with copy in d1
1135                 lsr.l   #8,d1           ; shift the byte over
1136                 lsr.w   #8,d1
1137                 or.w    #$1000,d1       ; format it for goto
1138                 move.w  d1,DS_DATA      ; DSA tx
1139         bsr.b   DSA_tx
1140
1141                 move.l  d0,d1           ; mess with copy in d1
1142                 lsr.w   #8,d1
1143                 or.w    #$1100,d1       ; format it for goto
1144                 move.w  d1,DS_DATA      ; DSA tx
1145         bsr.b   DSA_tx
1146
1147                 move.l  d0,d1           ; mess with copy in d1
1148                 and.w   #$00FF,d1       ; mask for minutes
1149                 or.w    #$1200,d1       ; format it for goto
1150                 move.w  d1,DS_DATA      ; DSA tx
1151         bsr.b   DSA_tx
1152
1153                 rts
1154
1155
1156 ****************************
1157 * Here's the GPU interrupt *
1158 ****************************
1159
1160 JERRY_ISR:
1161         movei   #G_FLAGS,r30
1162         load    (r30),r29               ;read the flags
1163
1164         movei   #BUTCH,r24
1165
1166 make_ptr:
1167         move    pc,Ptrloc
1168         movei   #(make_ptr-PTRPOS),TEMP
1169         sub     TEMP,Ptrloc
1170
1171 HERE:
1172         move    pc,r25
1173         movei   #(EXIT_ISR-HERE),r27
1174         add     r27,r25
1175
1176 ; Is this a DSARX interrupt?
1177
1178         load    (r24),r27               ;check for DSARX int pending
1179         btst    #13,r27
1180         jr      z,fifo_read                     ; This should ALWAYS fall thru the first time
1181
1182 ; Set the match bit, to allow data
1183 ;       moveq   #3,r26                  ; enable FIFO only
1184 ; Don't just jam a value
1185 ; Clear the DSARX and set FIFO
1186         bclr    #5,r27
1187         bset    #1,r27
1188         store   r27,(r24)
1189         addq    #$10,r24
1190         load    (r24),r27
1191         bset    #2,r27
1192         store   r27,(r24)               ; Disable SUBCODE match
1193
1194 ; Now we clear the DSARX interrupt in Butch
1195
1196         subq    #12,r24                 ; does what the above says
1197         load    (r24),r26               ;Clears DSA pending interrupt
1198         addq    #6,r24
1199         loadw   (r24),r27               ; Read DSA response
1200         btst    #10,r27                 ; Check for error
1201         jr      nz,error
1202         or      r26,r26
1203         jump    (r25)
1204 ;       nop
1205
1206 fifo_read:
1207 ; Check for ERROR!!!!!!!!!!!!!!!!!!!!!
1208         btst    #14,r27
1209         jr      z,noerror
1210         bset    #31,r27
1211 error:
1212         addq    #$10,r24
1213         load    (r24),TEMP
1214         or      TEMP,TEMP
1215         subq    #$10,r24
1216         load    (Ptrloc),TEMP
1217         addq    #8,Ptrloc
1218         store   TEMP,(Ptrloc)
1219         subq    #8,Ptrloc
1220 noerror:
1221         load    (Ptrloc),Dataptr        ;get pointer
1222
1223 ; Check to see if we should stop
1224         addq    #4,Ptrloc
1225         load    (Ptrloc),TEMP
1226         subq    #4,Ptrloc
1227         cmp     Dataptr,TEMP
1228         jr      pl,notend
1229 ;       nop
1230         bclr    #0,r27
1231         store   r27,(r24)
1232
1233 notend:
1234         movei   #FIFO_DATA,CDdata
1235         move    CDdata,r25
1236         addq    #4,CDdata
1237 loptop:
1238         load    (CDdata),TEMP
1239         load    (r25),r30
1240         load    (CDdata),r21
1241         load    (r25),r22
1242         load    (CDdata),r24
1243         load    (r25),r20
1244         load    (CDdata),r19
1245         load    (r25),r18
1246         addq    #4,Dataptr
1247         store   TEMP,(Dataptr)
1248         addqt   #4,Dataptr
1249         store   r30,(Dataptr)
1250         addqt   #4,Dataptr
1251         store   r21,(Dataptr)
1252         addqt   #4,Dataptr
1253         store   r22,(Dataptr)
1254         addqt   #4,Dataptr
1255         store   r24,(Dataptr)
1256         addqt   #4,Dataptr
1257         store   r20,(Dataptr)
1258         addqt   #4,Dataptr
1259         store   r19,(Dataptr)
1260         addqt   #4,Dataptr
1261         store   r18,(Dataptr)
1262
1263         store   Dataptr,(Ptrloc)
1264
1265 exit_isr:
1266         movei   #J_INT,r24      ; Acknowledge in Jerry
1267         moveq   #1,TEMP
1268         bset    #8,TEMP
1269         storew  TEMP,(r24)
1270
1271 .if FLAG
1272 ; Stack r18
1273         load    (r31),r18
1274         addq    #4,r31
1275
1276 ; Stack r19
1277         load    (r31),r19
1278         addq    #4,r31
1279
1280 ; Stack r20
1281         load    (r31),r20
1282         addq    #4,r31
1283
1284 ; Stack r21
1285         load    (r31),r21
1286         addq    #4,r31
1287
1288 ; Stack r22
1289         load    (r31),r22
1290         addq    #4,r31
1291
1292 ; Stack r23
1293         load    (r31),r23
1294         addq    #4,r31
1295
1296 ; Stack r26
1297         load    (r31),r26
1298         addq    #4,r31
1299
1300 ; Stack r27
1301         load    (r31),r27
1302         addq    #4,r31
1303
1304 ; Stack r24
1305         load    (r31),r24
1306         addq    #4,r31
1307
1308 ; Stack r25
1309         load    (r31),r25
1310         addq    #4,r31
1311 .endif
1312
1313         movei   #G_FLAGS,r30
1314
1315 ;r29 already has flags
1316         bclr    #3,r29          ;IMASK
1317         bset    #10,r29         ;Clear DSP int bit in TOM
1318
1319         load    (r31),r28       ;Load return address
1320
1321
1322         addq    #2,r28          ;Fix it up
1323         addq    #4,r31
1324         jump    (r28)           ;Return
1325         store   r29,(r30)       ;Restore broken flags
1326
1327
1328         align long
1329
1330 stackbot:
1331         ds.l    20
1332 STACK:
1333
1334
1335 */
1336