ts1325-button.adb

RTEMS (Real-Time Executive for Multiprocessor Systems) is a free open source real-time operating sys

package body TS1325.Button is

   function Is_Button_Pressed return Boolean is
      State: Byte;
   begin
      Inport (Button_Port, State);
      return (State and Button_Mask) /= Button_Mask;
   end Is_Button_Pressed;

   procedure Wait_For_Button_Press is
   begin
  Poll_Loop:
      loop
         if Is_Button_Pressed then
            delay Minimum_Press_Time;
            exit Poll_Loop when Is_Button_Pressed;
         end if;
         delay Poll_Interval;
      end loop Poll_Loop;
   end Wait_For_Button_Press;

end TS1325.Button;