电子钟.txt

数字逻辑系统和数字设计的课程设计

  程序代码:
  MODULE time
  INTERFACE(CLOCK_100KHZ->CLOCK_1HZ)
  declarations
  CLOCK_100KHZ,CR PIN;
  CLOCK_1HZ,S2,M1,H1,H2 PIN;
  voice PIN istype 'com';
  [DATA17..DATA0] PIN ISTYPE'REG';
  DATA=[DATA17..DATA0];
  Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,Q9,Q10,Q11,Q12,Q13,Q14,
  Q15,Q16,Q17,Q18,Q19,Q20,Q21,Q22,Q23 PIN ISTYPE 'REG';
  H,L=1,0;
  QSL=[Q19..Q16];
  QSH=[Q23..Q20];
  QML=[Q3..Q0];
  QMH=[Q7..Q4];
  QHL=[Q11..Q8];
  QHH=[Q15..Q12];
  EQUATIONS
  QSL.AR=!CR;
  QSH.AR=!CR; 
  QML.AR=!CR;
  QMH.AR=!CR;"异步寄存器复位
  QHL.AR=!CR;
  QHH.AR=!CR;
  QSL.CLK=CLOCK_1HZ;"边沿触发器的时钟
  QSH.CLK=S2;
  QML.CLK=M1;
  QMH.CLK=M2;
  QHL.CLK=H1;
  QHH.CLK=H2;
  DATA.CLK=CLOCK_100KHZ;
  WHEN DATA==10000-1 THEN{DATAL:=0;CLOCK_1HZ=1;}//正式使用时
  把2-1改成10000-1
     ELSE {DATA:=DATA+1;CKLCK_HZ=0;}
  WHEN (QSL==9)THEN{QSL:=0;S2=1;}
     ELSE{WSL:=(WSL.FB+1);S2=0;}
  WHEN((QSL==9)&(QSH==5))THEN{QHS:=0;M1=1;}
     ELSEWHEN(QSL==9)THEN{QSH:=(QSH.FB+1);M1=0;}
     ELSE   QSH:=QSH;
  WHEN((QSL==9)&(QSL==5)&(QML==9))THEN{QML:=0;M2=1;}
     ELSE   WHEN((QSL==9)&(QSH==5))                         THEN
 {QWL:=(QML.FB+1);M2=0;}
     ELSE QML:=QML;"寄存器输出的反馈
  WHEN     ((QSL==9)&9(QSH==5)&(QML==9)&(QML==5))           THEN
  {QMH:=0;H1=1;} 
     ELSE   WHEN  ((QSL==9)&(QSL==5)&(QML==9))              THEN
  {QMH:=(QMH.FB+1);H1=0;}
     ELSE   QMH:=QMH;
  WHEN  ((QSL==9)&(QSH=5)&(QML==9)&(QMH==5)&(QHL==9))       THEN
  {QHL:=0;H2=1;}
     ELSE                                                   WHEN
  ((QSL==9)&(QSH==5)&(QML==9)&(QMH==5)&(QHL==3)&(QHH==2))
  THEN{QHL:=0;H2=1;}
     ELSE   WHEN  ((QSL==9)&(QSH==5)&(QML==9)&(QMH==5)) 
  THEN{QHL:=(QHL.BF+1);voice=1;H2=0;}
     ELSE  {QHL:=QHL.FB;voice=0;}
  WHEN
  ((QSL==9)&(QSH==5)&(QML==9)&(QSM==5)&(QHL==9)&(QHH==9))
  THEN  QHH:=0;
     ELSE                                                   WHEN
   ((QSL==9)&(QSH==5)&(QML==9)&(QMH==5)&(QHL==3)&(QHH=2))
  THEN QHH:=0;
     ELSE
  WHEN((QSL==9)&(QSH==5)(QML==9)&(QMH==5)&(QHH==2))         THEN
  {QHH:=(QHH.FB+1);voice=1;}
     ELSE  {QHH:=QHH.FB;voice=0;}
  END