INCLUDE "modedefs.bas"
@ device pic12F683, FCMEN_OFF
@ device pic12F683, IESO_OFF
@ device pic12F683, BOD_OFF
@ device pic12F683, CPD_OFF
@ device pic12F683, PROTECT_OFF
@ device pic12F683, MCLR_OFF
@ device pic12F683, PWRT_ON
@ device pic12F683, WDT_OFF
@ device pic12F683, INTRC_OSC_NOCLKOUT
OSCCON = $60 ' Internal 4MHz osc
DEFINE OSC 4
ADCON0 = 0 ' A/D off
CMCON0 = 7 ' Comparators off
ANSEL = 0 ' Set all digital
WPU = 0 ' Internal pull-ups = off
trisio = $8
pulsador var GPIO.3
led1 var GPIO.1
led2 var GPIO.2
led3 var GPIO.0
led4 var GPIO.4
led5 var GPIO.5
GPIO=0
inicio:
if pulsador=0 then ;pregunta si el pulsador es 0 entonces
gosub trampa ;salta a la etiqueta ciclo
goto prendido1 ;de lo contrario salta a la etiqueta prendido
endif
goto inicio
prendido1: ;etiqueta de salto
low led5
pause 200
high led1
pause 200 ;saque 1L por el pueto b.0
pregunta: ;etiqueta de salto
if pulsador=0 then ; pregunta si el pulsador es 0 entonces
goto prendido2 ; salta a la etiqueta apagado
endif
goto pregunta ;salte a pregunta hasta que presione nuevamente el pulsador
prendido2:
low led1
pause 200
high led2
pause 200
pregunta2:
if pulsador=0 then
goto prendido3
endif
goto pregunta2
prendido3:
low led1
pause 200
low led2
pause 200
high led3
pause 200
pregunta3:
if pulsador=0 then
endif
apagar:
pause 200
low led1
low led2
low led3
pause 200
preguntafinal:
if pulsador=0 then
goto preguntafinal
endif
goto inicio ;salte a la etiqueta inicio
trampa: ; etiqueta para salto llamada ciclo
if pulsador=0 then goto trampa ;si pulsador sigue presionado salte a trampa
return ;casco contrario retorne a la linea donde se quedo
end
pero algo es algo no?)....
