What is the purpose of while true nop?
program Traps1 dim a as word sub procedure IntDet org $0014 ‘vector INT0 Dec(LATB) ‘portB is decremented IFS0.0 = 0 ‘interrupt flag cleared end sub sub procedure TrapTrap org $000C INTCON1.4 = 0 ‘the problem is solved by setting ‘port B to a nonzero value LATB = 3 Inc(LATD) end sub main: TRISB = 0 TRISD = 0 TRISF = \$FFFF LATB = 3 LATD = 0 IFS0 = 0 ‘interrupt flag cleared INTCON1 = 0 ‘trap flag cleared IEC0 = 1 ‘interrupt on rising edge INT0 (RF6) enabled while true a = 256 div LATB ‘if LATB=0 error occured and TrapTrap is called wend end.