count10.abl

以前做的一个数字钟

MODULE count10
CLK,CLR,P,T,LD   PIN;
D0,D1,D2,D3      PIN;
Q0,Q1,Q2,Q3      PIN ISTYPE'REG';
TC     PIN ISTYPE'COM';
DATA=[D3,D2,D1,D0];
COUNT=[Q3,Q2,Q1,Q0];
EQUATIONS
COUNT.CLK=CLK;
COUNT.AR=!CLR;
when((COUNT==^h9)&P&T)    then COUNT:=0;
  else when((P&T)&LD)     then COUNT:=(COUNT.FB+1);
    else when(!LD)        then COUNT:=DATA;
      else when(!((P&T)&LD))    then COUNT:=(COUNT.FB);
TC=(COUNT==^h9)&P&T;  
END