AVR-Ada Wiki
Ada cross compiler and libraries for AVR µCs
Status: Beta
Brought to you by:
rolf_ebert
with Interfaces; use Interfaces;
package AVR.Wait is
pragma Preelaborate (AVR.Wait);
procedure Wait_3_Cycles (Count : Unsigned_8);
-- can wait up to 2**8 x 3 cycles
procedure Wait_4_Cycles (Count : Unsigned_16);
-- can wait up to 2**16 x 4 cycles
generic
Crystal_Hertz : Long_Long_Integer;
Micro_Seconds : Long_Long_Integer;
procedure Generic_Wait_USecs;
-- provide a pragma Inline for the instance of this procedure, at
-- least for short delays where the call overhead is relatively
-- important.
generic
Crystal_Hertz : Long_Long_Integer;
procedure Generic_Busy_Wait_Milliseconds (Wait : Unsigned_16);
generic
Crystal_Hertz : Long_Long_Integer;
procedure Generic_Busy_Wait_Seconds (Wait : Unsigned_16);
-- Simple minded busy delay loops that use the above
-- Generic_Wait_USecs. Beware that any interrupt activity adds to
-- the specified delay.
end AVR.Wait;