home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / CLOCK.ABL < prev    next >
Encoding:
Text File  |  1980-02-05  |  912 b   |  31 lines
  1. module CLOCK
  2. title 'CLOCK CONTROL PALS'                           
  3.  
  4. U1 device 'P22V10';
  5.  
  6. CLK                               pin  1;
  7. A1,A2,A3                          pin  4,5,6;
  8. DIV                               pin  14;
  9. X1,X2,X3,X4,X5,X6,X7              pin  15,16,17,18,19,20,21;
  10. CON                               pin  22;
  11. OUTPUT                            pin  23;
  12.  
  13. equations
  14.  
  15. DIV   := DIV   $  !DIV;
  16. X1    := X1    $ (!X1 & !DIV);
  17. X2    := X2    $ (!X2 & !X1 & !DIV);
  18. X3    := X3    $ (!X3 & !X2 & !X1 & !DIV);
  19. X4    := X4    $ (!X4 & !X3 & !X2 & !X1 & !DIV);
  20. X5    := X5    $ (!X5 & !X4 & !X3 & !X2 & !X1 & !DIV);
  21. X6    := X6    $ (!X6 & !X5 & !X4 & !X3 & !X2 & !X1 & !DIV);
  22. X7    := X7    $ (!X7 & !X6 & !X5 & !X4 & !X3 & !X2 & !X1 & !DIV);
  23.  
  24. CON    = X7 & X6 & X5 & X4 & X3 & X2 & X1 & DIV; 
  25.  
  26. OUTPUT = DIV   &  (A1 & A2 & A3) #  
  27.          CLK   & !(A1 & A2 & A3);
  28.  
  29.  
  30. end CLOCK
  31.