procedure write_nios_busy (data : in avs_dummy_nios_busy_writedata'subtype) is

begin
    	wait until rising_edge(clk_nios);
    	avs_dummy_nios_busy_write <= '1';
    	avs_dummy_nios_busy_writedata <= data;
    	wait until rising_edge(clk_nios);
    	avs_dummy_nios_busy_write <= '0';

end procedure write_nios_busy;