home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s200 / 1.ddi / ABEL.EXE / AHDL / JOIN2500.ABL < prev    next >
Encoding:
Text File  |  1991-03-19  |  1.5 KB  |  48 lines
  1. module join2500 ;
  2. title ' Example of term joining using the ATMEL 2500'
  3. join2500        device 'p2500';
  4.  
  5. I1,I2,I3,I17,I18,I19    pin     ;
  6. I20,I21,I22,I23,I37,I38 pin     ;
  7. I39,I40                 pin     ;
  8.  
  9. Q04,Q05                 pin     istype 'buffer';
  10. Q2R04            node    ; 
  11. Q1R05,Q2R05        node    ;
  12.  
  13. H,L,Z,C,X = 1,0,.Z.,.C.,.X.;
  14.  
  15. equations
  16.  
  17. Q04     :=      I1 # I2 # I3 # I17 # I18 # I19 # I20 # I21 # I22 # I23 #
  18.         I37 # I38;
  19. Q2R04   :=      I22 # I23 # I37 # I38;
  20. Q04.CK   =      I40;
  21. Q2R04.CK =      I40;
  22. Q04.OE  = 1;
  23.  
  24. test_vectors (  
  25. [I1,I2,I3,I17,I18,I19,I20,I21,I22,I23,I37,I38,I40] -> [Q04,Q2R04])
  26. [ 1, 0, 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, C ] -> [  H,    L];
  27. [ 0, 0, 0,  0,  0,  0,  0,  0,  1,  0,  0,  0, C ] -> [  H,    H];
  28. [ 0, 0, 0,  1,  0,  0,  0,  0,  0,  0,  0,  0, C ] -> [  H,    L];
  29. [ 0, 1, 0,  0,  0,  0,  1,  0,  0,  1,  0,  0, C ] -> [  H,    H];
  30.  
  31. equations
  32.  
  33. Q05     =       I1 # I2 # I3 # I17 # I18 # I19 # I20 # I21 # I22 # I23 # 
  34.         I37 # I38;
  35. Q1R05  :=       I18 # I19 #I20 # I21;
  36. Q2R05   :=      I22 # I23 # I37 # I38;
  37. Q1R05.CK=       I40;            Q2R05.CK=       I40;
  38. Q05.OE  = 1;
  39.  
  40. test_vectors (  
  41. [I1,I2,I3,I17,I18,I19,I20,I21,I22,I23,I37,I38,I40] -> [Q05,Q1R05,Q2R05])
  42. [ 1, 0, 0,  0,  0,  0,  0,  0,  0,  0,  0,  0, C ] -> [  H,    L,    L];
  43. [ 0, 0, 0,  0,  1,  0,  0,  0,  0,  0,  0,  0, C ] -> [  H,    H,    L];
  44. [ 0, 0, 0,  0,  0,  0,  0,  0,  1,  0,  0,  0, C ] -> [  H,    L,    H];
  45. [ 0, 0, 0,  1,  0,  1,  0,  0,  1,  0,  0,  0, C ] -> [  H,    H,    H];
  46.  
  47. end
  48.