16f887 and hserin/out

[Dennis]

Hi Joe

Been battling with this even more now... have read up on the registers
Still, no go JOE :-)
Here's the code
receiver 16f690

'16F690 DEMO
    DEFINE OSC 8       'Comment the 4Mhz and uncomment these for 8Mhz
    OSCCON=%01110000

 '   DEFINE OSC 4           'This is the default setting
 '   OSCCON=%01100000

ADCON0 = 0
ADCON1=0
    

ANSEL = 0
ANSELH = 0
CM1CON0 = 0
CM2CON0 = 0
'RCSTA = %10010000 
'txsta=%10100000
'rcsta=%10010000

RCSTA = $90 ' Enable serial port & continuous receive
TXSTA = $20 ' Enable transmit, BRGH = 0
SPBRG = 25  ' 2400 Baud @ 4MHz, 0.17%

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_SPBRG 25  ' 2400 Baud @ 4MHz, 0.17%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically


    'The first line is if you are using PM, the second if you are using MPASAM
  '  @ device  pic16F690, intrc_osc_noclkout, wdt_on, mclr_on, protect_off
  '  @ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON & _CP_OFF
        TRISA  = %00000000 'example only - TRISB = %00001111 ;Make B4-B7 outputs, B0-B3 inputs, 
        TRISB = %00100000 'TX=PORTB.7 RX=PORTB.5
        TRISC = %00000000   '0 will make the pins an output, 1 will make them inputs
  
 
   'includes begin here
        INCLUDE "modedefs.bas"
        include "c:\pbp\samples\keypad.bas"
'end of includes

    TRAIN   VAR BYTE
    train =  $B3
    SYNK    VAR BYTE
    SYNK = $7E
    
    XNUM    VAR BYTE
    YNUM    VAR BYTE
    ZNUM    VAR BYTE
    LED     var PORTC.0
    
  'Variables end here

  loopy:
   low LED '  LED on
   
    hserin [WAIT(SYNK),XNUM,YNUM,ZNUM]
    
' and now out to hyperterminal (or wherever!)
    hserout["X-",DEC XNUM," Y-",DEC YNUM," Z-",DEC ZNUM,$d,$a] 'to   hyperterminal
    toggle led
    Goto loopy  ' Go back to loop and blink LED forever
    End
'End of all code

Transmitter is 184520 (which receiver and sends perfectly well with hserin/out) working it as the transmitter is the problem I have :-( same as for a6F690

'USART defines and register settings begin here     - use for HSERIN/OUT
'Ocsillator selections here
'DEFINE OSC 8
'OSCCON=%01110000
'or
'DEFINE OSC 4
'OSCCON=%01100000
'OSCTUNE.6 = 0 'PLL Multiplier disabled
'OSCTUNE.6 = 1 'PLL 4x
'Ocsillator selections here
        OSCCON = $70            'Int CLK 8MHz
        OSCTUNE.6 = 1           'PLL 4x
        ADCON1= %00001111       '$0F = disable A/D converter
        cmcon   =   7 
        INTCON2.7 = 0     'switch pull-ups ON
RCSTA = $90 ' Enable serial port & continuous receive
TXSTA = $20 ' Enable transmit, BRGH = 0
SPBRG = 207 ' 2400 Baud @ 32MHz, 0.17%

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0
DEFINE HSER_SPBRG 207 ' 2400 Baud @ 32MHz, 0.17%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically

TRISC = %10010000

XNUM    VAR BYTE
        YNUM    VAR BYTE
        ZNUM    VAR BYTE
        TRAIN  VAR BYTE
        train =  $B3
        WNUM = 225
        XNUM = 31
        YNUM = 100
        ZNUM = 4
hserin [WAIT(SYNK),XNUM,YNUM,ZNUM]

Keep well Joe

Kind regards
Dennis

[Archangel]

Hi Dennis,
Ok so far here is what I see
use this config: @ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_OFF & _CP_OFF & _PWRTE_OFF & _FCMEN_OFF

use this
OSCTUNE = 0 ' sets osc to calibrated value
Mr._e's code ain't going to work on the 690 without changes because your USART is on portB
so comment out the include keypad.bas
throw this in before your tris statements
PortA = 0
PortB = 0
PortC = 0

[Dennis]

Hi Joe

Thanks for the tips ...
Have made the changes, set the fuses,cleared the VAR's checked the TRIS, removed the kepad include(accidently slipped in in somehow")....
and still no luck :-(

Any other ideas or tips ?



Kind regards
Dennis

[Dennis]

YAY ...I'm now back at my original problem which prompted me to start this thread :-) or :-( ?

In post #9 here I had used the wrong settings for the usart , if you look carefully you'll see that the values are set for 4 MHz and I had set to use the internal clock @ 8 MHz. I changed to use internal clock @ 4MHz and now at least I get values in hyperterminal....b ut they are WRONG !

The HSEROUT line from the 18F4520 is as follows:
[code]
TRAIN VAR BYTE
train = $B3
SYNK VAR BYTE
SYNK = $7E

XNUM VAR BYTE
YNUM VAR BYTE
ZNUM VAR BYTE
hserout [TRAIN,SYNK,XNUM,YNUM,ZNUM,$d,$a]
[code]
It works perfectly ... I can see the values in hyperterminal/MCS serial tool window as they are sent!
So I see this

³~dE

That's the numbers $B3,$7E,31,100,69

Now when I'm at the receiver side the numbers I receiver PIC side are way different ...
Here's the receiver code

hserin [WAIT(SYNK),XNUM,YNUM,ZNUM]
    
' and now out to hyperterminal (or wherever!)
    hserout["X-",DEC XNUM," Y-",DEC YNUM," Z-",DEC ZNUM,$d,$a] 'to hyperterminal

Here's what I get in MCS serial tool window /hyperterminal

X-71 Y-84 Z-53
X-71 Y-84 Z-53
X-71 Y-80 Z-53
X-71 Y-80 Z-53
X-71 Y-80 Z-53

This should be X- 31,Y-100,Z-69
These are completely di8fferent to what I am sending !

This is really confuising ... can anyone see what I am doing wrong ?

Kind regards
Dennis

[Dennis]

I have replaced the 16F690 with a 16f887 .... and now it's all working like a charm ... either it's me who has missed something or has overlooked something crucial or I have a dodgy 16f690.

If anyone has suggestions please feel free to leave a message here.

Kind regards

Dennis