diff options
author | couriersud <couriersud@gmx.org> | 2019-04-10 20:57:33 +0200 |
---|---|---|
committer | couriersud <couriersud@gmx.org> | 2019-04-12 00:44:20 +0200 |
commit | 065f52438fc55bcbeea1d28d4601c43939d1af07 (patch) | |
tree | 80b1f715f1851c33be06c442de696021b62452a7 | |
parent | 8459b00d4e31632053fe05051e083085f7bb1784 (diff) |
netlist: LM3900
- Align LM3900 pin names with other opamps
- Add a better voltage clamping model
- Add high precision model (disabled due to performance)
-rw-r--r-- | src/lib/netlist/macro/nlm_opamp.cpp | 89 | ||||
-rw-r--r-- | src/mame/audio/nl_zac1b11142.cpp | 26 |
2 files changed, 101 insertions, 14 deletions
diff --git a/src/lib/netlist/macro/nlm_opamp.cpp b/src/lib/netlist/macro/nlm_opamp.cpp index f59fea119f6..886345ec6c3 100644 --- a/src/lib/netlist/macro/nlm_opamp.cpp +++ b/src/lib/netlist/macro/nlm_opamp.cpp @@ -4,6 +4,13 @@ #include "netlist/devices/net_lib.h" /* + * 0 = Basic hack (Norton with just amplification, no voltage cutting) + * 1 = Model from LTSPICE list - slow! + * 2 = Simplified model using diode inputs and netlist TYPE=3 + */ +#define USE_LM3900_MODEL (2) + +/* * Generic layout with 4 opamps, VCC on pin 4 and GND on pin 11 */ @@ -195,6 +202,7 @@ static NETLIST_START(LM747A_DIP) NETLIST_END() +#if USE_LM3900_MODEL == 0 static NETLIST_START(LM3900) /* @@ -206,8 +214,8 @@ static NETLIST_START(LM3900) ALIAS(PLUS, R1.1) // Positive input ALIAS(MINUS, R2.1) // Negative input ALIAS(OUT, G1.OP) // Opamp output ... - ALIAS(VM, G1.ON) // V- terminal - ALIAS(VP, DUMMY.I) // V+ terminal + ALIAS(VCC, G1.ON) // V- terminal + ALIAS(GND, DUMMY.I) // V+ terminal DUMMY_INPUT(DUMMY) @@ -224,7 +232,79 @@ static NETLIST_START(LM3900) PARAM(G1.RO, RES_K(8)) NETLIST_END() +#endif + +#if USE_LM3900_MODEL == 1 +// LTSPICE MODEL OF LM3900 FROM NATIONAL SEMICONDUCTOR +// MADE BY HELMUT SENNEWALD, 8/6/2004 +// THE LM3900 IS A SO CALLED NORTON AMPLIFIER. +// +// PIN ORDER: IN+ IN- VCC VSS OUT +static NETLIST_START(LM3900) + PARAM(E1.G, 0.5) + //ALIAS(IN+, Q2.B) + //ALIAS(IN-, Q2.C) + //ALIAS(VCC, Q10.C) + //ALIAS(VSS, Q2.E) + + ALIAS(PLUS, Q2.B) + ALIAS(MINUS, Q2.C) + ALIAS(VCC, Q10.C) + ALIAS(GND, Q2.E) + ALIAS(OUT, Q6.C) + + //CS(B1/*I=LIMIT(0, V(VCC,VSS)/10K, 0.2m)*/) + CS(B1, 2e-4) + CAP(C1, CAP_P(6.000000)) + VCVS(E1) + QBJT_EB(Q1, "LM3900_NPN1") + QBJT_EB(Q10, "LM3900_NPN1") + QBJT_EB(Q11, "LM3900_NPN1") + QBJT_EB(Q12, "LM3900_NPN1") + QBJT_EB(Q2, "LM3900_NPN1") + QBJT_EB(Q3, "LM3900_NPN1") + QBJT_EB(Q4, "LM3900_PNP1") + QBJT_EB(Q5, "LM3900_PNP1") + QBJT_EB(Q6, "LM3900_PNP1") + QBJT_EB(Q7, "LM3900_PNP1") + QBJT_EB(Q8, "LM3900_NPN1") + QBJT_EB(Q9, "LM3900_NPN1") + RES(R1, RES_K(2.000000)) + RES(R6, RES_K(1.600000)) + NET_C(Q11.B, Q12.B, R6.2) + NET_C(Q5.C, Q5.B, B1.P, Q4.B) + NET_C(Q8.C, Q8.B, B1.N, R1.1, E1.IP) + NET_C(Q9.B, R1.2) + NET_C(R6.1, E1.OP) + NET_C(Q10.C, Q5.E, Q4.E, Q11.C, Q12.C) + NET_C(Q2.C, Q3.B, Q12.E) + NET_C(Q2.E, Q3.E, Q9.E, C1.2, Q1.E, Q8.E, E1.ON, E1.IN, Q7.C) + NET_C(Q3.C, Q6.B, C1.1, Q7.B) + NET_C(Q6.E, Q10.B, Q4.C) + NET_C(Q6.C, Q10.E, Q9.C, Q7.E) + NET_C(Q2.B, Q1.C, Q1.B, Q11.E) +NETLIST_END() +#endif +#if USE_LM3900_MODEL == 2 +static NETLIST_START(LM3900) + OPAMP(A, "LM3900") + + DIODE(D1, "D") + DIODE(D2, "D") + + ALIAS(VCC, A.VCC) + ALIAS(GND, A.GND) + ALIAS(MINUS, A.MINUS) + ALIAS(PLUS, A.PLUS) + ALIAS(OUT, A.OUT) + + NET_C(D1.A, A.PLUS) + NET_C(D2.A, A.MINUS) + NET_C(D1.K, D2.K, A.MINUS) + +NETLIST_END() +#endif NETLIST_START(OPAMP_lib) LOCAL_LIB_ENTRY(opamp_layout_4_4_11) @@ -240,7 +320,12 @@ NETLIST_START(OPAMP_lib) NET_MODEL("UA741 OPAMP(TYPE=3 VLH=1.0 VLL=1.0 FPF=5 UGF=1000k SLEW=0.5M RI=2000k RO=75 DAB=0.0017)") NET_MODEL("LM747 OPAMP(TYPE=3 VLH=1.0 VLL=1.0 FPF=5 UGF=1000k SLEW=0.5M RI=2000k RO=50 DAB=0.0017)") NET_MODEL("LM747A OPAMP(TYPE=3 VLH=2.0 VLL=2.0 FPF=5 UGF=1000k SLEW=0.7M RI=6000k RO=50 DAB=0.0015)") + NET_MODEL("LM3900 OPAMP(TYPE=3 VLH=2.0 VLL=0.2 FPF=2k UGF=4M SLEW=0.5M RI=1M RO=2k DAB=0.0015)") +#if USE_LM3900_MODEL == 1 + NET_MODEL("LM3900_NPN1 NPN(IS=1E-14 BF=150 TF=1E-9 CJC=1E-12 CJE=1E-12 VAF=150 RB=100 RE=5 IKF=0.002)") + NET_MODEL("LM3900_PNP1 PNP(IS=1E-14 BF=40 TF=1E-7 CJC=1E-12 CJE=1E-12 VAF=150 RB=100 RE=5)") +#endif LOCAL_LIB_ENTRY(MB3614_DIP) LOCAL_LIB_ENTRY(LM324_DIP) LOCAL_LIB_ENTRY(LM358_DIP) diff --git a/src/mame/audio/nl_zac1b11142.cpp b/src/mame/audio/nl_zac1b11142.cpp index 7f1aac03f70..de45936f346 100644 --- a/src/mame/audio/nl_zac1b11142.cpp +++ b/src/mame/audio/nl_zac1b11142.cpp @@ -69,8 +69,8 @@ NETLIST_START(zac1b11142_schematics) NET_C(R104.2, U5C3.OUT, R105.1) NET_C(R102.1, U5C3.PLUS) NET_C(R103.2, R102.2, R84.1) - NET_C(VCC, R126.1, R103.1, U5C1.VP, U5C2.VP, U5C3.VP) - NET_C(GND, R133.2, C63.2, R132.2, R120.2, R129.2, R127.2, R121.2, C61.2, R84.2, U5C1.VM, U5C2.VM, U5C3.VM) + NET_C(VCC, R126.1, R103.1, U5C1.VCC, U5C2.VCC, U5C3.VCC) + NET_C(GND, R133.2, C63.2, R132.2, R120.2, R129.2, R127.2, R121.2, C61.2, R84.2, U5C1.GND, U5C2.GND, U5C3.GND) ALIAS(RULLANTE, R124.2) ALIAS(CASSA, R105.2) @@ -110,8 +110,8 @@ NETLIST_START(zac1b11142_schematics) NET_C(C45.2, R85.2, U5C4.OUT, R106.1) NET_C(R86.1, U5C4.PLUS) NET_C(R87.2, R86.2, R88.1) - NET_C(VCC, R101.1, R87.1, U5B4.VP, U5C4.VP) - NET_C(GND, R46.2, R100.2, C54.2, R88.2, U5B4.VM, U5C4.VM) + NET_C(VCC, R101.1, R87.1, U5B4.VCC, U5C4.VCC) + NET_C(GND, R46.2, R100.2, C54.2, R88.2, U5B4.GND, U5C4.GND) ALIAS(BASSO, R106.2) @@ -170,8 +170,8 @@ NETLIST_START(zac1b11142_schematics) NET_C(C49.2, R107.2, U5B2.OUT, R90.1) NET_C(R93.1, U5B2.PLUS) NET_C(R92.2, R93.2, R91.1) - NET_C(VCC, R92.1, U5B2.VP) - NET_C(GND, R78.2, R91.2, U5B2.VM) + NET_C(VCC, R92.1, U5B2.VCC) + NET_C(GND, R78.2, R91.2, U5B2.GND) ALIAS(PIANO, R90.2) @@ -212,8 +212,8 @@ NETLIST_START(zac1b11142_schematics) NET_C(R112.2, U5D.1, C50.1, R113.1, U5B1.MINUS) NET_C(R95.2, U5B1.PLUS) NET_C(U5D.2, C50.2, R113.2, U5B1.OUT, R96.1) - NET_C(VCC, R64.1, R65.1, R94.1, R110.1, U5B1.VP) - NET_C(GND, R66.2, C28.2, R40.2, T6.E, C37.2, R108.2, R111.2, U5B1.VM, U4A1.GND) + NET_C(VCC, R64.1, R65.1, R94.1, R110.1, U5B1.VCC) + NET_C(GND, R66.2, C28.2, R40.2, T6.E, C37.2, R108.2, R111.2, U5B1.GND, U4A1.GND) ALIAS(TROMBA, R96.2) @@ -242,7 +242,7 @@ NETLIST_START(zac1b11142_schematics) TTL_74156_DIP(U4B) // FIXME: should be a 74LS156 (lower sink capability) LM3900(U5B3) -#if 0 +#if 1 NET_C(RULLANTE, CASSA, BASSO, R82.2, /*R80.2,*/ PIANO, C40.1, R77.1) #else // cassa swamps the other instruments if it's connected - just ground it for now @@ -270,17 +270,19 @@ NETLIST_START(zac1b11142_schematics) NET_C(R45.2, T7.C) NET_C(T7.B, R68.1) NET_C(R68.2, LEVEL) - NET_C(VCC, R119.1, U4B.16, U5B3.VP) + NET_C(VCC, R119.1, U4B.16, U5B3.VCC) NET_C(GND, P1.3, T7.E, R117.1, U4B.2, U4B.8, U4B.14) - NET_C(GND, U5B3.VM) + NET_C(GND, U5B3.GND) NETLIST_END() NETLIST_START(zac1b11142) + //SOLVER(Solver, 48000) SOLVER(Solver, 48000) - PARAM(Solver.ACCURACY, 1e-10) + //PARAM(Solver.ACCURACY, 1e-10) + PARAM(Solver.ACCURACY, 1e-7) PARAM(Solver.NR_LOOPS, 300) PARAM(Solver.METHOD, "MAT_CR") PARAM(Solver.PARALLEL, 0) |