URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libbsp/] [i386/] [ts_386ex/] [tools/] [ts_1325_ada/] [ts1325-button.ads] - Blame information for rev 609

Go to most recent revision | Details | Compare with Previous | View Log


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;

Line No.	Rev	Author	Line
1	30	unneback	`with I386_Ports;`
2			`use I386_Ports;`
3
4			`package TS1325.Button is`
5
6			`function Is_Button_Pressed return Boolean;`
7
8			`procedure Wait_For_Button_Press;`
9
10			`private`
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
22			`end TS1325.Button;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [lib/] [libbsp/] [i386/] [ts_386ex/] [tools/] [ts_1325_ada/] [ts1325-button.ads] - Blame information for rev 609