Помогите новичку с ассемблером!

[Ares]

Mdesk,я написал
org #6000
xor a
out (254),a
call screen
call #c000
loop ei
halt
call #c005
di
ld a,254
in a,(254)
and 1
jr nz, loop
jp #c000

screen incbin "screen"

org #c000
music incbin "music"
не помогает

---------- Post added at 16:58 ---------- Previous post was at 16:53 ----------

Mdesk,А что надо тут исправлять ?

org 25000
start
ei
xor a
out (254),a

call 49163

loop halt
call 49166
call scroll
ld a,127
in a,(254)
rra
jr c,loop
call 49169
ret

scroll ld a,1
dec a
and 7
ld (scroll+1),a
jr nz,s_left
new_let ld hl,text
ld a,(hl)
inc hl
ld (new_let+1),hl
or a
jr nz,not_end
ld hl,text
jr new_let+3

not_end ld l,a
ld h,0
add hl,hl
add hl,hl
add hl,hl
ld de,#3c00
add hl,de
ld de,buff
ld b,8
loop2 ld a,(hl)
rrca
or (hl)
ld (de),a
inc l
inc de
djnz loop2

s_left ld hl,16384+31
ld de,buff
ld b,8
loop1 ld a,(de)
rlca
ld (de),a
inc de
push hl
dup 31
rl (hl)
dec l
edup
pop hl
inc h
djnz loop1
ret

buff ds 8
text db "AAA BEST CODER !!!!!!!!!!! "
db 0