moni.scl

来自「uCOS在PIC芯片中的移植：以PIC24HJ64GP210为例进行uCOS在M」· SCL 代码 · 共 44 行

// 
// D:\Massage\Micrium\Software\EvalBoards\Microchip\PIC24HJ\MPLAB\OS-View\Generated Files\Moni.scl
// Generated by Stimulus ver. 3.60.00.00
// 6/18/2008 09:36:19
// 


configuration for "pic24hj64gp210" is
end configuration;


testbench for "pic24hj64gp210" is
begin
    process is
    begin
        wait;
    end process;

    COND1: process is
    begin
        wait until OC5R == 16#0000#;
        wait for 2000 ic;
        RA6 <= '0';
        RA7 <= '0';
        RD13 <= '0';
    end process COND1;

    MomiWide: process is
    begin
        wait until PC == 16#573E#;
        loop
            RA6 <= '0';
            wait until PC == 16#576A# for 1000000 ic;
            exit when PC == 16#576A#;
            RA6 <= '1';
            wait until PC == 16#576A# for 2000 ic;
            exit when PC == 16#576A#;
        end loop;
        RA6 <= '1';
    end process MomiWide;

end testbench;