INVERSION GIRO DE MOTOR PAP

En este ejemplo haremos la inversion de giro de un motor pap unipolar con dos interruptores (Ra0 y Ra1), si solo cerramos un interruptor el motor girara en un sentido y para invertir el giro cerramos el otro interruptor.
Si por casualidad cerramos los 2 interruptores (Ra0 y Ra1) a la vez, el motor PAP girara una vuelta en un sentido y otra vuelta en el otro sentido indefinidamente, veamos el ckto.
Rb7 indica funcionamiento del motor pap.

Aqui  esta el programa para este ckto.

INVERSION GIRO DE MOTOR PAP

Trisb=%10000000      ; puerto B configurado como salida
Trisa=%11111111      ; Puerto A configurado como entrada

inicio1:                                       
IF porta.0=1 THEN gosub abrir
goto inicio2
inicio2:
IF PORTA.1=1 THEN gosub cerrar
GOTO inicio1

ABRIR:                      ;subrutina de giro de motor pap
portb=%10000001
PAUSE 50
portb=%10000010
PAUSE 50
portb=%10000100
PAUSE 50
portb=%10001000
PAUSE 50
RETURN

CERRAR:               ;subrutina de invrsion giro de motor pap
portb=%10001000
PAUSE 50
portb=%10000100
PAUSE 50
portb=%10000010
PAUSE 50
portb=%10000001
PAUSE 50
RETURN
END

Y aqui el archivo HEX. a pedido de un internauta

http://www.4shared.com/file/_ZBlHSo8/papinversiongiro.html