PIC18F4525 Part 019: Timers More! (in Assembly Language)

[@2bit661]

; free sample code (copy and paste)
INIT org 0x00
MOVLW B'01110100' ; (01100000 binary for 4Mhz as alternative)
MOVWF OSCCON ; internal oscillator is 8 MHZ
MOVLW B'00000000'
MOVWF ADCON0 ; turns ADC off
MOVLW B'00001111'
MOVWF ADCON1 ; sets all but in portA digital

BCF TRISB, 5
MOVLW 0x0
MOVWF T3CON
HERE MOVLW 0x9E
MOVWF TMR3H
MOVLW 0x58
MOVWF TMR3L
BCF PIR2, TMR3IF
CALL DELAY
BTG PORTB, RB5
BRA HERE
DELAY BSF T3CON, TMR3ON
AGAIN BTFSS PIR2, TMR3IF
BRA AGAIN
BCF T3CON, TMR3ON
RETURN

End