Start:
; *** Configuracion de perifericos ***
CLRF PORTB ; Initialize PORTB by clearing output data latches
MOVLW 0x00 ; Set PORTB as output
MOVWF TRISB ; Value used to initialize data direction
Main: BSF PORTB,2
RCALL DelayHigh
BCF PORTB,2
RCALL DelayLow
BRA Main
DelayHigh:
MOVLW 0xB2
MOVWF d1
MOVLW 0x01
MOVWF d2
Delay_0 DECFSZ d1, f
GOTO $+2
DECFSZ d2, f
GOTO Delay_0
GOTO $+1
NOP
RETURN
DelayLow:
MOVLW 0xEA
MOVWF d3
MOVLW 0x0F
MOVWF d4
Delay_1
DECFSZ d3, f
GOTO $+2
DECFSZ d4, f
GOTO Delay_1
GOTO $+1
NOP
RETURN
END ; Fin de programa