;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;***************************************************************************************************
;
; Emcabezado del PIC
;
LIST P=16F876
#INCLUDE "P16F876.INC"
__CONFIG _CP_ALL & _DEBUG_OFF & _PWRTE_ON & _CPD_OFF & _WDT_OFF & _BODEN_OFF & _LVP_OFF & _XT_OSC
ERRORLEVEL -302,-306
RADIX HEX
;
;***************************************************************************************************
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
;
ORG 0 ; El programa comienza en la dirección 0.
goto Inicio
ORG 0x04
goto INTER
INTER;pongo a 0 el flag, aunque no hace falta
bcf PIR1,0
;Enciendo los LEDS
bsf PORTA,0
bsf PORTA,1
retfie
Inicio ;BANCO 1
bsf STATUS,RP0 ; Acceso al Banco 1.
movlw 0X06
movwf ADCON1
clrf TRISA ;PUERTO A como salida
bcf STATUS,RP0 ; Acceso al Banco 0.
bcf PORTA,0
bcf PORTA,1
;Paramos el timer 1
movlw 0x00
movwf T1CON
;ponemos a 0 los valores de recarga
clrf TMR1L
clrf TMR1H
;ponemos a 0 el flag
bcf PIR1,0
;activamos la interrupciones
bsf INTCON,6
;activamos la interrupcion del timer1
bsf STATUS,RP0 ; Acceso al Banco 1.
bsf PIE1,0
;activemos el timer1
bcf STATUS,RP0 ; Acceso al Banco 1.
bsf T1CON,0
bsf INTCON,GIE;nuevo!!!!
goto Principal
Principal
goto Principal ; Crea un bucle cerrado e infinito.
END ; Fin del programa.