home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / CORU10.ABL < prev    next >
Encoding:
Text File  |  1991-12-14  |  977 b   |  38 lines
  1. module corre6
  2.  
  3. title' CORRELATER PAL6 '
  4.  
  5.          U10    device    'P16V8C';
  6.  
  7.          RAY0,RAY1,RAY2,RAY3     pin 11,9,8,7;
  8.          A4,A5  pin 19,18;
  9.  
  10. equations
  11.       A4=!RAY3 & !RAY2 & !RAY1 & RAY0;
  12.  
  13.          !A5= !RAY3 & !RAY2 & !RAY1 & !RAY0
  14.              #!RAY3 & !RAY2 & !RAY1 &  RAY0;
  15. test_vectors   
  16.     ([RAY3,RAY2,RAY1,RAY0] -> [A5,A4])
  17.      [   0,   0,   0,   0] -> [ 0, 0];
  18.      [   0,   0,   0,   1] -> [ 0, 1];
  19.      [   0,   0,   1,   0] -> [ 1, 0];
  20.      [   0,   0,   1,   1] -> [ 1, 0];
  21.      [   0,   1,   0,   0] -> [ 1, 0];
  22.      [   0,   1,   0,   1] -> [ 1, 0];
  23.      [   0,   1,   1,   0] -> [ 1, 0];
  24.             [   0,   1,   1,   1] -> [ 1, 0];
  25.      [   1,   0,   0,   0] -> [ 1, 0];
  26.      [   1,   0,   0,   1] -> [ 1, 0];
  27.      [   1,   0,   1,   0] -> [ 1, 0];
  28.      [   1,   0,   1,   1] -> [ 1, 0];
  29.      [   1,   1,   0,   0] -> [ 1, 0];
  30.      [   1,   1,   0,   1] -> [ 1, 0];
  31.      [   1,   1,   1,   0] -> [ 1, 0];
  32.             [   1,   1,   1,   1] -> [ 1, 0];
  33.      
  34.  
  35.  
  36.  
  37. end corre6
  38.