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;