PIC16F1779 settings for EUSART

[Ioannis]

Seems that I did not quite understood that PPS thing...

I set the registers as:

RD2PPS=%00011010 for RD2 as UART output
and
RXPPS=%00011011 for RD3 as UART RX input

Hserout does not spiting anything out. Code follows:

#CONFIG
    __config _CONFIG1, _FOSC_INTOSC & _WDTE_ON & _PWRTE_ON & _MCLRE_OFF & _CP_OFF & _BOREN_ON & _CLKOUTEN_OFF & _IESO_ON & _FCMEN_ON
    __config _CONFIG2, _WRT_OFF & _PPS1WAY_OFF & _ZCD_OFF & _PLLEN_ON & _STVREN_ON & _BORV_LO & _LPBOR_OFF & _LVP_OFF
#ENDCONFIG


OSCCON=%11110000

DEFINE OSC 32          
    
LATA = %00000000
LATB = %00000000
LATC = %00000000 
LATD = %00000000
LATE = %00000000

TRISA = %00100011
TRISB = %00010011
TRISC = %00000000
TRISD = %00001000
TRISE = %00000000

;*********************************************************************
;           ADC Settings
;*********************************************************************
ansela=3
wpua=0
anseld=0
WPUD=0
ODCOND=0
ADCON0=%00000001
ADCON1=%10110000
ADCON2=%00000000

cm1con0=0
cm2con0=0
cm3con0=0
cm4con0=0
cm5con0=0
cm6con0=0
cm7con0=0
cm8con0=0

cm1con1=0
cm2con1=0
cm3con1=0
cm4con1=0
cm5con1=0
cm6con1=0
cm7con1=0
cm8con1=0

cmout=0


;*********************************************************************

 ' Set LCD Data port
DEFINE LCD_DREG PORTD
' Set starting Data bit (0 or 4) if 4-bit bus
DEFINE LCD_DBIT 4
' Set LCD Register Select port
DEFINE LCD_RSREG PORTD
' Set LCD Register Select bit
DEFINE LCD_RSBIT 0
' Set LCD Enable port
DEFINE LCD_EREG PORTD
' Set LCD Enable bit
DEFINE LCD_EBIT 1
' Set LCD bus size (4 or 8 bits)
DEFINE LCD_BITS 4
' Set number of lines on LCD
DEFINE LCD_LINES 2
' Set command delay time in us
'DEFINE LCD_COMMANDUS 1500
' Set data delay time in us
'DEFINE LCD_DATAUS 250

DEFINE ADC_BITS 10 ' Set number of bits in result
DEFINE ADC_SAMPLEUS 50 ' Set sampling time in uS
'DEFINE ADC_CLOCK 3

'************************************************************
'            UART Setup
'
DEFINE HSER_RC1STA 90h
DEFINE HSER_TX1STA 24h				'9600 baud rate, BRGH=1
DEFINE HSER_BAUD 9600
define HSER_SPBRG 51
DEFINE HSER_CLROERR 1

pause 100
t1con=0

wADC1 var word

DAC1CON0=%10100000   'Enable,right just.,Output enable,Vref
DAC2CON0=%10100000   'Enable,right just.,Output enable,Vref

DAC1REFH=0
DAC1REFL=0
DAC2REFH=0
DAC2REFL=0
DACLD=%00000011

'*************    RD2 = UART TX out
RD2PPS=%00011010

'*************    RD3 = UART RX input
RXPPS=%00011011


lcdout $fe,$1,"Test"
pause 1500

clear


while 1

    adcin 0,wADC1
    lcdout $fe,$80,#wADC1,"  "
    toggle latb.5   'LED hertbeat
    DAC1REFL=wADC1.lowbyte
    DAC1REFH=wADC1.highbyte
    DAC2REFL=wADC2.lowbyte
    DAC2REFH=wADC2.highbyte
    DACLD=%00000011
    hserout ["DAC1:",#wADC1,13,10]
    pause 500

wend

end

The RD2 pin is the output to the RS-232 driver and RD3 the input from driver. The LED is flashing at the proper rate, so program is looping. But no serial output.

Ioannis

[tumbleweed]

If you look at Table 12-1 Port Selection and Table 12-2 Available Ports For Output you'll find that the EUSART can't be mapped to PORTD, only PORTB and PORTC.

There are restrictions like this in many of the devices... the PPS matrix isn't a full x-y mux and you usually only get a choice of two ports to pick from.

[Ioannis]

Ooops...

Thanks,
Ioannis

[mpgmike]

If I may make a suggestion; I noticed when you were trying to use PORTD for UART, you initialized your TX Pin low (LATD = 0). I initialize my UART TX Pin high, as that is the idle state. Secondly, your WPUD didn't take advantage of the ability to bias your RX Pin high as well. You may get a false Start of Signal reading when your companion device initializes. Using a Weak Pull-Up on RX reduces that chance.

[Ioannis]

Thank you Mike for the suggestions. Indeed this is the proper way to initialize the ports. At the moment that was the least of the problems.

The important thing is to read carefully the datasheet and as tumbleweed noted, I was setting UART on wrong ports.

Now that I paid more attention and am really awake(!), it works as it should and all is fine.

The people in this forum are one of a kind. Thank you all.

Ioannis