Tengo algunos errores aun se alenta demasiado y me falta kreo alguna instruccion, porqe al dejar oprimido el pulsador debe de leer los numero que pueda, y al soltarlo kedarse en el qe continue. siendo asi que al oprimir el pulsador rote bit por bit, pero que al dejarlo oprimido tambien continue con la lectura, voy a subir mi codigo sale y no fue culpa tuya tapi8 , fue error mio te repito, tengo muchos programas qe hice para hallar el error y mande el equivocado pero aqi va el qe ya me funciono con lentitud pero funciono y ya solo le falta la otra instruccion.
;**** Programa principal ****
;**** Configuracion de puertos ****
Inicio
bsf STATUS,RP0 ; Pasamos de Banco 0 a Banco 1.-
movlw b'10000000' ;RB7 como entrada y los demas como salida
movwf TRISB ; PORTB como salida.-
bcf STATUS,RP0 ; Paso del Banco 1 al Banco 0
movlw b'00000001' ;Comienza en cero
call Config_Tabla ; Cargamos registros con Codigo de 7 segmentos.-
movfw INDF ; Leemos codigo de 7 Segmentos para el CERO.-
movwf PORTB ; Mostramos el CERO.-
;**** Testeo de Pulsador ****
Bucle
btfss PORTB,Pulsador
goto Incremento
oto Bucle
call Demora_190ms ; Para anti-rebote Pulsador
btfsc PORTB,Pulsador ; Testeamos nuevamente
goto Bucle ; Falsa alarma.
Incremento
incf FSR,1 ; Incrementamos Puntero.-
movlw 0x3A ; Consulamos si se pide codigo para mostrar "10",
subwf FSR,0 ; si es asi reseteamos FSR, apunta a 0x30--> "0".-
btfss STATUS,Z ; Si Z=1 --> 0x3A - FSR = 0.-
goto Muestro_Display ; No, muestro display.-
movlw 0x30 ; Si reseteo puntero.-
movwf FSR ;
goto Muestro_Display
Muestro_Display
movfw INDF ; Leo Registro que apunta FSR.-
movwf PORTB ; Lo cargo en PORTB.-
goto Bucle ; Continuo conteo.-
;**** Demora ****
Demora_190ms
movlw 0xFF ;
movwf Contador1 ; Iniciamos contador1.-
Repeticion1
movlw 0xFF ;
movwf Contador2 ; Iniciamos contador2
Repeticion2
decfsz Contador2,1 ; Decrementa Contador2 y si es 0 sale.-
goto Repeticion2 ; Si no es 0 repetimos ciclo.-
decfsz Contador1,1 ; Decrementa Contador1.-
goto Repeticion1 ; Si no es cero repetimos ciclo.-
return ; Regresa de la subrutina.-