/*************************************************************************** netlib.c Discrete netlist implementation. **************************************************************************** Couriersud reserves the right to license the code under a less restrictive license going forward. Copyright Nicola Salmoria and the MAME team All rights reserved. Redistribution and use of this code or any derivative works are permitted provided that the following conditions are met: * Redistributions may not be sold, nor may they be used in a commercial product or activity. * Redistributions that are modified from the original source must include the complete source code, including the source code for all components used by a binary built from the modified sources. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. * Redistributions must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ****************************************************************************/ #include "net_lib.h" NETLIB_START(netdev_logic_input) { register_output("Q", m_Q); } NETLIB_UPDATE(netdev_logic_input) { } NETLIB_START(netdev_analog_input) { register_output("Q", m_Q); } NETLIB_UPDATE(netdev_analog_input) { } NETLIB_START(netdev_clock) { register_output("Q", m_Q); //register_input("FB", m_feedback); register_param("FREQ", m_freq, 7159000.0 * 5); m_inc = netlist_time::from_hz(m_freq.Value()*2); register_link_internal(m_feedback, m_Q); } NETLIB_UPDATE_PARAM(netdev_clock) { m_inc = netlist_time::from_hz(m_freq.Value()*2); } NETLIB_UPDATE(netdev_clock) { m_Q.setToPS(!m_Q.new_Q(), m_inc ); } NETLIB_START(nicMultiSwitch) { static const char *sIN[8] = { "i1", "i2", "i3", "i4", "i5", "i6", "i7", "i8" }; int i; m_position = 0; m_low.initial(0); for (i=0; i<8; i++) { register_input(sIN[i], m_I[i]); //register_link_internal(m_I[i], m_low); m_I[i].set_output( GETINPPTR(m_low)); } register_param("POS", m_POS); register_output("Q", m_Q); m_variable_input_count = true; } NETLIB_UPDATE(nicMultiSwitch) { assert(m_position<8); m_Q.setToPS(INPANALOG(m_I[m_position]), NLTIME_FROM_NS(1)); } NETLIB_UPDATE_PARAM(nicMultiSwitch) { m_position = m_POS.ValueInt(); update(); } NETLIB_START(nicMixer8) { static const char *sI[8] = { "I1", "I2", "I3", "I4", "I5", "I6", "I7", "I8" }; static const char *sR[8] = { "R1", "R2", "R3", "R4", "R5", "R6", "R7", "R8" }; int i; m_low.initial(0); for (i=0; i<8; i++) { register_input(sI[i], m_I[i]); m_I[i].set_output(GETINPPTR(m_low)); register_param(sR[i], m_R[i], 1e12); } register_output("Q", m_Q); m_variable_input_count = true; } NETLIB_UPDATE(nicMixer8) { int i; double r = 0; for (i=0; i<8; i++) { r += m_w[i] * INPANALOG(m_I[i]); } m_Q.setToPS(r, NLTIME_IMMEDIATE); } NETLIB_UPDATE_PARAM(nicMixer8) { double t = 0; int i; for (i=0; i<8; i++) t += 1.0 / m_R[i].Value(); t = 1.0 / t; for (i=0; i<8; i++) m_w[i] = t / m_R[i].Value(); } NETLIB_START(nicRSFF) { register_input("S", m_S); register_input("R", m_R); register_output("Q", m_Q); register_output("QQ", m_QQ); m_Q.initial(0); m_QQ.initial(1); } NETLIB_UPDATE(nicRSFF) { if (INPVAL(m_S)) { m_Q.set(); m_QQ.clear(); } else if (INPVAL(m_R)) { m_Q.clear(); m_QQ.set(); } } NETLIB_START(nicNE555N_MSTABLE) { register_input("TRIG", m_trigger); register_input("CV", m_CV); register_output("Q", m_Q); register_param("R", m_R); register_param("C", m_C); register_param("VS", m_VS, 5.0); register_param("VL", m_VL, 0.0 *5.0); m_THRESHOLD_OUT.set_netdev(this); register_link_internal(m_THRESHOLD, m_THRESHOLD_OUT); m_Q.initial(5.0 * 0.4); m_last = false; } INLINE double nicNE555N_cv(nicNE555N_MSTABLE &dev) { return (dev.m_CV.is_highz() ? 0.67 * dev.m_VS.Value() : dev.INPANALOG(dev.m_CV)); } INLINE double nicNE555N_clamp(nicNE555N_MSTABLE &dev, const double v, const double a, const double b) { double ret = v; if (ret > dev.m_VS.Value() - a) ret = dev.m_VS.Value() - a; if (ret < b) ret = b; return ret; } NETLIB_UPDATE_PARAM(nicNE555N_MSTABLE) { } NETLIB_UPDATE(nicNE555N_MSTABLE) { update_param(); // FIXME : m_CV should be on a sub device ... bool bthresh = (INPANALOG(m_THRESHOLD) > nicNE555N_cv(*this)); bool btrig = (INPANALOG(m_trigger) > nicNE555N_cv(*this) * 0.5); bool out = m_last; if (!btrig) { out = true; } else if (bthresh) { out = false; } if (!m_last && out) { double vt = nicNE555N_cv(*this); double vl = m_VL.Value(); double time; vt = nicNE555N_clamp(*this, vt, 0.7, 1.4); // FIXME : m_CV should be on a sub device ... if (vt> 0) & 1, NLTIME_FROM_NS(23)); m_SB.setToPS((r >> 1) & 1, NLTIME_FROM_NS(23)); m_SC.setToPS((r >> 2) & 1, NLTIME_FROM_NS(23)); m_SD.setToPS((r >> 3) & 1, NLTIME_FROM_NS(23)); m_CO.setToPS((r >> 4) & 1, NLTIME_FROM_NS(23)); } } NETLIB_START(nic7490) { m_cnt = 0; register_input("CLK", m_clk); register_input("R1", m_R1); register_input("R2", m_R2); register_input("R91", m_R91); register_input("R92", m_R92); register_output("QA", m_QA); register_output("QB", m_QB); register_output("QC", m_QC); register_output("QD", m_QD); } NETLIB_UPDATE(nic7490) { if (INPVAL(m_R91) & INPVAL(m_R92)) { m_cnt = 9; update_outputs(); } else if (INPVAL(m_R1) & INPVAL(m_R2)) { m_cnt = 0; update_outputs(); } else if (INPVAL_LAST(m_clk) & !INPVAL(m_clk)) { m_cnt++; if (m_cnt >= 10) m_cnt = 0; update_outputs(); } } NETLIB_FUNC_VOID(nic7490, update_outputs) { m_QA.setToPS((m_cnt >> 0) & 1, NLTIME_FROM_NS(18)); m_QB.setToPS((m_cnt >> 1) & 1, NLTIME_FROM_NS(36)); m_QC.setToPS((m_cnt >> 2) & 1, NLTIME_FROM_NS(54)); m_QD.setToPS((m_cnt >> 3) & 1, NLTIME_FROM_NS(72)); } #if 1 NETLIB_START(nic7493) { register_subdevice(A); register_subdevice(B); register_subdevice(C); register_subdevice(D); register_input(A, "CLKA", A.m_I, net_input_t::INP_STATE_HL); register_input(B, "CLKB", B.m_I, net_input_t::INP_STATE_HL); register_input("R1", m_R1); register_input("R2", m_R2); register_output(A, "QA", A.m_Q); register_output(B, "QB", B.m_Q); register_output(C, "QC", C.m_Q); register_output(D, "QD", D.m_Q); //B.register_link_internal(B.m_I, A.m_Q); register_link_internal(C, C.m_I, B.m_Q); register_link_internal(D, D.m_I, C.m_Q); } NETLIB_UPDATE(nic7493ff) { //if INP_LAST(m_I) && !INP(m_I)) m_Q.setToNoCheckPS(!m_Q.new_Q(), NLTIME_FROM_NS(18)); } NETLIB_UPDATE(nic7493) { net_sig_t r = INPVAL(m_R1) & INPVAL(m_R2); if (r) { //printf("%s reset\n", name()); A.m_I.inactivate(); A.m_Q.setToPS(0, NLTIME_FROM_NS(40)); B.m_I.inactivate(); B.m_Q.setToPS(0, NLTIME_FROM_NS(40)); C.m_I.inactivate(); C.m_Q.setToPS(0, NLTIME_FROM_NS(40)); D.m_I.inactivate(); D.m_Q.setToPS(0, NLTIME_FROM_NS(40)); } else { A.m_I.activate_hl(); B.m_I.activate_hl(); C.m_I.activate_hl(); D.m_I.activate_hl(); //printf("%s enable\n", name()); } } #else NETLIB_START(nic7493) { m_cnt = 0; register_input("CLK", m_clk, net_input_t::INP_STATE_HL); register_input("R1", m_R1); register_input("R2", m_R2); register_output("QA", m_QA); register_output("QB", m_QB); register_output("QC", m_QC); register_output("QD", m_QD); } NETLIB_UPDATE(nic7493) { //UINT8 old_clk = m_lastclk; //m_lastclk = INPVAL(m_clk); //printf("%s %d %d %d %d %d %d\n", name(), m_cnt, old_clk, m_QA.Q(), m_QB.Q(), m_QC.Q(), m_QD.Q()); if (INPVAL(m_R1) & INPVAL(m_R2)) { if (m_cnt > 0) { m_cnt = 0; m_QA.setToPS(0, 40000); m_QB.setToPS(0, 40000); m_QC.setToPS(0, 40000); m_QD.setToPS(0, 40000); } } //else if (old_clk & !m_lastclk) else if (INPVAL_LAST(m_clk) & !INPVAL(m_clk)) { m_cnt++; m_cnt &= 0x0f; update_outputs(); } } NETLIB_FUNC_VOID(nic7493, update_outputs) { if (m_cnt & 1) m_QA.setToNoCheckPS(1, 16000); else { m_QA.setToNoCheckPS(0, 16000); switch (m_cnt) { case 0x00: m_QB.setToNoCheckPS(0, 34000); m_QC.setToNoCheckPS(0, 48000); m_QD.setToNoCheckPS(0, 70000); break; case 0x02: case 0x06: case 0x0A: case 0x0E: m_QB.setToNoCheckPS(1, 34000); break; case 0x04: case 0x0C: m_QB.setToNoCheckPS(0, 34000); m_QC.setToNoCheckPS(1, 48000); break; case 0x08: m_QB.setToNoCheckPS(0, 34000); m_QC.setToNoCheckPS(0, 48000); m_QD.setToNoCheckPS(1, 70000); break; } } } #endif NETLIB_START(nic74107A) { register_subdevice(sub); register_input(sub, "CLK", sub.m_clk, net_input_t::INP_STATE_HL); register_input("J", m_J); register_input("K", m_K); register_input("CLRQ", m_clrQ); register_output(sub, "Q", sub.m_Q); register_output(sub, "QQ", sub.m_QQ); sub.m_Q.initial(0); sub.m_QQ.initial(1); } INLINE void nic74107A_newstate(UINT8 state, ttl_output_t &Q, ttl_output_t &QQ) { if (state != Q.new_Q()) { if (state) { Q.setToNoCheckPS(1, NLTIME_FROM_NS(40)); QQ.setToNoCheckPS(0, NLTIME_FROM_NS(25)); } else { Q.setToNoCheckPS(0, NLTIME_FROM_NS(25)); QQ.setToNoCheckPS(1, NLTIME_FROM_NS(40)); } } } NETLIB_UPDATE(nic74107Asub) { //if (INPVAL_LAST(m_clk) & !INPVAL(m_clk)) { nic74107A_newstate((!m_Q.new_Q() & m_Q1) | (m_Q.new_Q() & m_Q2) | m_F, m_Q, m_QQ); if (!m_Q1) m_clk.inactivate(); } } NETLIB_UPDATE(nic74107A) { if (INPVAL(m_J) & INPVAL(m_K)) { sub.m_Q1 = 1; sub.m_Q2 = 0; sub.m_F = 0; } else if (!INPVAL(m_J) & INPVAL(m_K)) { sub.m_Q1 = 0; sub.m_Q2 = 0; sub.m_F = 0; } else if (INPVAL(m_J) & !INPVAL(m_K)) { sub.m_Q1 = 0; sub.m_Q2 = 0; sub.m_F = 1; } else { sub.m_Q1 = 0; sub.m_Q2 = 1; sub.m_F = 0; sub.m_clk.inactivate(); } if (!INPVAL(m_clrQ)) { sub.m_clk.inactivate(); nic74107A_newstate(0, sub.m_Q, sub.m_QQ); } if (!sub.m_Q2 && INPVAL(m_clrQ)) sub.m_clk.activate_hl(); } NETLIB_START(nic74153) { register_input("A1", m_I[0]); register_input("A2", m_I[1]); register_input("A3", m_I[2]); register_input("A4", m_I[3]); register_input("A", m_A); register_input("B", m_B); register_input("GA", m_GA); register_output("AY", m_AY); } NETLIB_UPDATE(nic74153) { if (!INPVAL(m_GA)) { UINT8 chan = (INPVAL(m_A) | (INPVAL(m_B)<<1)); UINT8 t = INPVAL(m_I[chan]); m_AY.setToPS(t, t ? NLTIME_FROM_NS(18) : NLTIME_FROM_NS(23)); /* data to y only, FIXME */ } else { m_AY.setToPS(0, NLTIME_FROM_NS(23)); } } NETLIB_START(nic9316) { register_subdevice(sub); sub.m_cnt = 0; register_input(sub, "CLK", sub.m_clk, net_input_t::INP_STATE_LH); register_input("ENP", m_ENP); register_input("ENT", sub.m_ENT); register_input("CLRQ", m_CLRQ); register_input("LOADQ", sub.m_LOADQ, net_input_t::INP_STATE_ACTIVE); register_input(sub, "A", sub.m_A, net_input_t::INP_STATE_PASSIVE); register_input(sub, "B", sub.m_B, net_input_t::INP_STATE_PASSIVE); register_input(sub, "C", sub.m_C, net_input_t::INP_STATE_PASSIVE); register_input(sub, "D", sub.m_D, net_input_t::INP_STATE_PASSIVE); register_output(sub, "QA", sub.m_QA); register_output(sub, "QB", sub.m_QB); register_output(sub, "QC", sub.m_QC); register_output(sub, "QD", sub.m_QD); register_output(sub, "RC", sub.m_RC); } NETLIB_UPDATE(nic9316sub) { //if (!INP_LAST(m_clk) & INP(m_clk)) { if (INPVAL(m_LOADQ)) { m_cnt = ( m_cnt + 1) & 0x0f; update_outputs(); m_RC.setToPS(m_cnt == 0x0f, NLTIME_FROM_NS(20)); } else { m_cnt = (INPVAL_PASSIVE(m_D) << 3) | (INPVAL_PASSIVE(m_C) << 2) | (INPVAL_PASSIVE(m_B) << 1) | (INPVAL_PASSIVE(m_A) << 0); update_outputs_all(); m_RC.setToPS(INPVAL(m_ENT) & (m_cnt == 0x0f), NLTIME_FROM_NS(20)); } } } NETLIB_UPDATE(nic9316) { if ((!INPVAL(sub.m_LOADQ) | (INPVAL(sub.m_ENT) & INPVAL(m_ENP))) & INPVAL(m_CLRQ)) sub.m_clk.activate_lh(); else { sub.m_clk.inactivate(); if (!INPVAL(m_CLRQ) & (sub.m_cnt>0)) { sub.m_cnt = 0; sub.update_outputs(); sub.m_RC.setToPS(0, NLTIME_FROM_NS(20)); } } sub.m_RC.setToPS(INPVAL(sub.m_ENT) & (sub.m_cnt == 0x0f), NLTIME_FROM_NS(20)); } NETLIB_FUNC_VOID(nic9316sub, update_outputs_all) { m_QA.setToPS((m_cnt >> 0) & 1, NLTIME_FROM_NS(20)); m_QB.setToPS((m_cnt >> 1) & 1, NLTIME_FROM_NS(20)); m_QC.setToPS((m_cnt >> 2) & 1, NLTIME_FROM_NS(20)); m_QD.setToPS((m_cnt >> 3) & 1, NLTIME_FROM_NS(20)); } NETLIB_FUNC_VOID(nic9316sub, update_outputs) { #if 0 m_QA.setTo((m_cnt >> 0) & 1, 20); m_QB.setTo((m_cnt >> 1) & 1, 20); m_QC.setTo((m_cnt >> 2) & 1, 20); m_QD.setTo((m_cnt >> 3) & 1, 20); #else if ((m_cnt & 1) == 1) m_QA.setToNoCheckPS(1, NLTIME_FROM_NS(20)); else { m_QA.setToNoCheckPS(0, NLTIME_FROM_NS(20)); switch (m_cnt) { case 0x00: m_QB.setToNoCheckPS(0, NLTIME_FROM_NS(20)); m_QC.setToNoCheckPS(0, NLTIME_FROM_NS(20)); m_QD.setToNoCheckPS(0, NLTIME_FROM_NS(20)); break; case 0x02: case 0x06: case 0x0A: case 0x0E: m_QB.setToNoCheckPS(1, NLTIME_FROM_NS(20)); break; case 0x04: case 0x0C: m_QB.setToNoCheckPS(0, NLTIME_FROM_NS(20)); m_QC.setToNoCheckPS(1, NLTIME_FROM_NS(20)); break; case 0x08: m_QB.setToNoCheckPS(0, NLTIME_FROM_NS(20)); m_QC.setToNoCheckPS(0, NLTIME_FROM_NS(20)); m_QD.setToNoCheckPS(1, NLTIME_FROM_NS(20)); break; } } #endif } #define ENTRY(_nic, _name) new net_device_t_factory< _nic >( # _name, # _nic ), static net_device_t_base_factory *netregistry[] = { ENTRY(netdev_ttl_const, NETDEV_TTL_CONST) ENTRY(netdev_analog_const, NETDEV_ANALOG_CONST) ENTRY(netdev_logic_input, NETDEV_LOGIC_INPUT) ENTRY(netdev_analog_input, NETDEV_ANALOG_INPUT) ENTRY(netdev_clock, NETDEV_CLOCK) ENTRY(netdev_callback, NETDEV_CALLBACK) ENTRY(nicMultiSwitch, NETDEV_SWITCH2) ENTRY(nicRSFF, NETDEV_RSFF) ENTRY(nicMixer8, NETDEV_MIXER) ENTRY(nic7400, TTL_7400_NAND) ENTRY(nic7402, TTL_7402_NOR) ENTRY(nic7404, TTL_7404_INVERT) ENTRY(nic7410, TTL_7410_NAND) ENTRY(nic7420, TTL_7420_NAND) ENTRY(nic7425, TTL_7425_NOR) ENTRY(nic7427, TTL_7427_NOR) ENTRY(nic7430, TTL_7430_NAND) ENTRY(nic7450, TTL_7450_ANDORINVERT) ENTRY(nic7486, TTL_7486_XOR) ENTRY(nic7448, TTL_7448) ENTRY(nic7474, TTL_7474) ENTRY(nic7483, TTL_7483) ENTRY(nic7490, TTL_7490) ENTRY(nic7493, TTL_7493) ENTRY(nic74107, TTL_74107) ENTRY(nic74107A, TTL_74107A) ENTRY(nic74153, TTL_74153) ENTRY(nic9316, TTL_9316) ENTRY(nicNE555N_MSTABLE, NE555N_MSTABLE) NULL }; net_device_t *net_create_device_by_classname(const char *classname, netlist_setup_t *setup, const char *icname) { net_device_t_base_factory **p = &netregistry[0]; while (p != NULL) { if (strcmp((*p)->classname(), classname) == 0) return (*p)->Create(setup, icname); p++; } fatalerror("Class %s required for IC %s not found!\n", classname, icname); } net_device_t *net_create_device_by_name(const char *name, netlist_setup_t *setup, const char *icname) { net_device_t_base_factory **p = &netregistry[0]; while (p != NULL) { if (strcmp((*p)->name(), name) == 0) return (*p)->Create(setup, icname); p++; } fatalerror("Class %s required for IC %s not found!\n", name, icname); }