Oscilador de un segundo

[Johnny Meza Domínguez]

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

 

[aerodesliza]

Por que no lo haces mejor en C?

 

[Johnny Meza Domínguez]

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

 

[tiggerleon]

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.

 

[El nombre]

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