list p = 16f876;
#include <p16f876.inc>
;temporiza y parpadea portb,0
CONTADOR EQU 20H
TRANSICION EQU 21H
ORG 00H
GOTO INICIO
ORG 04H
BCF PIR1,0;Borro bandera
DECFSZ CONTADOR
GOTO CONTINUA;Va a retornar de la int,
BSF TRANSICION,0
GOTO VERSAL
VERSAL
MOVLW 0C8H;realiza 200 temporizaciones antes de variar salida
MOVWF CONTADOR
BTFSS PORTB,0;Analiza la salida
GOTO ACTIVAR;Va a activar salida
BCF PORTB,0;DESACTIVA
CONTINUA
RETFIE
ACTIVAR
BSF PORTB,0;activa
RETFIE
INICIO
BCF STATUS,6
BSF STATUS,5;banco 1
CLRF TRISB;B SALIDA
MOVLW 01H;HABILITA TMR1E
MOVWF PIE1
MOVLW 0C0H;
MOVWF INTCON;HABILITA GIE Y PERIFERICOS
BCF STATUS,5;BANCO 0
CLRF PORTB
BSF PORTB,1;COMPROBAR SI FUNCIONA EL MICRO
TIEMPO
BCF T1CON,0;desactivo el temp
MOVLW 0DCH
MOVWF TMR1L;CARGA TIMER1BAJO
MOVLW 0BH
MOVWF TMR1H;CARGA TIMER1ALTO
MOVLW 31H
MOVWF T1CON;PRESCALER 8 Y ACTIVA
NADA
GOTO NADA
GOTO TIEMPO
END