AVR.Interrupts

Package AVR.Interrupts

package AVR.Interrupts is
   pragma Preelaborate;

   -- Enable interrupts
   procedure Sei;

   procedure Enabled             renames Sei;
   procedure Enable_Interrupts   renames Sei;

   -- disable interrupts
   procedure Cli;

   procedure Disable             renames Cli;
   procedure Disable_Interrupts  renames Cli;

   --  save the status register and and disable interrupts
   function Save_And_Disable return Nat8;

   --  restore the status register, enables interrupts, if they were
   --  enabled at the time the status was saved.
   procedure Restore (Old_Status : Nat8);

   --  save the SREG register to a package local variable and disable
   --  interrupts
   procedure Save_Disable;

   --  restore the status register
   procedure Restore;

end AVR.Interrupts;