Page 126
value of the loop index on the stack with the I word. For example, the following shows how to define a word that prints the numbers from 1 to 10.
: oneToTen 11 1 DO I . LOOP ;
ok
oneToTen
1 2 3 4 5 6 7 8 9 10 ok
limit start DO words delta +LOOP
This variation on the basic DO LOOP adds the given delta value to the loop index instead of always adding one. You can use this type of loop to count backwards by supplying a negative
delta.
BEGIN body UNTIL
This loop performs its body until a false condition is left on the stack. The following example waits for the View button to be pressed (using some stuff we haven't covered just yet):
BUTTON_INIT
ok
: waitForViewButton BEGIN RCX_BUTTON DUP BUTTON_GET @ 2 AND UNTIL ;
ok
In the body of this loop we push RCX_BUTTON on the stack and duplicate it. Then we call BUTTON_GET, which retrieves the current state of the buttons into the RCX_BUTTON variable. Then
the value of RCX_BUTTON is retrieved (with @) and compared to 2, which corresponds to the View button on the RCX. When this condition is true, the loop ends and WaitForViewButton is
done.
BEGIN body AGAIN
This variation on BEGIN UNTIL loops forever, executing its body each time through the loop.
pbFORTH Words
pbFORTH includes 34 words that perform RCX-specific functions. In this section, I'll describe them all for you. Each word's name is listed along with the starting and ending state of the stack,
like this:
WORD_NAME (startStack -- endStack)
For example, the SWAP word would be listed like this:
SWAP (x1 x2 -- x2 x1)
The starting stack and ending stack are shown such that the top of the stack is shown on the right side. If you push x1 on the stack, then x2 and x3, then the stack would be shown like this:
x1 x2 x3. The top of the stack is x3. The MOTOR_SET word, for example, takes three values off the top of the stack:
MOTOR_SET (power mode index --)
To Next Page
Loading...
Need help?
General
