MSX STRTMS

注意
BASICのPLAY文との共存は考慮していません。

参考
6章 内部ルーチン - MSX Datapack wiki化計画
The MSX Red Book Revised - P.P.I.

play.c

/*
z88dk / WebMSX
zcc +msx -lndos -create-app -bnplay play.c
*/

#define BYTE unsigned char

void strtms(void *qcb)
{
#asm
loop:
    ld  a, ($fb3f)  ; MUSICF
    or  a
    jr  nz, loop
    di
    ld  de, $f959   ; QUETAB
    ld  bc, 6*3
    ldir
    ld  a, %001
    ld  ($fb40), a  ; PLYCNT
    call    $0099       ; STRTMS
    ei
#endasm
}

typedef struct {
    BYTE putoff;
    BYTE getoff;
    BYTE backup;
    BYTE len;
    BYTE *queue;
} QCB;

void main()
{
    QCB qcb[3] = {
        { 0x7f, 0, 0, 0x7f },
        { 0x7f, 0, 0, 0x7f },
        { 0x7f, 0, 0, 0x7f }
    };
    BYTE qa[128] = {
        0,
        0x60, 0x1e, 0x88, 0x01, 0xac,   // 3byte 30tick v8 tone=$1ac
        0x60, 0x1e, 0x88, 0x01, 0x7d,   // 3byte 30tick v8 tone=$17d
        0x60, 0x1e, 0x88, 0x01, 0x53,   // 3byte 30tick v8 tone=$153
        0xff };
    BYTE qb[128] = { 0, 0xff };
    BYTE qc[128] = { 0, 0xff };

    qcb[0].queue = qa;
    qcb[1].queue = qb;
    qcb[2].queue = qc;

    strtms(qcb);
}