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