home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s078 / 1.img / HEXDISP.PLD < prev    next >
Encoding:
CUPL PLD Program format  |  1991-12-08  |  2.6 KB  |  68 lines
  1. Name        Hexdisp;
  2. Partno        CA0007;
  3. Date        6/5/84;
  4. Revision    01;
  5. Designer    T. Kahl;
  6. Company        Assisted Technology, Inc.;
  7. Assembly    None;
  8. Location    None;
  9.  
  10. /****************************************************************/
  11. /*                                  */
  12. /* This is a hexadecimal-to-seven-segment       a          */
  13. /* decoder capable of driving common-annode     -----           */
  14. /* LEDs.  It incorporates both a ripple-    |     |          */
  15. /* blanking input (to inhibit displaying       f|     |b      */
  16. /* leading zeroes) and a ripple-blanking    |  g  |          */
  17. /* output to allow for easy cascading of     -----          */
  18. /* digits.                     |     |          */
  19. /*                           e|     |c      */
  20. /*                           |     |          */
  21. /*                          -----          */
  22. /*                               d          */
  23. /*                                  */
  24. /****************************************************************/
  25. /* Allowable Target Device Types: 32 X 8 PROM (82S123 or equiv)    */
  26. /****************************************************************/
  27.  
  28. /** Input Group (Note: this is only a comment) **/
  29.  
  30. pin [10..13] = [D0..3];    /* Data input lines to diplay         */
  31. pin 14    = !rbi;        /* Ripple blanking input              */
  32.  
  33. /** Output Group (Note: this is only a comment) **/
  34.  
  35. pin [7..1] = ![a,b,c,d,e,f,g];  /* Segment output lines       */
  36. pin 9      = !rbo;            /* Ripple blanking output     */
  37.  
  38. /** Declarations and Intermediate Variable Definitions **/
  39.  
  40. field data = [D3..0];    /* Hexadecimal input field          */
  41. field segment = [a,b,c,d,e,f,g];/* Display segment field     */
  42.  
  43. $define ON  'b'1    /* Segment LIT  when logically "ON"    */
  44. $define OFF 'b'0    /* Segment DARK when logically "OFF"    */
  45.  
  46. /** Logic Equations **/
  47.  
  48.             /*  a    b    c    d    e    f    g  */
  49. segment   = 
  50. /* 0 */          [ ON,  ON,  ON,  ON,  ON,  ON, OFF] & data:0 & !rbi
  51. /* 1 */    #  [OFF,  ON,  ON, OFF, OFF, OFF, OFF] & data:1
  52. /* 2 */    #  [ ON,  ON, OFF,  ON,  ON, OFF,  ON] & data:2
  53. /* 3 */    #  [ ON,  ON,  ON,  ON, OFF, OFF,  ON] & data:3
  54. /* 4 */    #  [OFF,  ON,  ON, OFF, OFF,  ON,  ON] & data:4
  55. /* 5 */    #  [ ON, OFF,  ON,  ON, OFF,  ON, OFF] & data:5
  56. /* 6 */       #  [ ON, OFF,  ON,  ON,  ON,  ON, OFF] & data:6
  57. /* 7 */    #  [ ON,  ON,  ON, OFF, OFF, OFF, OFF] & data:7
  58. /* 8 */    #  [ ON,  ON,  ON,  ON,  ON,  ON,  ON] & data:8
  59. /* 9 */    #  [ ON,  ON,  ON, OFF, OFF,  ON,  ON] & data:9
  60. /* A */    #  [ ON,  ON,  ON, OFF,  ON,  ON,  ON] & data:A
  61. /* B */    #  [OFF, OFF,  ON,  ON,  ON,  ON,  ON] & data:B
  62. /* C */    #  [ ON, OFF, OFF,  ON,  ON,  ON, OFF] & data:C
  63. /* D */    #  [OFF,  ON,  ON,  ON,  ON, OFF,  ON] & data:D
  64. /* E */    #  [ ON, OFF, OFF,  ON,  ON,  ON,  ON] & data:E
  65. /* F */    #  [ ON, OFF, OFF, OFF,  ON,  ON,  ON] & data:F;
  66.  
  67. rbo = rbi & data:0;
  68.