more useful would be
Code:
'-------------------------------------------------------------------------' Name : Hserin Test (18F25K22)
' Serout Baud rate: 188:4800,84:9600,49:14400,32:19200,15:28800,6:38400 'ok
' Serout : p296,297
' 9600 Open Inverted None 49236
' HSERIN [WAIT("!"), STR MyArray\200, STR MyArray(200)\200, _
' STR MyArray(400)\200, STR MyArray(600)\100]
'
'-------------------------------------------------------------------------
Include "modedefs.bas" ' Include serial modes
;----[18F25K22 Hardware Configuration]------------------------------------------
#CONFIG
CONFIG FOSC = INTIO67
CONFIG PLLCFG = On
CONFIG WDTEN = Off
CONFIG MCLRE = INTMCLR
CONFIG LVP = Off
#ENDCONFIG
ANSELA = 0 ; All Digital
ANSELB = 0
ANSELC = 0
DEFINE OSC 64
TRISA = % 11111111 '1:IN, 0:OUT
TRISB = % 11111111
TRISC = % 11111111
OSCCON = $70
OSCTUNE = $40
' Set receive register to receiver enabled
DEFINE HSER_RCSTA 90h
DEFINE HSER2_RCSTA 90h
' Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 20h
DEFINE HSER2_TXSTA 20h
' Set baud rate
DEFINE HSER_BAUD 9600
DEFINE HSER2_BAUD 9600
DEFINE HSER_CLROERR 1
AArray VAR BYTE[12]
BArray VAR BYTE[12]
ARRAYWRITE BARRAY,["GOT IT",0]
' code to scan sample : 0 59749 96859 1
MAIN:
HSERIN [wait ("0"), str AArray\12]
serOut2 PORTB.7,84, [str BArray,13,10]
hserout ["got", str AArray\12 ,13,10]
GoTo MAIN
Bookmarks