原创 移位计数器设计--Protel99SE自带CUPL语言设计

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

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

/** Inputs  **/
Pin[1, 11] = [clk, oe];
Pin[2] = [!clr];
/** Outputs **/
Pin[12..15] = [q3..0];

/** State Definitions **/
fld count = [q3..0];
fld clear = [!clr];

$define number0 'H'0
$define number1 'H'1
$define number2 'H'2
$define number3 'H'3
$define number4 'H'4
$define number5 'H'5
$define number6 'H'6
$define number7 'H'7
$define number8 'H'8
$define number9 'H'9
$define numbera 'H'a
$define numberb 'H'b
$define numberc 'H'c
$define numberd 'H'd
$define numbere 'H'e
$define numberf 'H'f

sequence count{

present number0:
        if clear next number0;
        default next number1;

present number1:
        if clear next number0;
        default next number2;

present number2:
        if clear next number0;
        default next number3;

present number3:
        if clear next number0;
        default next number4;

present number4:
        if clear next number0;
        default next number5;

present number5:
        if clear next number0;
        default next number6;

present number6:
        if clear next number0;
        default next number7;

present number7:
        if clear next number0;
        default next number8;

present number8:
        if clear next number0;
        default next number9;

present number9:
        if clear next number0;
        default next numbera;

present numbera:
        if clear next number0;
        default next numberb;

present numberb:
        if clear next number0;
        default next numberc;

present numberc:
        if clear next number0;
        default next numberd;

present numberd:
        if clear next number0;
        default next numbere;

present numbere:
        if clear next number0;
        default next numberf;

present numberf:
        next number0;

}