ant var byte
base var word
shld var word
elbo var word
wrst var word
grip var word
grpr var word
ttm var word
'serin P15,N9600,[dec ant]
'serin P7,N9600,[bin ant]
oninterrupt rcint, move
enable rcint
'enablehserial
'sethserial H9600
serout p14,i38400,"#10 P1400 #11 P1400 #12 P700 #13 P1400 #14 P1400 #15 P1400, T3000",13]
pause 3000
ant = 100
'pause 5000
'serin P15,I9600,[dec ant]
start:
'sethserial H9600
'serin P7,N9600,[bin ant]
base=1400:shld=1400:elbo=700:wrst=1400:grpr=1400:
grip=1500-200:
ttm=1000
serout p14,i38400,"#10P", DEC base, “#11P”, DEC shld, “#12P”, DEC elbo, “#13P”, DEC wrst, “#14P”, DEC grpr, “#15P”, DEC grip, “T”, DEC ttm,13]
pause ttm
'sethserial h9600
'hserin [dec ant]
'serout p14,i38400,"#10 P1500 #11 P1500 #12 P1500 #13 P1500 #14 P1500 #15 P1500, T3000",13]
'pause 3000
'serout p14,i38400,"#10 P1500 #11 P1500 #12 P1500 #13 P1500 #14 P1500 #15 P1500, T3000",13]
'pause 3000
base=1400:shld=1400:elbo=700:wrst=1400:grpr=1400:
ttm=1000
grip=200+1500
serout p14,i38400,"#10P", DEC base, “#11P”, DEC shld, “#12P”, DEC elbo, “#13P”, DEC wrst, “#14P”, DEC grpr, “#15P”, DEC grip, “T”, DEC ttm,13]
pause ttm
'grip = ant
'serout p14,i38400,"#10P", DEC base, “#11P”, DEC shld, “#12P”, DEC elbo, “#13P”,
DEC wrst, “#14P”, DEC grpr, “#15P”, DEC grip, “T”, DEC ttm,13]
'pause ttm
'serin P7,N9600,[dec ant]
'debug [dec ant]
'hserin [dec ant]
goto start
move:
serin P7,N9600,[dec ant]
debug [dec ant]
'serout p14,i38400,"#10 P1500 #11 P1500 #12 P1500 #13 P1500 #14 P1400 #15 P1500",13]
'serout p14,i38400,"#10 P1500 #11 P1500 #12 P1500 #13 P1500 #14 P1500 #15 P1500",13]
resume