Usb work 100%
but hserout not work ... wrong caracters
i use hserout for debug/gsm...


18F25J50

Code:
   INCLUDE "modedefs.bas"
   INCLUDE "DT_INTS-18.bas"        ; Base Interrupt System
   INCLUDE "ReEnterPBP-18.bas"     ; PBP Re-entry for external interrupt   
   
   #CONFIG
      config WDTEN = OFF            ;WDT disabled (enabled by SWDTEN bit)
      config PLLDIV = 2             ;Divide by 2 (8 MHz internal oscillator input)
      config STVREN = ON            ;stack overflow/underflow reset enabled
      config XINST = OFF            ;Extended instruction set disabled
      config CPUDIV = OSC1          ;No CPU system clock divide
      config CP0 = ON               ;Program memory is not code-protected
      config OSC = INTOSCPLL        ;HSPLL          ;INTOSCPLL      ;Internal oscillator, PLL enabled, used by USB
      config T1DIG = OFF            ;Sec Osc clock source may not be selected, unless T1OSCEN = 1
      config LPT1OSC = OFF          ;high power Timer1 mode
      config FCMEN = OFF            ;Fail-Safe Clock Monitor disabled
      config IESO = OFF             ;Two-Sp Start-up disabled
      config WDTPS = 32768          ;1:32768
      config DSWDTOSC = INTOSCREF   ;DSWDT uses INTOSC/INTRC as clock
      config RTCOSC = INTOSCREF     ;RTCC uses T1OSC/T1CKI as clock
      config DSBOREN = OFF          ;Zero-Power BOR disabled in Deep Sleep
      config DSWDTEN = OFF          ;Disabled
      config DSWDTPS = 8192         ;1:8,192 (8.5 seconds)
      config IOL1WAY = OFF          ;IOLOCK bit can be set and cleared
      config MSSP7B_EN = MSK7       ;7 Bit address masking
      ;config WPFP = PAGE_1         ;Write Protect Program Flash Page 0
      ;config WPEND = PAGE_0        ;Start protection at page 0
      ;config WPCFG = OFF           ;Write/Erase last page protect Disabled
      ;config WPDIS = OFF           ;WPFP[5:0], WPEND, and WPCFG bits ignored
   #ENDCONFIG
                          
'-------------------------------------------------------------------------------

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

'-------------------------------------------------------------------------------
ASM
INT_LIST  macro       ; IntSource,  Label,      Type, ResetFlag?
        INT_Handler   USB_Handler
        INT_Handler   INT_INT,     _Leitor,    PBP,  yes
    endm
    INT_CREATE               ; Creates the interrupt processor
endasm

;@ INT_ENABLE INT_INT        ; enable external (INT) interrupts

'--- Setup USB -----------------------------------------------------------------

INCLUDE "DT_HID260.pbp"

DEFINE USB_VENDORID    6017
DEFINE USB_PRODUCTID   2000
DEFINE USB_VERSION     1
DEFINE USB_VENDORNAME  "MICROSOFT"
DEFINE USB_PRODUCTNAME "USB HID"
DEFINE USB_SERIAL      "001"
DEFINE USB_INSIZE      8    ; IN report is PIC to PC (8,16,32,64)
DEFINE USB_OUTSIZE     8    ; OUT report is PC to PIC
DEFINE USB_POLLIN      10   ; Polling times in mS, MIN=1 MAX=10
DEFINE USB_POLLOUT     10

; --- Each USB status LED is optional, comment them if not used ------------
; --- They can be assigned to any pin, and no further action is required --- 
DEFINE USB_LEDPOLARITY 1       ; LED ON State [0 or 1]  (default = 1)
DEFINE USB_PLUGGEDLED  PORTB, 7 ; LED indicates if USB is connected
;DEFINE USB_TXLED       PORTD, 1 ;  "      "     data being sent to PC
;DEFINE USB_RXLED       PORTD, 2 ;  "      "     data being received from PC

'-------------------------------------------------------------------------------

   Led               var   PORTB.7
   
'-------------------------------------------------------------------------------

   'DEFINE OSC 8
   
   OSCCON.6 = 1
   OSCCON.5 = 1
   OSCCON.4 = 1
    
   ANCON0 = %11111111                           ' Todas portas digital
   ANCON1 = %00001111   
   ADCON0 = 0                                   ' ADC off
   ADCON1 = 0
   INTCON2.7 = 0                                ' Desativa PortB Pullups         
   CM1CON1.7 = 0
   CM2CON1.7 = 0

   OSCTUNE.6 = 1                                ' PLL On
   
   PAUSE 10

'-------------------------------------------------------------------------------

   LATA = 0
   LATB = 0
   LATC = 0
   
   PORTA = 0
   PORTB = 0
   PORTC = 0

   TRISA = %00011111
   TRISB = %01111111
   TRISC = %10000000
 
   'INTCON2.4 = 0                                ' PORTB.2 - Lo to Hi
   'INTCON2.5 = 0                                ' PORTB.1 - Lo to Hi
   INTCON2.6 = 0                                ' PORTB.0 - Lo to Hi
   
'-------------------------------------------------------------------------------

   'while (Plugged = 0)
   '   PAUSE 1
   'wend
   
   hserout["------START------", 13]
   pause 1000
    
'-------------------------------------------------------------------------------
Inicio
   hserout["HI", 13]
   pause 1000
GOTO Inicio

..........
..........