home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / CORU49.ABL < prev    next >
Encoding:
Text File  |  1989-04-01  |  3.5 KB  |  87 lines
  1. module coru49
  2.  
  3. title' CORRELATER PAL2 '
  4.  
  5.          U49    device    'P20R4';
  6.  
  7.      C=.C.;
  8.      Z=.Z.;
  9.  
  10.          P26,P25,P24,P23,P22,P21,P20    pin 2,3,4,5,6,7,8;
  11.          P19,P18,P17,P16,IQF15         pin 9,10,11,14,23;
  12.  
  13.      S2,S1,S0                pin 16,21,22;
  14.  
  15.          ABC7,ABC6,ABC5,ABC4            pin 20,19,18,17;
  16.          
  17.          CLKC                      pin 1;
  18.      CEN                    pin 13;
  19.  
  20.          ABC=[ABC7,ABC6,ABC5,ABC4];
  21.  
  22. equations
  23.          !ABC7 := (!P26 & !S2 & !S1 & !S0)
  24.             # (!P25 & !S2 & !S1 &  S0)
  25.             # (!P24 & !S2 &  S1 & !S0)
  26.             # (!P23 & !S2 &  S1 &  S0)
  27.             # (!P22 &  S2 & !S1 & !S0)
  28.             # (!P21 &  S2 & !S1 &  S0)
  29.             # (!P20 &  S2 &  S1 & !S0)
  30.             # (!P19 &  S2 &  S1 &  S0);
  31.              
  32.      !ABC6 := (!P25 & !S2 & !S1 & !S0)
  33.             # (!P24 & !S2 & !S1 &  S0)
  34.             # (!P23 & !S2 &  S1 & !S0)
  35.             # (!P22 & !S2 &  S1 &  S0)
  36.             # (!P21 &  S2 & !S1 & !S0)
  37.             # (!P20 &  S2 & !S1 &  S0)
  38.             # (!P19 &  S2 &  S1 & !S0)
  39.             # (!P18 &  S2 &  S1 &  S0);
  40.                    
  41.          !ABC5 := (!P24 & !S2 & !S1 & !S0)     
  42.             # (!P23 & !S2 & !S1 &  S0)
  43.             # (!P22 & !S2 &  S1 & !S0)
  44.             # (!P21 & !S2 &  S1 &  S0)
  45.             # (!P20 &  S2 & !S1 & !S0)
  46.             # (!P19 &  S2 & !S1 &  S0)
  47.             # (!P18 &  S2 &  S1 & !S0)
  48.             # (!P17 &  S2 &  S1 &  S0);
  49.              
  50.      !ABC4 := (!P23 & !S2 & !S1 & !S0)
  51.             # (!P22 & !S2 & !S1 &  S0)
  52.             # (!P21 & !S2 &  S1 & !S0)
  53.             # (!P20 & !S2 &  S1 &  S0)
  54.             # (!P19 &  S2 & !S1 & !S0)
  55.             # (!P18 &  S2 & !S1 &  S0)
  56.             # (!P17 &  S2 &  S1 & !S0)
  57.                 # (!P16 &  S2 &  S1 &  S0);
  58.  
  59.  
  60.  
  61. test_vectors   
  62.   ([P26,P25,P24,P23,P22,P21,P20,P19,P18,P17,P16,IQF15,S2,S1,S0,CLKC,CEN] -> [ABC7,ABC6,ABC5,ABC4])
  63.    [  0,  1,  1,  0,  0,  0,  0,  0,  0,  0,  0,    0, 0, 0, 0,   C,  1] -> [   Z,   Z,   Z,   Z];
  64.    [  0,  0,  1,  0,  0,  1,  1,  1,  1,  0,  0,    0, 0, 0, 0,   C,  0] -> [   0,   0,   1,   0];
  65.    [  0,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 0, 1,   C,  0] -> [   0,   1,   0,   1];
  66.    [  0,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 1, 0,   C,  0] -> [   1,   0,   1,   1];
  67.    [  0,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 1, 1,   C,  0] -> [   0,   1,   1,   1];
  68.    [  0,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 1, 0, 0,   C,  0] -> [   1,   1,   1,   1];
  69.    [  0,  0,  1,  0,  1,  1,  1,  0,  1,  0,  0,    0, 1, 0, 1,   C,  0] -> [   1,   1,   0,   1];
  70.    [  0,  0,  1,  0,  1,  1,  0,  0,  1,  0,  0,    0, 1, 1, 0,   C,  0] -> [   0,   0,   1,   0];
  71.    [  0,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 1, 1, 1,   C,  0] -> [   1,   1,   0,   0];
  72.                                                 
  73.    [  1,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 0, 0,   C,  0] -> [   1,   0,   1,   0];
  74.    [  1,  1,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 0, 1,   C,  0] -> [   1,   1,   0,   1];
  75.    [  1,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 1, 0,   C,  0] -> [   1,   0,   1,   1];
  76.    [  1,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 0, 1, 1,   C,  0] -> [   0,   1,   1,   1];
  77.    [  1,  1,  1,  1,  0,  1,  1,  0,  1,  0,  0,    0, 1, 0, 0,   C,  0] -> [   0,   1,   1,   0];
  78.    [  1,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 1, 0, 1,   C,  0] -> [   1,   1,   1,   1];
  79.    [  1,  1,  0,  0,  1,  1,  1,  1,  1,  0,  0,    0, 1, 1, 0,   C,  0] -> [   1,   1,   1,   0];
  80.    [  1,  0,  1,  0,  1,  1,  1,  1,  1,  0,  0,    0, 1, 1, 1,   C,  0] -> [   1,   1,   0,   0];
  81. end coru49
  82.  
  83.  
  84.  
  85.  
  86.  
  87.