--- /dev/null
+/*
+* UAE - The Un*x Amiga Emulator
+*
+* Toccata Z2 board emulation
+*
+* Copyright 2014 Toni Wilen
+*
+*/
+
+#include "sysconfig.h"
+#include "sysdeps.h"
+
+#include "options.h"
+#include "uae.h"
+#include "memory.h"
+#include "newcpu.h"
+#include "debug.h"
+#include "custom.h"
+#include "sndboard.h"
+#include "audio.h"
+
+
+#define DEBUG_TOCCATA 0
+
+#define BOARD_MASK 65535
+#define BOARD_SIZE 65536
+
+static const uae_u8 toccata_autoconfig[16] = { 0xc1, 12, 0, 0, 18260 >> 8, 18260 & 255 };
+static uae_u8 acmemory[128];
+static int configured;
+static uae_u8 ad1848_index;
+static uae_u8 ad1848_regs[16];
+static uae_u8 ad1848_status;
+static int autocalibration;
+extern addrbank toccata_bank;
+static uae_u8 toccata_status;
+static bool toccata_irq;
+
+#define FIFO_SIZE 1024
+#define FIFO_SIZE_HALF (FIFO_SIZE / 2)
+static int fifo_read_index;
+static int fifo_write_index;
+static int data_in_fifo;
+static uae_u8 fifo[FIFO_SIZE];
+static bool fifo_half;
+static bool toccata_playing;
+static int left_volume, right_volume;
+
+#define STATUS_ACTIVE 1
+#define STATUS_RESET 2
+#define STATUS_FIFO_CODEC 4
+#define STATUS_FIFO_RECORD 8
+#define STATUS_FIFO_PLAY 0x10
+#define STATUS_RECORD_INTENA 0x40
+#define STATUS_PLAY_INTENA 0x80
+
+#define STATUS_READ_INTREQ 128
+#define STATUS_READ_PLAY_HALF 8
+#define STATUS_READ_RECORD_HALF 4
+
+static int freq, channels, samplebits;
+static int event_time;
+static double base_event_clock;
+static int bytespersample;
+
+void update_sndboard_sound (double clk)
+{
+ base_event_clock = clk;
+}
+
+static int ch_sample[2];
+
+static void process_fifo(void)
+{
+ int prev_data_in_fifo = data_in_fifo;
+ if (data_in_fifo >= bytespersample) {
+ uae_s16 v;
+ if (samplebits == 8) {
+ v = fifo[fifo_read_index] << 8;
+ v |= fifo[fifo_read_index];
+ ch_sample[0] = v;
+ if (channels == 2) {
+ v = fifo[fifo_read_index + 1] << 8;
+ v |= fifo[fifo_read_index + 1];
+ }
+ ch_sample[1] = v;
+ } else if (samplebits == 16) {
+ v = fifo[fifo_read_index + 1] << 8;
+ v |= fifo[fifo_read_index + 0];
+ ch_sample[0] = v;
+ if (channels == 2) {
+ v = fifo[fifo_read_index + 3] << 8;
+ v |= fifo[fifo_read_index + 2];
+ }
+ ch_sample[1] = v;
+ }
+ data_in_fifo -= bytespersample;
+ fifo_read_index += bytespersample;
+ fifo_read_index = fifo_read_index % FIFO_SIZE;
+ }
+
+ ch_sample[0] = ch_sample[0] * left_volume / 64;
+ ch_sample[1] = ch_sample[1] * right_volume / 64;
+
+ if (data_in_fifo < FIFO_SIZE_HALF && prev_data_in_fifo >= FIFO_SIZE_HALF)
+ fifo_half = true;
+}
+
+void audio_state_sndboard(int ch)
+{
+ if (toccata_playing && ch == 0) {
+ // get all bytes at once to prevent fifo going out of sync
+ // if fifo has for example 3 bytes remaining but we need 4.
+ process_fifo();
+ if (fifo_half) {
+ if ((toccata_status & STATUS_PLAY_INTENA) && (toccata_status & STATUS_FIFO_PLAY) && (toccata_status & STATUS_FIFO_CODEC) && !toccata_irq) {
+ toccata_irq = true;
+ sndboard_rethink();
+#if DEBUG_TOCCATA > 2
+ write_log(_T("TOCCATA IRQ\n"));
+#endif
+ }
+ }
+ }
+ audio_state_sndboard_state(ch, ch_sample[ch], event_time);
+}
+
+static int get_volume(uae_u8 v)
+{
+ if (v & 0x80) // Mute bit
+ return 0;
+ v &= 63;
+ v = 64 - v;
+ return v;
+}
+
+static void calculate_volume(void)
+{
+ left_volume = get_volume(ad1848_regs[6]);
+ right_volume = get_volume(ad1848_regs[7]);
+}
+
+static const int freq_crystals[] = {
+ // AD1848 documentation says 24.576MHz but photo of board shows 24.582MHz
+ 24582000,
+ 16934400
+};
+static const int freq_dividers[] = {
+ 3072,
+ 1536,
+ 896,
+ 768,
+ 448,
+ 384,
+ 512,
+ 2560
+};
+
+static void codec_play(void)
+{
+ uae_u8 c = ad1848_regs[8];
+
+ channels = (c & 0x10) ? 2 : 1;
+ samplebits = (c & 0x40) ? 16 : 8;
+ freq = freq_crystals[c & 1] / freq_dividers[(c >> 1) & 7];
+ bytespersample = (samplebits / 8) * channels;
+
+ write_log(_T("TOCCATA start freq=%d bits=%d channels=%d\n"), freq, samplebits, channels);
+
+ event_time = base_event_clock * CYCLE_UNIT / freq;
+
+ audio_enable_sndboard(true);
+
+ toccata_playing = true;
+}
+
+static void codec_stop(void)
+{
+ write_log(_T("TOCCATA stop\n"));
+ toccata_playing = false;
+ audio_enable_sndboard(false);
+}
+
+void sndboard_rethink(void)
+{
+ if (toccata_irq)
+ INTREQ_0(0x8000 | 0x2000);
+}
+
+void sndboard_hsync(void)
+{
+ if (autocalibration > 0)
+ autocalibration--;
+}
+
+void sndboard_vsync(void)
+{
+ if (toccata_playing)
+ audio_activate();
+}
+
+static void toccata_put(uaecptr addr, uae_u8 v)
+{
+ int idx = ad1848_index & 15;
+
+#if DEBUG_TOCCATA > 2
+ if (addr & 0x4000)
+ write_log(_T("TOCCATA PUT %08x %02x %d PC=%08X\n"), addr, v, idx, M68K_GETPC);
+#endif
+
+ if ((addr & 0x6801) == 0x6001) {
+ // AD1848 register 0
+ ad1848_index = v;
+ } else if ((addr & 0x6801) == 0x6801) {
+ // AD1848 register 1
+ uae_u8 old = ad1848_regs[idx];
+ ad1848_regs[idx] = v;
+#if DEBUG_TOCCATA > 0
+ write_log(_T("TOCCATA PUT reg %d = %02x PC=%08x\n"), idx, v, M68K_GETPC);
+#endif
+ switch(idx)
+ {
+ case 9:
+ if (v & 8) // ACI enabled
+ autocalibration = 50;
+ if (!(old & 1) && (v & 1))
+ codec_play();
+ else if ((old & 1) && !(v & 1))
+ codec_stop();
+ break;
+ case 7:
+ case 8:
+ calculate_volume();
+ break;
+
+ }
+ } else if ((addr & 0x6800) == 0x2000) {
+ // FIFO input
+ if (toccata_status & STATUS_FIFO_PLAY) {
+ // 7202LA datasheet says fifo can't overflow
+ if (((fifo_write_index + 1) % FIFO_SIZE) != fifo_read_index) {
+ fifo[fifo_write_index] = v;
+ fifo_write_index++;
+ fifo_write_index %= FIFO_SIZE;
+ data_in_fifo++;
+ }
+ }
+ toccata_irq = false;
+ fifo_half = false;
+ } else if ((addr & 0x6800) == 0x0000) {
+ // Board status
+ if (v & STATUS_RESET) {
+ codec_stop();
+ toccata_status = 0;
+ toccata_irq = false;
+ v = 0;
+ }
+ if (v == STATUS_ACTIVE) {
+ fifo_write_index = 0;
+ fifo_read_index = 0;
+ data_in_fifo = 0;
+ toccata_status = 0;
+ toccata_irq = false;
+ fifo_half = false;
+ }
+ toccata_status = v;
+#if DEBUG_TOCCATA > 0
+ write_log(_T("TOCCATA PUT STATUS %08x %02x %d PC=%08X\n"), addr, v, idx, M68K_GETPC);
+#endif
+ } else {
+ write_log(_T("TOCCATA PUT UNKNOWN %08x\n"), addr);
+ }
+}
+
+static uae_u8 toccata_get(uaecptr addr)
+{
+ int idx = ad1848_index & 15;
+ uae_u8 v = 0;
+
+ if ((addr & 0x6801) == 0x6001) {
+ // AD1848 register 0
+ v = ad1848_index;
+ } else if ((addr & 0x6801) == 0x6801) {
+ // AD1848 register 1
+ v = ad1848_regs[idx];
+#if DEBUG_TOCCATA > 0
+ write_log(_T("TOCCATA GET reg %d = %02x PC=%08x\n"), idx, v, M68K_GETPC);
+#endif
+ switch (idx)
+ {
+ case 11:
+ if (autocalibration > 10 && autocalibration < 30)
+ ad1848_regs[11] |= 0x20;
+ else
+ ad1848_regs[11] &= ~0x20;
+ break;
+ case 12:
+ // revision
+ v = 0x0a;
+ break;
+ }
+ } else if ((addr & 0x6800) == 0x0000) {
+ // Board status
+ v = STATUS_READ_INTREQ; // active low
+ if (toccata_irq) {
+ v &= ~STATUS_READ_INTREQ;
+ v |= STATUS_READ_PLAY_HALF;
+ toccata_irq = false;
+ }
+#if DEBUG_TOCCATA > 0
+ write_log(_T("TOCCATA GET STATUS %08x %02x %d PC=%08X\n"), addr, v, idx, M68K_GETPC);
+#endif
+ } else {
+ write_log(_T("TOCCATA GET UNKNOWN %08x\n"), addr);
+ }
+
+#if DEBUG_TOCCATA > 2
+ write_log(_T("TOCCATA GET %08x %02x %d PC=%08X\n"), addr, v, idx, M68K_GETPC);
+#endif
+ return v;
+}
+
+static void REGPARAM2 toccata_bput(uaecptr addr, uae_u32 b)
+{
+#ifdef JIT
+ special_mem |= S_WRITE;
+#endif
+ b &= 0xff;
+ addr &= BOARD_MASK;
+ if (!configured) {
+ switch (addr)
+ {
+ case 0x48:
+ map_banks(&toccata_bank, expamem_z2_pointer >> 16, BOARD_SIZE >> 16, 0);
+ configured = 1;
+ expamem_next(&toccata_bank, NULL);
+ break;
+ case 0x4c:
+ configured = -1;
+ expamem_shutup(&toccata_bank);
+ break;
+ }
+ return;
+ }
+ if (configured > 0)
+ toccata_put(addr, b);
+}
+
+static void REGPARAM2 toccata_wput(uaecptr addr, uae_u32 b)
+{
+#ifdef JIT
+ special_mem |= S_WRITE;
+#endif
+ toccata_bput(addr, b >> 8);
+ toccata_bput(addr, b >> 0);
+}
+
+static void REGPARAM2 toccata_lput(uaecptr addr, uae_u32 b)
+{
+#ifdef JIT
+ special_mem |= S_WRITE;
+#endif
+ toccata_bput(addr + 0, b >> 24);
+ toccata_bput(addr + 1, b >> 16);
+ toccata_bput(addr + 2, b >> 8);
+ toccata_bput(addr + 3, b >> 0);
+}
+
+static uae_u32 REGPARAM2 toccata_bget(uaecptr addr)
+{
+ uae_u8 v = 0;
+#ifdef JIT
+ special_mem |= S_READ;
+#endif
+ addr &= BOARD_MASK;
+ if (!configured) {
+ if (addr >= sizeof acmemory)
+ return 0;
+ return acmemory[addr];
+ }
+ if (configured > 0)
+ v = toccata_get(addr);
+ return v;
+}
+static uae_u32 REGPARAM2 toccata_wget(uaecptr addr)
+{
+ uae_u16 v;
+#ifdef JIT
+ special_mem |= S_READ;
+#endif
+ v = toccata_get(addr) << 8;
+ v |= toccata_get(addr + 1) << 0;
+ return v;
+}
+static uae_u32 REGPARAM2 toccata_lget(uaecptr addr)
+{
+ uae_u32 v;
+#ifdef JIT
+ special_mem |= S_READ;
+#endif
+ v = toccata_get(addr) << 24;
+ v |= toccata_get(addr + 1) << 16;
+ v |= toccata_get(addr + 2) << 8;
+ v |= toccata_get(addr + 3) << 0;
+ return v;
+}
+
+addrbank toccata_bank = {
+ toccata_lget, toccata_wget, toccata_bget,
+ toccata_lput, toccata_wput, toccata_bput,
+ default_xlate, default_check, NULL, NULL, _T("Toccata"),
+ dummy_lgeti, dummy_wgeti, ABFLAG_IO
+};
+
+static void ew (int addr, uae_u32 value)
+{
+ addr &= 0xffff;
+ if (addr == 00 || addr == 02 || addr == 0x40 || addr == 0x42) {
+ acmemory[addr] = (value & 0xf0);
+ acmemory[addr + 2] = (value & 0x0f) << 4;
+ } else {
+ acmemory[addr] = ~(value & 0xf0);
+ acmemory[addr + 2] = ~((value & 0x0f) << 4);
+ }
+}
+
+addrbank *sndboard_init(void)
+{
+ memset(ad1848_regs, 0, sizeof ad1848_regs);
+ ad1848_regs[2] = 0x80;
+ ad1848_regs[3] = 0x80;
+ ad1848_regs[4] = 0x80;
+ ad1848_regs[5] = 0x80;
+ ad1848_regs[6] = 0x80;
+ ad1848_regs[7] = 0x80;
+ ad1848_regs[9] = 0x10;
+ ad1848_status = 0xcc;
+ ad1848_index = 0x40;
+ calculate_volume();
+
+ configured = 0;
+ memset(acmemory, 0xff, sizeof acmemory);
+ for (int i = 0; i < 16; i++) {
+ uae_u8 b = toccata_autoconfig[i];
+ ew(i * 4, b);
+ }
+ return &toccata_bank;
+}
+
+void sndboard_free(void)
+{
+}
+
+void sndboard_reset(void)
+{
+ ch_sample[0] = 0;
+ ch_sample[1] = 0;
+ audio_enable_sndboard(false);
+}
projects / francis / winuae.git / commitdiff