2 @* Memory I/O handlers for Sega/Mega CD emulation
3 @* (C) notaz, 2007-2009
5 @* This work is licensed under the terms of MAME license.
6 @* See COPYING file in the top-level directory.
9 .equiv PCM_STEP_SHIFT, 11
14 .global PicoReadM68k8_io
15 .global PicoReadM68k16_io
16 .global PicoWriteM68k8_io
17 .global PicoWriteM68k16_io
19 .global PicoReadS68k8_pr
20 .global PicoReadS68k16_pr
21 .global PicoWriteS68k8_pr
22 .global PicoWriteS68k16_pr
24 .global PicoReadM68k8_cell0
25 .global PicoReadM68k8_cell1
26 .global PicoReadM68k16_cell0
27 .global PicoReadM68k16_cell1
28 .global PicoWriteM68k8_cell0
29 .global PicoWriteM68k8_cell1
30 .global PicoWriteM68k16_cell0
31 .global PicoWriteM68k16_cell1
33 .global PicoReadS68k8_dec0
34 .global PicoReadS68k8_dec1
35 .global PicoReadS68k16_dec0
36 .global PicoReadS68k16_dec1
37 .global PicoWriteS68k8_dec_m0b0
38 .global PicoWriteS68k8_dec_m1b0
39 .global PicoWriteS68k8_dec_m2b0
40 .global PicoWriteS68k8_dec_m0b1
41 .global PicoWriteS68k8_dec_m1b1
42 .global PicoWriteS68k8_dec_m2b1
43 .global PicoWriteS68k16_dec_m0b0
44 .global PicoWriteS68k16_dec_m1b0
45 .global PicoWriteS68k16_dec_m2b0
46 .global PicoWriteS68k16_dec_m0b1
47 .global PicoWriteS68k16_dec_m1b1
48 .global PicoWriteS68k16_dec_m2b1
50 @ externs, just for reference
53 .extern m68k_reg_write8
54 .extern s68k_reg_read16
55 .extern s68k_reg_write8
56 .extern s68k_poll_adclk
57 .extern s68k_poll_detect
59 .extern gfx_cd_write16
64 .extern PicoWrite16_io
67 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
71 @ r0=addr[in,out], r1,r2=tmp
73 ands r1, r0, #0x01c000
74 ldrne pc, [pc, r1, lsr #12]
85 and r1, r0, #0x7e00 @ col
86 and r2, r0, #0x01fc @ row
88 orr r1, r2, r1, ror #13
91 and r1, r0, #0x3f00 @ col
92 and r2, r0, #0x00fc @ row
94 orr r1, r2, r1, ror #12
97 and r1, r0, #0x1f80 @ col
98 and r2, r0, #0x007c @ row
99 orr r1, r2, r1, ror #11
101 orr r1, r1, r2, lsr #6
104 and r1, r0, #0xfc00 @ col
105 and r2, r0, #0x03fc @ row
106 orr r1, r2, r1, ror #14
109 orr r0, r0, r1, ror #26 @ rol 4+2
113 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
121 PicoReadM68k8_cell0: @ 0x220000 - 0x23ffff, cell arranged
125 PicoReadM68k8_cell1: @ 0x220000 - 0x23ffff, cell arranged
129 ldr r1, =(Pico+0x22200)
139 cmp r1, #0x2000 @ a120xx?
142 ldr r1, =(Pico+0x22200)
144 ldr r1, [r1] @ Pico.mcd (used everywhere)
146 ldrlt pc, [pc, r0, lsl #2]
148 .long m_m68k_read8_r00
149 .long m_m68k_read8_r01
150 .long m_m68k_read8_r02
151 .long m_m68k_read8_r03
152 .long m_m68k_read8_r04
153 .long m_read_null @ unused bits
154 .long m_m68k_read8_r06
155 .long m_m68k_read8_r07
156 .long m_m68k_read8_r08
157 .long m_m68k_read8_r09
158 .long m_read_null @ reserved
160 .long m_m68k_read8_r0c
161 .long m_m68k_read8_r0d
163 add r1, r1, #0x110000
165 and r0, r0, #0x04000000 @ we need irq2 mask state
169 add r1, r1, #0x110000
170 add r1, r1, #0x002200
171 ldrb r0, [r1, #2] @ Pico_mcd->m.busreq
174 add r1, r1, #0x110000
178 add r1, r1, #0x110000
180 add r1, r1, #0x002200
183 tst r1, #2 @ DMNA pending?
189 add r1, r1, #0x110000
193 ldrb r0, [r1, #0x73] @ IRQ vector
200 bl Read_CDC_Host @ TODO: make it local
207 add r1, r1, #0x110000
208 add r1, r1, #0x002200
209 ldr r0, [r1, #0x14] @ Pico_mcd->m.timer_stopwatch
213 add r1, r1, #0x110000
214 add r1, r1, #0x002200
225 add r1, r1, #0x110000
230 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
233 PicoReadM68k16_cell0: @ 0x220000 - 0x23ffff, cell arranged
237 PicoReadM68k16_cell1: @ 0x220000 - 0x23ffff, cell arranged
241 ldr r1, =(Pico+0x22200)
251 cmp r1, #0x2000 @ a120xx
254 m_m68k_read16_m68k_regs:
255 ldr r1, =(Pico+0x22200)
257 ldr r1, [r1] @ Pico.mcd (used everywhere)
259 ldrlt pc, [pc, r0, lsl #1]
261 .long m_m68k_read16_r00
262 .long m_m68k_read16_r02
263 .long m_m68k_read16_r04
264 .long m_m68k_read16_r06
265 .long m_m68k_read16_r08
266 .long m_read_null @ reserved
267 .long m_m68k_read16_r0c
269 add r1, r1, #0x110000
271 add r1, r1, #0x002200
272 ldrb r1, [r1, #2] @ Pico_mcd->m.busreq
273 and r0, r0, #0x04000000 @ we need irq2 mask state
274 orr r0, r1, r0, lsr #11
277 add r1, r1, #0x110000
280 add r1, r1, #0x002200
283 orr r0, r2, r0, lsl #8
284 tst r1, #2 @ DMNA pending?
290 add r1, r1, #0x110000
295 ldrh r0, [r1, #0x72] @ IRQ vector
301 add r1, r1, #0x110000
302 add r1, r1, #0x002200
308 addlt r1, r1, #0x110000
314 orr r0, r0, r1, lsl #8
318 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
321 PicoWriteM68k8_cell0: @ 0x220000 - 0x23ffff, cell arranged
325 PicoWriteM68k8_cell1: @ 0x220000 - 0x23ffff, cell arranged
330 ldr r2, =(Pico+0x22200)
340 cmp r2, #0x2000 @ a120xx?
345 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
348 PicoWriteM68k16_cell0: @ 0x220000 - 0x23ffff, cell arranged
352 PicoWriteM68k16_cell1: @ 0x220000 - 0x23ffff, cell arranged
357 ldr r1, =(Pico+0x22200)
367 cmp r2, #0x2000 @ a120xx?
373 beq m_m68k_write16_regs_spec
382 m_m68k_write16_regs_spec: @ special case
383 ldr r2, =(Pico+0x22200)
384 ldr r3, =s68k_poll_adclk
387 add r0, r0, #0x00000e
389 strb r1, [r2, r0] @ if (a == 0xe) s68k_regs[0x0e] = d >> 8;
395 ldr r0, =PicoCpuCS68k
396 str r1, [r0, #0x58] @ push s68k out of stopped state
401 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
403 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
406 PicoReadS68k8_dec0: @ 0x080000 - 0x0bffff
407 mov r3, #0x080000 @ + ^ / 2
411 mov r3, #0x0a0000 @ + ^ / 2
413 ldr r2, =(Pico+0x22200)
416 movs r0, r0, lsr #1 @ +4-6 <<16
417 add r2, r2, r3 @ map to our address
430 bic r0, r0, #0xff0000
431 bic r0, r0, #0x008000
434 blo m_s68k_read8_comm
437 ldrlo r2, =gfx_cd_read
438 ldrhs r2, =s68k_reg_read16
450 ldr r1, =(Pico+0x22200)
452 add r1, r1, #0x110000
461 @ must not trash r3 and r12
462 ldr r1, =(Pico+0x22200)
463 bic r0, r0, #0xff0000
464 @ bic r0, r0, #0x008000
467 orr r2, r2, #0x002200
469 bge m_s68k_read8_pcm_ram
473 orr r2, r2, #(0x48+8) @ pcm.ch + addr_offset
476 ldr r1, [r1, r2, lsl #2]
478 moveq r0, r1, lsr #PCM_STEP_SHIFT
479 movne r0, r1, lsr #(PCM_STEP_SHIFT+8)
483 m_s68k_read8_pcm_ram:
486 add r1, r1, #0x100000 @ pcm_ram
487 and r2, r2, #0x0f000000 @ bank
488 add r1, r1, r2, lsr #12
489 bic r0, r0, #0x00e000
495 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
498 PicoReadS68k16_dec0: @ 0x080000 - 0x0bffff
499 mov r3, #0x080000 @ + ^ / 2
503 mov r3, #0x0a0000 @ + ^ / 2
505 ldr r2, =(Pico+0x22200)
508 mov r0, r0, lsr #1 @ +4-6 <<16
509 add r2, r2, r3 @ map to our address
511 orr r0, r0, r0, lsl #4
519 @ pcm is on 8-bit bus, would this be same as byte access?
523 bic r0, r0, #0xff0000
524 bic r0, r0, #0x008000
525 bic r0, r0, #0x000001
535 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
538 .macro m_s68k_write8_2M_decode
539 ldr r2, =(Pico+0x22200)
541 ldr r2, [r2] @ Pico.rom
542 movs r0, r0, lsr #1 @ +4-6 <<16
543 add r2, r2, r3 @ map to our address
546 PicoWriteS68k8_dec_m2b0: @ overwrite
550 PicoWriteS68k8_dec_m0b0:
554 PicoWriteS68k8_dec_m2b1: @ overwrite
558 PicoWriteS68k8_dec_m0b1:
561 m_s68k_write8_2M_decode
571 PicoWriteS68k8_dec_m1b0: @ underwrite
575 PicoWriteS68k8_dec_m1b1:
580 m_s68k_write8_2M_decode
595 bne m_s68k_write8_pcm
598 bic r0, r0, #0xff0000
599 bic r0, r0, #0x008000
607 orr r1, r1, r1, lsl #8
614 bic r0, r0, #0xff0000
622 m_s68k_write8_pcm_ram:
623 ldr r3, =(Pico+0x22200)
624 bic r0, r0, #0x00e000
627 add r2, r3, #0x110000
628 add r2, r2, #0x002200
629 add r2, r2, #0x000040
631 add r3, r3, #0x100000 @ pcm_ram
632 and r2, r2, #0x0f000000 @ bank
633 add r3, r3, r2, lsr #12
638 @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
641 .macro m_s68k_write16_2M_decode
642 ldr r2, =(Pico+0x22200)
645 mov r0, r0, lsr #1 @ +4-6 <<16
646 add r2, r2, r3 @ map to our address
649 PicoWriteS68k16_dec_m0b0:
653 PicoWriteS68k16_dec_m0b1:
656 m_s68k_write16_2M_decode
658 orr r1, r1, r1, lsr #4
662 PicoWriteS68k16_dec_m1b0: @ underwrite
666 PicoWriteS68k16_dec_m1b1:
670 bicnes r1, r1, #0x00f0
672 orr r1, r1, r1, lsr #4
673 m_s68k_write16_2M_decode
684 PicoWriteS68k16_dec_m2b0: @ overwrite
688 PicoWriteS68k16_dec_m2b1:
692 bicnes r1, r1, #0x00f0
694 orr r1, r1, r1, lsr #4
695 m_s68k_write16_2M_decode
710 bne m_s68k_write8_pcm
713 bic r0, r0, #0xff0000
714 bic r0, r0, #0x008000
720 beq m_s68k_write16_regs_spec
732 m_s68k_write16_regs_spec: @ special case
733 ldr r2, =(Pico+0x22200)
736 add r0, r0, #0x00000f
737 strb r1, [r2, r0] @ if (a == 0xe) s68k_regs[0xf] = d;
742 @ vim:filetype=armasm