TMR0 como contador de eventos con reloj externo
LIST P=16F877A INCLUDE <P16F877A.INC> CBLOCK 0X20 CUENTA ENDC ORG 0X2007 DW 0X3F7A ORG 0X0000 BANKSEL TRISA ; Bank 1 BSF TRISA,4 ;RA4/TPCKI de Entrada para el sensor CLRF TRISB ;Puerto B de salida MOVLW B'00101000' ; Programacion del TMR0 MOVWF OPTION_REG ; Reloj externo. Vanco de bajada. sin Prescalar BANKSEL PORTA ; Bank 0 INICIO: CLRF CUENTA ABC: MOVFW CUENTA XORLW .10 BTFSC STATUS,Z GOTO INICIO MOVFW CUENTA MOVWF PORTB CALL DELAY INCF CUENTA,F GOTO ABC MOVWF TMR0 SENSA: BTFSS INTCON,TMR0IF GOTO SENSA BCF INTCON,TMR0IF RETURN CLRF PORTB DELAY: MOVLW .2 END