#tmr0

           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

           LIST P=16F877A            INCLUDE <P16F877A.INC>            CBLOCK  0X20

           ENDC            ORG 0X2007            DW 0X3F7A            ORG 0X0000            BANKSEL TRISA               ; Bank 1            BSF  TRISA,4                    ; RA4/T0CKI  de entrada para el SENSOR            CLRF TRISB                      ; Port B de salida a display            MOVLW  B'00111000'       ; Programacion del TMR0            MOVWF OPTION_REG     ; Reloj externo, flanco de bajada, sin Prescaler            BANKSEL PORTA             ; Bank 0

           CLRF       PORTB              ; Display off            CLRF   TMR0                     ; Cuenta inicial "0" ABC:   MOVFW  TMR0            XORLW   .9            BTFSC   STATUS,Z            GOTO     ULTIMO            MOVFW  TMR0            MOVWF  PORTB                 ; Salida del conteo  1° al 8° objeto            GOTO     ABC ULTIMO:            MOVFW  TMR0            MOVWF PORTB                 ; Salida de la cuenta del 9° objeto            GOTO $                               ; Fin de programa

           END