document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. incrementar VAR portb.1 \'Nombre para el pin b1("incrementar")
  2. disminuir VAR portb.2 \'Nombre para el pin b2("disminuir")
  3. LED var portb.3 \'Nombre para el pin b3("LED")
  4. FRECUENCIA Var BYTE \'Declaramos la variable frecuencia como 1byte osea 255
  5. bandera var bit \'Declaramos una variable bandera como 1 bit
  6.  
  7. FRECUENCIA = 125 \'Iniciamos la frecuencia en 125
  8.  
  9. HIGH LED \'Encendemos el LED para confirmar que el programa arranco bien
  10. PAUSE 500 \'Se mantiene encendido por medio segundo
  11. LOW LED \'Apagamos el LED
  12.  
  13. PROG:
  14. PWM portb.0,FRECUENCIA,30 \'Enviamos 30 ciclos al motor y el valor de frecuencia
  15. if incrementar =0 then SUBIR \'Si se pulsa el boton de incremento nos envia a SUBIR
  16. if disminuir =0 then BAJAR \'Si se pulsa el boton de disminuir nos envia a bajar
  17. bandera =0 \'Valor de variable bandera en 0
  18. GOTO PROG
  19.  
  20. SUBIR:
  21. if bandera =1 then prog \'si el Valor de variable bandera es 1 ir a prog
  22. HIGH LED \'Enciende el led
  23. bandera=1 \'Valor de variable bandera en 1
  24. FRECUENCIA=FRECUENCIA+25 \'Incrementamos la variable frecuencia en 25
  25. GOTO PROG
  26.  
  27. BAJAR:
  28. if bandera =1 then prog \'Si el valor de bandera es 1 ir a prog
  29. HIGH LED \'Encendemos el led
  30. bandera=1 \'Valor de bandera en 1
  31. FRECUENCIA=FRECUENCIA-25 \'Disminuimos la variable frecuencia en 25
  32. GOTO PROG
');