home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / REGIN.ABL < prev    next >
Encoding:
Text File  |  1986-02-04  |  718 b   |  40 lines
  1. module _regin
  2. title '4-bit comparator with input registers
  3. Michael Holley   FutureNet - Data I/O     9 Jan 1986'
  4.  
  5.     regin    device    'F82S159';
  6.  
  7.     Clk,EQ        pin  1, 9;
  8.     A3,A2,A1,A0    pin  2, 3, 4, 5;
  9.     B3,B2,B1,B0    pin 15,14,13,12;
  10.  
  11.     Ck,X,H,L = .C., .X.,1 , 0;
  12.     A     = [A3,A2,A1,A0];
  13.     B     = [B3,B2,B1,B0];
  14.  
  15. equations
  16.     Enable B =  0; "Always Hi Z
  17.  
  18.     B0.LD     =  1; "Load always enabled
  19.  
  20.     EQ     = (A == B);
  21.  
  22. test_vectors
  23.     ([Clk, A, B] -> EQ)
  24.      [ Ck, 0, 8] ->  L;
  25.      [ 0 , 8, X] ->  H;
  26.      [ 0 ,15, X] ->  L;
  27.  
  28.      [ Ck, 0, 6] ->  L;
  29.      [ 0 , 6, X] ->  H;
  30.      [ 0 ,15, X] ->  L;
  31.  
  32.      [ Ck, 0,15] ->  L;
  33.      [ 0 , 7, X] ->  L;
  34.      [ 0 ,15, X] ->  H;
  35.  
  36.      [ Ck, 0, 0] ->  H;
  37.      [ 0 , 7, X] ->  L;
  38.      [ 0 ,15, X] ->  L;
  39. end
  40.