home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff229.lzh / Sim / example / gray.vli
Text File  |  1989-07-20  |  2KB  |  96 lines
  1. ; Gray code counter
  2. ; click on RUN gadget
  3. ; b0(0)=1 enables, b1(0)=1 resets the counter
  4.  
  5. SWITCH b,r,dummy,dummy,dummy,dummy
  6. LAMP Q,0,0,0,Q,0
  7.  
  8. ;16 T-flipflops
  9. JK_REG_P CLOCK,t0,t0,0,r,q0,nq0
  10. JK_REG_P CLOCK,t1,t1,0,r,q1,nq1
  11. JK_REG_P CLOCK,t2,t2,0,r,q2,nq2
  12. JK_REG_P CLOCK,t3,t3,0,r,q3,nq3
  13. JK_REG_P CLOCK,t4,t4,0,r,q4,nq4
  14. JK_REG_P CLOCK,t5,t5,0,r,q5,nq5
  15. JK_REG_P CLOCK,t6,t6,0,r,q6,nq6
  16. JK_REG_P CLOCK,t7,t7,0,r,q7,nq7
  17. JK_REG_P CLOCK,t8,t8,0,r,q8,nq8
  18. JK_REG_P CLOCK,t9,t9,0,r,q9,nq9
  19. JK_REG_P CLOCK,ta,ta,0,r,qa,nqa
  20. JK_REG_P CLOCK,tb,tb,0,r,qb,nqb
  21. JK_REG_P CLOCK,tc,tc,0,r,qc,nqc
  22. JK_REG_P CLOCK,td,td,0,r,qd,nqd
  23. JK_REG_P CLOCK,te,te,0,r,qe,dummy
  24. JK_REG_P CLOCK,tf,tf,0,r,qf,dummy
  25.  
  26. AND (b0,nx0),t0
  27. AND (q0,eo),t1
  28. AND (q1,eo,nq0),t2
  29. AND (q2,eo,aq2),t3
  30. AND (q3,eo,aq3),t4
  31. AND (q4,eo,aq4),t5
  32. AND (q5,eo,aq5),t6
  33. AND (q6,eo,aq6),t7
  34. AND (q7,eo,aq7),t8
  35. AND (q8,eo,aq8),t9
  36. AND (q9,eo,aq9),ta
  37. AND (qa,eo,aqa),tb
  38. AND (qb,eo,aqb),tc
  39. AND (qc,eo,aqc),td
  40. AND (qd,eo,aqd),te
  41. AND (eo,aqe),tf
  42.  
  43. AND (nq0,nq1),aq2
  44. AND (nq2,aq2),aq3
  45. AND (nq3,aq3),aq4
  46. AND (nq4,aq4),aq5
  47. AND (nq5,aq5),aq6
  48. AND (nq6,aq6),aq7
  49. AND (nq7,aq7),aq8
  50. AND (nq8,aq8),aq9
  51. AND (nq9,aq9),aqa
  52. AND (nqa,aqa),aqb
  53. AND (nqb,aqb),aqc
  54. AND (nqc,aqc),aqd
  55. AND (nqd,aqd),aqe
  56.  
  57. XOR (q0,x1),x0
  58. XOR (q1,x2),x1
  59. XOR (q2,x3),x2
  60. XOR (q3,x4),x3
  61. XOR (q4,x5),x4
  62. XOR (q5,x6),x5
  63. XOR (q6,x7),x6
  64. XOR (q7,x8),x7
  65. XOR (q8,x9),x8
  66. XOR (q9,xa),x9
  67. XOR (qa,xb),xa
  68. XOR (qb,xc),xb
  69. XOR (qc,xd),xc
  70. XOR (qd,xe),xd
  71. XOR (qe,qf),xe
  72.  
  73. NOT x0,nx0
  74. AND (b0,x0),eo
  75. NOT r,nr
  76. AND (nr,b),b0
  77.  
  78. ASSIGN 1,1,q0,Q0
  79. ASSIGN 1,2,q1,Q1
  80. ASSIGN 1,4,q2,Q2
  81. ASSIGN 1,8,q3,Q3
  82. ASSIGN 1,010,q4,Q4
  83. ASSIGN 1,020,q5,Q5
  84. ASSIGN 1,040,q6,Q6
  85. ASSIGN 1,080,q7,Q7
  86. ASSIGN 1,0100,q8,Q8
  87. ASSIGN 1,0200,q9,Q9
  88. ASSIGN 1,0400,qa,Qa
  89. ASSIGN 1,0800,qb,Qb
  90. ASSIGN 1,01000,qc,Qc
  91. ASSIGN 1,02000,qd,Qd
  92. ASSIGN 1,04000,qe,Qe
  93. ASSIGN 1,08000,qf,Qf
  94.  
  95. OR (Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Qa,Qb,Qc,Qd,Qe,Qf),Q
  96.