4.104.114.84.95
Last change
on this file since 3299388d 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 | |
---|
1 | package 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 | |
---|
22 | end TS1325.Button; |
---|
Note: See
TracBrowser
for help on using the repository browser.