Hi..something not right, I'm trying to toggle led on PORTB.7 but no success....can you check my code what I'm doing bad?
Name:  6Buttons.gif
Views: 1397
Size:  207.8 KB
Code:
asm
    __CONFIG    _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L
    __CONFIG    _CONFIG1H, _FOSC_HSPLL_HS_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
    ;__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 & _ICPRT_OFF_4L  & _XINST_OFF_4L & _DEBUG_OFF_4L 
endasm
Define OSC 20
TRISB.7 = 0
PORTB.7 = 0
TRISD = %00000000
PORTD = %00000000
LedD Var POrtD.5
Led1 var PortB.7

INCLUDE "DT_INTS-18.bas"        ' Base Interrupt System
INCLUDE "ReEnterPBP-18.bas"      ' Include if using PBP interrupts

ASM
INT_LIST  macro    ; IntSource,         Label,  Type, ResetFlag?
        INT_Handler    INT_INT,  _ToggleLED1,   PBP,  yes
    endm
    INT_CREATE               ; Creates the interrupt processor
ENDASM

@    INT_ENABLE   INT_INT     ;RB Port Change Interrupt
PORTB = %00000000
Main:
pause 500
Toggle LedD 
GOTO Main

'---[INT - interrupt handler]---------------------------------------------------
ToggleLED1:
     'TOGGLE LED1
     If PortB.1 = 0 then
     Toggle Led1
     else
     If PortB.2 = 0 then
     Toggle Led1
     else
     If PortB.3 = 0 then
     Toggle Led1
     else
     If PortB.4 = 0 then
     Toggle Led1
     else
     If PortB.5 = 0 then
     Toggle Led1
     else
     If PortB.6 = 0 then
     Toggle Led1
     else
     Endif:Endif:Endif:Endif:Endif:Endif
@ INT_RETURN
thanks in advance
tacbanon