Code for Send/Receive TTL/Comport Sample?

[richard]

Are you using pbp3 ?
What about config cpudiv = osc1_pll2

[richard]

Did you get what you expected?
Can you flash 1 sec on 1 sec off to be sure

[wdmagic]

pbp 2.6
/2 with pll no divide

[richard]

Charlie is right txsta = $24 is affecting the baud rate and is just wrong

[wdmagic]

every thing ive read including the melabs samples say to use $20 for baud rates lower than 9600 and $24 for higher, I even used a online calculator and pluggedin my info and it said that. so if thats wrong what would you suggest?

Ive tried 24 and 20

[richard]

Not absolutely sure chris.
If you are going to load the spbrg regs manually then yes defnitely the brgh bit needs to be set or reset accordingly
but i assume when using hserout pbp will make its own choice for brgh depending on osc and baud rate defines , if you change it afterwards then things go wrong

[wdmagic]

'RCSTA = $90
'TXSTA = $24
removed these, still errors

[richard]

Maybe its logic levels can u buffer the signals through some cmos gates
try again with the internal osc
get a cro
whats the ground connection like
i'm away till friday
good luck

[wdmagic]

OK I got it to work , not sure why but I had to change OSC fuse to ECIO and not ECPIO, so even though im useing a ttl OSC I cant use RA6

heres the code that works, note fuse is set to ECIO(NO USB) and PLL is set to 20Mhz

Define OSC 20 
define HSER_BAUD 9600
DEFINE HSER_BITS 8
DEFINE HSER_CLROERR 1
RCSTA = $90
TXSTA = $20
TRISC = %10000000
TRISD = 0

start:  
Hserout ["Hello World", 13, 10] 
pause 1000
goto start
End

NOTE: TXSTA = $20 ' must be 20, 24 doesnt work, even though online articles said so.

[wdmagic]

OK the Data from PIC to PC works fine, but from PC to PIC fails, heres code Im working with, NOTE that im am still using 9600 8N1 on the pc.

Define OSC 20	'USE ECIO, NOT ECPIO
define HSER_BAUD 9600
DEFINE HSER_BITS 8
DEFINE HSER_CLROERR 1
RCSTA = $90
TXSTA = $20		'DO NOT USE $24
TRISC = %10000000
TRISD = 0

MYBYTE VAR BYTE

MAINLOOP:
mybyte = 0
Hserin [MYBYTE]
LCDOUT $FE, 2
LCDOUT $FE, $80
LCDOUT "MYBYTE = ", DEC MYBYTE
Hserout ["Received = ", mybyte, 13, 10]
goto mainloop

LCD display numbers from 130 - 137 based on what character is sent, only a few characters work, say d - l (lower case) and they dont corrospond to any numbering system i was hoping for ascii values

[Charlie]

OK I got it to work , not sure why....... NOTE: TXSTA = $20 ' must be 20, 24 doesnt work, even though online articles said so.

Chris, the define statements are shortcuts built into PBP that do several things, including setting RXSTA and TXSTA properly for the BAUD you have chosen - and other registers. You can set ALL the registers manually, OR you use the define statements, but don't do both. When you set them manually in the next two statements after having just DEFINEd them, you are potentially changing those registers to an incorrect value, for instance the wrong value of 24. If you actually read the datasheet, you will see when 24 is correct and when 20 is correct. Likely the information in "online articles" was taken out of context. It is possible to make either value work for some baud rates, but to do so you need the correct values in other registers, like it says in the datasheet.

If you are starting to hear a recurring piece of advice in my comments, you are getting the message. One last time... read the datasheet. The device datasheet tells you how to set all the registers, the PBP manual tells you what the defines actually do.

[wdmagic]

yes, I usually read the manual and datasheets, this is just got alot of new terminology I dont understand. i did finnaly get it to send and receive, works great for what I'm going to be doing right now, i've got it sending and receiving 8 bytes, thats more than what I need and I can change it to whatever is best. thanks for the help, I shoudl be able to use this code untill I understand more.

Define OSC 20	'USE ECIO, NOT ECPIO
define HSER_BAUD 9600
DEFINE HSER_BITS 8
DEFINE HSER_CLROERR 1
RCSTA = $90
TXSTA = $20		'DO NOT USE $24
TRISC = %10000000
TRISD = 0

Name Var Byte[8]
REFRESH VAR BYTE

Gain:
FOr REFRESH = 0 to 8
pause 10
Name[REFRESH] = 0
next REFRESH
if REFRESH = 8 then REFRESH = 0

HSERIN 5000,test,[STR Name\8] : Pause 250
HSEROUT [STR Name, 13, 10]
LCDOUT $FE, 2
LCDOUT $FE, $80
LCDOUT Name[0],Name[1],Name[2],Name[3],Name[4],Name[5],Name[6],Name[7]
pause 250
Goto Gain

test:
pause 100
goto gain

[Charlie]

The code will work as is, but be careful if you want to make changes - it still has the error I pointed out.