Tengo duda de como modificar este programa para que de el recorrido por el extremo derecho y para que tambien lo de por el extremo izquierdo ya que este programa solo lo da por el extremo derecho
List P=16f84A
#include P16F84A.inc
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
#DEFINE SensorDerecha PORTA,0 ;Sensor óptico Derecho.
#DEFINE SensorIzquierda PORTA,1 ;Sensor óptico Izquierdo.
;ZONA DE CODIGOS********************************************************************
ORG 0
Inicio bsf STATUS,RP0 ;Selecciona Banco 1 de registros.
bsf SensorDerecha ;Estas lineas se configuran como entradas.
bsf SensorIzquierda
clrf PORTB ;Las lineas del puerto B se configuran como salidas.
bcf STATUS,RP0 ;Selecciona Banco 0 de registros.
Principal
movlw b'00001110' ;Para girar a la derecha.
btfss SensorDerecha ;¿Ha salido por la derecha?,¿Detecta blanco?
goto ActivaSalida ;No,el detector derecho está encima de la linea
;negra gira a la derecha.
movlw b'00000111' ;Para girar a la izquierda.
btfss SensorIzquierda ;¿Ha salido tambien por la izquierda?
movlw b'00001111' ;No,está en el borde derecho.Sigue recto.
ActivaSalida
movwf PORTB
goto Principal
END
Gracias foreros
List P=16f84A
#include P16F84A.inc
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
#DEFINE SensorDerecha PORTA,0 ;Sensor óptico Derecho.
#DEFINE SensorIzquierda PORTA,1 ;Sensor óptico Izquierdo.
;ZONA DE CODIGOS********************************************************************
ORG 0
Inicio bsf STATUS,RP0 ;Selecciona Banco 1 de registros.
bsf SensorDerecha ;Estas lineas se configuran como entradas.
bsf SensorIzquierda
clrf PORTB ;Las lineas del puerto B se configuran como salidas.
bcf STATUS,RP0 ;Selecciona Banco 0 de registros.
Principal
movlw b'00001110' ;Para girar a la derecha.
btfss SensorDerecha ;¿Ha salido por la derecha?,¿Detecta blanco?
goto ActivaSalida ;No,el detector derecho está encima de la linea
;negra gira a la derecha.
movlw b'00000111' ;Para girar a la izquierda.
btfss SensorIzquierda ;¿Ha salido tambien por la izquierda?
movlw b'00001111' ;No,está en el borde derecho.Sigue recto.
ActivaSalida
movwf PORTB
goto Principal
END
Gracias foreros