home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / COUNTER.ABL < prev    next >
Encoding:
Text File  |  1989-04-24  |  883 b   |  39 lines
  1. module COUNTER
  2.  
  3. title' 8-BIT BINARY COUNTER'
  4.  
  5.          U15    device    'P20X10';
  6.  
  7.          X0,X1,X2,X3  pin 14,15,16,17;
  8.          CLK pin 1;
  9.      E pin 13;
  10.  
  11. equations
  12.  
  13.     !X0:= X0 ;
  14.         !X1:=!X1 $ X0;
  15.         !X2:=!X2 $ (X1*X0);
  16.         !X3:=!X3 $ (X2*X1*X0);
  17.  
  18.  
  19. test_vectors ([CLK,E]->[X3,X2,X1,X0])
  20.           [.C.,0]->[ 0, 0, 0, 0];
  21.           [.C.,0]->[ 0, 0, 0, 1];
  22.           [.C.,0]->[ 0, 0, 1, 0];
  23.           [.C.,0]->[ 0, 0, 1, 1];
  24.           [.C.,0]->[ 0, 1, 0, 0];
  25.           [.C.,0]->[ 0, 1, 0, 1];
  26.           [.C.,0]->[ 0, 1, 1, 0];
  27.           [.C.,0]->[ 0, 1, 1, 1];
  28.           [.C.,0]->[ 1, 0, 0, 0];
  29.           [.C.,0]->[ 1, 0, 0, 1];
  30.           [.C.,0]->[ 1, 0, 1, 0];
  31.           [.C.,0]->[ 1, 0, 1, 1];
  32.           [.C.,0]->[ 1, 1, 0, 0];
  33.           [.C.,0]->[ 1, 1, 0, 1];
  34.           [.C.,0]->[ 1, 1, 1, 0];
  35.           [.C.,0]->[ 1, 1, 1, 1];
  36.           [.C.,0]->[ 0, 0, 0, 0];
  37.                    
  38. end COUNTER
  39.