Secuencias

1. F ESTATICA
CLR TRISB
CLR TRISD
.equ cont, 0x800
.equ cont2, 0x802
llenarl:
MOV #0x804, w12
mov #0x1,w8 ; 1 piso
mov w8,[w12++]
mov #0x1FF,w8 ;3 piso
mov w8,[w12++]
mov #0x1B,w8 ; 2 piso
mov w8,[w12]
llenarc:
mov #0x80A,w13
mov #0x01,w11 ;
mov w11,[w13++]
mov #0x002,w11 ;
mov w11,[w13++]
mov #0x04,w11;
mov w11,[w13]
MOV #0x3,w1 ; contador de llenarCLR cont2
MOV #0xFF, W2 ; VELOCIDAD
MOV W2, cont

contador:
MOV #0x804, w12
MOV #0x80A, w13

sec:
CALL ciclo1
INC cont2
MOV [w12++], w8
MOV [w13++], w11
mov w8,LATB
mov w11,LATD
MOV cont2,w3
XOR w3, w1,w5
BRA NZ,sec
CLR cont2
BRA contador
ciclo1:
NOP
NOPNOP
NOP
NOP
NOP
NOP
NOP
NOP
DEC cont
BRA NZ, ciclo1
NOP
nop
nop
nop
nop
MOV W2, cont
RETURN
-------------------------------------------------

2. ESPIRAL CN PULSADOR
CLR TRISB
CLR TRISD
.equ cont, 0x800
.equ cont2, 0x802
.equ cont3, 0x820

llenarl:
MOV #0x804, w12
mov #0x10,w8 ;
mov w8,[w12++]
mov #0x18,w8 ;mov w8,[w12++]
mov #0x58,w8 ;
mov w8,[w12++]
mov #0xd8,w8 ;
mov w8,[w12++]
mov #0x1d8,w8 ;
mov w8,[w12++]
mov #0x1f8,w8 ;
mov w8,[w12++]
mov #0x1fc,w8 ;
mov w8,[w12++]
mov #0x1fe,w8 ;
mov w8,[w12++]
mov #0x1ff,w8 ;
mov w8,[w12]

llenarc:
mov #0x840,w13
moV #0x01,w11 ;
mov w11,[w13++]
mov #0x004,w11 ;
mov w11,[w13++]
mov #0x02,w11;
mov w11,[w13++]mov #0x04,w11;
mov w11,[w13++]
mov #0x01,w11 ;
mov w11,[w13]


MOV #0x9,w1 ; contador de llenar
MOV #0x5,w10 ; contador catodo
CLR cont2
CLR cont3
MOV #0x2222, W2 ; VELOCIDAD
MOV W2, cont
conc:
MOV #0x840, w13
contador:
MOV #0x804, w12
MOV [w13++], w11
INC cont3
sec:
CALL ciclo1
PUL :
MOV PORTF,W0
MOV #0X1,W2
XOR W0,W2,W5
BRAZ,IGUAL
BRA PUL
IGUAL:
MOV PORTF,W0
MOV #0X0,W2
XOR W0,W2,W5
BRA NZ,PUL
INC cont2
MOV [w12++], w8
mov w8,LATB
mov w11,LATD
MOV cont2,w3
XOR w3, w1,w5
BRA NZ,sec
CLR cont2
MOV cont3,w9
XOR w9, w10,w5
bra nz,contador
clr cont3
bra conc

ciclo1:
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOPNOP
NOP
NOP
DEC cont
BRA NZ, ciclo1
NOP
nop
nop
nop
nop
MOV W2, cont
-------------------------------------------------
RETURN
-------------------------------------------------

3. Z SIN PULSADOR
llenarl:
MOV #0x804, w12
mov #0x1,w8 ; 1 piso
mov w8,[w12++]
mov #0x10,w8 ;
mov w8,[w12++]
mov #0x100,w8 ;
mov w8,[w12++]
mov#0x100,w8 ;
mov w8,[w12++]
mov #0x80,w8 ;
mov w8,[w12++]
mov #0x40,w8 ;--
mov w8,[w12++]
mov #0x40,w8 ;
mov w8,[w12++]
mov #0x10,w8 ;
mov w8,[w12++]
mov #0x4,w8 ;
mov w8,[w12++]
mov #0x4,w8 ;
mov w8,[w12++]
mov #0x2,w8 ;
mov w8,[w12++]
mov #0x1,w8 ;
mov w8,[w12]
llenarc:
mov #0x8B0,w13
mov #0x01,w11 ;
mov w11,[w13++]
mov#0x004,w11 ;
mov w11,[w13++]
mov #0x02,w11;
mov w11,[w13++]
mov #0x02,w11 ;
mov w11,[w13++]
mov #0x02,w11;
mov w11,[w13++]
mov #0x02,w11 ;
mov w11,[w13++]
mov #0x02,w11 ;
mov w11,[w13++]
mov #0x04,w11;
mov w11,[w13++]
mov #0x01,w11 ;
mov w11,[w13++]
mov #0x01,w11 ;
mov w11,[w13++]
mov #0x01,w11;
mov w11,[w13++]
mov#0x01,w11 ;
mov w11,[w13]
MOV #0xC,w1 ; contador de llenar
CLR cont2
CLR cont3
MOV #0xFFF, W2 ; VELOCIDAD
MOV W2, cont
contador:
MOV #0x804, w12
MOV #0x8B0, w13

sec:
CALL ciclo1
INC cont2
MOV [w12++], w8
MOV [w13++], w11
mov w8,LATB
mov w11,LATD
MOV cont2,w3
XOR w3, w1,w5
BRA NZ,sec...