home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / CORU50.ABL < prev    next >
Encoding:
Text File  |  1989-04-01  |  3.7 KB  |  87 lines
  1. module coru50
  2.  
  3. title' CORRELATER PAL3 '
  4.  
  5.          U50    device    'P20R4';
  6.  
  7.      C=.C.;
  8.      Z=.Z.;
  9.  
  10.          P22,P21,P20,P19,P18,P17,P16    pin 2,3,4,5,6,7,8;
  11.          IQF15,IQF14,IQF13,IQF12,IQF11    pin 9,10,11,14,23;
  12.  
  13.      S2,S1,S0                pin 16,21,22;
  14.  
  15.          ABC3,ABC2,ABC1,ABC0            pin 20,19,18,17;
  16.          
  17.          CLKC                      pin 1;
  18.      CEN                    pin 13;
  19.  
  20.          ABC=[ABC3,ABC2,ABC1,ABC0];
  21.  
  22. equations
  23.          !ABC3 := (  !P22 & !S2 & !S1 & !S0)
  24.             # (  !P21 & !S2 & !S1 &  S0)
  25.             # (  !P20 & !S2 &  S1 & !S0)
  26.             # (  !P19 & !S2 &  S1 &  S0)
  27.             # (  !P18 &  S2 & !S1 & !S0)
  28.             # (  !P17 &  S2 & !S1 &  S0)
  29.             # (  !P16 &  S2 &  S1 & !S0)
  30.             # (!IQF15 &  S2 &  S1 &  S0);
  31.              
  32.      !ABC2 := (  !P21 & !S2 & !S1 & !S0)
  33.             # (  !P20 & !S2 & !S1 &  S0)
  34.             # (  !P19 & !S2 &  S1 & !S0)
  35.             # (  !P18 & !S2 &  S1 &  S0)
  36.             # (  !P17 &  S2 & !S1 & !S0)
  37.             # (  !P16 &  S2 & !S1 &  S0)
  38.             # (!IQF15 &  S2 &  S1 & !S0)
  39.             # (!IQF14 &  S2 &  S1 &  S0);
  40.                    
  41.          !ABC1 := (  !P20 & !S2 & !S1 & !S0)     
  42.             # (  !P19 & !S2 & !S1 &  S0)
  43.             # (  !P18 & !S2 &  S1 & !S0)
  44.             # (  !P17 & !S2 &  S1 &  S0)
  45.             # (  !P16 &  S2 & !S1 & !S0)
  46.             # (!IQF15 &  S2 & !S1 &  S0)
  47.             # (!IQF14 &  S2 &  S1 & !S0)
  48.             # (!IQF13 &  S2 &  S1 &  S0);
  49.              
  50.      !ABC0 := (  !P19 & !S2 & !S1 & !S0)
  51.             # (  !P18 & !S2 & !S1 &  S0)
  52.             # (  !P17 & !S2 &  S1 & !S0)
  53.             # (  !P16 & !S2 &  S1 &  S0)
  54.             # (!IQF15 &  S2 & !S1 & !S0)
  55.             # (!IQF14 &  S2 & !S1 &  S0)
  56.             # (!IQF13 &  S2 &  S1 & !S0)
  57.                 # (!IQF12 &  S2 &  S1 &  S0);
  58.  
  59.  
  60.  
  61. test_vectors   
  62.   ([P22,P21,P20,P19,P18,P17,P16,IQF15,IQF14,IQF13,IQF12,IQF11,S2,S1,S0,CLKC,CEN] -> [ABC3,ABC2,ABC1,ABC0])
  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 coru50
  82.  
  83.  
  84.  
  85.  
  86.  
  87.