Source

PROGRAMACIÓN PARA CADA UNO DE LOS MODULOS

____________________________________________________________

PRIMER SECUENCIA (REPOSO)
ATENCIÓN: Esta programación se repite en todos los modulos por igual.

PRIMER SECUENCIA
MODULO 001
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

____________________________________________________________

SEGUNDA SECUENCIA

SEGUNDA SECUENCIA
MODULO 001
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 002
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 003
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 004
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 005
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 006
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 007
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 008
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 009
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 010
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 011
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 012
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 013
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 014
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 015
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEGUNDA SECUENCIA
MODULO 016
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA

TERCER SECUENCIA
MODULO 001
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 002
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 003
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 004
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 005
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 006
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 007
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 008
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 009
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 010
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 011
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 012
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 013
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 014
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 015
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

TERCER SECUENCIA
MODULO 016
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA

CUARTA SECUENCIA
MODULO 001
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 002
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 003
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 004
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 005
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 006
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 007
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 008
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 009
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 010
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 011
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 012
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 013
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 014
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300
portb = $00
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 015
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 015
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

CUARTA SECUENCIA
MODULO 016
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
portb = $FF
PAUSE 300
portb = $00
PAUSE 300
portb = $00
PAUSE 300
portb = $FF
PAUSE 300

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA

QUINTA SECUENCIA
MODULO 001
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 002
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 003
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 004
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 005
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 006
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 007
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 008
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 009
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 010
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 011
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 012
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 013
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 014
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 015
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

GOTO inicio

____________________________________________________________

QUINTA SECUENCIA
MODULO 016
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA

SEXTA SECUENCIA
MODULO 001
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 002
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 003
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 004
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 005
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 006
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 007
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 008
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 009
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 010
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 011
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 012
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 013
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 014
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 015
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

____________________________________________________________

SEXTA SECUENCIA
MODULO 016
DEFINE osc 4
CMCOM = 7
TRISA = $1F
TRISB = 0

inicio:
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

GOTO inicio

Me gusta:

Sé el primero en decir que te gusta esta page.

Source

Me gusta:

Follow “Fungus 1.0”