incrementar VAR portb.1 \'Nombre para el pin b1("incrementar")
disminuir VAR portb.2 \'Nombre para el pin b2("disminuir")
LED var portb.3 \'Nombre para el pin b3("LED")
FRECUENCIA Var BYTE \'Declaramos la variable frecuencia como 1byte osea 255
bandera var bit \'Declaramos una variable bandera como 1 bit
FRECUENCIA = 125 \'Iniciamos la frecuencia en 125
HIGH LED \'Encendemos el LED para confirmar que el programa arranco bien
PAUSE 500 \'Se mantiene encendido por medio segundo
LOW LED \'Apagamos el LED
PROG:
PWM portb.0,FRECUENCIA,30 \'Enviamos 30 ciclos al motor y el valor de frecuencia
if incrementar =0 then SUBIR \'Si se pulsa el boton de incremento nos envia a SUBIR
if disminuir =0 then BAJAR \'Si se pulsa el boton de disminuir nos envia a bajar
bandera =0 \'Valor de variable bandera en 0
GOTO PROG
SUBIR:
if bandera =1 then prog \'si el Valor de variable bandera es 1 ir a prog
HIGH LED \'Enciende el led
bandera=1 \'Valor de variable bandera en 1
FRECUENCIA=FRECUENCIA+25 \'Incrementamos la variable frecuencia en 25
GOTO PROG
BAJAR:
if bandera =1 then prog \'Si el valor de bandera es 1 ir a prog
HIGH LED \'Encendemos el led
bandera=1 \'Valor de bandera en 1
FRECUENCIA=FRECUENCIA-25 \'Disminuimos la variable frecuencia en 25
GOTO PROG