Page 207 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 05 3/24/03 8:44 AM Page 186
Amphibionics
PROGRAM 5.5
' subroutine to set servos
serpentronic.bas
program listing '------------------------------------------------------------------------------------------------------------------------------
(continued) servo:
For timer = 1 to 20
PulsOut servo_1,servo1
PulsOut servo_2,servo2
PulsOut servo_3,servo3
PulsOut servo_4,servo4
PulsOut servo_5,servo5
PulsOut servo_6,servo6
Pause 12
Next timer

Return

PROGRAM 5.6 :100000009128A0003F200C080D0403198C2886209D
serpentronic.hex file :1000100084132008800664000D280E288C0A03191A
listing :100020008D0F0B2880068C288F0022088400200961
:10003000402084138F0803198C28F03091000E089B
:1000400080389000F03091030319910003198F0359
:1000500003198C282B28552003010C1820088E1F0B
:1000600020088E0803190301900F382880061F28E6
:100070003928000022284320FF3A80054028FF3A13
:10008000841780058C28940006309419053084006C
:1000900000308A001408073982070134023404341E
:1000A000083410342034403480340D080C04031913
:1000B0008C0A80300C1A8D060C198D068C188D0652
:1000C0000D0D8C0D8D0D8C288F018E00FF308E074D
:1000D000031C8F07031C8C2803308D00DF30722037
:1000E00066288D01E83E8C008D09FC30031C7B28BE
:1000F0008C07031878288C0764008D0F78280C185B
:1001000081288C1C85280000852808008C098D0911
:100110008C0A03198D0A08008313031383126400E9
:1001200008008316850103308600831205118316AB
:100130000511831285118316851183122C083B202B

186