Usbin and hserin

[mpardinho]

hserin work 100% but if i use usbin code not work




INCLUDE "modedefs.bas"

asm
__CONFIG _CONFIG1L, _PLLDIV_1_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L
; ; ; USB clock source comes from the 96 MHz PLL divided by 2
; ; [OSC1/OSC2 Src: /1][96 MHz PLL Src: /2]
; No prescale (4 MHz oscillator input drives PLL directly)


__CONFIG _CONFIG1H, _FOSC_XTPLL_XT_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
; ; ; Oscillator Switchover mode disabled
; ; Fail-Safe Clock Monitor disabled
; XT oscillator, PLL enabled, XT used by USB
__CONFIG _CONFIG2L, _PWRT_ON_2L & _BOR_ON_2L & _BORV_2_2L & _VREGEN_ON_2L
__CONFIG _CONFIG2H, _WDT_OFF_2H
__CONFIG _CONFIG3H, _MCLRE_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_ON_3H
__CONFIG _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L
__CONFIG _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
__CONFIG _CONFIG5H, _CPB_ON_5H
endasm

DEFINE OSC 48

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


Led Var PORTA.0

Recebe VAR PIR1.5 ' Receive interrupt flag (1=full , 0=empty)
Transmite VAR PIR1.4 ' Transmit interrupt flag (1=empty, 0=full)

Buffer VAR BYTE[16]
Cnt VAR BYTE
A VAR BYTE
B VAR BYTE
C VAR BYTE


ADCON1 = 15 ' Set all I/Os to Digital
INTCON2.7 = 0 ' Disable PortB Pullups
CMCON = 7 ' Disable Comparators

' Interrupt Settings
RCON.7 = 0 ' Disable Priority Interrupts, 1 to Enable

' Enable/Disable Interrupts
INTCON.4 = 0 ' Disable INT0 (PORTB.0)
INTCON3.3 = 0 ' Disable INT1 (PORTB.1)
INTCON3.4 = 0 ' Disable INT2 (PORTB.2)
INTCON.5 = 0 ' Disable TMR0 (Timmer 0)

INTCON.6 = 1 ' Enable Peripheral Interrupts
INTCON.7 = 1 ' Enable Global Interrupt Handler

PIE1.4 = 0 ' USART Transmit Interrupt
PIE1.5 = 1 ' USART Receive Interrupt
PIE2.5 = 0 ' USB Interrupt

PORTA = 0
TRISA = %00000000

HIGH LED
PAUSE 1000

USBInit

PAUSE 1
LOW LED

ON INTERRUPT GOTO Interruptor
ENABLE INTERRUPT

'-------------------------------------------------------------------------------
Inicio:
USBService

Cnt = 3
USBIn 3, Buffer, Cnt, Inicio
GOTO usbSaida

GOTO Inicio

'-------------------------------------------------------------------------------
DISABLE INTERRUPT

Interruptor:

IF Transmite = 1 THEN
Transmite = 0
ENDIF

IF Recebe = 1 THEN
HSERIN 2, Continua, [Wait("<"), a, b]

Buffer[0] = A
Buffer[1] = B
Buffer[2] = 13
Buffer[3] = 10
Cnt = 3

Recebe = 0
goto usbSaida
ENDIF

Continua:
Recebe = 0
GOTO Fim

'-------------------------------------------------------------------------------
usbSaida:
USBService
USBOut 3, Buffer, Cnt, usbSaida

goto Inicio

'-------------------------------------------------------------------------------
Fim:
RESUME
ENABLE INTERRUPT

'-------------------------------------------------------------------------------
END