home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 373.lha / Sim_v4.2 / prim.vli < prev    next >
Encoding:
Text File  |  1990-02-12  |  1.2 KB  |  54 lines
  1.  
  2. ;Primzahlerkenner
  3. ;Takt auf B0(0), Primzahl zwischen 0 und 9 auf H0
  4. ;Ergebnis auf H0, nur gültig bei H1=3 und B0(0)=0
  5. ;auf B0(12..15) akt. Zustand, auf B1(12..15) Folgezustand
  6. ;auf B0(0) Bit aus Primzahl, auf H1 dessen Wertigkeit
  7.  
  8. SWITCH   CL,B,C,D,E,F
  9. LAMP     AA,BB,0,0,A,SLCT
  10. ASSIGN   1,1,X,AA
  11. ASSIGN   1,08000,Q3,AA
  12. ASSIGN   1,04000,Q2,AA
  13. ASSIGN   1,02000,Q1,AA
  14. ASSIGN   1,01000,Q0,AA
  15. ASSIGN   1,08000,D3,BB
  16. ASSIGN   1,04000,D2,BB
  17. ASSIGN   1,02000,D1,BB
  18. ASSIGN   1,01000,D0,BB
  19. REG_PE   CL,D3,Q3,NQ3
  20. REG_PE   CL,D2,Q2,NQ2
  21. REG_PE   CL,D1,Q1,NQ1
  22. REG_PE   CL,D0,Q0,NQ0
  23. ASSIGN   8,1,E,E3
  24. ASSIGN   4,1,E,E2
  25. ASSIGN   2,1,E,E1
  26. ASSIGN   1,1,E,E0
  27. MUX      (E3,E2,E1,E0),SLCT,X
  28. COUNT    NCL,0,1,0,0,1,OUT
  29. AND      (OUT,3),SLCT
  30. NOT      CL,NCL,0ffff
  31. NOT      X,NX
  32.  
  33. AND      (NX,Q2,NQ1,1),D0_
  34. AND      (X,NQ3,NQ1,NQ0,1),D0__
  35. AND      (NX,NQ2,Q1,NQ0,1),D0___
  36. OR       (D0_,D0__,D0___),D0
  37.  
  38. AND      (NQ1,Q0,1),D1_
  39. AND      (X,Q2,NQ1,1),D1__
  40. AND      (NQ2,Q1,NQ0,1),D1___
  41. OR       (D1_,D1__,D1___),D1
  42.  
  43. AND      (X,Q2,NQ1,1),D2_
  44. AND      (NX,NQ3,NQ1,NQ0,1),D2__
  45. OR       (D2_,D2__),D2
  46.  
  47. AND      (Q2,Q1,Q0,1),D3
  48.  
  49. AND      (X,NQ1,Q0),A_
  50. AND      (Q2,Q1,NQ0),A__
  51. AND      (X,Q3,NQ0),A___
  52. OR       (A_,A__,A___),A
  53.  
  54.