Config 18F25K22

[mpardinho]

i'm try configure 18F25K22 for work 16MHz internal Osc

code show hserout text wrong and led not blink

   asm   
      __CONFIG    _CONFIG1H, _FOSC_INTIO67_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
      __CONFIG    _CONFIG2H, _WDTEN_OFF_2H & _WDTPS_512_2H
      __CONFIG    _CONFIG3H, _MCLRE_INTMCLR_3H & _PBADEN_OFF_3H
      __CONFIG    _CONFIG4L, _LVP_OFF_4L & _XINST_OFF_4L
      __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
      __CONFIG    _CONFIG5H, _CPB_ON_5H
   endasm

   @ errorlevel -202

'---[ Serial 1 ]----------------------------------------------------------------

   DEFINE   HSER_RCSTA    90h
   DEFINE   HSER_TXSTA    20h
   DEFINE   HSER_BAUD     9600
   DEFINE   HSER_CLROERR  1

'---[ Portas ]------------------------------------------------------------------

   Led               var   PORTA.0

'---[ Váriaveis ]---------------------------------------------------------------   
   
   I                 Var   WORD
   L                 Var   WORD
   
   J                 Var   BYTE
   K                 Var   BYTE
 
     
   Sim               Con   1
   Nao               Con   0
   
'-------------------------------------------------------------------------------

      
   OSCCON  = %01110000;                         ' 16mHz 
   OSCTUNE = %00000000;                         ' 16 MHz PLL Off bit 6=0, 64MHz PLL On bit 6=1 
  
   
   CM1CON0.7 = 0                                ' Comparadores   
   ADCON1 = 15                                  ' Portas A e B Digital
   INTCON2.7 = 0                                ' Ativa Pull-Ups
   
   ANSELC = 0                                   ' Serial 1   

'-------------------------------------------------------------------------------
     
   PORTA = 0
   PORTB = 0
   PORTC = 0

   LATA = 0
   LATB = 0
   LATC = 0

   TRISA = %00000000
   TRISB = %10000000
   TRISC = %10000000

'-------------------------------------------------------------------------------
   
   Led = 1
   pause 3000   
    

   HSEROUT ["> START", 13]   
   pause 1
     
    Led = 0
      
'---[ Programa ]----------------------------------------------------------------
Inicio:
   Led = 0

   pause 3000

   Led = 1
goto Inicio

'-------------------------------------------------------------------------------
End

[Bruce]

Add DEFINE OSC 16 somewhere in the beginning, and add a PAUSE after Led = 1.

Also - ADCON1 = 15 does not do what you think it's doing. Look at the ANSEL registers.