1
/************************************************************************
2
* norautp Sound System Analog emulation
3
* Sept 2009, Derrick Renaud
4
************************************************************************/
10
/* Discrete Sound Input Nodes */
11
/* defined in norautp.h */
14
static const discrete_555_desc desc_norautp_555 =
16
DISC_555_OUT_ENERGY | DISC_555_OUT_AC,
17
5, // B+ voltage of 555
22
#define NORAUTP_SOUND_CIRCUIT(_name, _r1, _r2, _c1, _c2, _c3, _c4) \
23
static const discrete_comp_adder_table desc_##_name##_caps = \
25
DISC_COMP_P_CAPACITOR, _c4, 3, \
31
DISCRETE_SOUND_START( _name ) \
32
/************************************************ \
33
* Input register mapping \
34
************************************************/ \
35
DISCRETE_INPUT_LOGIC(NORAUTP_SND_EN) \
36
DISCRETE_INPUT_DATA (NORAUTP_FREQ_DATA) \
38
/************************************************ \
40
************************************************/ \
41
DISCRETE_COMP_ADDER(NODE_20, NORAUTP_FREQ_DATA, &desc_##_name##_caps) \
42
DISCRETE_555_ASTABLE(NODE_21, \
43
NORAUTP_SND_EN, /* RESET */ \
44
_r2, _r1, NODE_20, &desc_norautp_555) \
46
DISCRETE_OUTPUT(NODE_21, 65000.0/3.8) \
51
/* Parts List - Resistors */
52
#define NORAUTP_R1 RES_K(120)
53
#define NORAUTP_R2 RES_K(2.2)
55
/* Parts List - Capacitors */
56
#define NORAUTP_C1 CAP_U(.01)
57
#define NORAUTP_C2 CAP_U(.022)
58
#define NORAUTP_C3 CAP_U(.047)
59
#define NORAUTP_C4 CAP_U(.01)
61
NORAUTP_SOUND_CIRCUIT(norautp,
62
NORAUTP_R1, NORAUTP_R2,
63
NORAUTP_C1, NORAUTP_C2, NORAUTP_C3, NORAUTP_C4)
66
/* Noraut old Draw Poker Hi-Lo */
67
/* Parts List - Resistors */
68
#define DPHL_R1 RES_K(120)
69
#define DPHL_R2 RES_K(1)
71
/* Parts List - Capacitors */
72
#define DPHL_C1 CAP_U(.01)
73
#define DPHL_C2 CAP_U(.022)
74
#define DPHL_C3 CAP_U(.05)
75
#define DPHL_C4 CAP_U(.01)
77
NORAUTP_SOUND_CIRCUIT(dphl,
79
DPHL_C1, DPHL_C2, DPHL_C3, DPHL_C4)