https://sourceforge.net/p/avr-ada/wiki/Programspace/Recent changes to ProgramspaceenThu, 26 Jul 2012 21:32:49 -0000https://sourceforge.net/p/avr-ada/wiki/Programspace/<pre>--- v1 +++ v2 @@ -1,35 +1,36 @@ # Package AVR.Programspace # Package AVR.Programspace provides access to constants stored in program memory. + :::Ada with System; package AVR.Programspace is - pragma Preelaborate; + pragma Preelaborate; - subtype Program_Address is System.Address; + subtype Program_Address is System.Address; + + type Far_Program_Address is mod 2 ** 32; - type Far_Program_Address is mod 2 ** 32; + -- read bytes (8bit), Unsigned_16s (16bit) or double words (32bit) from + -- an address in programm memory (flash). - -- read bytes (8bit), Unsigned_16s (16bit) or double words (32bit) from - -- an address in programm memory (flash). + function Get_Byte (Addr : Program_Address) return Unsigned_8; + function Get (Addr : Program_Address) return Unsigned_8 renames Get_Byte; - function Get_Byte(Addr : Program_Address) return Unsigned_8; - function Get(Addr : Program_Address) return Unsigned_8 renames Get_Byte; + function Get_Char (Addr : Program_Address) return Character; + function Get (Addr : Program_Address) return Character renames Get_Char; - function Get_Char(Addr : Program_Address) return Character; - function Get(Addr : Program_Address) return Character renames Get_Char; + function Get_Word (Addr : Program_Address) return Unsigned_16; + function Get (Addr : Program_Address) return Unsigned_16 renames Get_Word; - function Get_Word(Addr : Program_Address) return Unsigned_16; - function Get(Addr : Program_Address) return Unsigned_16 renames Get_Word; + function Get_DWord (Addr : Program_Address) return Unsigned_32; + function Get (Addr : Program_Address) return Unsigned_32 renames Get_DWord; - function Get_DWord(Addr : Program_Address) return Unsigned_32; - function Get(Addr : Program_Address) return Unsigned_32 renames Get_DWord; + function Get (Addr : Far_Program_Address) return Unsigned_8; + function Get (Addr : Far_Program_Address) return Unsigned_16; + function Get (Addr : Far_Program_Address) return Unsigned_32; - function Get(Addr : Far_Program_Address) return Unsigned_8; - function Get(Addr : Far_Program_Address) return Unsigned_16; - function Get(Addr : Far_Program_Address) return Unsigned_32; - - procedure Inc(Addr : in out Program_Address); -- increment address by 1 - procedure Dec(Addr : in out Program_Address); -- decrement address by 1 + procedure Inc (Addr : in out Program_Address); -- increment address by 1 + procedure Dec (Addr : in out Program_Address); -- decrement address by 1 end AVR.Programspace; </pre>Rolf EbertThu, 26 Jul 2012 21:32:49 -0000https://sourceforge.netae3b5e9f1f0d3e75232e9d4cce2d9017ce412caahttps://sourceforge.net/p/avr-ada/wiki/Programspace/# Package AVR.Programspace # Package AVR.Programspace provides access to constants stored in program memory. with System; package AVR.Programspace is pragma Preelaborate; subtype Program_Address is System.Address; type Far_Program_Address is mod 2 ** 32; -- read bytes (8bit), Unsigned_16s (16bit) or double words (32bit) from -- an address in programm memory (flash). function Get_Byte(Addr : Program_Address) return Unsigned_8; function Get(Addr : Program_Address) return Unsigned_8 renames Get_Byte; function Get_Char(Addr : Program_Address) return Character; function Get(Addr : Program_Address) return Character renames Get_Char; function Get_Word(Addr : Program_Address) return Unsigned_16; function Get(Addr : Program_Address) return Unsigned_16 renames Get_Word; function Get_DWord(Addr : Program_Address) return Unsigned_32; function Get(Addr : Program_Address) return Unsigned_32 renames Get_DWord; function Get(Addr : Far_Program_Address) return Unsigned_8; function Get(Addr : Far_Program_Address) return Unsigned_16; function Get(Addr : Far_Program_Address) return Unsigned_32; procedure Inc(Addr : in out Program_Address); -- increment address by 1 procedure Dec(Addr : in out Program_Address); -- decrement address by 1 end AVR.Programspace; Warren W. Gay VE3WWGTue, 24 Jul 2012 05:04:07 -0000https://sourceforge.netbe3bb4cb3d6a3eecf5b81d5ac0250d332f2167db