Ok, give this a try...
Code:
INCLUDE "modedefs.bas"
DEFINE OSC 20
ANSEL = %00000000
INPUTDATA var byte
TRISA.2 = 1
TRISB.2 = 0
'''''''PORTA.2 = INPUTDATA 'don't need this line
X VAR BYTE
X = 0
MAIN:
PORTB.2 = 0
WAITLOOP:
SERIN PORTA.2,T9600,["A"],inputdata
'''''''''''if inputdata <> "A" then goto waitloop ' don't need this line
LOOP:
IF X<4 THEN
HIGH PORTB.2
PAUSE 2 'Question here... do you really want to pause for 2 milliseconds?
LOW PORTB.2
PAUSE 2 'same question here
X = X+1
GOTO LOOP
endif
goto MAIN
Bookmarks