86Box/src/sound/snd_wss.c

/*
 * 86Box	A hypervisor and IBM PC system emulator that specializes in
 *		running old operating systems and software designed for IBM
 *		PC systems and compatibles from 1981 through fairly recent
 *		system designs based on the PCI bus.
 *
 *		This file is part of the 86Box distribution.
 *
 *		Windows Sound System emulation.
 *
 * Version:	@(#)snd_wss.c	1.0.0	2018/08/11
 *
 * Authors:	Sarah Walker, <http://pcem-emulator.co.uk/>
 *		TheCollector1995, <mariogplayer@gmail.com>
 *
 *		Copyright 2012-2018 Sarah Walker.
 *		Copyright 2018 TheCollector1995.
 */
#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <stdlib.h>
#include <wchar.h>
#include <math.h>  
#include "86box.h"
#include "86box_io.h"
#include "timer.h"
#include "mca.h"
#include "pic.h"
#include "dma.h"
#include "device.h"
#include "sound.h"
#include "snd_ad1848.h"
#include "snd_opl.h"


/*530, 11, 3 - 530=23*/
/*530, 11, 1 - 530=22*/
/*530, 11, 0 - 530=21*/
/*530, 10, 1 - 530=1a*/
/*530, 9,  1 - 530=12*/
/*530, 7,  1 - 530=0a*/
/*604, 11, 1 - 530=22*/
/*e80, 11, 1 - 530=22*/
/*f40, 11, 1 - 530=22*/


static int wss_dma[4] = {0, 0, 1, 3};
static int wss_irq[8] = {5, 7, 9, 10, 11, 12, 14, 15}; /*W95 only uses 7-9, others may be wrong*/


typedef struct wss_t
{
        uint8_t config;

        ad1848_t ad1848;        
        opl_t    opl;
		
		int opl_enabled;
		uint8_t pos_regs[8];
} wss_t;

uint8_t wss_read(uint16_t addr, void *p)
{
        wss_t *wss = (wss_t *)p;
        uint8_t temp;
        temp = 4 | (wss->config & 0x40);
        return temp;
}

void wss_write(uint16_t addr, uint8_t val, void *p)
{
        wss_t *wss = (wss_t *)p;

        wss->config = val;
        ad1848_setdma(&wss->ad1848, wss_dma[val & 3]);
        ad1848_setirq(&wss->ad1848, wss_irq[(val >> 3) & 7]);
}

static void wss_get_buffer(int32_t *buffer, int len, void *p)
{
        wss_t *wss = (wss_t *)p;
        
        int c;

        opl3_update2(&wss->opl);
        ad1848_update(&wss->ad1848);
        for (c = 0; c < len * 2; c++)
        {
                buffer[c] += wss->opl.buffer[c];
                buffer[c] += (wss->ad1848.buffer[c] / 2);
        }

        wss->opl.pos = 0;
        wss->ad1848.pos = 0;
}

void *wss_init(const device_t *info)
{
        wss_t *wss = malloc(sizeof(wss_t));
        memset(wss, 0, sizeof(wss_t));
		
		uint16_t addr = device_get_config_hex16("base");
		wss->opl_enabled = device_get_config_int("opl");
		
        opl3_init(&wss->opl);
        ad1848_init(&wss->ad1848);
        
        ad1848_setirq(&wss->ad1848, 7);
        ad1848_setdma(&wss->ad1848, 3);

		if (wss->opl_enabled)	
			io_sethandler(0x0388, 0x0004, opl3_read,   NULL, NULL, opl3_write,   NULL, NULL,  &wss->opl);
        
		io_sethandler(addr, 0x0004, wss_read,    NULL, NULL, wss_write,    NULL, NULL,  wss);
        io_sethandler(addr+4, 0x0004, ad1848_read, NULL, NULL, ad1848_write, NULL, NULL,  &wss->ad1848);
                
        sound_add_handler(wss_get_buffer, wss);
        
        return wss;
}

