1 files changed, 35 insertions, 0 deletions
diff --git a/graphics/circuit_macros/doc/bistableMan.m4 b/graphics/circuit_macros/doc/bistableMan.m4
new file mode 100644
index 0000000000..d158e10a04
--- /dev/null
+++ b/graphics/circuit_macros/doc/bistableMan.m4
@@ -0,0 +1,35 @@
+.PS
+# `bistable.m4'
+cct_init                                 # Default initialization
+
+   up_
+rgbdraw(1,0,0,
+Q1: bi_tr(,R)                            # Q1 upward with base to the right
+   llabel(,Q_1) )                        # Label to left of last []
+rgbdraw(0,0,1,
+Q2: bi_tr with .C at Q1.C+(elen_*7/4,0)  # Q2 with base to left
+   rlabel(,Q_2) )
+
+   ground(at Q1.E)
+   ground(at Q2.E)
+
+   line right_ dimen_/3 from Q1.B        # Extend the base conductors
+B1: Here
+   line left_ dimen_/3 from Q2.B
+B2: Here
+
+   resistor(up_ elen_*0.75 from Q1.C); llabel(,"$R_L$" wid 0.16) #Load resistors
+   line to (Q2.C,Here) "$V_{\hbox{cc}}$" below
+   resistor(down_ to Q2.C); llabel(,R_L)
+
+   move to Q1.C+(0,dimen_/5)
+   { resistor(right_ to (B1,Here)); llabel(,R_1)
+X: line to B2 }                          # Label the line to be jumped
+   resistor(from (Q2.C,Here) left_ to (B2,Here)); rlabel(,R_1)
+   crossover(to B1,R,X)
+
+   resistor(down_ elen_*0.75); rlabel(,R_2)   # Bias resistors
+   {"$-V_{\hbox{cc}}$" rjust}
+   line to (B2,Here)
+   resistor(up_ to B2); rlabel(,R_2)
+.PE