88 lines
1.6 KiB
C
88 lines
1.6 KiB
C
// license:GPL-2.0+
|
|
// copyright-holders:Couriersud
|
|
/*
|
|
* bjt.c
|
|
*
|
|
*/
|
|
|
|
// CURRENTLY BROKEN
|
|
|
|
#include "netlist/devices/net_lib.h"
|
|
|
|
NETLIST_START(bjt)
|
|
/* Standard stuff */
|
|
|
|
CLOCK(clk, 1000) // 1000 Hz
|
|
SOLVER(Solver, 48000)
|
|
|
|
ANALOG_INPUT(V3, 3)
|
|
ANALOG_INPUT(STOPG, 0)
|
|
ALIAS(SRSTQ, RYf.2)
|
|
ALIAS(SRST, RYc.2)
|
|
NET_C(antenna, GND)
|
|
ALIAS(runQ, Q1.C)
|
|
|
|
TTL_7404_INVERT(e4d, STOPG)
|
|
|
|
RES(RYf, 50) // output impedance
|
|
RES(RYc, 50) // output impedance
|
|
|
|
TTL_7404_INVERT(c9f, RYc.2)
|
|
TTL_7404_INVERT(c9c, RYf.2)
|
|
NET_C(c9f.Q, RYf.1)
|
|
NET_C(c9c.Q, RYc.1)
|
|
|
|
SWITCH2(coinsw, RYc.2, RYf.2)
|
|
|
|
NET_C(coinsw.Q, GND)
|
|
|
|
/* Antenna circuit */
|
|
/* Also has a diode to clamp negative voltages - omitted here */
|
|
NETDEV_QNPN(Q3, BC237B)
|
|
ALIAS(antenna, Q3.B)
|
|
NET_C(GND, Q3.E)
|
|
RES(RX5, 100)
|
|
CAP(CX1, 100)
|
|
NET_C(RX5.1, CX1.1)
|
|
NET_C(RX5.1, Q3.C)
|
|
NET_C(RX5.2, GND)
|
|
NET_C(CX1.2, GND)
|
|
NETDEV_QNPN(Q1, BC237B)
|
|
NET_C(Q1.B, RX5.1)
|
|
NET_C(Q1.E, GND)
|
|
|
|
DIODE(D3, 1N914)
|
|
NET_C(D3.A, Q1.C)
|
|
NET_C(D3.K, SRSTQ)
|
|
|
|
DIODE(D2, 1N914)
|
|
RES(RX4, 220)
|
|
NET_C(D2.K, e4d.Q)
|
|
NET_C(D2.A, RX4.1)
|
|
NET_C(RX4.2, Q3.C)
|
|
|
|
RES(RX1, 100)
|
|
RES(RX2, 100)
|
|
RES(RX3, 330)
|
|
CAP(CX2, CAP_U(0.1))
|
|
|
|
NET_C(RX3.2, D3.A)
|
|
NET_C(RX3.1, RX1.2)
|
|
NET_C(RX1.1, V3)
|
|
|
|
NET_C(RX1.1, CX2.1)
|
|
NET_C(RX1.2, CX2.2)
|
|
|
|
NETDEV_QPNP(Q2, BC556B)
|
|
NET_C(Q2.E, V3)
|
|
NET_C(Q2.B, RX1.2)
|
|
NET_C(Q2.C, RX2.2)
|
|
|
|
NET_C(RX2.1, D2.A)
|
|
|
|
|
|
//LOG(logB, Q1.B)
|
|
//LOG(logC, Q1.C)
|
|
|
|
NETLIST_END()
|