PROGRAMACIÓN PARA CADA UNO DE LOS MODULOS (FINAL)
SECUENCIAS (COMPLETAS)
___________________________________________________________
SECUENCIA COMPLETA
MODULO 001
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 002
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 003
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 004
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 005
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 006
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 007
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
SECUENCIA COMPLETA
MODULO 008
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 009
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 010
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 011
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 012
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 013
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 014
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
___________________________________________________________
SECUENCIA COMPLETA
MODULO 015
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $E1
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $87
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
portb = $80
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
SECUENCIA COMPLETA
MODULO 016
DEFINE osc 4
TRISA = $1F
TRISB = 0
secuencia1 VAR BYTE
secuencia2 VAR BYTE
secuencia3 VAR BYTE
secuencia4 VAR BYTE
secuencia5 VAR BYTE
secuencia6 VAR BYTE
inicio:
IF porta.1 = 1 THEN encendido
GOTO apagado
encendido:
FOR secuencia1 = 1 TO 20
portb = $E1
PAUSE 300
portb = $C3
PAUSE 300
portb = $87
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
NEXT secuencia1
IF porta.1 = 1 THEN encendido2
GOTO apagado
encendido2:
FOR secuencia2 = 1 TO 20
portb = $87
PAUSE 300
portb = $C3
PAUSE 300
portb = $E1
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
NEXT secuencia2
IF porta.1 = 1 THEN encendido3
GOTO apagado
encendido3:
FOR secuencia3 = 1 TO 20
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
NEXT secuencia3
IF porta.1 = 1 THEN encendido4
GOTO apagado
encendido4:
FOR secuencia4 = 1 TO 20
portb = $78
PAUSE 300
portb = $F0
PAUSE 300
portb = $F0
PAUSE 300
portb = $78
PAUSE 300
portb = $3C
PAUSE 300
portb = $1E
PAUSE 300
portb = $0F
PAUSE 300
portb = $0F
PAUSE 300
portb = $1E
PAUSE 300
portb = $3C
PAUSE 300
NEXT secuencia4
IF porta.1 = 1 THEN encendido5
GOTO apagado
secuencia5:
FOR encendido5 = 1 TO 20
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $80
PAUSE 300
portb = $7E
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $01
PAUSE 300
portb = $7E
PAUSE 300
NEXT encendido5
IF porta.1 = 1 THEN encendido5
GOTO apagado
apagado:
portb = $01
PAUSE 300
portb = $02
PAUSE 300
portb = $05
PAUSE 300
portb = $0A
PAUSE 300
portb = $14
PAUSE 300
portb = $28
PAUSE 300
portb = $50
PAUSE 300
portb = $A0
PAUSE 300
portb = $40
PAUSE 300
portb = $80
PAUSE 300
portb = $00
PAUSE 1800
GOTO inicio
