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

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

SUBDESIGN 117001

( P3,P2,GCK43,P4 : INPUT;
  DCBA[3..0],S[1..0] : OUTPUT;
)
VARIABLE
  DISB[1..0],CNT[15..0],4MOD[1..0] : DFF;
BEGIN
  DISB[].CLK=GCK43;
  DISB1=P2;
  DISB0=P4;
  CNT[].CLRN=!P3;
  CNT[].CLK=DISB1;
  IF CNT[]==H"9999" THEN CNT[]=H"0000";
    ELSIF CNT[11..0]==H"999" THEN CNT[]=CNT[]+H"0667";
ELSIF CNT[7..0]==H"99"   THEN CNT[]=CNT[]+H"0067";
ELSIF CNT[3..0]==H"9"    THEN CNT[]=CNT[]+H"0007";
ELSE CNT[]=CNT[]+1;
  END IF;
  4MOD[].CLK=DISB0;
  4MOD[]=4MOD[]+1;
  S[]=4MOD[];
  CASE 4MOD[] IS
    WHEN 0 => DCBA[]=CNT[15..12];
WHEN 1 => DCBA[]=CNT[11..8];
WHEN 2 => DCBA[]=CNT[7..4];
WHEN 3 => DCBA[]=CNT[3..0];
  END CASE;
END;