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