{\rtf1\animaticsfile\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}} {\colortbl ;\red0\green128\blue0;\red197\green254\blue253;\red201\green22\blue179;\red0\green0\blue0;\red0\green0\blue255;}{\info{\subject }{\author }{\keywords }{\doccomm }} \viewkind4\uc1\pard\cf1\highlight2\f0\fs24 'This\cf3 \cf1 program\cf3 \cf1 was\cf3 \cf1 used\cf3 \cf1 to\cf3 \cf1 test\cf3 \cf1 the\cf3 \cf1 SmartboxBCD\cf3 \cf1 demo\cf3 \cf1 box.\highlight0\par 'It will call one of 16 subroutines based on the first 4 inputs \par 'any time the Go input (input 6) is recieved.\cf4\par \cf5\par \par ECHO\tab\tab\tab\cf1 'TURN ON ECHO\cf5\par EIGN\cf4 (\cf5 W\cf4 ,0)\tab\tab\cf1 'SET ALL I/O TO INPUTS\par \cf5 ZS\tab\tab\tab\cf1 'CLEAR ERRORS\par \cf5 ITR\cf4 (0,16,6,0,101)\tab\tab\cf1 'Interrupt on Input 6\cf4\par \cf5 ITRE\cf1\tab\tab 'ENABLE GLOBAL INTERRUPT\par \cf5 EITR\cf4 (0)\cf1\tab 'ENABLE INDEVIDUAL INTERRUPT (0)\cf3\par \cf5\highlight2 OR\cf4 (4)\cf3\tab\cf1 'BUSY\cf3 \cf1 LED\cf3 \cf1 RED\cf5\par OS\cf4 (4)\cf3\tab\cf1 'READY\cf3 \cf1 LED\cf3 \cf1 BREEN\cf5\par OS\cf4 (5)\cf3\tab\cf1 'FAULT\cf3 \cf1 LED\cf3 \cf1 RED\cf5\par OR\cf4 (5)\cf3\tab\cf1 'OK\cf3 \cf1 LED\cf3 \cf1 GREEN\par \cf4\par \cf3\highlight0\par \cf5\highlight2 MV\par ADT\cf4 =100\cf3\par \cf1 'Preset\cf3 \cf1 speeds\cf3 \cf1 into\cf3 \cf1 long\cf3 \cf1 array\cf3 \cf1 variables\cf3\par \cf4 al[0]=133333\par al[1]=266667\par al[2]=400000\par al[3]=533333\par al[4]=666667\par al[5]=800000\par al[6]=933333\par al[7]=1066667\par al[8]=1200000\par al[9]=1333333\par al[10]=1466667\par al[11]=1600000\par al[12]=1733333\par al[13]=1866667\par al[14]=2000000\par al[15]=2133333\par \cf3\par \par WHILE \cf4 1\cf3 LOOP\cf5\highlight0\par \cf1 'PAUSE\cf3\par END\par \b\par C101\tab\tab\cf1\b0 'This gets called when input 6 gets grounded\cf3\b\par \highlight2\b0\tab\cf5 PRINT\cf4 ("GO\cf3 \cf4 PRESSED",#13)\highlight0\par \cf3\highlight2\tab\cf4 x=15-(IN(W,0)&15)\cf3\tab\tab\cf1 'Look\cf3 \cf1 at\cf3 \cf1 Inpits\cf3 \cf1 0,1,2,3\cf3 \cf1 (A,\cf3 \cf1 B,\cf3 \cf1 C,\cf3 \cf1 D)\cf5\highlight0\par \cf3\highlight2\tab\cf5 VT\cf4 =al[x]\par \cf3\tab\cf5 PRINT\cf4 ("Speed\cf3 \cf4 ",x,"\cf3 \cf4 selected",#13)\cf3\par \tab\cf5 MV\cf3 \cf5 G\cf3\highlight0\par \cf5\highlight2 OR\cf4 (4)\cf3\tab\cf1 'BUSY\cf3 \cf1 LED\cf3 \cf1 RED\cf3\par \tab\cf5 ITR\cf4 (0,16,6,0,101)\cf3\tab\tab\cf1 'De-bounces\cf3 \cf1 Input\cf3 \cf1 switch\cf4\highlight0\par \cf3\highlight2\tab WHILE \cf5 IN\cf4 (6)==0\cf3 LOOP\par \tab\cf5 PRINT\cf4 ("GO\cf3 \cf4 released,\cf3 \cf4 stopping",#13)\cf3\par \par \tab\cf5 X\cf3 \cf5 TWAIT\par OS\cf4 (4)\cf3\tab\cf1 'READY\cf3 \cf1 LED\cf3 \cf1 BREEN\cf3\par \tab\highlight0\b\par \highlight2 RETURNI\highlight0\par \par }