source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-button.ads @ 3299388d

4.104.114.84.95
Last change on this file since 3299388d was 16a384cf, checked in by Joel Sherrill <joel.sherrill@…>, on Apr 23, 1999 at 4:35:11 PM

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: 422 bytes
Line 
1with I386_Ports;
2use I386_Ports;
3
4package TS1325.Button is
5
6   function Is_Button_Pressed return Boolean;
7
8   procedure Wait_For_Button_Press;
9
10private
11
12   pragma Inline (Is_Button_Pressed, Wait_For_Button_Press);
13
14   Poll_Interval: constant Duration := 0.3;
15
16   Minimum_Press_Time: constant Duration := 0.3;
17
18   Button_Mask: constant Byte := 2#0000_0001#;
19
20   Button_Port: Port_Address renames P1PIN;
21
22end TS1325.Button;
Note: See TracBrowser for help on using the repository browser.