how about something like
Code:
'12F675
@ __CONFIG _INTRC_OSC_NOCLKOUT & _WDT_ON & _PWRTE_ON & _MCLRE_OFF & _BODEN_ON
DEFINE OSCCAL_1K 1
INCLUDE "modedefs.bas"
TX_Pin var GPIO.0 'To DB9 RX pin 2
RX_Pin var GPIO.1 'To DB9 TX pin 3
TRISIO.0 = 0 'Set GPIO.0 to output.
TRISIO.1 = 1 'Set GPIO.1 to input
ANSEL = 0 'disable ADCs
CMCON = 7 'disable comparator
AChar var byte
tx_pin = 0 'inverted mode idle state
achar="A"
Pause 100 'OSC settle time...
loop:
SerOut tx_pin,N2400,["Waiting for ",achar,13,10]
SERIN rx_pin,N2400,[achar]
serout tx_pin,N2400,["Got it...",13,10]
goto loop
Bookmarks