Gordons Projects

--> Projects Top-Level GIT

Fixing names
[ladder] / ladderSetup.rtb
1 //
2 // ladderSetup:
3 //    This is the setup procedure. We initialise the various
4 //    pins into the correct modes and extinbuish all the LEDs
5 //
6 DEF PROC ladderSetup
7 LOCAL i
8 FOR i = 0 TO 9 CYCLE 
9   PinMode (i, 1) // Output
10   DigitalWrite (i, 0) // Off
11 REPEAT 
12 FOR i = 10 TO 13 CYCLE 
13   PinMode (i, 0) // Input
14   PullUpDn (i, 2) // Activate internal pull-up
15 REPEAT 
16 //
17 // Make some globals
18 //
19 ledRed1 = 0
20 ledRed2 = 1
21 ledYellow1 = 2
22 ledYellow2 = 3
23 ledGreen1 = 4
24 ledGreen2 = 5
25 ledBlue1 = 6
26 ledBlue2 = 7
27 gMan = 8
28 rMan = 9
29 //
30 buttonA = 11
31 buttonB = 10
32 buttonC = 12
33 buttonD = 13
34 //
35 // Leave Green man ON
36 //
37 DigitalWrite (gMan, 1)
38 //
39 ENDPROC