src/hardware/snd_pc98/sound/s98.c

//
//  PC-98 Sound logging
//    for S98amp S98 Input plugin for Winamp Version 1.3.1+ by Mamiya
//

#include        "compiler.h"

#if defined(SUPPORT_S98)

#include        "dosio.h"
#include        "pccore.h"
#include        "iocore.h"
#include        "sound.h"
#include        "fmboard.h"
#include        "s98.h"


#define S98LOG_BUFSIZE (32 * 1024)

typedef struct {
        UINT8   magic[3];
        UINT8   formatversion;
        UINT8   timerinfo[4];
        UINT8   timerinfo2[4];
        UINT8   compressing[4];
        UINT8   offset[4];
        UINT8   dumpdata[4];
        UINT8   looppoint[4];
        UINT8   headerreserved[0x24];
        UINT8   title[0x40];
} S98HDR;

static struct {
        FILEH   fh;
        UINT32  intcount;
        SINT32  clock;
        UINT    p;
        UINT8   buf[S98LOG_BUFSIZE];
} s98log;


static void s98timer(NEVENTITEM item);

static void sets98event(BOOL absolute) {

        s98log.intcount++;
        nevent_set(NEVENT_S98TIMER, s98log.clock, s98timer, NEVENT_RELATIVE);
        (void)absolute;
}

static void s98timer(NEVENTITEM item) {

        if (s98log.fh != FILEH_INVALID) {
                sets98event(NEVENT_RELATIVE);
        }
        (void)item;
}

static void S98_flush(void) {

        if (s98log.p) {
                file_write(s98log.fh, s98log.buf, s98log.p);
                s98log.p = 0;
        }
}

static void S98_putc(REG8 data) {

        s98log.buf[s98log.p++] = data;
        if (s98log.p == S98LOG_BUFSIZE) {
                S98_flush();
        }
}

static void S98_putint(void) {

        if (s98log.intcount) {
                if (s98log.intcount == 1) {
                        S98_putc(0xFF);                                 /* SYNC(1) */
                }
                else if (s98log.intcount == 2) {
                        S98_putc(0xFF);                                 /* SYNC(1) */
                        S98_putc(0xFF);                                 /* SYNC(1) */
                }
                else {
                        S98_putc(0xFE);                                 /* SYNC(n) */
                        s98log.intcount -= 2;
                        while (s98log.intcount > 0x7f) {
                                S98_putc((REG8)(0x80 | (s98log.intcount & 0x7f)));
                                s98log.intcount >>= 7;
                        }
                        S98_putc((REG8)(s98log.intcount & 0x7f));
                }
                s98log.intcount = 0;
        }
}


// ----

void S98_init(void) {

        s98log.fh = FILEH_INVALID;
}

void S98_trash(void) {

        S98_close();
}

BRESULT S98_open(const OEMCHAR *filename) {

        UINT    i;
        S98HDR  hdr;

        // �t�@�C���̃I�[�v��
        s98log.fh = file_create(filename);
        if (s98log.fh == FILEH_INVALID) {
                return(FAILURE);
        }

        // ������
        s98log.clock = pccore.realclock / 1000;
        s98log.p = 0;

        // �w�b�_�̕ۑ�
        ZeroMemory(&hdr, sizeof(hdr));
        hdr.magic[0] = 'S';
        hdr.magic[1] = '9';
        hdr.magic[2] = '8';
        hdr.formatversion = '1';
        STOREINTELDWORD(hdr.timerinfo, 1);
        STOREINTELDWORD(hdr.offset, offsetof(S98HDR, title));
        STOREINTELDWORD(hdr.dumpdata, sizeof(S98HDR));
        for (i=0; i<sizeof(hdr); i++) {
                S98_putc(*(((UINT8 *)&hdr) + i));
        }

#if 1
        // FM
        for (i=0x30; i<0xb6; i++) {
                if ((i & 3) != 3) {
                        S98_putc(NORMAL2608);
                        S98_putc((REG8)i);
                        S98_putc(opn.reg[i]);

                        S98_putc(EXTEND2608);
                        S98_putc((REG8)i);
                        S98_putc(opn.reg[i+0x100]);
                }
        }
        // PSG
        for (i=0x00; i<0x0e; i++) {
                S98_putc(NORMAL2608);
                S98_putc((REG8)i);
                S98_putc(((UINT8 *)&psg1.reg)[i]);
        }
#endif

        // �ꉞ�p�f�B���O
        s98log.intcount = 10;

        sets98event(NEVENT_ABSOLUTE);
        return(SUCCESS);
}

void S98_close(void) {

        if (s98log.fh != FILEH_INVALID) {
                S98_putint();
                S98_putc(0xFD);                         /* END MARK */
                S98_flush();
                nevent_reset(NEVENT_S98TIMER);
                file_close(s98log.fh);
                s98log.fh = FILEH_INVALID;
        }
}

void S98_put(REG8 module, UINT addr, REG8 data) {

        if (s98log.fh != FILEH_INVALID) {
                S98_putint();
                S98_putc(module);
                S98_putc((UINT8)addr);
                S98_putc(data);
        }
}

void S98_sync(void) {
}
#endif