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?
thanks in advanceCode: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
tacbanon




Bookmarks