[VM] Enable to build with upstream 2018-10-14 @some VMs.

[csp-qt/common_source_project-fm7.git] / source / src / vm / fp1100 / sub.h

diff --git a/source/src/vm/fp1100/sub.h b/source/src/vm/fp1100/sub.h
index 7a2282d..84c683a 100644 (file)
--- a/source/src/vm/fp1100/sub.h
+++ b/source/src/vm/fp1100/sub.h
@@ -24,6 +24,104 @@ class HD46505;
 
 namespace FP1100 {
        
+// 74LS74
+typedef struct ls74_s {
+       bool in_d, in_ck, in_s, in_r;
+       bool out_q, out_nq;
+       bool tmp_ck;
+       void update()
+       {
+               if(!in_s && in_r) {
+                       out_q = true;
+                       out_nq = false;
+               } else if(in_s && !in_r) {
+                       out_q = false;
+                       out_nq = true;
+               } else if(!in_s && !in_r) {
+                       out_q = out_nq = true; // undetermined
+               } else if(!tmp_ck && in_ck) {
+                       out_q = in_d;
+                       out_nq = !in_d;
+               }
+               tmp_ck = in_ck;
+       }
+} ls74_t;
+
+// 74LS151
+typedef struct ls151_s {
+       bool in_d0, in_d1, in_d2, in_d3, in_d4, in_d5, in_d6, in_d7;
+       bool in_a, in_b, in_c, in_s;
+       bool out_y, out_ny;
+       void update()
+       {
+               if(in_s) {
+                       out_y = false;
+               } else if(!in_a && !in_b && !in_c) {
+                       out_y = in_d0;
+               } else if( in_a && !in_b && !in_c) {
+                       out_y = in_d1;
+               } else if(!in_a &&  in_b && !in_c) {
+                       out_y = in_d2;
+               } else if( in_a &&  in_b && !in_c) {
+                       out_y = in_d3;
+               } else if(!in_a && !in_b &&  in_c) {
+                       out_y = in_d4;
+               } else if( in_a && !in_b &&  in_c) {
+                       out_y = in_d5;
+               } else if(!in_a &&  in_b &&  in_c) {
+                       out_y = in_d6;
+               } else if( in_a &&  in_b &&  in_c) {
+                       out_y = in_d7;
+               }
+               out_ny = !out_y;
+       }
+} ls151_t;
+
+// 74LS93
+typedef struct ls93_s {
+       bool in_a, in_b, in_rc1, in_rc2;
+       bool out_qa, out_qb, out_qc;
+       bool tmp_a, tmp_b;
+       uint8_t counter_a, counter_b;
+       void update()
+       {
+               if(in_rc1 && in_rc2) {
+                       counter_a = counter_b = 0;
+               } else {
+                       if(tmp_a && !in_a) {
+                               counter_a++;
+                       }
+                       if(tmp_b && !in_b) {
+                               counter_b++;
+                       }
+               }
+               tmp_a = in_a;
+               tmp_b = in_b;
+               out_qa = ((counter_a & 1) != 0);
+               out_qb = ((counter_b & 1) != 0);
+               out_qc = ((counter_b & 2) != 0);
+       }
+} ls93_t;
+
+// TC4024BP
+typedef struct tc4024bp_s {
+       bool in_ck, in_clr;
+       bool out_q5, out_q6;
+       bool tmp_ck;
+       uint8_t counter;
+       void update()
+       {
+               if(in_clr) {
+                       counter = 0;
+               } else if(tmp_ck && !in_ck) {
+                       counter++;
+               }
+               tmp_ck = in_ck;
+               out_q5 = ((counter & 0x10) != 0);
+               out_q6 = ((counter & 0x20) != 0);
+       }
+} tc4024bp_t;
+
 class SUB : public DEVICE
 {
 private: