falso
/
zxuno-git
mirror of https://github.com/zxdos/zxuno.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Cambio tracker de música

This commit is contained in:
antoniovillena 2016-07-08 21:18:25 +02:00
parent f617fed43b
commit f30c240e9a
3 changed files with 49 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
firmware/scroll/music.bin Normal file
View File

Binary file not shown.

89
firmware/scroll/scroll.asm
View File

@ -1,35 +1,45 @@
output scroll.bin output scroll.bin
org $5d28 org $5d29
; ld hl, fondo ld hl, fuente
; ld b, $40 ; filtro RCS inverso
;start ld a, b
; xor c
; and $f8
; xor c
; ld d, a
; xor b
; xor c
; rlca
; rlca
; ld e, a
; inc bc
; ldi
; inc bc
; ld a, b
; sub $58
; jr nz, start
ld hl, $5800
ld de, $5801
ld b, 3 ld b, 3
ld (hl), l ld de, $c100
ldir ldir
xor a jp start
fuente incbin fuente6x8.bin
string include string.asm
block $6d35-$
ld (vari+2), ix
incbin music.bin
start ld hl, fondo
ld b, $40 ; filtro RCS inverso
start0 ld a, b
xor c
and $f8
xor c
ld d, a
xor b
xor c
rlca
rlca
ld e, a
inc bc
ldi
inc bc
ld a, b
sub $58
jr nz, start0
; ld hl, $5800
; ld de, $5801
ld b, 3
; ld (hl), l
ldir
; xor a
out ($fe), a out ($fe), a
inc a inc a
ex af, af' ex af, af'
ld hl, $b000 ld hl, $c000
ld de, $b400 ld de, $c400
start1 ld b, $08 start1 ld b, $08
start2 ld a, (hl) start2 ld a, (hl)
rrca rrca
@ -39,9 +49,11 @@ start2 ld a, (hl)
jp pe, start2 jp pe, start2
jr nc, start1 jr nc, start1
call cancio ld hl, $716f
call $6d3c
start3 ei start3 ei
call $6e77
halt halt
di di
ld bc, 4 ld bc, 4
@ -66,7 +78,7 @@ start4 djnz start4
vari ld ix, string vari ld ix, string
ld hl, start3 ld hl, start3
push hl push hl
ld hl, inicio ld hl, $6d35
push hl push hl
ex af, af' ex af, af'
rrca rrca
@ -146,27 +158,27 @@ pos0 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $2c ld h, $c0 >> 2
call simple call simple
pos2 ld a, (ix) pos2 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $32 ld h, $d8 >> 2
ld bc, $04fc ld bc, $04fc
call doble call doble
pos4 ld a, (ix) pos4 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $30 ld h, $d0 >> 2
ld bc, $04f0 ld bc, $04f0
call doble call doble
pos6 ld a, (ix) pos6 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $2e ld h, $c8 >> 2
call simple call simple
inc de inc de
jr pos0 jr pos0
@ -205,27 +217,27 @@ pos1 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $2f ld h, $cc >> 2
ld bc, $04e0 ld bc, $04e0
call doble call doble
pos3 ld a, (ix) pos3 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $2d ld h, $c4 >> 2
call simple call simple
pos5 ld a, (ix) pos5 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $33 ld h, $dc >> 2
ld bc, $04fe ld bc, $04fe
call doble call doble
pos7 ld a, (ix) pos7 ld a, (ix)
inc ix inc ix
add a, a add a, a
ret z ret z
ld h, $31 ld h, $d4 >> 2
ld bc, $04f8 ld bc, $04f8
call doble call doble
jr pos1 jr pos1
@ -283,9 +295,4 @@ doble2 ld a, (de)
add hl, de add hl, de
ex de, hl ex de, hl
ret ret
fondo incbin fondo.rcs
string include string.asm
;fondo incbin fondo.rcs
include player.asm
block $b100-$
incbin fuente6x8.bin

2
firmware/scroll/scrolldesc.asm
View File

@ -1,7 +1,7 @@
include define.asm include define.asm
output scrolldesc.bin output scrolldesc.bin
org $5ccb org $5ccb
ld de, $5d28+filesize-1 ld de, $5d29+filesize-1
di di
defb $de, $c0, $37, $0e, $8f, $39, $96 defb $de, $c0, $37, $0e, $8f, $39, $96
jr aqui jr aqui