;*********************************************************************************************
;
; Nombre: Reloj alarmas
; Fecha: 25-07-2010
; Version: V1.00
;
; Autor: Miquel_S
;
;*********************************************************************************************
;
; Archivos Requeridos: P18F4550.INC
;
;*********************************************************************************************
; Notas:
;*********************************************************************************************
;
LIST P=18F4550 ;Directiva para definir el procesador
INCLUDE <P18F4550.INC> ;Definicion de SFRs para el procesador
;
;*********************************************************************************************
;Bits de Configuracion
;Revisar el archivo P18F2550.INC para info adicional
;
;*********** Configuracion del Oscilador ************
;
CONFIG FOSC = INTOSC_HS ;Internal oscillator, HS used by USB
;
;*********** Otros bits de configuracion ***********
;
CONFIG PWRT = ON ;PWRT habilitado
CONFIG BOR  = OFF ;Brown out reset deshabilitado
CONFIG WDT = OFF ;Watchdog deshabilitado
CONFIG MCLRE = OFF ;MCLR como entrada
CONFIG PBADEN = OFF ;Todos los pines como entradas digitales
CONFIG LVP = OFF ;Programacion en bajo voltaje apagado
CONFIG DEBUG = OFF ;Background debugger disabled, RB6 and RB7 configured as general purpose I/O pins
;
;***********     Bits de proteccion              ***********
;
CONFIG CP0 = OFF ;los bloques del codigo de programa
CONFIG CP1 = OFF ;no estan protegidos
CONFIG CP2 = OFF
CONFIG CP3 = OFF
CONFIG CPB = OFF ;Sector Boot no esta protegido
CONFIG CPD = OFF ;La EEPROM no esta protegida
;
;*********************************************************************************************
;
;---------------------------------------------------------------
;VARIABLES.
;---------------------------------------------------------------
;
CBLOCK H'60'

ENDC
;
RESET ORG H'00'
GOTO MAIN ;Va a la primera instruccion del programa
ORG H'05' ;Salta el Vector de Interrupcion
;
;
MAIN         bsf STATUS,RP0 ;Cambiamos al banco 1
bcf STATUS,RP1
clrf         TRISB         ;Puerta B como salida
movlw b'00000110'         ;Puerta A E/S digitales
movwf ADCON1
movlw b'00000110'         ;RA1-RA2 entradas
movwf TRISA
bcf STATUS,RP0 ;Cambiamos al banco 0
clrf         PORTB ;Borrado de lineas Puerta B
clrf         PORTA ;Borrado de lineas Puerta A
;
END