test

[ScaleRobotics]

<table border="0" cellpadding="0" cellspacing="0"> <tbody><tr style="background-color: rgb(210, 210, 210); height: 30px;"> <td> </td> <td style="color: rgb(102, 102, 102); font-weight: bold; font-family: tahoma,sans-serif; font-size: 11px; line-height: 15px; padding-right: 5px;" align="right"> Look inside > </td> </tr> <tr style="background-color: rgb(255, 255, 255);"> <td colspan="2" style="padding: 10px 0px;" align="center"> </td> </tr> <tr style="background-color: rgb(210, 210, 210); height: 30px;"> <td colspan="2" style="color: rgb(102, 102, 102); font-weight: bold; font-family: tahoma,sans-serif; font-size: 11px; line-height: 15px;" align="center"> Getting Started with PICs </td> </tr> </tbody></table>

[ScaleRobotics]

LED1   VAR  PORTD.0
LOW  LED1                    ; Set to Output Low

INCLUDE "DT_INTS-14.bas"     ; Base Interrupt System

ASM
INT_LIST  macro    ; IntSource,        Label,  Type, ResetFlag?
        INT_Handler   TMR1_INT,   ToggleLED1,   ASM,  yes
    endm
    INT_CREATE               ; Creates the interrupt processor

    INT_ENABLE  TMR1_INT     ; Enable Timer 1 Interrupts  
ENDASM

T1CON = $31                  ; Prescaler=8, TMR1ON

Main:
    PAUSE 1
GOTO Main

'---[TMR1_INT - interrupt handler]------------------------------------------
ASM
ToggleLED1
    btfsc  _LED1
    goto   $+3
    bsf    _LED1
    goto   $+2
    bcf    _LED1
    INT_RETURN
ENDASM

LED1 VAR PORTD.0
LOW LED1 ; Set to Output Low

INCLUDE &quot;DT_INTS-14.bas&quot; ; Base Interrupt System

ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler TMR1_INT, ToggleLED1, ASM, yes
endm
INT_CREATE ; Creates the interrupt processor

INT_ENABLE TMR1_INT ; Enable Timer 1 Interrupts
ENDASM

T1CON = $31 ; Prescaler=8, TMR1ON

Main:
PAUSE 1
GOTO Main

'---[TMR1_INT - interrupt handler]------------------------------------------
ASM
ToggleLED1
btfsc _LED1
goto $+3
bsf _LED1
goto $+2
bcf _LED1
INT_RETURN
ENDASM


LED1 VAR PORTD.0
LOW LED1 ; Set to Output Low

INCLUDE &quot;DT_INTS-14.bas&quot; ; Base Interrupt System

ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler TMR1_INT, ToggleLED1, ASM, yes
endm
INT_CREATE ; Creates the interrupt processor

INT_ENABLE TMR1_INT ; Enable Timer 1 Interrupts
ENDASM

T1CON = $31 ; Prescaler=8, TMR1ON

Main:
PAUSE 1
GOTO Main

'---[TMR1_INT - interrupt handler]------------------------------------------
ASM
ToggleLED1
btfsc _LED1
goto $+3
bsf _LED1
goto $+2
bcf _LED1
INT_RETURN
ENDASM