Trisb=%00000000 ;convierte todos los pines del puerto B en salidas
discoteca: ;nombre de la subrutina
Portb=%00000001 ;enciende el puerto B.0, los demás permanecen apagados
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00000010 ;enciende el puerto B.1, los demás les apaga
GOSUB pedro ; ir a subrutina tiempo y volver cuando diga RETURN
Portb=%00000100 ;enciende el puerto B.2, los demás les apaga
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00001000 ;enciende el puerto B.3, los demás les apaga
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00010000 ;enciende el puerto B.4, los demás les apaga
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00100000 ;enciende el puerto B.5, los demás les apaga
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%01000000 ;enciende el puerto B.6, los demás les apaga
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%10000000 ;enciende el puerto B.7, los demás les apaga
GOSUB pedro ; ir a subrutina pedro y volver cuando diga RETURN
GOTO discoteca ; ir al inicio del programa
pedro: ;esta es la subrutina pedro
PAUSE 200 ;retardo de 200 milisegundos, aquí podemos cambiarlo
RETURN ;volver al GOSUB que le envió
IF porta.4 = 1 THEN discoteca
IF porta.4 = 0 then
Trisb=%00000000 ;convierte todos los pines del puerto B en salidas
discoteca1: ;nombre de la subrutina
Portb=%00000001 ;enciende el puerto B.0, los demás permanecen apagados
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00000010 ;enciende el puerto B.1, los demás les apaga
GOSUB pedro1 ; ir a subrutina tiempo y volver cuando diga RETURN
Portb=%00000100 ;enciende el puerto B.2, los demás les apaga
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00001000 ;enciende el puerto B.3, los demás les apaga
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00010000 ;enciende el puerto B.4, los demás les apaga
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00100000 ;enciende el puerto B.5, los demás les apaga
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%01000000 ;enciende el puerto B.6, los demás les apaga
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%10000000 ;enciende el puerto B.7, los demás les apaga
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%01000000
GOSUB pedro1 ; ir a subrutina pedro y volver cuando diga RETURN
Portb=%00100000
GOSUB pedro1
Portb=%00010000
GOSUB pedro1
Portb=%00001000
GOSUB pedro1
Portb=%00000100
GOSUB pedro1
Portb=%00000010
GOSUB pedro1
Portb=%00000001
GOSUB pedro1
GOTO discoteca1 ; ir al inicio del programa
pedro1: ;esta es la subrutina pedro
PAUSE 200 ;retardo de 200 milisegundos, aquí podemos cambiarlo
RETURN ;volver al GOSUB que le envió