Код:
;вывод спрайта в системе битпланов Вектор 06
;ширина спрайта -24
;на входе
;bc адрес спрайта
;de aдрес на экране
;E-Y D-X
;a-высота спрайта /2 1-12
drop24
dec a
add a,a
ld hl,table_high
add a,l
ld l,a
adc a,h
sub l
ld h,a
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
ld (drop_exec),hl
ld hl,0
add hl,sp
ld (sprite_sp0),hl
ld h,b
ld l,c
ld c,(hl)
inc hl
ld b,(hl)
inc hl
ld sp,hl
;задаем Y в L
ld l,e
;задаем X в A
ld a,d ;битплан1
add a,#20
ld e,a ;битплан2
add a,#20
;битплан3
jp #c3c3
drop_exec equ $-2
table_high
dw drop_240
dw drop_241
dw drop_242
dw drop_243
dw drop_244
dw drop_245
dw drop_246
dw drop_247
dw drop_248
dw drop_249
dw drop_24a
dw drop_24b
drop24b
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop24a
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop249
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop248
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop247
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop246
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop245
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop244
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop243
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop242
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop241
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
pop bc
inc l
drop240
ld h,d
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,e
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,a
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
inc l
ld h,d
ld (hl),b
inc h
pop bc
ld (hl),c
inc h
ld (hl),b
pop bc
ld h,e
ld (hl),c
inc h
ld (hl),b
pop bc
inc h
ld (hl),c
ld h,a
ld (hl),b
pop bc
inc h
ld (hl),c
inc h
ld (hl),b
sprite_sp
ld sp,#3131
sprite_sp0 equ $-2
ret