@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT ' Opción del Osc Interno
' Define osc 4
@ DEVICE pic16F628A, WDT_ON ' Watchdog Timer ON
@ DEVICE pic16F628A, PWRT_ON ' Power-On Timer
@ DEVICE pic16F628A, BOD_ON
@ DEVICE pic16F628A, MCLR_OFF ' Master Clear Opción interno
@ DEVICE pic16F628A, LVP_OFF ' Bajo voltaje de programación
@ DEVICE pic16F628A, CPD_OFF ' Protección del código de memoria OFF
@ DEVICE pic16F628A, PROTECT_OFF' protección de código OFF
CmCon=7
TrisB=0
DEFINE LCD_DREG PORTB 'UTILIZAR 4 BITS DEL PUERTO B PARA TX DE DATOS
DEFINE LCD_DBIT 4 'DESDE EL BIT B.4 AL BIT B.7
DEFINE LCD_RSREG PORTB'UTILIZAR EL REGISTRO DE CONTROL/DATOS EN EL PUERTO B
DEFINE LCD_RSBIT 1 'EN EL BIT B.1
DEFINE LCD_EREG PORTB 'UTILIZAR EL ENABLE EN EL PUERTO B
DEFINE LCD_EBIT 3 'EN EL BIT B.3
passd var word
data @2,$07,$DF ' graba esto al quemar el pic en la eeprom
read 2,passd.highbyte 'lee la posicion2 que es 07 y lo coloca en la parte alta del byte
read 3,passd.lowbyte 'lee la posicion3 que es DF y lo coloca en la parte baja del byte
'como 07DF es 2015 en decimal entonces la variable passd=2015
passd=2013 'cambiamos el valor de passd
'como 2013 en hex = 07DD
write 2,passd.highbyte 'colocamos la parte alta que es $07 en la posicion 2
write 3,passd.lowbyte 'colocamos la parte baja que es $DD en la posicion 3
'la eeprom quedaria asi...
'00 07 DD
Lcdout $fe, 2,dec passd
esto es igual para los 3 primeros botones, hasta aqui si es como quiero que quede, bueno el problema es que e intentado hacer que el cuarto boton al accionarlo se prenda un cuarto led (como si indicara que se reiniciaria el programa) y despues se apague junto con los demas como un reset y se le borren los datos al lcd y al pic, osea que me reinicie el programa para empezar con el conteo de los primeros 3 botones (estoy usando la memoria del PIC para que en caso de que se me corte la energia que energiza a este o algo por el estilo pues se queden almacenados los conteos y si se vuelve a energizar pues sigue el ciclo en el que se quedo).define osc 4 ; especifica que se va a utilizar uno de 4 Mhz
TRISB = %00000000 ; PUERTO B COMO SALIDA
EN1 VAR PORTB.0
IN2 VAR PORTB.1
IN1 VAR PORTB.2
EN2 VAR PORTB.3
IN3 VAR PORTB.4
IN4 VAR PORTB.5
POT_VAL VAR BYTE ; VARIABLE PARA EL POTENCIOMETRO
MOT_PWR VAR BYTE ;
INICIO: ;
pot PORTA.0,255,POT_VAL
SELECT CASE POT_VAL ; IMPLEMENTACION DE DECISIONES
CASE IS <128
MOT_PWR = 127-POT_VAL
HIGH IN2: LOW IN1: HIGH IN3: LOW IN4
CASE 128
MOT_PWR = 0
CASE IS >128
MOT_PWR = POT_VAL-127
LOW IN2: HIGH IN1: LOW IN3: HIGH IN4
CASE ELSE ;
END SELECT ;
PWM EN1, MOT_PWR, 30 : PWM EN2, MOT_PWR, 30
GOTO INICIO
END
HIGH IN2: LOW IN1: low IN3: high IN4
CASE 128
MOT_PWR = 0
CASE IS >128
MOT_PWR = POT_VAL-127
LOW IN2: HIGH IN1: high IN3: low IN4
CASE ELSE ;
END SELECT ;
PWM EN1, MOT_PWR, 30 : PWM EN2, MOT_PWR, 30
GOTO INICIO
END
