Page 201 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 05 3/24/03 8:44 AM Page 180
Amphibionics
PROGRAM 5.5
servo_1 VAR PORTB.2
serpentronic.bas
servo_2 VAR PORTB.3
program listing ir_input VAR PORTB.1
(continued) servo_3 VAR PORTB.7
servo_4 VAR PORTB.6
servo_5 VAR PORTB.5
servo_6 VAR PORTB.4
ir_count VAR byte
temp VAR BYTE
object_detect VAR BYTE
num_samples VAR Byte
threshold VAR BYTE
rand VAR WORD
timer VAR BYTE
temp1 VAR BYTE
i VAR BYTE

look_right VAR BYTE
look_left VAR BYTE
turn_count VAR BYTE

servo1 VAR BYTE
servo2 VAR BYTE
servo3 VAR BYTE
servo4 VAR BYTE
servo5 VAR BYTE
servo6 VAR BYTE

low led_left
low led_right

Low servo1
Low servo2
Low servo3
Low servo4
Low servo5

180