;--------------------------------------------------------------------
; Описание: Анимация спрайта цифры 8
; Автор порта: Тарасов М.Н.(Mick),2010
;--------------------------------------------------------------------
Animation_init:
xor a
ld (Animation_step),a
ld (Animation_phase),a
Animation_view:
ld a,(Animation_step)
inc a
and 03h
ld (Animation_step),a
ret nz
ld a,(Animation_phase)
inc a
cp 1Eh
jr c,Animation_next_phase
xor a
Animation_next_phase:
ld (Animation_phase),a
cp 02h
jr c,Animation_skip_page
ld bc,7ffdh
ld e,90h
out (c),e
Animation_skip_page:
ld l,a
ld c,a
ld h,0
ld b,h
add hl,hl
add hl,hl
add hl,bc
ld bc,Animation_table_phase
add hl,bc
ld b,(hl) ;число строк
inc hl
ld e,(hl) ;адрес экрана
inc hl
ld d,(hl) ;адрес экрана
inc hl
ld a,(hl) ;адрес фазы
inc hl
ld h,(hl) ;адрес фазы
ld l,a
Animation_loop_Y:
ld c,32
push de
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
pop de
inc d
ld a,d
and 7
jr nz,Animation_next_line
ld a,e
add 20h
ld e,a
jr c,Animation_next_line
ld a,d
sub 8
ld d,a
Animation_next_line:
dec b
jp nz,Animation_loop_Y
ret
Animation_step:
db 0
Animation_lstep:
db 0
Animation_phase:
db 0
Animation_lphase:
db 0
Animation_table_phase:
db 56
dw 43CBh ;+1
dw Animation_phase_00
db 56
dw 43CBh ;+1
dw Animation_phase_01
db 56
dw 43CBh ;+1
dw Animation_phase_02
db 57
dw 43CBh ;+1
dw Animation_phase_03
db 56
dw 44CBh ;+2
dw Animation_phase_04
db 56
dw 44CBh ;+2
dw Animation_phase_05
db 57
dw 44CBh ;+2
dw Animation_phase_06
db 58
dw 44CBh ;+2
dw Animation_phase_07
db 57
dw 45CBh ;+3
dw Animation_phase_08
db 58
dw 44CBh ;+2
dw Animation_phase_09
db 57
dw 44CBh ;+2
dw Animation_phase_10
db 56
dw 44CBh ;+2
dw Animation_phase_11
db 56
dw 44CBh ;+2
dw Animation_phase_12
db 56
dw 44CBh ;+2
dw Animation_phase_13
db 56
dw 43CBh ;+1
dw Animation_phase_14
db 56
dw 43CBh ;+1
dw Animation_phase_15
db 56
dw 43CBh ;+1
dw Animation_phase_16
db 56
dw 43CBh ;+1
dw Animation_phase_17
db 57
dw 42CBh ;+0
dw Animation_phase_18
db 58
dw 42CBh ;+0
dw Animation_phase_19
db 58
dw 42CBh ;+0
dw Animation_phase_20
db 58
dw 42CBh ;+0
dw Animation_phase_21
db 59
dw 42CBh ;+0
dw Animation_phase_22
db 59
dw 42CBh ;+0
dw Animation_phase_23
db 59
dw 42CBh ;+0
dw Animation_phase_24
db 58
dw 42CBh ;+0
dw Animation_phase_25
db 58
dw 42CBh ;+0
dw Animation_phase_26
db 58
dw 42CBh ;+0
dw Animation_phase_27
db 57
dw 42CBh ;+0
dw Animation_phase_28
db 56
dw 43CBh ;+1
dw Animation_phase_29
Animation_phase_00:
db 00h,00h,00h,00h,1Ch,00h,00h,00h,00h,00h
db 00h,00h,00h,00h,32h,00h,00h,00h,00h,00h
db 00h,00h,00h,00h,41h,60h,00h,00h,00h,00h
db 00h,00h,00h,03h,0C0h,0E0h,00h,00h,00h,00h
db 00h,00h,00h,06h,05h,0C0h,00h,00h,00h,00h
db 00h,00h,00h,08h,07h,0FCh,00h,00h,00h,00h
db 00h,00h,00h,1Ah,33h,0FFh,0C0h,00h,00h,00h
db 00h,00h,00h,16h,13h,0FFh,0F0h,00h,00h,00h
db 00h,00h,00h,13h,21h,0FFh,0FCh,00h,00h,00h
db 00h,00h,00h,32h,33h,0FFh,0FEh,00h,00h,00h
db 00h,00h,00h,63h,21h,0FFh,0FFh,80h,00h,00h
db 00h,00h,00h,0E0h,01h,0FFh,0FFh,0C0h,00h,00h
db 00h,00h,01h,0C0h,01h,0FFh,0FFh,0E0h,00h,00h
db 00h,00h,03h,80h,00h,0FFh,0FFh,0F0h,00h,00h
db 00h,00h,07h,01h,0C0h,7Fh,0FFh,0F8h,00h,00h
db 00h,00h,0Fh,00h,00h,7Fh,0FFh,0FCh,00h,00h
db 00h,00h,1Fh,00h,00h,3Fh,0FFh,0FCh,00h,00h
db 00h,00h,3Eh,00h,80h,20h,0FFh,0FEh,00h,00h
db 00h,00h,3Fh,01h,0C0h,60h,3Fh,0FFh,00h,00h
db 00h,00h,3Fh,01h,0C0h,40h,0FFh,0FFh,00h,00h
db 00h,00h,7Fh,80h,00h,0C1h,0FFh,0FFh,0F0h,00h
db 00h,00h,7Fh,80h,20h,83h,0FFh,0FFh,0B0h,00h
db 00h,00h,0FFh,0C0h,0C0h,07h,0FFh,0FEh,60h,00h
db 00h,00h,0FFh,00h,00h,1Fh,0FFh,0F8h,0C0h,00h
db 00h,00h,0FEh,00h,00h,3Fh,0FFh,0D0h,0C0h,00h
db 00h,00h,0FEh,00h,00h,0FFh,0FEh,01h,0C0h,00h
db 00h,01h,0FCh,00h,01h,0FFh,0FCh,01h,0F8h,00h
db 03h,81h,0F8h,00h,03h,0FFh,0F0h,00h,0Ch,00h
db 07h,0F1h,0F0h,00h,0Fh,0FFh,0FCh,00h,74h,00h
db 03h,9Dh,0E0h,00h,1Fh,0FFh,88h,00h,0F8h,00h
db 00h,0C7h,0C0h,00h,7Fh,0FFh,10h,44h,60h,00h
db 01h,80h,0C0h,00h,0FFh,0FEh,11h,0FFh,20h,00h
db 03h,00h,00h,31h,0FFh,0F8h,17h,0FFh,0F0h,00h
db 03h,0E0h,00h,0F7h,0FFh,0F0h,0Ch,3Fh,0E0h,00h
db 00h,60h,01h,0FFh,0FFh,0C0h,00h,7Fh,0C0h,00h
db 00h,0B0h,03h,0FFh,0FFh,80h,00h,7Fh,0C0h,00h
db 00h,0FFh,1Fh,0FFh,0FFh,00h,00h,7Fh,0C0h,00h
db 00h,03h,9Fh,0FFh,0FCh,00h,00h,0FFh,80h,00h
db 00h,00h,5Fh,0FFh,0F8h,00h,01h,0FFh,80h,00h
db 00h,00h,7Fh,0FFh,0F0h,00h,01h,0FFh,80h,00h
db 00h,00h,7Fh,0FFh,0FFh,00h,03h,0FFh,00h,00h
db 00h,00h,3Fh,0FFh,0E3h,0E0h,03h,0FFh,00h,00h
db 00h,00h,3Fh,0FFh,0E0h,00h,07h,0FEh,00h,00h
db 00h,00h,1Fh,0FFh,0C0h,00h,1Fh,0FEh,00h,00h
db 00h,00h,1Fh,0FFh,80h,00h,3Fh,0FCh,00h,00h
db 00h,00h,0Fh,0FFh,0C0h,00h,0FFh,0F8h,00h,00h
db 00h,00h,07h,0FFh,0F0h,07h,0FFh,0F0h,00h,00h
db 00h,00h,03h,0FFh,0FFh,0FFh,0FFh,0E0h,00h,00h
db 00h,00h,01h,0FFh,0FFh,0FFh,0FFh,0C0h,00h,00h
db 00h,00h,00h,0FFh,0FFh,0FFh,0FFh,80h,00h,00h
db 00h,00h,00h,7Fh,0FFh,0FFh,0FFh,00h,00h,00h
db 00h,00h,00h,3Fh,0FFh,0FFh,0FEh,00h,00h,00h
db 00h,00h,00h,0Fh,0FFh,0FFh,0FCh,00h,00h,00h
db 00h,00h,00h,03h,0FFh,0FFh,0E0h,00h,00h,00h
db 00h,00h,00h,00h,7Fh,0FFh,80h,00h,00h,00h
db 00h,00h,00h,00h,0Fh,0F8h,00h,00h,00h,00h
Animation_phase_01:
db 00h,00h,00h,00h,04h,00h,00h,00h,00h,00h
db 00h,00h,00h,00h,3Ah,00h,00h,00h,00h,00h
db 00h,00h,00h,00h,61h,60h,00h,00h,00h,00h
db 00h,00h,00h,00h,0E0h,0E0h,00h,00h,00h,00h
db 00h,00h,00h,01h,81h,0C0h,00h,00h,00h,00h
db 00h,00h,00h,06h,07h,0FFh,00h,00h,00h,00h
db 00h,00h,00h,04h,33h,0FFh,0F0h,00h,00h,00h
db 00h,00h,00h,0Ah,13h,0FFh,0F8h,00h,00h,00h
db 00h,00h,00h,0Ah,01h,0FFh,0FEh,00h,00h,00h
db 00h,00h,00h,1Bh,31h,0FFh,0FFh,80h,00h,00h
db 00h,00h,00h,13h,31h,0FFh,0FFh,0C0h,00h,00h
db 00h,00h,00h,30h,01h,0FFh,0FFh,0E0h,00h,00h
db 00h,00h,00h,0E0h,01h,0FFh,0FFh,0F8h,00h,00h
db 00h,00h,01h,0E0h,00h,0FFh,0FFh,0F8h,00h,00h
db 00h,00h,01h,0C0h,0C0h,7Fh,0FFh,0FCh,00h,00h
db 00h,00h,03h,80h,80h,7Fh,0FFh,0FEh,00h,00h
db 00h,00h,07h,80h,00h,37h,0FFh,0FFh,00h,00h
db 00h,00h,0Fh,80h,0C0h,20h,3Fh,0FFh,80h,00h
db 00h,00h,0Fh,80h,0C0h,40h,7Fh,0FFh,80h,00h
db 00h,00h,0Fh,80h,0C0h,40h,0FFh,0FFh,0B8h,00h
db 00h,00h,1Fh,0C0h,00h,0C1h,0FFh,0FFh,0FCh,00h
db 00h,00h,1Fh,0C0h,20h,83h,0FFh,0FFh,88h,00h
db 00h,00h,3Fh,0E0h,0C0h,0Fh,0FFh,0FFh,30h,00h
db 00h,00h,3Fh,80h,00h,1Fh,0FFh,0FCh,60h,00h
db 00h,00h,3Fh,00h,00h,7Fh,0FFh,50h,60h,00h
db 00h,00h,3Fh,00h,00h,0FFh,0FEh,00h,0E0h,00h
db 00h,00h,7Eh,00h,01h,0FFh,0FCh,00h,0FEh,00h
db 00h,20h,7Ch,00h,03h,0FFh,0F0h,00h,03h,00h
db 00h,5Ch,7Ch,00h,0Fh,0FFh,0FCh,00h,1Dh,00h
db 00h,33h,0F8h,00h,1Fh,0FFh,88h,00h,7Eh,00h
db 00h,18h,0F0h,00h,7Fh,0FFh,18h,04h,70h,00h
db 00h,28h,00h,00h,0FFh,0FEh,10h,0FFh,98h,00h
db 00h,50h,00h,11h,0FFh,0F8h,17h,0FFh,0F8h,00h
db 00h,7Ch,00h,7Bh,0FFh,0F0h,1Eh,3Fh,0F8h,00h
db 00h,18h,00h,0FFh,0FFh,0C0h,00h,3Fh,0F0h,00h
db 00h,1Eh,03h,0FFh,0FFh,80h,00h,3Fh,0E0h,00h
db 00h,19h,0CFh,0FFh,0FFh,00h,00h,7Fh,0E0h,00h
db 00h,00h,37h,0FFh,0FCh,00h,00h,7Fh,0E0h,00h
db 00h,00h,1Fh,0FFh,0F0h,00h,00h,0FFh,0E0h,00h
db 00h,00h,1Fh,0FFh,0F0h,00h,00h,0FFh,0C0h,00h
db 00h,00h,1Fh,0FFh,0FFh,00h,01h,0FFh,0C0h,00h
db 00h,00h,0Fh,0FFh,0E3h,0E0h,03h,0FFh,80h,00h
db 00h,00h,0Fh,0FFh,0E0h,00h,07h,0FFh,80h,00h
db 00h,00h,07h,0FFh,0C0h,00h,0Fh,0FFh,00h,00h
db 00h,00h,07h,0FFh,80h,00h,1Fh,0FFh,00h,00h
db 00h,00h,03h,0FFh,0E0h,00h,7Fh,0FEh,00h,00h
db 00h,00h,01h,0FFh,0FCh,07h,0FFh,0FCh,00h,00h
db 00h,00h,00h,0FFh,0FFh,0FFh,0FFh,0F8h,00h,00h
db 00h,00h,00h,7Fh,0FFh,0FFh,0FFh,0F0h,00h,00h
db 00h,00h,00h,3Fh,0FFh,0FFh,0FFh,0E0h,00h,00h
db 00h,00h,00h,1Fh,0FFh,0FFh,0FFh,0C0h,00h,00h
db 00h,00h,00h,0Fh,0FFh,0FFh,0FFh,80h,00h,00h
db 00h,00h,00h,03h,0FFh,0FFh,0FEh,00h,00h,00h
db 00h,00h,00h,00h,0FFh,0FFh,0F8h,00h,00h,00h
db 00h,00h,00h,00h,1Fh,0FFh,0E0h,00h,00h,00h
db 00h,00h,00h,00h,03h,0FEh,00h,00h,00h,00h