source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-button.adb @ 16a384cf

4.104.114.84.95
Last change on this file since 16a384cf was 16a384cf, checked in by Joel Sherrill <joel.sherrill@…>, on 04/23/99 at 16:35:11

New BSP from Tony R. Ambardar <tonya@…> from the
University of British Columbia. The BSP is for:

Yes, this is the "entry model" of a series of boards from Technologic
Systems. Costs <$200 I believe. They have a WWW page at www.t-systems.com.
I am letting them know about the availability of this BSP too.

  • Property mode set to 100644
File size: 540 bytes
Line 
1package body TS1325.Button is
2
3   function Is_Button_Pressed return Boolean is
4      State: Byte;
5   begin
6      Inport (Button_Port, State);
7      return (State and Button_Mask) /= Button_Mask;
8   end Is_Button_Pressed;
9
10   procedure Wait_For_Button_Press is
11   begin
12  Poll_Loop:
13      loop
14         if Is_Button_Pressed then
15            delay Minimum_Press_Time;
16            exit Poll_Loop when Is_Button_Pressed;
17         end if;
18         delay Poll_Interval;
19      end loop Poll_Loop;
20   end Wait_For_Button_Press;
21
22end TS1325.Button;
Note: See TracBrowser for help on using the repository browser.