?pathlinks? – Rev 548
Rev 546 |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
| ?url?
;--------------------------------------------------------------------
; Описание: Анимация спрайта цифры 8
; Автор порта: Тарасов М.Н.(Mick),2010
;--------------------------------------------------------------------
Title_init:
xor a
ld (Title_step),a
ld (Title_phase),a
Title_view:
ld a,(Title_step)
inc a
and 07h
ld (Title_step),a
ret nz
ld hl,4001h
ld a,(Title_phase)
inc a
cp 1Eh
jr c,Title_next_phase
xor a
Title_next_phase:
ld (Title_phase),a
ex de,hl
ld l,a
ld c,a
ld h,0
ld b,h
add hl,hl
add hl,bc
ld bc,Title_table_phase
add hl,bc
ld a,(hl)
ld bc,7ffdh
out (c),a
inc hl
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
ex de,hl
ld b,38 ;размерность по Y
Title_loop_Y:
ld c,32
push hl
ex hl,de
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ex hl,de
pop hl
inc h
ld a,h
and 7
jr nz,Title_next_line
ld a,l
add 20h
ld l,a
jr c,Title_next_line
ld a,h
sub 8
ld h,a
Title_next_line:
dec b
jp nz,Title_loop_Y
ret
Title_step:
db 0
Title_phase:
db 0
Title_table_phase:
db 10h
dw Title_phase_00
db 10h
dw Title_phase_01
db 10h
dw Title_phase_02
db 10h
dw Title_phase_03
db 90h
dw Title_phase_04
db 90h
dw Title_phase_05
db 90h
dw Title_phase_06
db 90h
dw Title_phase_07
db 90h
dw Title_phase_08
db 90h
dw Title_phase_09
db 90h
dw Title_phase_10
db 90h
dw Title_phase_11
db 90h
dw Title_phase_12
db 90h
dw Title_phase_13
db 90h
dw Title_phase_14
db 90h
dw Title_phase_15
db 90h
dw Title_phase_16
db 91h
dw Title_phase_17
db 91h
dw Title_phase_18
db 91h
dw Title_phase_19
db 91h
dw Title_phase_20
db 91h
dw Title_phase_21
db 91h
dw Title_phase_22
db 91h
dw Title_phase_23
db 91h
dw Title_phase_24
db 91h
dw Title_phase_25
db 91h
dw Title_phase_26
db 91h
dw Title_phase_27
db 91h
dw Title_phase_28
db 91h
dw Title_phase_29
Title_phase_00: