{臨時}乙級數位電子術科程式碼3

乙級數位電子術科第一題(117003)程式碼

SUBDESIGN 117003
( CLR,P19,P21,GCK43,P5,P22,P7,P20 : INPUT;
  HOUR[5..0],P8,P4,P6 : OUTPUT;
)
VARIABLE    
  DIVX[13..0],DISB[1..0],24MOD[5..0] : DFF;
BEGIN
  DIVX[].CLK=GCK43;        
  IF DIVX[]==16000 THEN DIVX[]=0;
    ELSE DIVX[]=DIVX[]+1;
  END IF;                                       
  DISB[].CLK=DIVX13;
  DISB1=P21;
  DISB0=P5;
  24MOD[].CLRN=!CLR;
  IF 24MOD[]==H"23" THEN 24MOD[]=H"00";
    ELSIF 24MOD[]==H"19" THEN 24MOD[]=H"20";
    ELSIF 24MOD[]==H"09" THEN 24MOD[]=H"10";
    ELSE  24MOD[]=24MOD[]+1;
  END IF; 
  HOUR[]=24MOD[];  
  CASE P20 IS
    WHEN 0 => 24MOD[].CLK=P19;
                       P8=P7;
                       P4=P22;
                       P6=P7;
    WHEN 1 => 24MOD[].CLK=DISB1 AND P22;
                       P8=DISB0 AND P22;
                       P4=GND;
                       P6=VCC;
  END CASE;
END;