Serin2 pass through to Serout2

[scottl]

I am trying to get the following code to work but get garbage on the other side.



serin2 GPIO.1,84,5000,mainloop,[str command\4\13] ' This could be Acr, E'dc1'cr or E'dc3'cr

If (command[1] == 19) then ' 19 = DEC for 'dc3' char
goto IButton
else
SEROUT2 GPIO.4,84,[str command,13] ' Cannot get the same on the output
serin2 GPIO.5,84,5000,mainloop,[str command\31\13] ' Then get response
SEROUT2 GPIO.0,84,[str command,13 ' Then send back to PC
endif



Any ideas? Should I wait a few ms between sending back out the other port? Should I be using something other than STR to send back to the pc?

Thanks in advance,

Scott

[mister_e]

Please, when you post a question, give us all details such as PIC #, Using internal OSC or not, String format or Bin or Dec format. Same thing on PC side, which software, setting etc etc.

First thing to try, send a text string to the PC, if everything is correct, send a text string + 1 byte of data from your PC to the PIC and use WAIT modifier + 1 variable. if the content of the variable match everything should be correct... at very least the hardware.

[scottl]

Here are the details:

PIC12F675
Internal OSC 4 mhz

It only gets garbage when I enable the second 232 port on GPIO.4! When I reroute the data how should it be formatted? Everything from the PC is ASCII format.

Thanks,

Scott

[mister_e]

I may think of few things here
1) 9600 baud with internal osc is a bit dangerous, try at lower baudrate
2) internal OSC calibration is screwed up.
3) all multiplexed analog stuff are not disabled
4) there's no max-232 (or else inverter) between the PIC and the PC
5) noisy supply line
6) maybe something else

i'm doing a little something here, i'll post it later so you could try on your side as well

[mister_e]

try this



'
' PIC Configuration
' =================
@ __CONFIG _INTRC_OSC_NOCLKOUT & _WDT_ON & _PWRTE_ON & _MCLRE_OFF & _BODEN_ON
' Internal Oscillator
' Enable watch dog timer
' Enable power up timer
' Disable MCLR pin
' Enable brown out detect

DEFINE OSCCAL_1K 1 ' load internal osc calibration

'
' Hardware configuration
' ======================
TRISIO = %00101010 ' set GP3, GP4, GP5 input
' others to output
ANSEL = 0 ' disable adc
CMCON = 7 ' disable comparators

'
' Hardware assignment
' ===================
S_In1 var GPIO.1 ' Serial input #1
S_In2 VAR GPIO.5 ' Serial input #2
S_Out VAR GPIO.4 ' Serial output


'
' Variables definition
' ===================
Command VAR BYTE[10]
Baud var word

'
' Constants definition
' ====================
T2400 CON 396
T4800 CON 188
T9600 CON 84
N2400 CON 16780
N4800 CON 16572
N9600 CON 16468

'
' Software/Hardware initialisation
' ================================
'
' select baudrate
' ---------------
baud = t9600
'
' Set serial output pin idle level
' --------------------------------
if baud<400 then
high s_out
else
low s_out
endif

pause 50 ' settle time
serout2 s_out,baud,["Hello, this is a test!!!",13,10]

'
' Program Start
' ============
Start:
serout2 s_out,baud,["i'm waiting for incoming data on GPIO.1",13,10]
serin2 s_in1,baud,[str command\10\13]

Serout2 s_out,baud,["i got...", str command,13,10,13,10,_
"waiting for some data on GPIO.5",13,10]

serin2 s_in1,baud,[str command\10\13]
Serout2 s_out,baud,["i got...", str command,13,10,13,10]
goto start

[scottl]

Steve,

Thanks for your time! I will try this when I get home this evening.

4) there's no max-232 (or else inverter) between the PIC and the PC
Sorry forgot to mention the PIC connects to a Bluetooth radio then to the PC. This has been a stable product of ours for the last 1 1/2 years. This is a test for our customer adding the IButton. Both sides are direct connect!

Thanks,

Scott