Page 127 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 04 3/24/03 8:24 AM Page 106
Amphibionics
PROGRAM 4.1
frog-test.bas program
for timer1 = 1 to 15
listing (continued) both_servo:
pulsout servo_l,servo_pos_l
pulsout servo_r,servo_pos_r
pause 6
next timer1
return
left_servo:
for timer2 = 1 to 10
pulsout servo_l,servo_pos_l
pause 6
next timer2
return

right_servo
for timer3 = 1 to 10
pulsout servo_r,servo_pos_r
pause 6
next timer3
return

end

PROGRAM 4.2 :100000007B28A0003B200C080D04031976287020E3
frog-test.hex program :1000100084132008800664000D280E288C0A03191A
listing :100020008D0F0B28800676288F0022088400200977
:100030003C2084138F0803197628F03091000E08B5
:1000400080389000F03091030319910003198F0359
:10005000031976282B283F2003010C1820088E1F37
:1000600020088E0803190301900F382880061F28E6
:10007000392800002228FF3A8417800576280D08C9
:100080000C0403198C0A80300C1A8D060C198D068D
:100090008C188D060D0D8C0D8D0D76288F018E0020
:1000A000FF308E07031C8F07031C762803308D005A
:1000B000DF305C2050288D01E83E8C008D09FC303B
:1000C000031C65288C07031862288C0764008D0FB9

106