Electrico

;****************************************************************************************
;Programa de control de velocidad de un motor de corriente continua mediante la modulacion
;de anchura depulso(PWM) donde el control de tiempos se realiza
;interrupciones por desbordamiento del Timer 0.

;El sentido de giro del motor se decide en funcion del valor dc de la linea RA4.

;El control delas lineas de salida se realizara mediante direccionamiento por bit con
;las instrucciones "bsf" y "bcf".

;ZONA DE DATOS***************************************************************************__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
LIST P=16F84A
INCLUDE

CBLOCK 0x0C
CicloTrabajo ;Ciclo de trabajo deseado.
GuardaEntrada
Timer0_ContadorA;Contador auxiliar.
ENDC

TMR0_Carga EQU -d'245' ;Valor obtenido experimentalmente con la ventana
;Stopwatch para un tiempo de 1ms.
MaximaEntrada EQU .10

#DEFINESalidaSentido0 PORTB,0 ;Salidas que determinan el sentido de giro.
#DEFINE SalidaSentido1 PORTB,1
#DEFINE SalidaMarcha PORTB,4 ;Salida de puesta en marcha o paro del motor.
#DEFINE EntradaSentidoPORTA,4 ;Interruptor de sentido de giro.

;ZONA DE CODIGOS*************************************************************************

ORG 0
goto Inicio
org .4
goto Timer0_InterrupcionInicio
bsf STATUS,RP0
bcf SalidaMarcha ;Estas lineas se configuran como salida.
bcf SalidaSentido0
bcf SalidaSentido1
movlw b'00011111' ;Puerto A configurado comoentrada.
movwf PORTA
movlw b'00000001' ;TMR0 con prescaler de 4.
movwf OPTION_REG
bcf STATUS,RP0
bcf SalidaMarcha ;Al principio el motor parado.
Principal
btfsc EntradaSentido;Comprueba el sentido de giro deseado.
goto OtroSentido
bsf SalidaSentido0 ;Gira en un sentido.
bcf SalidaSentido1
goto TesteaVelocidad
OtroSentido
bcf SalidaSentido0 ;Gira...