Si quieres hacer un proyecto con el 12F508/9, tiene que ser algo muy sencillo.
;**********************************
;teporizador en minutos y segundos
;con pic 16f84a
;**********************************
;CONFIGURACIÓN PIC
@ DEVICE pic16F84A
@ DEVICE WDT_ON
@ DEVICE PWRT_ON
@ DEVICE PROTECT_OFF
@ DEVICE xt_osc
define osc 4
;REGISTROS LCD
Define LCD_DREG PORTB
Define LCD_DBIT 0
Define LCD_RSREG PORTB
Define LCD_RSBIT 4
Define LCD_EREG PORTB
Define LCD_EBIT 5
Symbol Minutos = PORTA.1 ; AJUSTE MINUTOS
Symbol Segundos = PORTA.2 ; AJUSTE SEGUNDOS
symbol Out = PORTB.7 ; SALIDA CONTROL
symbol START = PORTA.3 ; INICIO CONTEO
SYMBOL STOP_ = PORTB.6 ; DETIENE CONTEO
;VARIABLES
Pulsos VAR byte
Mts VAR byte
Sds VAR byte
Disp VAR byte
Delay VAR byte
CLEAR
TRISB = %01000000
TRISA = %00011111
PAUSE 500
Mts = 03 'aquí cuadramos el tiempo en que iniciara
Sds = 00
pulsos = 0
OPTION_REG = %00000101 ; prescaler = 64
On INTERRUPT GOTO ISR ; IR A RUTINA ISR
INTCON = %10100000
LCDOUT $FE, 1 ;LIMPIA LCD
;INCIO DEL PROGRAMA
LOOP:
;BOTÓN START
IF START = 0 THEN ; si el boton start es presionado ejecuta lo siguiente
TMR0 = 0 ;Inicializa registro TMR0
INTCON = $A0 ;habilita el timer interrupt
Disp = 1 ; habilita display
Gosub Retardo
ENDIF
;BOTÓN STOP
IF STOP_ = 0 THEN ; si el boton stop es presionado ejecuta lo siguiente
INTCON = 0 ;desabilita el timer
Disp = 1 ; habilita display
Gosub Retardo
ENDIF
;BOTÓN PROGRAMAR LOS MINUTOS
IF Minutos = 0 THEN
Mts = Mts - 1
Gosub retardo
ENDIF
;BOTÓN PROGRAMAR LOS SEGUNDOS
if Segundos = 0 then
Sds = Sds - 1
Gosub retardo
ENDIF
'******************************
IF Mts = 60 AND Sds = 60 THEN'*
out = 1 '*
gosub MENSAJE_FIN '*
else '*
out = 0 '*
ENDIF '*
'******************************
IF Disp = 1 THEN
LCDOUT $FE, 1
LCDOUT $FE, 2
Lcdout "Tiempo de espera "
LCDOUT $FE,$C4,DEC2 Mts, ":",DEC2 Sds
LcdOut $fe,$C16, 0
LCDOUT $fe,$40,$00,$0A,$0A,$00,$04,$11,$0E,$00 'aqui tenemos la carita feliz :)
Disp = 0
ENDIF
GOTO LOOP
;ANTIRREBOTE
Retardo:
FOR Delay = 1 To 200
Pause 1
NEXT Delay
Disp = 1
RETURN
;EJECUCION DE UN SEGUNDO
DISABLE
ISR:
IF Mts < 0 OR Sds > 0 THEN 'OJO sí se cambia esta función no funciona el conteo
pulsos = pulsos + 1
IF pulsos < 61 THEN NoUpdate
endif
;TIEMPO
Retro:
pulsos = 0
IF Sds = 0 AND Mts => 0 then
Mts = Mts - 1
Sds = 61
endif
if mts > 60 then mts = 60
if mts = 0 then mts = 0
'ALARMA
IF Mts = 60 AND Sds = 60 THEN
pulsos = pulsos
INTCON = 0 ;desabilita el timer
else
TMR0 = 0 ;Inicializa registro TMR0
INTCON = $A0 ;habilita el timer interrupt
Disp = 1 ; habilita display
Sds = Sds - 1
endif
return
mensaje_fin:
LCDOUT $FE, 2
Lcdout " <<FINALIZADO>> "
LCDOUT $FE,$C1," PULSE CLEAR"
return
NoUpdate:
INTCON.2 = 0
Resume
ENABLE
END
Tienes que leer la hoja de datos para que te dés cuenta porqué no te funciona bien cuando usas el puerto A.
Sube tu código para ver por qué no esta funcionando tu programa.
¿Y por qué no haces las rutinas para las funciones que requieres?
'*******************************************************************************
' DEFINICIÓN DE FUSES Y OSILADOR
@ device pic16F628A, intrc_osc, pwrt_on, wdt_off, mclr_off, lvp_off, protect_off
DEFINE OSC 4
'*******************************************************************************
CMCON = 7
TRISA = %00000000
TRISB = %00000010
'*******************************************************************************
DEFINE HSER_BAUD 9600
DEFINE Hserial_RCSTA %10010000
DEFINE Hserial_TXSTA %00100100
DEFINE Hserial_Clear On
dato var byte
'*******************************************************************************
PORTA = %00000000
PORTB = %00000000
'*******************************************************************************
inicio:
HSERIN 50,inicio,[Dato]
if dato = 1 then
PORTA.0 = 1
pause 500
goto inicio
endif
if dato = 2 then
PORTA.0 = 0
pause 500
goto inicio
endif
ENDAl parecer esos módulos se comunican por medio de comandos AT.
'*******************************************************************************
DEFINE HSER_BAUD 9600
DEFINE Hserial_RCSTA %10010000
DEFINE Hserial_TXSTA %00100100
DEFINE Hserial_Clear On'*******************************************************************************
' INICIALIZANDO USART
SPBRG = 25
RCSTA = %10010000
TXSTA = %00100100
'*******************************************************************************if dato = 1 then
PORTA.0 = 1
pause 500
goto inicio
endif
if dato = 2 then
PORTA.0 = 0
pause 500
goto inicio
endifif dato = "1" then
PORTA.0 = 1
pause 500
goto inicio
endif
if dato = "2" then
PORTA.0 = 0
pause 500
goto inicio
endif'**********************************************************************
' control servo con pulsador rotativo
@ device pic16F628A,intrc_osc,pwrt_on,wdt_off,mclr_off,lvp_off,protect_off
DEFINE OSC 4
'**********************************************************************
CMCON = 7
TRISB = 0
PORTB = 0
'**********************************************************************
pulso1 var porta.0
pulso2 var porta.1
servo1 var portb.0
x var byte
x = 150
inicio:
pulsout servo1,x
gosub timer
goto inicio
timer:
if ; aquí sería sí primero pulso1 y luego pulso2 entonces ir a "mas"
pulso1 = 0
pause 10
pulso2 = 0
pause 10
then gosub mas
endif
return
if ; aquí sería sí primero pulso2 y luego pulso1 entonces ir a "menos"
pulso2 = 0
pause 10
pulso2
pause 10
then gosub menos
endif
return
mas:
pause 10
x=x+1
if x > 250 then x = 250
return
menos:
pause 10
x=x-1
if x < 50 then x = 50
return
endhola a todos.
les cuento que revisando el sistema de los mouse ópticos encontré que el componente que va en la rueda hace dos pulsos en secuencia así: 0-0, 1-0, 1-1, 0-1, 0-0, en un sentido y en el otro sentido la secuencia es contraria así: 0-0, 0-1, 1-1, 1-0, 0-0 y pensé sera que no se podrá controlar un servo con este sistema en lugar de un potenciometro? y escribí este código pero no funciona obviamente a primera vista se ve que tiene errores de sintaxis sera que alguien entiende lo que quiero hacer y puede ayudarme a ver como se corrigen estos errores?
Este es el código............
eso es un encoder y obviamente se podria implementar para tu proposito (yo diria que es lo ideal )... 
Hola ferdy...
Fijate que vos describis justamente los pulsos :
Solo tienes que tener en cuenta que el registro donde va a estar la variable para que sepa cual es la posicion (ida o venida), tiene que ser un espacio de memoria que no se borre o vea afectado por nada, ya que ahi esta el corazon del proyecto...
Buscate la hoja de datos de ese encoder por que los hay de distintos tipos, asi te doy una mano
Así como tienes el programa no funcionará el contador del puerto D.
inicio:
for i = 0 to 9
portb = i
pause 100
next i
for i2 = 9 to 0 [B]step - 1[/B]
portd = i2
pause 100
next i2
goto inicio
