LIST P = 18F4550
INCLUDE <P18F4550.INC>
;###############################################################################
;Configuracion del PIC
CONFIG FOSC = HS ;INTOSC_XT
CONFIG PWRT = ON ;Retardo del Arranque del PIC 72ms despues.
CONFIG BOR = OFF ;Reinicio del PIC cuando se presenta inestabilidad en VDD
CONFIG WDT = OFF ;Reinicio de PIC si existe una falla.
CONFIG MCLRE = ON ;
CONFIG PBADEN = OFF
CONFIG LVP = OFF
CONFIG DEBUG = OFF
CONFIG XINST = OFF
;Area de Codigo
ORG 0x00
V_RESET ;Vector de Reset
nop
goto Configuracion ;Ir al inicio del Programa
Configuracion
clrf TRISB
movlw 0x1F
movwf TRISA
movlw 0x1F
movwf ADCON1
goto Inicio
Inicio clrf PORTB
Bit0 btfsc PORTA,0
call Secuencia_1
Bit1 btfsc PORTA,1
call Secuencia_2
Bit2 btfsc PORTA,2
call Secuencia_3
Bit3 btfsc PORTA,3
call Secuencia_4
Bit4 btfsc PORTA,4
call Secuencia_5
bra Bit0
INCLUDE <Secuencias.inc>
INCLUDE <RETARDOS.INC>
END ;Fin del programa