{\rtf1\animaticsfile\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}} {\colortbl ;\red0\green0\blue255;\red197\green254\blue253;\red0\green0\blue0;\red201\green22\blue179;\red0\green128\blue0;}{\info{\subject }{\author }{\keywords }{\doccomm }} \viewkind4\uc1\pard\tx0\tx480\tx960\tx1440\tx1920\tx2400\tx2880\tx3360\tx3840\tx4320\tx4800\tx5280\tx5760\tx6240\tx6720\tx7200\tx7680\tx8160\tx8640\tx9120\tx9600\tx10080\tx10560\tx11040\tx11520\tx12000\tx12480\tx12960\tx13440\tx13920\tx14400\cf1\highlight2\f0\fs20 ADDR\cf3 =1\par \cf1 ECHO\par EIGN\cf3 (\cf1 W\cf3 ,0)\par \cf1 ZS\cf3\par \par m=0\par \cf4 GOSUB\cf3 (123)\par \cf4 WHILE \cf3 1\par \cf4 IF \cf1 IN\cf3 (6)==0\par \cf4\tab\tab\cf3 m=m+1\par \cf4\tab\tab IF \cf3 m>11\cf4 \cf3 m=1\cf4 ENDIF\b\par \b0\tab\tab GOSUB\cf3 (123)\cf4\b\par \b0\tab\tab WHILE \cf1 IN\cf3 (6)==0\cf4 LOOP\par ENDIF\par LOOP\par END\par \b\par \par \par C123\b0\tab\cf5 'Example\cf4 \cf5 message\cf4 \cf5 printer\par 'set\cf4 \cf5 "m"\cf4 \cf5 to\cf4 \cf5 value\cf4 \cf5 for\cf4 \cf5 message\cf4 \cf5 you\cf4 \cf5 wish\cf4 \cf5 to\cf4 \cf5 print\par \cf3\par \cf5 'Example\cf4 \cf5 elapsed\cf4 \cf5 time\cf4 \cf5 from\cf4 \cf5 system\cf4 \cf5 clock\cf3\par tt=\cf1 CLK\cf4\tab\tab\cf5 'milliseconds\cf1\par \cf3 ss=tt/1000\cf4\tab\tab\cf5 'seconds\cf4 \cf5 total\par \cf3 mm=ss/60\cf4\tab\tab\cf5 'minutes\cf4 \cf5 total\par \cf3 ss=ss-(mm*60)\cf4\tab\cf5 'seconds\par \cf3 hh=mm/60\cf4\tab\tab\cf5 'hours\cf4 \cf5 total\cf4 \cf1\par \cf3 mm=mm-(hh*60)\cf4\tab\cf5 'minutes\par \cf4\par SWITCH \cf3 m\cf4\tab\cf5 'm\cf4 \cf5 is\cf4 \cf5 number\cf4 \cf5 for\cf4 \cf5 message\cf4 \cf5 to\cf4 \cf5 print\par \cf4 CASE \cf3 0\cf4\tab\cf1 PRINT\cf3 ("Hello\cf4 \cf3 World")\cf4\tab\tab BREAK\cf3\par \cf4 CASE \cf3 1\cf4\tab\cf1 PRINT\cf3 ("Message\cf4 \cf3 #:",m)\cf4\tab\tab BREAK\par CASE \cf3 2\cf4\tab\cf1 PRINT\cf3 ("System\cf4 \cf3 Clock:",tt)\cf4\tab BREAK\par CASE \cf3 3\cf4\tab\cf1 PRINT\cf3 ("Time:",hh,":",mm,":",ss)\cf4\tab\tab BREAK\par CASE \cf3 4\cf4\tab\par \tab\tab\cf1 PRINT\cf3 ("Firmware\cf4 \cf3 Revision\cf4 \cf3 :\cf4 \cf3 ")\cf1\par \cf4\tab\tab\cf3 al[0]=\cf1 FW\cf4\tab\cf5 'Do\cf4 \cf5 a\cf4 \cf5 forced\cf4 \cf5 download\cf4 \cf5 if\cf4 \cf5 this\cf4 \cf5 shows\cf4 \cf5 as\cf4 \cf5 error\cf4\tab\cf1\par \cf4\tab\tab\cf1 PRINT\cf3 (ab[3],".",ab[2],".",ab[1],".",ab[0])\par \cf4 BREAK\par CASE \cf3 5\cf4\tab\cf1 PRINT\cf3 ("Set\cf4 \cf3 aa\cf4 \cf3 to\cf4 \cf3 ASCI\cf4 \cf3 value\cf4 \cf3 you\cf4 \cf3 want\cf4 \cf3 to\cf4 \cf3 print")\cf4\tab BREAK\par CASE \cf3 6\cf4\tab\cf1 PRINT\cf3 ("Encoder\cf4 \cf3 Res\cf4 \cf3 :",\cf1 RES\cf3 )\cf4\tab BREAK\par CASE \cf3 7\cf4\tab\cf1 PRINT\cf3 ("Sample\cf4 \cf3 Rate\cf4 \cf3 :",\cf1 SAMP\cf3 )\cf4\tab BREAK\par CASE \cf3 8\cf4\tab\cf1 PRINT\cf3 ("ASCII\cf4 \cf3 value\cf4 \cf3 for\cf4 \cf3 aa=",aa,":",#aa)\cf4\tab BREAK\par CASE \cf3 9\cf4\tab\cf1 PRINT\cf3 ("Serial\cf4 \cf3 Number\cf4 \cf3 :\cf4 \cf3 ")\cf4\par \tab\tab\cf1 WAIT\cf3 =w\cf4\par \tab\tab\cf1 EPTR\cf3 =32512\cf4\tab\tab\cf5 'Set\cf4 \cf5 EEPROM\cf4 \cf5 pointer\cf4 \cf5 to\cf4 \cf5 serial\cf4 \cf5 number\cf4 \cf5 location\cf4\par \tab\tab\cf3 al[0]=0\cf4\tab\tab\tab\cf5 'Clear\cf4 \cf5 out\cf4 \cf5 al[0]\cf4 \cf5 to\cf4 \cf5 load\cf4 \cf5 in\cf4 \cf5 serial\cf4 \cf5 number\cf4\par \tab\tab\cf1 VLD\cf3 (ab[0],3)\cf4 \tab\cf5 'read\cf4 \cf5 3\cf4 \cf5 bytes.\cf4\tab\cf5 al[0]\cf4 \cf5 is\cf4 \cf5 also\cf4 \cf5 ab[0],\cf4 \cf5 ab[1],\cf4 \cf5 ab[2],\cf4 \cf5 ab[3]\cf4\par \tab\tab\cf1 VLD\cf3 (ab[4],1)\cf4 \tab\cf5 'read\cf4 \cf5 leading\cf4 \cf5 character\cf4 \cf5 Note:\cf4 \cf5 EPTR=32516\cf4 \cf5 now\cf4\tab\par \tab\tab\cf1 PRINT\cf3 (#ab[4],al[0])\cf4\par BREAK\par CASE \cf3 10\cf4\tab\cf5 'Motor\cf4 \cf5 Bus\cf4 \cf5 Votage\cf4 \cf5 Note:\cf4 \cf5 UJA\cf4 \cf5 is\cf4 \cf5 bus\cf4 \cf5 voltage\cf4 \cf5 in\cf4 \cf5 milivolts\cf1\par \cf4\tab\tab\cf3 v=\cf1 UJA\cf3 /1000\cf4\tab\cf5 'MODULO\cf4 \cf5 divide\cf4 \cf5 Get\cf4 \cf5 volts\cf1\par \cf4\tab\tab\cf3 m=\cf1 UJA\cf3 %1000\cf4\tab\cf5 'Get\cf4 \cf5 millivolts\cf1\par \cf4\tab\tab\cf1 PRINT\cf3 ("Bus\cf4 \cf3 Votage\cf4 \cf3 :\cf4 \cf3 ",\cf4 \cf3 v,".",m,"\cf4 \cf3 volts")\cf1\par \cf4 BREAK\par CASE \cf3 11\cf4\tab\cf5 'Motor\cf4 \cf5 Drive\cf4 \cf5 Current\cf4 \cf5 Note:\cf4 \cf5 UIA\cf4 \cf5 is\cf4 \cf5 in\cf4 \cf5 millAmps\cf4\par \tab\tab\cf3 i=\cf1 UIA\cf3 /1000\cf4\tab\cf5 'MODULO\cf4 \cf5 divide\cf4 \cf5 Get\cf4 \cf5 Amps\cf4\par \tab\tab\cf3 m=\cf1 UJA\cf3 %1000\cf4\tab\cf5 'Get\cf4 \cf5 milliAmps\cf4\par \tab\tab\cf1 PRINT\cf3 ("Drive\cf4 \cf3 Current\cf4 \cf3 :\cf4 \cf3 ",\cf4 \cf3 i,".",m,"\cf4 \cf3 Amps")\cf4\par BREAK\par ENDS\par \cf1 PRINT\cf3 (#13)\cf4\tab\cf5 'Print\cf4 \cf5 terminating\cf4 \cf5 characters\cf3\par \cf4\b RETURN\par \b0\par \par END\par \par }