18f25k22 hserin

[richard]

works as expected
only slight change was to move serout to portb.7 to suit my pickit2 debug uart tool and put something printable
into BArray

'-------------------------------------------------------------------------' 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]


GoTo MAIN

what doesn't work are code snippets and failure to provide connection details [ schematic]
and even a description of what happens versus what you expect to happen