'**************************************************************** '* Name : Syn-Ren.BAS * '* Author : Gary R. Melander * '* Notice : Copyright (c) 2006 Binary Farm, 2005 * '* : All Rights Reserved * '* Date : 5/13/2006 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** DEFINE OSC 20 @ DEVICE HS_OSC ' System Clock Options @ DEVICE WDT_OFF ' Watchdog Timer @ DEVICE PWRT_OFF ' Power-On Timer @ DEVICE BOD_OFF ' Brown-Out Detect @ DEVICE CPD_OFF ' Data Memory Code Protect @ DEVICE PROTECT_OFF ' Program Code Protection @ DEVICE MCLR_OFF INCLUDE "modedefs.bas" CMCON=7 'turns off comparator function TRISIO=%00000000 'sets all GPIO as outputs n VAR BYTE LCD VAR GPIO.1 'output for LCD MOTOR VAR GPIO.2 'output for SyRen Here: n = 0 ' Full Rev SEROUT MOTOR,T9600,[n] SEROUT LCD,N9600,[#n,13,10] 'display reading on LCD PAUSE 1000 n= 127 ' Stop SEROUT MOTOR,T9600,[n] SEROUT LCD,N9600,[#n,13,10] 'display reading on LCD PAUSE 1000 n=255 ' Full Fwd. SEROUT MOTOR,T9600,[n] SEROUT LCD,N9600,[#n,13,10] 'display reading on LCD PAUSE 1000 n= 127 ' Stop SEROUT MOTOR,T9600,[n] SEROUT LCD,N9600,[#n,13,10] 'display reading on LCD PAUSE 1000 GOTO Here END