Bootloader pic16f1825 @32mhz pll

[Dave]

Richard, The HSEROUT command is probably setting the tris register for the operator to make things easy. I do not use any of the serial commands available with PBP. I only use the hardware serial ports and use interrupt driven serial input as well as output. Also during the Boot Loading process you have to set all port direction registers and APFCON registers as your PBP code is not executing yet. Also clearing bits 4:5 of ANSELC does no good as they are not inplemented. No analog operation of these pins.

[richard]

The HSEROUT command is probably setting the tris register for the operator to make things easy

No it seems not , I have done a bit more experimenting and the chip works as per the data sheet ie
Setting the SPEN bit of the
RCSTA register enables the EUSART and automatically
configures the TX/CK I/O pin as an output.
seting or clearing the tris bit has no effect on the eusart ,

this int driven background printing demo works just fine when trisc.4 is set or not

clearing bits 4:5 of ANSELC does no good as they are not implemented

correct , that saves a couple of words (don't know how I missed that ) and what you say about APFCON makes sense if it can affect the bootloader

'****************************************************************
'*  Name    : PRINT_16_TX_INT.pbp                                *
'*  Author  : richard                                   *
'*  Notice  :                                *
'*          :                                *
'*  Date    :                                          *
'*  Version :    16f1825                                   *
'*  Notes   :       *
'*          :              *
'*            
'****************************************************************
  
#CONFIG
             __config        _CONFIG1,    _FOSC_INTOSC & _CP_OFF & _WDTE_OFF &  _PWRTE_ON  &  _MCLRE_ON  & _CLKOUTEN_OFF
              __config      _CONFIG2, _PLLEN_OFF & _LVP_OFF
#ENDCONFIG
DEFINE LOADER_USED 1
DEFINE OSC 32
 
include "dt_ints-14.bas"
include "REENTERPBP.bas"
 
asm
INT_LIST macro
       INT_HANDLER TX_INT  , _do_tx, PBP,no
      
      endm
      INT_CREATE
ENDASM

 
RCSTA = $90   ' Enable serial port & continuous receive
TXSTA = $20   ' Enable transmit, BRGH = 0
SPBRG = 51    ' 38400 Baud @ 32MHz, 0.16%
SPBRGH = 0
BAUDCON.3 = 1 ' Enable 16 bit baudrate generator

prnb var byte[32] bank0 
spos var byte bank0
rpos var byte bank0
maxq con 31
HEAD VAR BYTE [70]
I VAR BYTE
J VAR BYTE 
K VAR BYTE
PASS VAR WORD    
led var latc.0
TRISA=%111111
TRISC=%111110
OSCCON=$f0
ANSELA=0
ANSELC=0

CLEAR
while !OSCSTAT.6
wend 
LED=0
INTCON=$C0
   
ARRAYWRITE head, [ "Ready",9,"%",bin6 trisc,13,10,0] 
GOSUB MYPRINT
ARRAYWRITE head,  [ "still",9,"%",bin6 trisc,13,10,0] 
GOSUB MYPRINT  
mainloop:
pause 500 
ARRAYWRITE head,  [ "still Enable 16 bit baudrate generator ",0] 
GOSUB MYPRINT
ARRAYWRITE head,  [ "PASS Enable 16 bit baudrate generator",9,#PASS,13,10,0] 
GOSUB MYPRINT
PASS=PASS+1
goto mainloop 
 
 

MYPRINT:
    J=0
    WHILE HEAD[J]
        INTCON=0
        I=SPOS+1
        K=RPOS
        IF ((I)==K) || ((I== MAXQ )&& !K )  THEN 
            INTCON=$C0
            PAUSE 20
            led=!led
        ELSE
        PRNB[SPOS]= HEAD[J]
        SPOS=SPOS+1
        PIE1.4=1
        IF SPOS=MAXQ THEN SPOS=0
        J=J+1
        ENDIF
        INTCON=$C0
    WEND   
 RETURN
 
 
 
:do_tx 
  IF  RPOS == SPOS THEN
      PIE1.4=0
      ELSE
      IF  PRNB[RPOS] THEN
        TXREG=PRNB[RPOS]
        RPOS=RPOS+1 
        if rpos==maxQ then rpos=0
      ENDIF  
  ENDIF
 @ INT_RETURN

[Dave]

Good Job Richard....