c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-button.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

with I386_Ports;
use I386_Ports;

package TS1325.Button is

   function Is_Button_Pressed return Boolean;

   procedure Wait_For_Button_Press;

private

   pragma Inline (Is_Button_Pressed, Wait_For_Button_Press);

   Poll_Interval: constant Duration := 0.3;

   Minimum_Press_Time: constant Duration := 0.3;

   Button_Mask: constant Byte := 2#0000_0001#;

   Button_Port: Port_Address renames P1PIN;

end TS1325.Button;