home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / pcwk_09_96.iso / demo / elmark / cupl / demo1 / gates.pld < prev    next >
Text File  |  1989-01-10  |  2KB  |  55 lines
  1. Name            Gates;
  2. Partno          CA0001;
  3. Revision        03;
  4. Date            9/12/83;
  5. Designer        S. Baird;
  6. Company         Logical Devices, Inc.;
  7. Location        None;
  8. Assembly        None;
  9.  
  10. /****************************************************************/
  11. /*                                                              */
  12. /*         This is an example to demonstrate how CUPL           */
  13. /*         compiles simple gates.                               */
  14. /*                                                              */
  15. /****************************************************************/
  16. /*   Target Devices:  P16L8, P16LD8, P16P8, EP300, and 82S153   */
  17. /****************************************************************/
  18.  
  19. /*
  20.  * Inputs:  define inputs to build simple gates from
  21.  */
  22.  
  23. Pin 1 =  a;
  24. Pin 2 =  b;
  25.  
  26. /*
  27.  * Outputs:  define outputs as active HI levels
  28.  *
  29.  * Note: For PAL16L8 and PAL16LD8, DeMorgan's Theorem is applied to
  30.  *       invert all outputs due to fixed inverting buffer in the device.
  31.  */
  32.  
  33. Pin 12 = inva;
  34. Pin 13 = invb;
  35. Pin 14 = and;
  36. Pin 15 = nand;
  37. Pin 16 = or;
  38. Pin 17 = nor;
  39. Pin 18 = xor;
  40. Pin 19 = xnor;
  41.  
  42. /*
  43.  * Logic:  examples of simple gates expressed in CUPL
  44.  */
  45.  
  46. inva = !a;                            /* inverters */
  47. invb = !b;
  48. and  = a & b;                         /* and gate */
  49. nand = !(a & b);                      /* nand gate */
  50. or   = a # b;                         /* or gate */
  51. nor  = !(a # b);                      /* nor gate */
  52. xor  = a $ b;                         /* exclusive or gate */
  53. xnor = !(a $ b);                      /* exclusive nor gate */
  54.  
  55.