ad.scl

uCOS在PIC芯片中的移植：以PIC24HJ64GP210为例进行uCOS在Microchip芯片中的移植

// 
// D:\Massage\Micrium\Software\EvalBoards\Microchip\PIC24HJ\MPLAB\OS-View\Generated Files\AD.scl
// Generated by Stimulus ver. 3.60.00.00
// 6/18/2008 11:20:46
// 


configuration for "pic24hj64gp210" is
end configuration;


testbench for "pic24hj64gp210" is
begin
    process is
    begin
        wait for 0 ms;
        loop;
        report "Stimulus actions after 0 ms";
        wait for 3 ms;
        report "Stimulus actions after 3 ms";
        AD1CHS0.CH0NA <= '0';
        AD1CHS0.CH0SA <= B"00000";
        AD1CHS123.CH123NA <= B"10";
        AD1CHS123.CH123SA <= '0';
        AN0 <= '0';
        AN1 <= '0';
        wait for 2 ms;
        report "Stimulus actions after 5 ms";
        wait for 2 ms;
        report "Stimulus actions after 7 ms";
        AD1CHS0.CH0NA <= '1';
        AD1CHS0.CH0SA <= B"00000";
        AD1CHS123.CH123NA <= B"00";
        AD1CHS123.CH123SA <= '0';
        AN0 <= '0';
        AN1 <= '0';
        wait for 6 ms;
        end loop;
    end process;

    COND1: process is
    begin
        wait until AN0 == '0';
        RF7 <= '1';
        wait;
    end process COND1;

    www: process is
        variable www_end: cycle;
    begin
        wait for 10 ic;
        www_end:= 1 ic + 10 ic;
        loop
            AN0 <= '0';
            if www_end - now() < 1 ic then
                wait for www_end - now();
            else
                wait for 1 ic;
            end if;
            exit when now() >= www_end;
            AN0 <= '1';
            if www_end - now() < 1 ic then
                wait for www_end - now();
            else
                wait for 1 ic;
            end if;
            exit when now() >= www_end;
        end loop;
        AN0 <= '1';
        wait;
    end process www;

end testbench;