static uint8_t ncr_audio_mca_read(int port, void *p)
{
	wss_t *wss = (wss_t *)p;
	
	return wss->pos_regs[port & 7];
}

static void ncr_audio_mca_write(int port, uint8_t val, void *p)
{
    wss_t *wss = (wss_t *)p;
	uint16_t ports[4] = {0x530, 0xE80, 0xF40, 0x604};
	uint16_t addr;
	
	if (port < 0x102)
		return;	

	wss->opl_enabled = (wss->pos_regs[2] & 0x20) ? 1 : 0;
	addr = ports[(wss->pos_regs[2] & 0x18) >> 3];
	
	io_removehandler(0x0388, 0x0004, opl3_read,   NULL, NULL, opl3_write,   NULL, NULL,  &wss->opl);	
	io_removehandler(addr, 0x0004, wss_read,    NULL, NULL, wss_write,    NULL, NULL,  wss);
	io_removehandler(addr+4, 0x0004, ad1848_read, NULL, NULL, ad1848_write, NULL, NULL,  &wss->ad1848);
	
	//pclog("WSS MCA: opl=%d, addr=%03x\n", wss->opl_enabled, addr);

	wss->pos_regs[port & 7] = val;
	
	if (wss->pos_regs[2] & 1)
	{
		addr = ports[(wss->pos_regs[2] & 0x18) >> 3];
		
		if (wss->opl_enabled)
			io_sethandler(0x0388, 0x0004, opl3_read,   NULL, NULL, opl3_write,   NULL, NULL,  &wss->opl);	
		
		io_sethandler(addr, 0x0004, wss_read,    NULL, NULL, wss_write,    NULL, NULL,  wss);
		io_sethandler(addr+4, 0x0004, ad1848_read, NULL, NULL, ad1848_write, NULL, NULL,  &wss->ad1848);
	} 
}

static uint8_t ncr_audio_mca_feedb(void *p)
{
	wss_t *wss = (wss_t *)p;

	return (wss->pos_regs[2] & 1);
}

void *ncr_audio_init(const device_t *info)
{
        wss_t *wss = malloc(sizeof(wss_t));

        memset(wss, 0, sizeof(wss_t));

        opl3_init(&wss->opl);
        ad1848_init(&wss->ad1848);

	ad1848_setirq(&wss->ad1848, 7);
	ad1848_setdma(&wss->ad1848, 3);		
		
        mca_add(ncr_audio_mca_read, ncr_audio_mca_write, ncr_audio_mca_feedb, wss);
        wss->pos_regs[0] = 0x16;
        wss->pos_regs[1] = 0x51;		
		
        sound_add_handler(wss_get_buffer, wss);
		
        return wss;
}

void wss_close(void *p)
{
        wss_t *wss = (wss_t *)p;
        
        free(wss);
}

void wss_speed_changed(void *p)
{
        wss_t *wss = (wss_t *)p;
        
        ad1848_speed_changed(&wss->ad1848);
}

static const device_config_t wss_config[] =
{
        {
                "base", "Address", CONFIG_HEX16, "", 0x530,
                {
                        {
                                "0x530", 0x530
                        },
                        {
                                "0x604", 0x604
                        },
                        {
                                "0xe80", 0xe80
                        },
                        {
                                "0xf40", 0xf40
                        },
                        {
                                ""
                        }
                }
        },
	{
		"opl", "Enable OPL", CONFIG_BINARY, "", 1
	},
        {
                "", "", -1
        }
};

const device_t wss_device =
{
        "Windows Sound System",
        DEVICE_ISA | DEVICE_AT, 0,
        wss_init, wss_close, NULL,
        NULL,
        wss_speed_changed,
        NULL,
        wss_config
};

const device_t ncr_business_audio_device =
{
        "NCR Business Audio",
        DEVICE_MCA, 0,
        ncr_audio_init, wss_close, NULL,
        NULL,
        wss_speed_changed,
        NULL,
        NULL
};