Oscilador de un segundo

estoy utilizando el pic 16f877 para construir un oscilador y no funciona he revisado la programación y no encuentro la falla agradeceré su ayuda el programa está en archivo adjunto.

Saludos

Johnny Meza

Por que no lo haces mejor en C?

lo estoy haciendo en asembler. Aquie está el codigo alguien que me pudiera ayudar? se los agradezco.

LIST P=16F877
INCLUDE<P16F877.INC>

TEMP1 EQU 0X20


ORG 0000H
BSF STATUS,RP0 ;BANCO -1
MOVLW B'11111110'
MOVWF TRISB ;RB0, RB1 Y RB2 COMO SALIDA
BCF STATUS,RP0 ;BACO -0
MOVLW B'00001011'
MOVWF T1CON ;TMR1 EN ON/PRE:X1/OSCILADOR EN ON
CLRF TEMP1
;-------------------------------------------------------------
MOVLW .10
MOVWF TEMP1
REPITE
BTFSS PORTD,0 ;?PORTD=1?
GOTO $-1
BCF PORTB,0 ;RB0 FORZADO A CERO
CALL SEGUNDO ; 1 S
DECFSZ TEMP1 ; ?TEMP-1=0?
GOTO REPITE
BSF PORTB,0 ; RBO FORZADO A 1
GOTO $
;*************************************************************
SEGUNDO
CLRF TMR1L
CLRF TMR1H
MOVLW H'00'
MOVWF TMR1L ; TMR1L = 00H
MOVLW H'80'
MOVWF TMR1H ; TMR1H = 80H
BTFSS PIR1,TMR1IF ; ?TMR1IF=1?
GOTO $-1 ; NO --> SIGUE PREGUNTANDO
BCF PIR1,TMR1IF ; SI --> PASARON 1 S
RETURN
END

que complicados para hacer oscilador de 1 segundo. yo prefiero adaptar una etapa TTL al circuito de un reloj comercial de pared y listo. 1 segundo controlado con cristal sin dificultad. no creen?

Disculpen por mi ignorancia.

Saludos.

Como es normal en mi:
Pego codigo para aburrir al perosonal.
En el, LLAmando a la subrutian, tienes lo que precisas y alguno más.

cristal a 4mhz