home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / BCD7ROM.ABL < prev    next >
Encoding:
Text File  |  1986-02-04  |  2.1 KB  |  60 lines
  1. module    bcd7rom flag '-d82'
  2. title 'seven segment display decoder 
  3. Data I/O Corp   Redmond WA   16 Mar 1984'
  4. "          a       
  5. "      ---       BCD-to-seven-segment decoder similar to the 7449
  6. "    f| g |b
  7. "      ---        segment identification
  8. "    e| d |c
  9. "      ---
  10. "  ---         ---     ---           ---    ---    ---    ---    ---
  11. " |   |   |       |       |  |   |  |      |          |  |   |  |   | 
  12. "              ---     ---    ---    ---    ---           ---    ---
  13. " |   |   |   |           |      |      |  |   |      |  |   |      | 
  14. "  ---         ---     ---           ---    ---           ---    ---
  15.  
  16.     U6    device    'RA5P8';
  17.  
  18.     D3,D2,D1,D0    pin 10,11,12,13;
  19.     a,b,c,d,e,f,g    pin 1,2,3,4,5,6,7;
  20.     ena        pin 15;
  21.  
  22.     bcd    = [D3,D2,D1,D0];
  23.     led    = [a,b,c,d,e,f,g];
  24.  
  25.     ON,OFF    = 0,1;            " for common anode LEDs    
  26.     L,H,X,Z = 0,1,.X.,.Z.;
  27.  
  28. truth_table (bcd  -> led)
  29. "  input                 outputs
  30. "            a    b    c    d    e    f    g
  31.      0    -> [ ON,  ON,  ON,  ON,  ON,  ON, OFF];
  32.      1    -> [OFF,  ON,  ON, OFF, OFF, OFF, OFF];
  33.      2    -> [ ON,  ON, OFF,  ON,  ON, OFF,  ON];
  34.      3    -> [ ON,  ON,  ON,  ON, OFF, OFF,  ON];
  35.      4    -> [OFF,  ON,  ON, OFF, OFF,  ON,  ON];
  36.      5    -> [ ON, OFF,  ON,  ON, OFF,  ON,  ON];
  37.      6    -> [ ON, OFF,  ON,  ON,  ON,  ON,  ON];
  38.      7    -> [ ON,  ON,  ON, OFF, OFF, OFF, OFF];
  39.      8    -> [ ON,  ON,  ON,  ON,  ON,  ON,  ON];
  40.      9    -> [ ON,  ON,  ON,  ON, OFF,  ON,  ON];
  41.  
  42. test_vectors ([ena,bcd]  -> led)
  43. " inputs                 outputs
  44. "            a    b    c    d    e    f    g
  45.  [L,1]    -> [OFF,  ON,  ON, OFF, OFF, OFF, OFF];
  46.  [L,2]    -> [ ON,  ON, OFF,  ON,  ON, OFF,  ON];
  47.  [L,3]    -> [ ON,  ON,  ON,  ON, OFF, OFF,  ON];
  48.  [L,4]    -> [OFF,  ON,  ON, OFF, OFF,  ON,  ON];
  49.  [L,5]    -> [ ON, OFF,  ON,  ON, OFF,  ON,  ON];
  50.  [L,6]    -> [ ON, OFF,  ON,  ON,  ON,  ON,  ON];
  51.  [L,7]    -> [ ON,  ON,  ON, OFF, OFF, OFF, OFF];
  52.  [L,8]    -> [ ON,  ON,  ON,  ON,  ON,  ON,  ON];
  53.  [L,9]    -> [ ON,  ON,  ON,  ON, OFF,  ON,  ON];
  54.  [L,0]    -> [ ON,  ON,  ON,  ON,  ON,  ON, OFF];
  55.  [H,5]  -> [  Z,   Z,   Z,   Z,   Z,   Z,   Z];
  56.  [H,9]  -> [  Z,   Z,   Z,   Z,   Z,   Z,   Z];
  57.  [H,0]  -> [  Z,   Z,   Z,   Z,   Z,   Z,   Z];
  58. end    bcd7rom
  59.  
  60.