{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fmodern\fprq1 Swiss;}{\f1\fmodern\fprq1 Courier New;}} {\colortbl ;\red0\green0\blue255;\red0\green128\blue128;} \viewkind4\uc1\pard\cf1\f0\fs24 \par \f1\fs20 'The following code gives variable electronic gearing on the fly. \par 'It reads an analog value at Port C and uses it \par 'to calculate a gear ratio. \par \par 'HARDWARE SET-UP: \par 'MOTOR MUST HAVE ANALOG SIGNAL BEIING FED INTO PORT C \par 'AND SHOULD BE WITHIN 0 TO +5VDC \par \par UCI\tab 'set port C as input \par \par OFF\tab 'turn off motor \par MF0\tab 'zero external encoder counter \par O=0\tab 'zero internal encoder counter \par \par MF4\tab\tab\tab 'set motor to read external encoder at full quadrature \par MFMUL=2000\tab 'initialize ratio at 1:1 \par MFDIV=2000 \par MFR G \par \par \cf2 WHILE\cf1 1==1 \par \par m=UCA-512\tab '512 gives an offset to allow bidirectional gearing \par m=m*20\tab 'This is a multiplier used to give good change in values \par MFMUL=m\tab \par MFR G \par \cf2 LOOP\cf1 \par \par \par END \par \par \f0\fs24 \par }