mirror of
https://github.com/holub/mame
synced 2025-10-04 16:34:53 +03:00
db0dbeaea5
Renamed cast member of the constants struct to magic to clearly identify magic numbers. Introduced nlconst struct inheriting from plib::constants<nl_fptype> to make code better understandable.
316 lines
7.2 KiB
C++
316 lines
7.2 KiB
C++
// license:GPL-2.0+
|
|
// copyright-holders:Couriersud
|
|
/*
|
|
* nld_74123.c
|
|
*
|
|
*/
|
|
|
|
#include "nlid_system.h"
|
|
#include "netlist/analog/nlid_twoterm.h"
|
|
|
|
#include <cmath>
|
|
|
|
namespace netlist
|
|
{
|
|
namespace devices
|
|
{
|
|
NETLIB_OBJECT(74123)
|
|
{
|
|
NETLIB_CONSTRUCTOR_EX(74123, int dev_type = 74123)
|
|
, m_dev_type(dev_type)
|
|
, m_RP(*this, "RP")
|
|
, m_RN(*this, "RN")
|
|
, m_RP_Q(*this, "_RP_Q")
|
|
, m_RN_Q(*this, "_RN_Q")
|
|
, m_A(*this, "A")
|
|
, m_B(*this, "B")
|
|
, m_CLRQ(*this, "CLRQ")
|
|
, m_Q(*this, "Q")
|
|
, m_QQ(*this, "QQ")
|
|
, m_CV(*this, "_CV") // internal
|
|
, m_last_trig(*this, "m_last_trig", 0)
|
|
, m_state(*this, "m_state", 0)
|
|
, m_KP(*this, "m_KP", 0)
|
|
, m_K(*this, "K", nlconst::magic((m_dev_type == 4538) ? 1.0 : 0.4)) // CD4538 datasheet states PW=RC
|
|
, m_RI(*this, "RI", nlconst::magic(400.0)) // around 250 for HC series, 400 on LS/TTL, estimated from datasheets
|
|
{
|
|
if ((m_dev_type != 9602) && (m_dev_type != 4538) )
|
|
m_dev_type = 74123;
|
|
|
|
register_subalias("GND", m_RN.m_R.m_N);
|
|
register_subalias("VCC", m_RP.m_R.m_P);
|
|
register_subalias("C", m_RN.m_R.m_N);
|
|
register_subalias("RC", m_RN.m_R.m_P);
|
|
|
|
connect(m_RP_Q, m_RP.m_I);
|
|
connect(m_RN_Q, m_RN.m_I);
|
|
|
|
connect(m_RN.m_R.m_P, m_RP.m_R.m_N);
|
|
connect(m_CV, m_RN.m_R.m_P);
|
|
|
|
m_RP.m_RON.setTo(m_RI());
|
|
m_RN.m_RON.setTo(m_RI());
|
|
}
|
|
|
|
NETLIB_RESETI();
|
|
NETLIB_UPDATEI();
|
|
|
|
private:
|
|
int m_dev_type;
|
|
public:
|
|
NETLIB_SUB(res_sw) m_RP;
|
|
NETLIB_SUB(res_sw) m_RN;
|
|
|
|
logic_output_t m_RP_Q;
|
|
logic_output_t m_RN_Q;
|
|
|
|
logic_input_t m_A;
|
|
logic_input_t m_B;
|
|
logic_input_t m_CLRQ;
|
|
logic_output_t m_Q;
|
|
logic_output_t m_QQ;
|
|
|
|
analog_input_t m_CV;
|
|
|
|
state_var<netlist_sig_t> m_last_trig;
|
|
state_var<unsigned> m_state;
|
|
state_var<nl_fptype> m_KP;
|
|
|
|
param_fp_t m_K;
|
|
param_fp_t m_RI;
|
|
};
|
|
|
|
NETLIB_OBJECT(74123_dip)
|
|
{
|
|
NETLIB_CONSTRUCTOR(74123_dip)
|
|
, m_A(*this, "A", 74123)
|
|
, m_B(*this, "B", 74123)
|
|
{
|
|
register_subalias("1", m_A.m_A);
|
|
register_subalias("2", m_A.m_B);
|
|
register_subalias("3", m_A.m_CLRQ);
|
|
register_subalias("4", m_A.m_QQ);
|
|
register_subalias("5", m_B.m_Q);
|
|
register_subalias("6", m_B.m_RN.m_R.m_N);
|
|
register_subalias("7", m_B.m_RN.m_R.m_P);
|
|
register_subalias("8", m_A.m_RN.m_R.m_N);
|
|
connect(m_A.m_RN.m_R.m_N, m_B.m_RN.m_R.m_N);
|
|
|
|
register_subalias("9", m_B.m_A);
|
|
register_subalias("10", m_B.m_B);
|
|
register_subalias("11", m_B.m_CLRQ);
|
|
register_subalias("12", m_B.m_QQ);
|
|
register_subalias("13", m_A.m_Q);
|
|
register_subalias("14", m_A.m_RN.m_R.m_N);
|
|
register_subalias("15", m_A.m_RN.m_R.m_P);
|
|
register_subalias("16", m_A.m_RP.m_R.m_P);
|
|
connect(m_A.m_RP.m_R.m_P, m_B.m_RP.m_R.m_P);
|
|
}
|
|
NETLIB_RESETI();
|
|
NETLIB_UPDATEI();
|
|
private:
|
|
NETLIB_SUB(74123) m_A;
|
|
NETLIB_SUB(74123) m_B;
|
|
};
|
|
|
|
NETLIB_OBJECT(9602_dip)
|
|
{
|
|
NETLIB_CONSTRUCTOR(9602_dip)
|
|
, m_A(*this, "A", 9602)
|
|
, m_B(*this, "B", 9602)
|
|
{
|
|
register_subalias("1", m_A.m_RN.m_R.m_N); // C1
|
|
register_subalias("2", m_A.m_RN.m_R.m_P); // RC1
|
|
register_subalias("3", m_A.m_CLRQ);
|
|
register_subalias("4", m_A.m_B);
|
|
register_subalias("5", m_A.m_A);
|
|
register_subalias("6", m_A.m_Q);
|
|
register_subalias("7", m_A.m_QQ);
|
|
register_subalias("8", m_A.m_RN.m_R.m_N);
|
|
connect(m_A.m_RN.m_R.m_N, m_B.m_RN.m_R.m_N);
|
|
|
|
register_subalias("9", m_B.m_QQ);
|
|
register_subalias("10", m_B.m_Q);
|
|
register_subalias("11", m_B.m_A);
|
|
register_subalias("12", m_B.m_B);
|
|
register_subalias("13", m_B.m_CLRQ);
|
|
register_subalias("14", m_B.m_RN.m_R.m_P); // RC2
|
|
register_subalias("15", m_B.m_RN.m_R.m_N); // C2
|
|
register_subalias("16", m_A.m_RP.m_R.m_P);
|
|
connect(m_A.m_RP.m_R.m_P, m_B.m_RP.m_R.m_P);
|
|
}
|
|
NETLIB_RESETI();
|
|
NETLIB_UPDATEI();
|
|
private:
|
|
NETLIB_SUB(74123) m_A;
|
|
NETLIB_SUB(74123) m_B;
|
|
};
|
|
|
|
NETLIB_OBJECT(4538_dip)
|
|
{
|
|
NETLIB_CONSTRUCTOR(4538_dip)
|
|
NETLIB_FAMILY("CD4XXX")
|
|
, m_A(*this, "A", 4538)
|
|
, m_B(*this, "B", 4538)
|
|
{
|
|
register_subalias("1", m_A.m_RN.m_R.m_N); // C1
|
|
register_subalias("2", m_A.m_RN.m_R.m_P); // RC1
|
|
register_subalias("3", m_A.m_CLRQ);
|
|
register_subalias("4", m_A.m_A);
|
|
register_subalias("5", m_A.m_B);
|
|
register_subalias("6", m_A.m_Q);
|
|
register_subalias("7", m_A.m_QQ);
|
|
register_subalias("8", m_A.m_RN.m_R.m_N);
|
|
connect(m_A.m_RN.m_R.m_N, m_B.m_RN.m_R.m_N);
|
|
|
|
register_subalias("9", m_B.m_QQ);
|
|
register_subalias("10", m_B.m_Q);
|
|
register_subalias("11", m_B.m_B);
|
|
register_subalias("12", m_B.m_A);
|
|
register_subalias("13", m_B.m_CLRQ);
|
|
register_subalias("14", m_B.m_RN.m_R.m_P); // RC2
|
|
register_subalias("15", m_B.m_RN.m_R.m_N); // C2
|
|
register_subalias("16", m_A.m_RP.m_R.m_P);
|
|
connect(m_A.m_RP.m_R.m_P, m_B.m_RP.m_R.m_P);
|
|
}
|
|
NETLIB_RESETI();
|
|
NETLIB_UPDATEI();
|
|
private:
|
|
NETLIB_SUB(74123) m_A;
|
|
NETLIB_SUB(74123) m_B;
|
|
};
|
|
|
|
NETLIB_UPDATE(74123)
|
|
{
|
|
netlist_sig_t m_trig(0);
|
|
netlist_sig_t res = !m_CLRQ();
|
|
netlist_time t_AB_to_Q = NLTIME_FROM_NS(10);
|
|
netlist_time t_C_to_Q = NLTIME_FROM_NS(10);
|
|
|
|
if (m_dev_type == 74123)
|
|
{
|
|
m_trig = (m_A() ^ 1) & m_B() & m_CLRQ();
|
|
}
|
|
else if (m_dev_type == 9602)
|
|
{
|
|
m_trig = (m_A() ^ 1) | m_B();
|
|
}
|
|
else // 4538
|
|
{
|
|
m_trig = (m_B() ^ 1) | m_A();
|
|
// The line below is from the datasheet truthtable ... doesn't make sense at all
|
|
//res = res | m_A) | (m_B) ^ 1);
|
|
t_AB_to_Q = NLTIME_FROM_NS(300);
|
|
t_C_to_Q = NLTIME_FROM_NS(250);
|
|
}
|
|
|
|
if (res)
|
|
{
|
|
m_Q.push(0, t_C_to_Q);
|
|
m_QQ.push(1, t_C_to_Q);
|
|
/* quick charge until trigger */
|
|
/* FIXME: SGS datasheet shows quick charge to 5V,
|
|
* though schematics indicate quick charge to Vhigh only.
|
|
*/
|
|
m_RP_Q.push(1, t_C_to_Q); // R_ON
|
|
m_RN_Q.push(0, t_C_to_Q); // R_OFF
|
|
m_state = 2; //charging (quick)
|
|
}
|
|
else if (!m_last_trig && m_trig)
|
|
{
|
|
// FIXME: Timing!
|
|
m_Q.push(1, t_AB_to_Q);
|
|
m_QQ.push(0,t_AB_to_Q);
|
|
|
|
m_RN_Q.push(1, t_AB_to_Q); // R_ON
|
|
m_RP_Q.push(0, t_AB_to_Q); // R_OFF
|
|
|
|
m_state = 1; // discharging
|
|
}
|
|
|
|
m_last_trig = m_trig;
|
|
|
|
if (m_state == 1)
|
|
{
|
|
const nl_fptype vLow = m_KP * m_RP.m_R.m_P();
|
|
if (m_CV() < vLow)
|
|
{
|
|
m_RN_Q.push(0, NLTIME_FROM_NS(10)); // R_OFF
|
|
m_state = 2; // charging
|
|
}
|
|
}
|
|
if (m_state == 2)
|
|
{
|
|
const nl_fptype vHigh = m_RP.m_R.m_P() * (nlconst::one() - m_KP);
|
|
if (m_CV() > vHigh)
|
|
{
|
|
m_RP_Q.push(0, NLTIME_FROM_NS(10)); // R_OFF
|
|
|
|
m_Q.push(0, NLTIME_FROM_NS(10));
|
|
m_QQ.push(1, NLTIME_FROM_NS(10));
|
|
m_state = 0; // waiting
|
|
}
|
|
}
|
|
}
|
|
|
|
NETLIB_RESET(74123)
|
|
{
|
|
m_KP = plib::reciprocal(nlconst::one() + std::exp(m_K()));
|
|
|
|
m_RP.reset();
|
|
m_RN.reset();
|
|
|
|
//m_RP.set_R(R_OFF);
|
|
//m_RN.set_R(R_OFF);
|
|
|
|
m_last_trig = 0;
|
|
m_state = 0;
|
|
}
|
|
|
|
NETLIB_UPDATE(74123_dip)
|
|
{
|
|
/* only called during startup */
|
|
//_1.update_dev();
|
|
//m_2.update_dev();
|
|
}
|
|
|
|
NETLIB_RESET(74123_dip)
|
|
{
|
|
//m_1.reset();
|
|
//m_2.reset();
|
|
}
|
|
|
|
NETLIB_UPDATE(9602_dip)
|
|
{
|
|
/* only called during startup */
|
|
//m_1.update_dev();
|
|
//m_2.update_dev();
|
|
}
|
|
|
|
NETLIB_RESET(9602_dip)
|
|
{
|
|
//m_1.reset();
|
|
//m_2.reset();
|
|
}
|
|
|
|
NETLIB_UPDATE(4538_dip)
|
|
{
|
|
/* only called during startup */
|
|
//m_1.update_dev();
|
|
//m_2.update_dev();
|
|
}
|
|
|
|
NETLIB_RESET(4538_dip)
|
|
{
|
|
m_A.reset();
|
|
m_B.reset();
|
|
}
|
|
|
|
NETLIB_DEVICE_IMPL(74123, "TTL_74123", "")
|
|
NETLIB_DEVICE_IMPL(74123_dip, "TTL_74123_DIP", "")
|
|
NETLIB_DEVICE_IMPL(4538_dip, "CD4538_DIP", "")
|
|
NETLIB_DEVICE_IMPL(9602_dip, "TTL_9602_DIP", "")
|
|
|
|
} //namespace devices
|
|
} // namespace netlist
|