请将以下vhdl代码改写为Verilog代码LIBRARY IEEE;--引用IEEE库 USE IEEE.STD_LOGIC_1164.ALL; USE IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY COUNTER_100 IS PORT( CLK: IN STD_LOGIC; S: IN STD_LOGIC_VECTOR(2 DOWNTO 0); ST: IN STD_LOGIC; CLR: IN STD_LOGIC; R5,R4,R3,R2,R1,R0:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)); END ENTITY COUNTER_100; ARCHITECTURE RTL OF COUNTER_100 IS SIGNAL TEMP5:STD_LOGIC_VECTOR(3 DOWNTO 0):="0000"; SIGNAL TEMP4:STD_LOGIC_VECTOR(3 DOWNTO 0):="0000"; SIGNAL TEMP3:STD_LOGIC_VECTOR(3 DOWNTO 0):="0000"; SIGNAL TEMP2:STD_LOGIC_VECTOR(3 DOWNTO 0):="0000"; SIGNAL TEMP1:STD_LOGIC_VECTOR(3 DOWNTO 0):="0000"; SIGNAL TEMP0:STD_LOGIC_VECTOR(3 DOWNTO 0):="0000"; SIGNAL CLK_100:STD_LOGIC; SIGNAL CLK_M:STD_LOGIC; SIGNAL CLK_F:STD_LOGIC; SIGNAL CLRSTATE:STD_LOGIC; BEGIN U1:BLOCK BEGIN PROCESS(S,ST,CLR) BEGIN IF(S="101")THEN IF(ST='1')THEN CLK_100<=CLK;CLRSTATE<='0'; ELSE CLK_100<='0'; IF(CLR='1')THEN CLRSTATE<='1'; ELSE CLRSTATE<='0'; END IF; END IF; ELSE CLRSTATE<='0'; END IF; END PROCESS; END BLOCK U1; U2:BLOCK BEGIN PROCESS(CLK_100) BEGIN IF(CLRSTATE='1')THEN TEMP0<="0000";TEMP1<="0000"; ELSIF(CLK_100'EVENT AND CLK_100='1')THEN IF(TEMP0="1001")THEN IF(TEMP1="1001")THEN TEMP0<="0000";TEMP1<="0000";CLK_M<='1'; ELSE TEMP1<=TEMP1+1;TEMP0<="0000";CLK_M<='0'; END IF; ELSE TEMP0<=TEMP0+1;CLK_M<='0'; END IF; END IF; END PROCESS; R1<=TEMP1;R0<=TEMP0; END BLOCK U2; U3:BLOCK BEGIN PROCESS(CLK_M) BEGIN IF(CLRSTATE='1')THEN TEMP2<="0000";TEMP3<="0000"; ELSIF(CLK_M'EVENT AND CLK_M='1')THEN IF(TEMP2="1001")THEN IF(TEMP3="0101")THEN TEMP2<="0000";TEMP3<="0000";CLK_F<='1'; ELSE TEMP3<=TEMP3+1;TEMP2<="0000";CLK_F<='0'; END IF; ELSE TEMP2<=TEMP2+1;CLK_F<='0'; END IF; END IF; END PROCESS; R3<=TEMP3;R2<=TEMP2; END BLOCK U3; U4:BLOCK BEGIN PROCESS(CLK_F) BEGIN IF(CLRSTATE='1')THEN--清零信号有效时 TEMP5<="0000";TEMP4<="0000"; ELSIF(CLK_F'EVENT AND CLK_F='1')THEN IF(TEMP4="1001")THEN IF(TEMP5="0101")THEN TEMP4<="0000";TEMP5<="0000"; ELSE TEMP5<=TEMP5+1;TEMP4<="0000"; END IF; ELSE TEMP4<=TEMP4+1; END IF; END IF; END PROCESS; R5<=TEMP5;R4<=TEMP4; END BLOCK U4; END ARCHITECTURE RTL;

以下是将vhdl代码改写为Verilog代码后的结果：

module COUNTER_100 (
    input CLK,
    input [2:0] S,
    input ST,
    input CLR,
    output [3:0] R5,
    output [3:0] R4,
    output [3:0] R3,
    output [3:0] R2,
    output [3:0] R1,
    output [3:0] R0
);

reg [3:0] TEMP5 = 4'b0000;
reg [3:0] TEMP4 = 4'b0000;
reg [3:0] TEMP3 = 4'b0000;
reg [3:0] TEMP2 = 4'b0000;
reg [3:0] TEMP1 = 4'b0000;
reg [3:0] TEMP0 = 4'b0000;
reg CLK_100;
reg CLK_M;
reg CLK_F;
reg CLRSTATE;

always @(S, ST, CLR) begin
    if (S == 3'b101) begin
        if (ST) begin
            CLK_100 <= CLK;
            CLRSTATE <= 1'b0;
        end else begin
            CLK_100 <= 1'b0;
            if (CLR) begin
                CLRSTATE <= 1'b1;
            end else begin
                CLRSTATE <= 1'b0;
            end
        end
    end else begin
        CLRSTATE <= 1'b0;
    end
end

always @(posedge CLK_100) begin
    if (CLRSTATE) begin
        TEMP0 <= 4'b0000;
        TEMP1 <= 4'b0000;
    end else begin
        if (TEMP0 == 4'b1001) begin
            if (TEMP1 == 4'b1001) begin
                TEMP0 <= 4'b0000;
                TEMP1 <= 4'b0000;
                CLK_M <= 1'b1;
            end else begin
                TEMP1 <= TEMP1 + 1;
                TEMP0 <= 4'b0000;
                CLK_M <= 1'b0;
            end
        end else begin
            TEMP0 <= TEMP0 + 1;
            CLK_M <= 1'b0;
        end
    end
end

assign R1 = TEMP1;
assign R0 = TEMP0;

always @(posedge CLK_M) begin
    if (CLRSTATE) begin
        TEMP2 <= 4'b0000;
        TEMP3 <= 4'b0000;
    end else begin
        if (TEMP2 == 4'b1001) begin
            if (TEMP3 == 4'b0101) begin
                TEMP2 <= 4'b0000;
                TEMP3 <= 4'b0000;
                CLK_F <= 1'b1;
            end else begin
                TEMP3 <= TEMP3 + 1;
                TEMP2 <= 4'b0000;
                CLK_F <= 1'b0;
            end
        end else begin
            TEMP2 <= TEMP2 + 1;
            CLK_F <= 1'b0;
        end
    end
end

assign R3 = TEMP3;
assign R2 = TEMP2;

always @(posedge CLK_F) begin
    if (CLRSTATE) begin
        TEMP5 <= 4'b0000;
        TEMP4 <= 4'b0000;
    end else begin
        if (TEMP4 == 4'b1001) begin
            if (TEMP5 == 4'b0101) begin
                TEMP4 <= 4'b0000;
                TEMP5 <= 4'b0000;
            end else begin
                TEMP5 <= TEMP5 + 1;
                TEMP4 <= 4'b0000;
            end
        end else begin
            TEMP4 <= TEMP4 + 1;
        end
    end
end

assign R5 = TEMP5;
assign R4 = TEMP4;

endmodule

注意：以上代码是将vhdl代码直接转换为Verilog代码，没有进行任何优化。如果有需要，可以根据具体的需求进行进一步优化。