Previous 199869 Revisions Next

r35284 Thursday 26th February, 2015 at 15:11:28 UTC by Olivier Galibert
la32: Preliminary implementation [O. Galibert]
[src/emu/sound]la32.c* la32.h* sound.mak
[src/mess]mess.mak
[src/mess/drivers]rmt32.c

trunk/src/emu/sound/la32.c
r0r243796
1#include "emu.h"
2#include "la32.h"
3
4const device_type LA32 = &device_creator<la32_device>;
5
6// These 3 tables are present on the die.  They're the only tables in there
7// 2**((n+1)/512) * 8192
8const UINT16 la32_device::exp2_table[0x200] = {
9   0xff5, 0xfea, 0xfdf, 0xfd4, 0xfc9, 0xfbe, 0xfb3, 0xfa8, 0xf9d, 0xf92, 0xf87, 0xf7c, 0xf71, 0xf66, 0xf5b, 0xf50,
10   0xf46, 0xf3b, 0xf30, 0xf25, 0xf1a, 0xf10, 0xf05, 0xefa, 0xeef, 0xee5, 0xeda, 0xecf, 0xec5, 0xeba, 0xeaf, 0xea5,
11   0xe9a, 0xe8f, 0xe85, 0xe7a, 0xe70, 0xe65, 0xe5b, 0xe50, 0xe46, 0xe3b, 0xe31, 0xe26, 0xe1c, 0xe11, 0xe07, 0xdfd,
12   0xdf2, 0xde8, 0xddd, 0xdd3, 0xdc9, 0xdbe, 0xdb4, 0xdaa, 0xda0, 0xd95, 0xd8b, 0xd81, 0xd77, 0xd6c, 0xd62, 0xd58,
13   0xd4e, 0xd44, 0xd3a, 0xd30, 0xd25, 0xd1b, 0xd11, 0xd07, 0xcfd, 0xcf3, 0xce9, 0xcdf, 0xcd5, 0xccb, 0xcc1, 0xcb7,
14   0xcad, 0xca3, 0xc99, 0xc8f, 0xc86, 0xc7c, 0xc72, 0xc68, 0xc5e, 0xc54, 0xc4a, 0xc41, 0xc37, 0xc2d, 0xc23, 0xc1a,
15   0xc10, 0xc06, 0xbfc, 0xbf3, 0xbe9, 0xbdf, 0xbd6, 0xbcc, 0xbc2, 0xbb9, 0xbaf, 0xba6, 0xb9c, 0xb93, 0xb89, 0xb7f,
16   0xb76, 0xb6c, 0xb63, 0xb59, 0xb50, 0xb47, 0xb3d, 0xb34, 0xb2a, 0xb21, 0xb17, 0xb0e, 0xb05, 0xafb, 0xaf2, 0xae9,
17   0xadf, 0xad6, 0xacd, 0xac3, 0xaba, 0xab1, 0xaa8, 0xa9e, 0xa95, 0xa8c, 0xa83, 0xa7a, 0xa70, 0xa67, 0xa5e, 0xa55,
18   0xa4c, 0xa43, 0xa3a, 0xa31, 0xa28, 0xa1e, 0xa15, 0xa0c, 0xa03, 0x9fa, 0x9f1, 0x9e8, 0x9df, 0x9d6, 0x9ce, 0x9c5,
19   0x9bc, 0x9b3, 0x9aa, 0x9a1, 0x998, 0x98f, 0x986, 0x97e, 0x975, 0x96c, 0x963, 0x95a, 0x951, 0x949, 0x940, 0x937,
20   0x92e, 0x926, 0x91d, 0x914, 0x90c, 0x903, 0x8fa, 0x8f2, 0x8e9, 0x8e0, 0x8d8, 0x8cf, 0x8c7, 0x8be, 0x8b5, 0x8ad,
21   0x8a4, 0x89c, 0x893, 0x88b, 0x882, 0x87a, 0x871, 0x869, 0x860, 0x858, 0x850, 0x847, 0x83f, 0x836, 0x82e, 0x826,
22   0x81d, 0x815, 0x80c, 0x804, 0x7fc, 0x7f4, 0x7eb, 0x7e3, 0x7db, 0x7d2, 0x7ca, 0x7c2, 0x7ba, 0x7b1, 0x7a9, 0x7a1,
23   0x799, 0x791, 0x789, 0x780, 0x778, 0x770, 0x768, 0x760, 0x758, 0x750, 0x748, 0x740, 0x738, 0x730, 0x727, 0x71f,
24   0x717, 0x70f, 0x707, 0x6ff, 0x6f8, 0x6f0, 0x6e8, 0x6e0, 0x6d8, 0x6d0, 0x6c8, 0x6c0, 0x6b8, 0x6b0, 0x6a8, 0x6a1,
25   0x699, 0x691, 0x689, 0x681, 0x67a, 0x672, 0x66a, 0x662, 0x65a, 0x653, 0x64b, 0x643, 0x63c, 0x634, 0x62c, 0x624,
26   0x61d, 0x615, 0x60e, 0x606, 0x5fe, 0x5f7, 0x5ef, 0x5e7, 0x5e0, 0x5d8, 0x5d1, 0x5c9, 0x5c2, 0x5ba, 0x5b3, 0x5ab,
27   0x5a4, 0x59c, 0x595, 0x58d, 0x586, 0x57e, 0x577, 0x56f, 0x568, 0x560, 0x559, 0x552, 0x54a, 0x543, 0x53c, 0x534,
28   0x52d, 0x525, 0x51e, 0x517, 0x510, 0x508, 0x501, 0x4fa, 0x4f2, 0x4eb, 0x4e4, 0x4dd, 0x4d5, 0x4ce, 0x4c7, 0x4c0,
29   0x4b9, 0x4b1, 0x4aa, 0x4a3, 0x49c, 0x495, 0x48e, 0x487, 0x480, 0x478, 0x471, 0x46a, 0x463, 0x45c, 0x455, 0x44e,
30   0x447, 0x440, 0x439, 0x432, 0x42b, 0x424, 0x41d, 0x416, 0x40f, 0x408, 0x401, 0x3fa, 0x3f3, 0x3ec, 0x3e6, 0x3df,
31   0x3d8, 0x3d1, 0x3ca, 0x3c3, 0x3bc, 0x3b5, 0x3af, 0x3a8, 0x3a1, 0x39a, 0x393, 0x38d, 0x386, 0x37f, 0x378, 0x372,
32   0x36b, 0x364, 0x35d, 0x357, 0x350, 0x349, 0x343, 0x33c, 0x335, 0x32f, 0x328, 0x321, 0x31b, 0x314, 0x30e, 0x307,
33   0x300, 0x2fa, 0x2f3, 0x2ed, 0x2e6, 0x2e0, 0x2d9, 0x2d3, 0x2cc, 0x2c5, 0x2bf, 0x2b8, 0x2b2, 0x2ac, 0x2a5, 0x29f,
34   0x298, 0x292, 0x28b, 0x285, 0x27e, 0x278, 0x272, 0x26b, 0x265, 0x25f, 0x258, 0x252, 0x24b, 0x245, 0x23f, 0x238,
35   0x232, 0x22c, 0x226, 0x21f, 0x219, 0x213, 0x20c, 0x206, 0x200, 0x1fa, 0x1f4, 0x1ed, 0x1e7, 0x1e1, 0x1db, 0x1d5,
36   0x1ce, 0x1c8, 0x1c2, 0x1bc, 0x1b6, 0x1b0, 0x1a9, 0x1a3, 0x19d, 0x197, 0x191, 0x18b, 0x185, 0x17f, 0x179, 0x173,
37   0x16d, 0x167, 0x161, 0x15b, 0x155, 0x14f, 0x149, 0x143, 0x13d, 0x137, 0x131, 0x12b, 0x125, 0x11f, 0x119, 0x113,
38   0x10d, 0x107, 0x101, 0x0fb, 0x0f6, 0x0f0, 0x0ea, 0x0e4, 0x0de, 0x0d8, 0x0d2, 0x0cd, 0x0c7, 0x0c1, 0x0bb, 0x0b5,
39   0x0b0, 0x0aa, 0x0a4, 0x09e, 0x098, 0x093, 0x08d, 0x087, 0x082, 0x07c, 0x076, 0x070, 0x06b, 0x065, 0x05f, 0x05a,
40   0x054, 0x04e, 0x049, 0x043, 0x03d, 0x038, 0x032, 0x02d, 0x027, 0x021, 0x01c, 0x016, 0x011, 0x00b, 0x006, 0x000,
41};
42
43// exp2_table[n-1] - exp2_table[n] except for the last three values
44const UINT8 la32_device::exp2_delta_table[0x200] = {
45   0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb, 0xb,
46   0xa, 0xb, 0xb, 0xb, 0xb, 0xa, 0xb, 0xb, 0xb, 0xa, 0xb, 0xb, 0xa, 0xb, 0xb, 0xa,
47   0xb, 0xb, 0xa, 0xb, 0xa, 0xb, 0xa, 0xb, 0xa, 0xb, 0xa, 0xb, 0xa, 0xb, 0xa, 0xa,
48   0xb, 0xa, 0xb, 0xa, 0xa, 0xb, 0xa, 0xa, 0xa, 0xb, 0xa, 0xa, 0xa, 0xb, 0xa, 0xa,
49   0xa, 0xa, 0xa, 0xa, 0xb, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa,
50   0xa, 0xa, 0xa, 0xa, 0x9, 0xa, 0xa, 0xa, 0xa, 0xa, 0xa, 0x9, 0xa, 0xa, 0xa, 0x9,
51   0xa, 0xa, 0xa, 0x9, 0xa, 0xa, 0x9, 0xa, 0xa, 0x9, 0xa, 0x9, 0xa, 0x9, 0xa, 0xa,
52   0x9, 0xa, 0x9, 0xa, 0x9, 0x9, 0xa, 0x9, 0xa, 0x9, 0xa, 0x9, 0x9, 0xa, 0x9, 0x9,
53   0xa, 0x9, 0x9, 0xa, 0x9, 0x9, 0x9, 0xa, 0x9, 0x9, 0x9, 0x9, 0xa, 0x9, 0x9, 0x9,
54   0x9, 0x9, 0x9, 0x9, 0x9, 0xa, 0x9, 0x9, 0x9, 0x9, 0x9, 0x9, 0x9, 0x9, 0x8, 0x9,
55   0x9, 0x9, 0x9, 0x9, 0x9, 0x9, 0x9, 0x8, 0x9, 0x9, 0x9, 0x9, 0x9, 0x8, 0x9, 0x9,
56   0x9, 0x8, 0x9, 0x9, 0x8, 0x9, 0x9, 0x8, 0x9, 0x9, 0x8, 0x9, 0x8, 0x9, 0x9, 0x8,
57   0x9, 0x8, 0x9, 0x8, 0x9, 0x8, 0x9, 0x8, 0x9, 0x8, 0x8, 0x9, 0x8, 0x9, 0x8, 0x8,
58   0x9, 0x8, 0x9, 0x8, 0x8, 0x8, 0x9, 0x8, 0x8, 0x9, 0x8, 0x8, 0x8, 0x9, 0x8, 0x8,
59   0x8, 0x8, 0x8, 0x9, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x9, 0x8,
60   0x8, 0x8, 0x8, 0x8, 0x7, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x8, 0x7,
61   0x8, 0x8, 0x8, 0x8, 0x7, 0x8, 0x8, 0x8, 0x8, 0x7, 0x8, 0x8, 0x7, 0x8, 0x8, 0x8,
62   0x7, 0x8, 0x7, 0x8, 0x8, 0x7, 0x8, 0x8, 0x7, 0x8, 0x7, 0x8, 0x7, 0x8, 0x7, 0x8,
63   0x7, 0x8, 0x7, 0x8, 0x7, 0x8, 0x7, 0x8, 0x7, 0x8, 0x7, 0x7, 0x8, 0x7, 0x7, 0x8,
64   0x7, 0x8, 0x7, 0x7, 0x7, 0x8, 0x7, 0x7, 0x8, 0x7, 0x7, 0x7, 0x8, 0x7, 0x7, 0x7,
65   0x7, 0x8, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x8, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7,
66   0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x6, 0x7,
67   0x7, 0x7, 0x7, 0x7, 0x7, 0x7, 0x6, 0x7, 0x7, 0x7, 0x7, 0x6, 0x7, 0x7, 0x7, 0x6,
68   0x7, 0x7, 0x7, 0x6, 0x7, 0x7, 0x6, 0x7, 0x7, 0x6, 0x7, 0x7, 0x6, 0x7, 0x6, 0x7,
69   0x7, 0x6, 0x7, 0x6, 0x7, 0x6, 0x7, 0x6, 0x7, 0x7, 0x6, 0x7, 0x6, 0x6, 0x7, 0x6,
70   0x7, 0x6, 0x7, 0x6, 0x7, 0x6, 0x6, 0x7, 0x6, 0x6, 0x7, 0x6, 0x7, 0x6, 0x6, 0x7,
71   0x6, 0x6, 0x6, 0x7, 0x6, 0x6, 0x7, 0x6, 0x6, 0x6, 0x6, 0x7, 0x6, 0x6, 0x6, 0x6,
72   0x7, 0x6, 0x6, 0x6, 0x6, 0x6, 0x7, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6,
73   0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6,
74   0x6, 0x6, 0x6, 0x6, 0x5, 0x6, 0x6, 0x6, 0x6, 0x6, 0x6, 0x5, 0x6, 0x6, 0x6, 0x6,
75   0x5, 0x6, 0x6, 0x6, 0x6, 0x5, 0x6, 0x6, 0x5, 0x6, 0x6, 0x6, 0x5, 0x6, 0x6, 0x5,
76   0x6, 0x6, 0x5, 0x6, 0x6, 0x5, 0x6, 0x5, 0x6, 0x6, 0x5, 0x6, 0x5, 0x6, 0x4, 0x5,
77};
78
79// -1024*log2(sin(n+0.5)*pi/1024) except for n=0
80const UINT16 la32_device::logsin_table[0x200] = {
81   0x1fff, 0x1f0e, 0x1c1b, 0x1a2a, 0x18b7, 0x178e, 0x1698, 0x15c4, 0x150b, 0x1467, 0x13d3, 0x134d, 0x12d2, 0x1260, 0x11f7, 0x1194,
82   0x1138, 0x10e1, 0x108f, 0x1041, 0x0ff8, 0x0fb1, 0x0f6e, 0x0f2e, 0x0ef1, 0x0eb6, 0x0e7d, 0x0e47, 0x0e12, 0x0ddf, 0x0dae, 0x0d7e,
83   0x0d50, 0x0d24, 0x0cf8, 0x0cce, 0x0ca6, 0x0c7e, 0x0c57, 0x0c31, 0x0c0d, 0x0be9, 0x0bc6, 0x0ba4, 0x0b82, 0x0b62, 0x0b42, 0x0b23,
84   0x0b04, 0x0ae6, 0x0ac9, 0x0aac, 0x0a90, 0x0a74, 0x0a59, 0x0a3f, 0x0a24, 0x0a0b, 0x09f2, 0x09d9, 0x09c0, 0x09a9, 0x0991, 0x097a,
85   0x0963, 0x094d, 0x0937, 0x0921, 0x090b, 0x08f6, 0x08e2, 0x08cd, 0x08b9, 0x08a5, 0x0891, 0x087e, 0x086b, 0x0858, 0x0845, 0x0833,
86   0x0821, 0x080f, 0x07fe, 0x07ec, 0x07db, 0x07ca, 0x07b9, 0x07a9, 0x0798, 0x0788, 0x0778, 0x0768, 0x0759, 0x0749, 0x073a, 0x072b,
87   0x071c, 0x070d, 0x06fe, 0x06f0, 0x06e2, 0x06d4, 0x06c6, 0x06b8, 0x06aa, 0x069c, 0x068f, 0x0682, 0x0674, 0x0667, 0x065a, 0x064e,
88   0x0641, 0x0634, 0x0628, 0x061c, 0x0610, 0x0603, 0x05f7, 0x05ec, 0x05e0, 0x05d4, 0x05c9, 0x05bd, 0x05b2, 0x05a7, 0x059c, 0x0591,
89   0x0586, 0x057b, 0x0570, 0x0565, 0x055b, 0x0550, 0x0546, 0x053c, 0x0531, 0x0527, 0x051d, 0x0513, 0x0509, 0x04ff, 0x04f6, 0x04ec,
90   0x04e2, 0x04d9, 0x04d0, 0x04c6, 0x04bd, 0x04b4, 0x04ab, 0x04a1, 0x0498, 0x048f, 0x0487, 0x047e, 0x0475, 0x046c, 0x0464, 0x045b,
91   0x0453, 0x044a, 0x0442, 0x043a, 0x0431, 0x0429, 0x0421, 0x0419, 0x0411, 0x0409, 0x0401, 0x03f9, 0x03f2, 0x03ea, 0x03e2, 0x03db,
92   0x03d3, 0x03cc, 0x03c4, 0x03bd, 0x03b5, 0x03ae, 0x03a7, 0x03a0, 0x0398, 0x0391, 0x038a, 0x0383, 0x037c, 0x0375, 0x036f, 0x0368,
93   0x0361, 0x035a, 0x0353, 0x034d, 0x0346, 0x0340, 0x0339, 0x0333, 0x032c, 0x0326, 0x031f, 0x0319, 0x0313, 0x030d, 0x0306, 0x0300,
94   0x02fa, 0x02f4, 0x02ee, 0x02e8, 0x02e2, 0x02dc, 0x02d6, 0x02d1, 0x02cb, 0x02c5, 0x02bf, 0x02ba, 0x02b4, 0x02ae, 0x02a9, 0x02a3,
95   0x029e, 0x0298, 0x0293, 0x028d, 0x0288, 0x0282, 0x027d, 0x0278, 0x0273, 0x026d, 0x0268, 0x0263, 0x025e, 0x0259, 0x0254, 0x024f,
96   0x024a, 0x0245, 0x0240, 0x023b, 0x0236, 0x0231, 0x022c, 0x0228, 0x0223, 0x021e, 0x0219, 0x0215, 0x0210, 0x020b, 0x0207, 0x0202,
97   0x01fe, 0x01f9, 0x01f5, 0x01f0, 0x01ec, 0x01e7, 0x01e3, 0x01df, 0x01da, 0x01d6, 0x01d2, 0x01ce, 0x01c9, 0x01c5, 0x01c1, 0x01bd,
98   0x01b9, 0x01b5, 0x01b1, 0x01ad, 0x01a9, 0x01a5, 0x01a1, 0x019d, 0x0199, 0x0195, 0x0191, 0x018d, 0x018a, 0x0186, 0x0182, 0x017e,
99   0x017a, 0x0177, 0x0173, 0x016f, 0x016c, 0x0168, 0x0165, 0x0161, 0x015e, 0x015a, 0x0157, 0x0153, 0x0150, 0x014c, 0x0149, 0x0145,
100   0x0142, 0x013f, 0x013b, 0x0138, 0x0135, 0x0132, 0x012e, 0x012b, 0x0128, 0x0125, 0x0122, 0x011e, 0x011b, 0x0118, 0x0115, 0x0112,
101   0x010f, 0x010c, 0x0109, 0x0106, 0x0103, 0x0100, 0x00fd, 0x00fb, 0x00f8, 0x00f5, 0x00f2, 0x00ef, 0x00ec, 0x00ea, 0x00e7, 0x00e4,
102   0x00e1, 0x00df, 0x00dc, 0x00d9, 0x00d7, 0x00d4, 0x00d1, 0x00cf, 0x00cc, 0x00ca, 0x00c7, 0x00c5, 0x00c2, 0x00c0, 0x00bd, 0x00bb,
103   0x00b8, 0x00b6, 0x00b4, 0x00b1, 0x00af, 0x00ad, 0x00aa, 0x00a8, 0x00a6, 0x00a3, 0x00a1, 0x009f, 0x009d, 0x009b, 0x0098, 0x0096,
104   0x0094, 0x0092, 0x0090, 0x008e, 0x008c, 0x008a, 0x0088, 0x0086, 0x0084, 0x0082, 0x0080, 0x007e, 0x007c, 0x007a, 0x0078, 0x0076,
105   0x0074, 0x0072, 0x0070, 0x006e, 0x006d, 0x006b, 0x0069, 0x0067, 0x0066, 0x0064, 0x0062, 0x0060, 0x005f, 0x005d, 0x005b, 0x005a,
106   0x0058, 0x0057, 0x0055, 0x0053, 0x0052, 0x0050, 0x004f, 0x004d, 0x004c, 0x004a, 0x0049, 0x0047, 0x0046, 0x0045, 0x0043, 0x0042,
107   0x0040, 0x003f, 0x003e, 0x003c, 0x003b, 0x003a, 0x0038, 0x0037, 0x0036, 0x0035, 0x0033, 0x0032, 0x0031, 0x0030, 0x002f, 0x002e,
108   0x002c, 0x002b, 0x002a, 0x0029, 0x0028, 0x0027, 0x0026, 0x0025, 0x0024, 0x0023, 0x0022, 0x0021, 0x0020, 0x001f, 0x001e, 0x001d,
109   0x001c, 0x001b, 0x001a, 0x001a, 0x0019, 0x0018, 0x0017, 0x0016, 0x0016, 0x0015, 0x0014, 0x0013, 0x0013, 0x0012, 0x0011, 0x0010,
110   0x0010, 0x000f, 0x000e, 0x000e, 0x000d, 0x000d, 0x000c, 0x000b, 0x000b, 0x000a, 0x000a, 0x0009, 0x0009, 0x0008, 0x0008, 0x0007,
111   0x0007, 0x0006, 0x0006, 0x0006, 0x0005, 0x0005, 0x0005, 0x0004, 0x0004, 0x0004, 0x0003, 0x0003, 0x0003, 0x0002, 0x0002, 0x0002,
112   0x0002, 0x0001, 0x0001, 0x0001, 0x0001, 0x0001, 0x0001, 0x0001, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000, 0x0000,
113};
114
115la32_device::la32_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock)
116   : device_t(mconfig, LA32, "LA32", tag, owner, clock, "la32", __FILE__),
117     device_sound_interface(mconfig, *this),
118     irq_cb(*this),
119     sample_cb(*this)
120{
121}
122
123
124void la32_device::device_start()
125{
126   irq_cb.resolve_safe();
127   sample_cb.resolve_safe();
128   stream = stream_alloc(0, 4, 32000);
129   timer = timer_alloc(0);
130   timer->adjust(attotime::from_hz(32000*2), 0, attotime::from_hz(32000*2));
131}
132
133void la32_device::device_reset()
134{
135   timer_phase = false;
136   irq_count = 0;
137   for(int i=0; i<32; i++)
138      partials[i].reset();
139}
140
141void la32_device::ramp_t::reset()
142{
143   cur_value = 0;
144   increment = 0;
145   target = 0;
146   done = true;
147}
148
149bool la32_device::ramp_t::check_done() const
150{
151   UINT8 value = cur_value >> 18;
152   if(increment & 0x80)
153      return value <= target;
154   else
155      return value >= target;
156}
157
158bool la32_device::ramp_t::step()
159{
160   if(done || !(increment & 0x7f))
161      return false;
162   if(!check_done()) {
163      UINT32 stepval = 0;
164      if(increment & 0x7f) {
165         stepval = (0x40000 | (exp2_table[(~((increment & 7) << 6)) & 0x1ff] << 6)) >> (15 -  ((increment >> 3) & 15));
166         if(increment & 0x80)
167            stepval = ~stepval;
168         cur_value = (cur_value + stepval) & 0x3ffffff;
169      }
170   }
171   if(check_done()) {
172      cur_value = target << 18;
173      done = true;
174      return true;
175   }
176   return false;
177}
178
179void la32_device::ramp_t::set_increment(UINT8 i)
180{
181   increment = i;
182}
183
184void la32_device::ramp_t::set_target(UINT8 t)
185{
186   target = t;
187   done = false;
188}
189
190void la32_device::partial_t::reset()
191{
192   base_adr_cutoff = 0;
193   flags = 0;
194   len_flags = 0;
195   pulse_width = 0;
196   pitch = 0;
197   tva.reset();
198   tvf.reset();
199   irq_ramp = irq_sample = false;
200}
201
202astring la32_device::tts(attotime t)
203{
204   char buf[256];
205   int nsec = t.attoseconds / ATTOSECONDS_PER_NANOSECOND;
206   sprintf(buf, "%4d.%03d,%03d,%03d", int(t.seconds), nsec/1000000, (nsec/1000)%1000, nsec % 1000);
207   return buf;
208}
209
210astring la32_device::ttsn()
211{
212   return tts(machine().time());
213}
214
215void la32_device::sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples)
216{
217   //   logerror("%s: %s: stream update %d\n", tag(), ttsn().cstr(), samples);
218   for(int i=0; i<4; i++)
219      memset(outputs[i], 0, samples*sizeof(stream_sample_t));
220}
221
222UINT16 la32_device::compute_output_pcm(partial_t &p)
223{
224   if(p.pitch != 0xffff)
225      fprintf(stderr, "Pitch %04x\n", p.pitch);
226   return 0;
227}
228
229UINT16 la32_device::compute_output_synthetic(partial_t &p)
230{
231   return 0;
232}
233
234void la32_device::step_ramp(partial_t &p, ramp_t &r)
235{
236   if(r.step() && !p.irq_ramp) {
237      p.irq_ramp = true;
238      irq_count++;
239      if(irq_count == 1)
240         irq_cb(true);
241   }
242}
243
244UINT16 la32_device::compute_output(partial_t &p)
245{
246   if(!p.active())
247      return 0;
248   step_ramp(p, p.tva);
249   step_ramp(p, p.tvf);
250   if(p.pcm())
251      return compute_output_pcm(p);
252   else
253      return compute_output_synthetic(p);
254}
255
256void la32_device::device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr)
257{
258   timer_phase = !timer_phase;
259   sample_cb(timer_phase);
260   if(timer_phase) {
261      for(int i=0; i<32; i+=2) {
262         UINT16 o0 = compute_output(partials[i]);
263         UINT16 o1 = compute_output(partials[i+1]);
264      }
265   }
266}
267
268READ8_MEMBER(la32_device::read)
269{
270   // On 400?
271   // bit 7 = 0, low bits = partial+1, end of sample
272   // bit 7 = 1, bit 5 = 0, ?
273   // bit 7 = 1, bit 5 = 1, ramp done
274
275   offset /= 2;
276   UINT8 res = 0xff;
277   for(int i=0; res == 0xff && i<32; i++) {
278      if(partials[i].irq_sample) {
279         partials[i].irq_sample = false;
280         res = (i+1) & 0x1f;
281         irq_count--;
282
283      } else if(partials[i].irq_ramp) {
284         partials[i].irq_ramp = false;
285         res = 0xc0 | i;
286         irq_count--;
287      }
288   }
289
290   if(res != 0xff && !irq_count)
291      irq_cb(false);
292   
293   logerror("%s: read  %03x %02x\n", tag(), offset, res);
294   return res;
295}
296
297WRITE8_MEMBER(la32_device::write)
298{
299   offset /= 2;
300
301   if(offset & 0x400) {
302      int partial = (offset >> 1) & 31;
303      partial_t &p = partials[partial];
304      int slot = ((offset >> 5) & 0xe) | (offset & 1);
305
306      switch(slot) {
307      case 0x0: // c00
308         p.tva.set_increment(data);
309         break;
310
311      case 0x1: // c02
312         p.tva.set_target(data);
313         logerror("%s:%02x: tva = (%02x, %02x)\n", tag(), partial, p.tva.target, p.tva.increment);
314         break;
315
316      case 0x2: // c80
317         p.pulse_width = data;
318         logerror("%s:%02x: pulse_width = %02x\n", tag(), partial, p.pulse_width);
319         break;
320
321      case 0x3: // c82
322         p.base_adr_cutoff = data;
323         if(p.pcm())
324            logerror("%s:%02x: pcm base adr = %x\n", tag(), partial, p.base_adr());
325         else
326            logerror("%s:%02x: base cutoff = %x\n", tag(), partial, p.base_cutoff());
327         break;
328
329      case 0x4: // d00
330         p.tvf.set_increment(data);
331         break;
332
333      case 0x5: // d02
334         p.tvf.set_target(data);
335         logerror("%s:%02x: tvf = (%02x, %02x)\n", tag(), partial, p.tvf.target, p.tvf.increment);
336         break;
337
338      case 0x6: // d80
339         p.pitch = (p.pitch & 0xff00) | data;
340         break;
341
342      case 0x7: // d82
343         p.pitch = (p.pitch & 0x00ff) | (data << 8);
344         logerror("%s:%02x: pitch = %x\n", tag(), partial, p.pitch);
345         break;
346
347      case 0x8: // e00
348         p.flags = data;
349         if(p.active())
350            logerror("%s:%02x: %s, %s=%d, ringmod=%d, chan=%d, pan=%d\n", tag(), partial, p.pcm() ? "pcm" : "synthetic", p.pcm() ? "interp" : "saw", p.pcm() ? p.interpolate() : p.sawtooth(), p.ring_modulation(), p.channel(), p.pan());
351         else
352            logerror("%s:%02x: disabled\n", tag(), partial);
353         break;
354
355      case 0x9: // e02
356         p.len_flags = data;
357         if(p.pcm())
358            logerror("%s:%02x: len=%x, loop=%d\n", tag(), partial, p.len(), p.loop());
359         else
360            logerror("%s:%02x: resonance=%02x\n", tag(), partial, p.resonance());
361         break;
362
363         // a e80
364         // b e82
365         // c f00
366         // d f02
367         // e f80
368         // f f82
369
370      default:
371         logerror("%s: write %02x.%02x, %02x (%x)\n", tag(), partial, slot, data, space.device().safe_pc());
372         break;
373      }
374
375   } else
376      logerror("%s: write %03x, %02x\n", tag(), offset, data);
377}
378
trunk/src/emu/sound/la32.h
r0r243796
1#ifndef __LA32_H__
2#define __LA32_H__
3
4#define MCFG_LA32_ADD(_tag) \
5   MCFG_DEVICE_ADD(_tag, LA32, 0)
6
7#define MCFG_LA32_IRQ_CALLBACK(_cb) \
8   downcast<la32_device *>(device)->set_irq(DEVCB_##_cb);
9
10#define MCFG_LA32_SAMPLE_CALLBACK(_cb) \
11   downcast<la32_device *>(device)->set_sample(DEVCB_##_cb);
12
13class la32_device : public device_t,
14               public device_sound_interface
15{
16public:
17   la32_device(const machine_config &mconfig, const char *tag, device_t *owner, UINT32 clock);
18
19   DECLARE_READ8_MEMBER(read);
20   DECLARE_WRITE8_MEMBER(write);
21
22   template<class _cb> void set_irq(_cb cb) {
23      irq_cb.set_callback(cb);
24   }
25
26   template<class _cb> void set_sample(_cb cb) {
27      sample_cb.set_callback(cb);
28   }
29
30protected:
31   virtual void device_start();
32   virtual void device_reset();
33   virtual void device_timer(emu_timer &timer, device_timer_id id, int param, void *ptr);
34   virtual void sound_stream_update(sound_stream &stream, stream_sample_t **inputs, stream_sample_t **outputs, int samples);
35
36private:
37   const static UINT16 exp2_table[0x200];
38   const static UINT8 exp2_delta_table[0x200];
39   const static UINT16 logsin_table[0x200];
40
41   struct ramp_t {
42      UINT32 cur_value;
43      UINT8 increment;
44      UINT8 target;
45      bool done;
46
47      bool check_done() const;
48      bool step();
49      void reset();
50      void set_increment(UINT8 i);
51      void set_target(UINT8 t);
52   };
53
54   struct partial_t {
55      ramp_t tva, tvf;
56
57      UINT16 pitch;
58      UINT8 base_adr_cutoff;
59      UINT8 flags, len_flags, pulse_width;
60
61      bool irq_ramp, irq_sample;
62
63      bool pcm() const { return flags & 0x80; }
64      bool interpolate() const { return flags & 0x40; }
65      bool sawtooth() const { return flags & 0x40; }
66      bool ring_modulation() { return flags & 0x20; }
67      bool active() const { return flags & 0x10; }
68      bool channel() const { return flags & 0x08; }
69      UINT8 pan() const { return flags & 0x07; }
70
71      UINT32 base_adr() const { return ((len_flags & 1) << 19) | (base_adr_cutoff << 11); }
72      UINT8 base_cutoff() const { return base_adr_cutoff; }
73      UINT32 len() const { return 0x800 << ((len_flags >> 4) & 7); }
74      bool loop() const { return len_flags & 0x80; }
75      UINT8 resonance() const { return len_flags & 0x1f; }
76      void reset();
77   };
78
79   bool timer_phase;
80   sound_stream *stream;
81   emu_timer *timer;
82   partial_t partials[32];
83   int irq_count;
84
85   devcb_write_line irq_cb, sample_cb;
86
87   astring tts(attotime t);
88   astring ttsn();
89
90   void step_ramp(partial_t &p, ramp_t &r);
91   UINT16 compute_output_pcm(partial_t &p);
92   UINT16 compute_output_synthetic(partial_t &p);
93   UINT16 compute_output(partial_t &p);
94};
95
96extern const device_type LA32;
97
98#endif
trunk/src/emu/sound/sound.mak
r243795r243796
360360endif
361361
362362
363#-------------------------------------------------
364# Roland LA32 Linear-additive synthesis chip
365#-------------------------------------------------
363366
367ifneq ($(filter LA32,$(SOUNDS)),)
368SOUNDOBJS += $(SOUNDOBJ)/la32.o
369endif
370
371
372
364373#-------------------------------------------------
365374# LMC1992 mixer chip
366375#@src/emu/sound/lmc1992.h,SOUNDS += LMC1992
trunk/src/mess/drivers/rmt32.c
r243795r243796
8484      *3     - R15229863 HG61H20R36F (QFP100, stamped 'BOSS')
8585      PCM54HP- Burr-Brown PCM54HP 16-Bit Monolithic Digital-to-Analog Converter (DIP28)
8686      & Various logic ICs - 4051, 74HC27, 74HC00, 74HC02, 74HC04, 74LS05
87
87     
8888      ROMs -  Filename          Device Type
8989              ------------------------------------------------------------------------
9090              ROM.IC26.106      Mitsubishi M5M27C256 (labeled 1.0.6)   read as 27C256
r243795r243796
9292              ROM.IC13.200      Mitsubishi M5M27C128 (labeled 2.0.0)   read as 27C128
9393              ROM.IC21          Toshiba TC532000P (-7471)              read as TC572000
9494              ROM.IC22          Toshiba TC532000P (-7472)              read as TC572000
95                 
9596
9697
97
9898Newer version
9999
100100PCB Layout
r243795r243796
149149      *3     - R15229863 HG61H20R36F (QFP100, stamped 'BOSS')
150150      PCM54HP- Burr-Brown PCM54HP 16-Bit Monolithic Digital-to-Analog Converter (DIP28)
151151      & Various logic ICs - 4051, 74HC27, 74HC00, 74HC02, 74HC04, 74LS05
152
152     
153153      ROMs -  Filename     Device Type
154154              ----------------------------------------------------
155155              ROM.IC26     Hitachi HN623258PH26   read as 27C256
r243795r243796
159159*/
160160
161161#include "emu.h"
162#include "sound/la32.h"
162163#include "machine/ram.h"
163164#include "video/sed1200.h"
164165#include "cpu/mcs96/i8x9x.h"
r243795r243796
180181   PORT_BIT(0x10, IP_ACTIVE_LOW, IPT_OTHER) PORT_NAME("Master volume") PORT_CODE(KEYCODE_M)
181182   PORT_BIT(0xe0, IP_ACTIVE_LOW, IPT_UNUSED)
182183
184   PORT_START("Z")
185   PORT_BIT(0x01, IP_ACTIVE_HIGH, IPT_OTHER) PORT_NAME("Test Z") PORT_CODE(KEYCODE_Z)
186   PORT_BIT(0x02, IP_ACTIVE_HIGH, IPT_OTHER) PORT_NAME("Test X") PORT_CODE(KEYCODE_X)
187
183188   PORT_START("A7")
184189   PORT_BIT(0x03ff, 0x0000, IPT_DIAL) PORT_NAME("Knob") PORT_SENSITIVITY(50) PORT_KEYDELTA(8) PORT_CODE_DEC(KEYCODE_DOWN) PORT_CODE_INC(KEYCODE_UP)
185190INPUT_PORTS_END
r243795r243796
191196   required_device<ram_device> ram;
192197   optional_device<sed1200d0a_device> lcd;
193198   required_device<timer_device> midi_timer;
199   required_device<la32_device> la32;
194200
195201   mt32_state(const machine_config &mconfig, device_type type, const char *tag);
196202
r243795r243796
208214   DECLARE_WRITE8_MEMBER(lcd_ctrl_w);
209215   DECLARE_WRITE8_MEMBER(lcd_data_w);
210216   DECLARE_READ16_MEMBER(port0_r);
217   DECLARE_READ16_MEMBER(port2_r);
211218
212219   TIMER_DEVICE_CALLBACK_MEMBER(midi_timer_cb);
213   TIMER_DEVICE_CALLBACK_MEMBER(samples_timer_cb);
214220
221   DECLARE_WRITE_LINE_MEMBER(la32_irq_w);
222   DECLARE_WRITE_LINE_MEMBER(sample_line_w);
223
215224private:
216225   UINT8 lcd_data_buffer[256];
217226   int lcd_data_buffer_pos;
218227   UINT8 midi;
219228   int midi_pos;
220   UINT8 port0;
221   required_device<cpu_device> m_maincpu;
229   UINT8 port0, port2;
222230};
223231
224232mt32_state::mt32_state(const machine_config &mconfig, device_type type, const char *tag) :
r243795r243796
226234   cpu(*this, "maincpu"),
227235   ram(*this, "ram"),
228236   lcd(*this, "lcd"),
229   midi_timer(*this, "midi_timer")
230,
231      m_maincpu(*this, "maincpu") {
237   midi_timer(*this, "midi_timer"),
238   la32(*this, "la32")
239{
232240}
233241
234242
r243795r243796
242250         for(int x=0; x<5; x++)
243251            bitmap.pix16(y == 7 ? 8 : y, c*6+x) = v & (0x10 >> x) ? 1 : 0;
244252      }
253
254   UINT8 cp = ioport("Z")->read();
255   if(cp & 1) {
256      midi_timer->adjust(attotime::from_hz(1));
257      midi_pos = 0;
258   }
245259   return 0;
246260}
247261
r243795r243796
256270
257271void mt32_state::machine_reset()
258272{
259   midi_timer->adjust(attotime::from_hz(1));
273   //   midi_timer->adjust(attotime::from_hz(1));
260274   midi_pos = 0;
261275   port0 = 0;
276   port2 = 0;
262277}
263278
264279WRITE8_MEMBER(mt32_state::lcd_ctrl_w)
r243795r243796
300315      midi_timer->adjust(attotime::from_hz(1250));
301316}
302317
318WRITE_LINE_MEMBER(mt32_state::sample_line_w)
319{
320   port0 = (port0 & ~0x10) | (state ? 0x10 : 0);
321}
322
323WRITE_LINE_MEMBER(mt32_state::la32_irq_w)
324{
325   logerror("la32_irq_w(%d)\n", state);
326   port2 = (port2 & ~4) | (state ? 4 : 0);
327   cpu->set_input_line(mcs96_device::EXINT_LINE, state);   
328}
329
303330READ16_MEMBER(mt32_state::port0_r)
304331{
305332   return port0;
306333}
307334
308TIMER_DEVICE_CALLBACK_MEMBER(mt32_state::samples_timer_cb)
335READ16_MEMBER(mt32_state::port2_r)
309336{
310   port0 ^= 0x10;
337   return port2;
311338}
312339
313340WRITE8_MEMBER(mt32_state::so_w)
r243795r243796
318345   // bit 5   = boss x1
319346   // bit 6   = lcd cs, also handled internally by the gate array
320347   // bit 7   = lcd clk, also handled internally by the gate array
321   //  logerror("so: x1=%d bank=%d led=%d\n", (data >> 5) & 1, (data >> 1) & 3, data & 1);
348   //   logerror("so: x1=%d bank=%d led=%d\n", (data >> 5) & 1, (data >> 1) & 3, data & 1);
322349}
323350
324351PALETTE_INIT_MEMBER(mt32_state, mt32)
r243795r243796
334361   AM_RANGE(0x021c, 0x021c) AM_READ_PORT("SC1")
335362   AM_RANGE(0x0300, 0x0300) AM_WRITE(lcd_data_w)
336363   AM_RANGE(0x0380, 0x0380) AM_READWRITE(lcd_ctrl_r, lcd_ctrl_w)
364   AM_RANGE(0x0400, 0x0fff) AM_DEVREADWRITE("la32", la32_device, read, write)
337365   AM_RANGE(0x1000, 0x7fff) AM_ROM AM_REGION("maincpu", 0x1000)
338366   AM_RANGE(0x8000, 0xbfff) AM_RAMBANK("bank")
339367   AM_RANGE(0xc000, 0xffff) AM_RAMBANK("fixed")
r243795r243796
343371   AM_RANGE(i8x9x_device::A7,     i8x9x_device::A7)     AM_READ_PORT("A7")
344372   AM_RANGE(i8x9x_device::SERIAL, i8x9x_device::SERIAL) AM_WRITE(midi_w)
345373   AM_RANGE(i8x9x_device::P0,     i8x9x_device::P0)     AM_READ(port0_r)
374   AM_RANGE(i8x9x_device::P2,     i8x9x_device::P2)     AM_READ(port2_r)
346375ADDRESS_MAP_END
347376
348377static MACHINE_CONFIG_START( mt32, mt32_state )
r243795r243796
356385   MCFG_SCREEN_ADD( "screen", LCD )
357386   MCFG_SCREEN_REFRESH_RATE(50)
358387   MCFG_SCREEN_UPDATE_DRIVER(mt32_state, screen_update)
359//  MCFG_SCREEN_SIZE(20*6-1, 9)
388//   MCFG_SCREEN_SIZE(20*6-1, 9)
360389   MCFG_SCREEN_SIZE(20*6-1, (20*6-1)*3/4)
361390   MCFG_SCREEN_VISIBLE_AREA(0, 20*6-2, 0, (20*6-1)*3/4-1)
362391   MCFG_SCREEN_PALETTE("palette")
r243795r243796
368397
369398   MCFG_TIMER_DRIVER_ADD( "midi_timer", mt32_state, midi_timer_cb )
370399
371   MCFG_TIMER_DRIVER_ADD_PERIODIC( "samples_timer", mt32_state, samples_timer_cb, attotime::from_hz(32000*2) )
400   MCFG_LA32_ADD( "la32" )
401   MCFG_LA32_IRQ_CALLBACK( WRITELINE(mt32_state, la32_irq_w) )
402   MCFG_LA32_SAMPLE_CALLBACK( WRITELINE(mt32_state, sample_line_w) )
372403MACHINE_CONFIG_END
373404
374405ROM_START( mt32 )
trunk/src/mess/mess.mak
r243795r243796
260260SOUNDS += MOS7360
261261SOUNDS += ESQPUMP
262262SOUNDS += VRC6
263SOUNDS += LA32
263264
264265#-------------------------------------------------
265266# specify available video cores

https://github.com/mamedev/mame/commit/e1b66cc4c7c9627ccf508aa8d184f3bba0008867

Previous 199869 Revisions Next

© 1997-2024 The MAME Team