home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / CORRE3.ABL < prev    next >
Encoding:
Text File  |  1989-03-13  |  1.4 KB  |  41 lines
  1.  
  2. module corre3
  3.  
  4. title' CORRELATER PAL3 '
  5.  
  6.          U49    device    'P20L8';
  7.  
  8.          P26,P25,P24,P23,P22,P21,P20,P19,P18,P17,P16,IQF15,IQF14,IQF13     pin 1,2,3,4,5,6,7,8,9,10,11,13,14,23;
  9.          ABC7,ABC6,ABC5,ABC4        pin 22,17,16,15;
  10.          S2,S1,S0       pin 18,21,20;
  11.          EN       pin 19;
  12.         ABC=[ABC7,ABC6,ABC5,ABC4];
  13.      ENAB=[!EN,!EN,!EN,!EN];
  14. equations
  15.      !ABC7=(!P26&!S2&!S1&!S0)#(!P25&!S2&!S1&S0)#(!P24&!S2&S1&!S0)#(!P23&!S2&S1&S0)#(!P22&S2&!S1&!S0)
  16.      #(!P21&S2&!S1&S0)#(!P20&S2&S1&!S0);
  17.      !ABC6=(!P25&!S2&!S1&!S0)#(!P24&!S2&!S1&S0)#(!P23&!S2&S1&!S0)#(!P22&!S2&S1&S0)#(!P21&S2&!S1&!S0)
  18.      #(!P20&S2&!S1&S0)#(!P19&S2&S1&!S0);
  19.      !ABC5=(!P24&!S2&!S1&!S0)#(!P23&!S2&!S1&S0)#(!P22&!S2&S1&!S0)#(!P21&!S2&S1&S0)#(!P20&S2&!S1&!S0)
  20.      #(!P19&S2&!S1&S0)#(!P18&S2&S1&!S0);
  21.      !ABC4=(!P23&!S2&!S1&!S0)#(!P22&!S2&!S1&S0)#(!P21&!S2&S1&!S0)#(!P20&!S2&S1&S0)#(!P19&S2&!S1&!S0)
  22.      #(!P18&S2&!S1&S0)#(!P17&S2&S1&!S0);
  23.          ENABLE ABC= ENAB;
  24.  
  25.  
  26. test_vectors                  
  27.     ([P26,P25,P24,P23,P22,P21,P20,P19,P18,P17,P16,IQF15,IQF14,IQF13,S2,S1,S0,EN] -> [ABC7,ABC6,ABC5,ABC4])
  28.      [  0,  1,  1,  0,  0,  0,  0,  0,  0,  0,  0,    0,    0,    0, 0, 0, 0, 0] -> [   0,   1,   1,   0];
  29.      [  1,  0,  1,  0,  0,  1,  1,  1,  1,  0,  0,    0,    0,    0, 1, 1, 0, 0] -> [   1,   1,   1,   0];
  30.      [  1,  0,  1,  0,  0,  0,  1,  0,  1,  0,  1,    1,    1,    1, 1, 0, 0, 1] -> [ .Z., .Z., .Z., .Z.];
  31.  
  32. end corre3
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.