hi,
1. i want to send a packet of data from pc to pic via bluetooth hc 06 module. the dimension of the package is 512 byte string. i use windows 8 so i dont have hyperterminal, i use putty instead. i decided to send only one byte from pc at first but couldnt succeed. and how can i do it using hserin commands?
2. i use putty for the first time. after pairing with the device, the black screen show up but i can not type anyting, can not see what i type
thanks


'************************************************* ***************
'* Name : UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 21.10.2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'************************************************* ***************
DEFINE OSC 4
'device 18f452
asm
__CONFIG _CONFIG1H, _OSCS_OFF_1H & _LVP_OFF_4L & _DEBUG_OFF_4L & _PWRT_ON_2L & _XT_OSC_1H & _BOR_OFF_2L & _WDT_OFF_2H
endasm




DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 5
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 6
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 4
DEFINE LCD_BITS 4
DEFINE LCD_Lines 2


ADCON0=%01000101
ADCON1=%10001110
DEFINE ADC_BITS 10 'Number of bits in ADCIN result
DEFINE ADC_CLOCK 3 'ADC clock source (rc = 3)
DEFINE ADC_SAMPLEUS 50


DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 25
DEFINE HSER_RCSTA 90h'%10010000
DEFINE HSER_TXSTA 24h'%00100100
DEFINE HSER_CLROERR 1


A VAR WORD
DATAIN VAR BYTE
DATAFLAG VAR BIT
symbol LED=PORTE.1
RCIF VAR PIR1.5




TRISA.0=1
TRISC.7=1
TRISC.6=0
TRISE.1=0


INTCON = %11000000 ' enable global and peripheral and portb change interrupts
PIE1.5=1 'enable rx interrupt
PIR1.5=0


LCDOUT $FE,1
LED=1:
PAUSE 2000:
LED=0
PAUSE 1000


DATAFLAG=0
DATAIN=0


LCDOUT $FE,1,"OPENiNG"
LCDOUT $FE,$C0,"DATA: ", DEC DATAIN
pause 1000


On Interrupt GoTo HANDLER




MAIN:
IF DATAFLAG=1 THEN
DATAFLAG=0
HSEROUT [13,10,dec DATAIN]
LCDOUT $FE,1,"DATA: ",DEC DATAIN
FOR A=0 TO 65000
PAUSEUS 10
NEXT A
ENDIF
IF DATAFLAG=0 THEN
LCDOUT $FE,1,"NOT ARRiVED"
FOR A=0 TO 65000
PAUSEUS 10
NEXT A
ENDIF
GoTo MAIN


Disable
HANDLER:
DATAIN=RCREG
DATAFLAG=1
PIR1.5=0
Resume
Enable
End