home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / BGEQN.ABL < prev    next >
Encoding:
Text File  |  1986-02-04  |  642 b   |  31 lines
  1. module bgeqn  
  2. title 'Binary to gray code converter
  3. Michael Holley   Data I/O Corp   18 Mar 1984'
  4.  
  5.     bg1    device 'F82S100';
  6.  
  7.     B7,B6,B5,B4,B3,B2,B1,B0 pin 2,3,4,5,6,7,8,9;
  8.     G7,G6,G5,G4,G3,G2,G1,G0    pin 10,11,12,13,15,16,17,18;
  9.     CE            pin 19;
  10.  
  11.     X,Z    = .X., .Z.;
  12.  
  13.     binary        = [B7,B6,B5,B4,B3,B2,B1,B0];
  14.     gray        = [G7,G6,G5,G4,G3,G2,G1,G0];
  15.  
  16. equations
  17.     gray    =  [B7,B6,B5,B4,B3,B2,B1,B0]
  18.          $ [ 0,B7,B6,B5,B4,B3,B2,B1];
  19.  
  20. test_vectors ([ CE, binary] ->  gray )
  21.     @const n = 0;
  22.     @repeat 250
  23.         {[ 0, n ] -> (n $ (n >>1));
  24.          @const n = n +1;}
  25.  
  26. test_vectors 'Test Hi Z'
  27.         ([ CE, binary] ->  gray )
  28.           [ 1, X  ] -> Z;
  29. end bgeqn
  30.  
  31.