原创 全编码键盘设计--Protel99SE自带CUPL语言设计

Name        PLDDesign5            ;
Partno                           ;
Revision    1                    ;
Date        3/12/02              ;
Designer    HotPower             ;
Company     Protel International ;
Assembly                         ;
Location                         ;
Device      g20v8                ;
Format      j                    ;

/*********************************************************************/
/* This PLD design (Revision 1) created on 3/12/02                   */
/*      for                   Protel International                   */
/*      and is stored as      PLDDesign                              */
/*********************************************************************/

/** Inputs  **/
Pin[1,13] = [clk, oe];
Pin[12, 24] = [GND, VCC];
Pin[2..11, 14..17] = [k0..13];

/** Outputs **/
Pin[21..18] = [d3..0];

Pin[23, 22] = [rst, int];

/** Declarations and Intermediate Variables  **/
fld fldintd20 = [k13..0, k0];

fld fldint10  = [k1..0];
fld fldint20  = [k2..0];
fld fldint30  = [k3..0];
fld fldint40  = [k4..0];
fld fldint50  = [k5..0];
fld fldint60  = [k6..0];
fld fldint70  = [k7..0];
fld fldint80  = [k8..0];
fld fldint90  = [k9..0];
fld fldinta0  = [k10..0];
fld fldintb0  = [k11..0];
fld fldintc0  = [k12..0];
fld fldintd0  = [k13..0];
/** Logic Equations **/

!int = !rst
     # fldintd20: &;
d0.d = fldint10:  &
     # fldint30: 'b'0111
     # fldint50: 'b'011111
     # fldint70: 'b'01111111
     # fldint90: 'b'0111111111
     # fldintb0: 'b'011111111111
     # fldintd0: 'b'01111111111111;

d1.d = fldint20: 'b'011
     # fldint30: 'b'0111
     # fldint60: 'b'0111111
     # fldint70: 'b'01111111
     # fldinta0: 'b'01111111111
     # fldintb0: 'b'011111111111
     # fldintd0:  &;

d2.d = fldint40: 'b'01111
     # fldint50: 'b'011111
     # fldint60: 'b'0111111
     # fldint70: 'b'01111111
     # fldintc0: 'b'0111111111111
     # fldintd0: 'b'01111111111111
     # fldintd0:  &;

d3.d = fldint80: 'b'011111111
     # fldint90: 'b'0111111111
     # fldinta0: 'b'01111111111
     # fldintb0: 'b'011111111111
     # fldintc0: 'b'0111111111111
     # fldintd0: 'b'01111111111111
     # fldintd0:  &; /*'b'11111111111111*/