HSERIN / SERIN Problem with 16f690

[rborsuk]

I've crawled the forum and have read several post about the 16f690 and serial in, I was wondering if someone could shed a little light on this topic for me. I have a simple setup with a 16f690 and a Max 232. I have tried both the internal oscillator and have just switched to a 3.579 MHZ crystal and still have not had success using HSERIN or SERIN to recieve in a character from Hyperterminal (2400 - 8N1). I can successfully send out characters using both HSEROUT and SEROUT. Below is my code, can someone tell me if I'm missing something? The code will output a character and then stop.
Thank you for any insight.

Rob


Include "modedefs.bas"

DEFINE OSC 3

define HSER_RCSTA 90h
define HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_ODD 1

'DEFINE HSER_SPBRG 25

'define CHAR_PACING 1000

OSCCON= $08


'this is the layout for portb.5 - RB5/AN11/RX/DT

'turn off analog input for port b.5
ANSELH=0
'and any other analog stuff
ANSEL=0

'there's several analog comparators - lets shut them off
'I dont know which one - shut them all off

CM1CON0 =0
CM2CON0 =0
CM2CON1 =0

adcon1=0
'now set it for input
trisb.5 = 1
trisc.0 =1


rxPin VAR portB.5
txPin VAR portB.7
rxVal Var Byte
txVal Var Byte


loop:
pause 1000
'serout txPin,T2400,["A"]
hserout ["A"]
Pause 1000
'High Portb.6
'Pause 1000
'Low portb.6
hserin [rxVal]
'serin rxPin,T2400,rxVal
'pause 500
'serout txPin,T2400,[rxVal]
hserout [rxVal]
'High Portb.6
'Pause 1000
'Low portb.6
pause 1000
goto loop
end

[mackrackit]

The code will output a character and then stop.

Where is the serial input coming from and what is is sending?

[rborsuk]

Where is the serial input coming from and what is is sending?

Input is coming from me typing characters in Hyperterminal.

[skimask]

DEFINE HSER_ODD 1

How is it working at all?
Get rid of that line...

[Archangel]

From mr_e's PIC MULTICALC . . .

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 92  ' 2400 Baud @ 3.579MHz, 0.21%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

[rborsuk]

From mr_e's PIC MULTICALC . . .

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 92  ' 2400 Baud @ 3.579MHz, 0.21%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

Okay. Below is my new code (I've added an LED to port b.6). Here's what happens. A capital 'A' shows on the terminal window, the LED goes on, the LED then goes out, another 'A' shows on the terminal, the LED goes on and there is where it stays. I never touched the keyboard during this time. After this process, it doesn't matter what I type in the terminal window, the light stays on and nothing else happens. Any thoughts?


Include "modedefs.bas"

DEFINE OSC 3

define HSER_RCSTA 90h
define HSER_TXSTA 24h

DEFINE HSER_SPBRG 92
DEFINE HSER_CLROERR 1


OSCCON= $08


'this is the layout for portb.5 - RB5/AN11/RX/DT

'turn off analog input for port b.5
ANSELH=0
'and any other analog stuff
ANSEL=0

'there's several analog comparators - lets shut them off
'I dont know which one - shut them all off

CM1CON0 =0
CM2CON0 =0
CM2CON1 =0

adcon1=0
'now set it for input
trisb.5 = 1
trisc.0 =1


rxPin VAR portB.5
txPin VAR portB.7
rxVal Var Byte
txVal Var Byte


loop:
pause 1000
'serout txPin,T2400,["A"]
hserout ["A"]
Pause 1000
High Portb.6
Pause 1000
'Low portb.6
hserin [rxVal]
'serin rxPin,T2400,rxVal
'pause 500
'serout txPin,T2400,[rxVal]
hserout [rxVal]
Low portb.6
pause 1000
goto loop
end

[skimask]

How about just a simple 'echo-ing' program to make sure everything is working first

Include "modedefs.bas"
DEFINE OSC 3
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_SPBRG  92
DEFINE HSER_CLROERR 1
Char VAR BYTE : led var portb.6 : output led : input portb.5 : output portb.7
Main: HSERIN [Char] : led = 1 : HSEROUT [Char] : pause 10 : led = 0 : GOTO Main
END

Type on the PC, characters should show up on the PC. Led should blink once for each character received/sent-back. Don't type any faster than 54 characters per second.

[rborsuk]

Skimask,
Okay, I put in your program. The light blinks once (when I release from reset - I don't touch anything), no character is displayed and that's it. I tried putting a HSEROUT before your main loop and it does send out a character. Any thoughts about turning off the built in analog stuff?


Rob

[rborsuk]

How is it working at all?
Get rid of that line...

Okay done. I was trying all kinds of things and forgot to remove that line. Please see my new post below.

Rob