72 lines
1.7 KiB
ArmAsm
72 lines
1.7 KiB
ArmAsm
|
|
; FAST SPRITE ROUTINES FOR ASTROCADE
|
|
; fast_sprite_8: 8 (2 bytes) by H pixels, unexpanded
|
|
; fast_sprite_16: 16 (4 bytes) by H pixels, unexpanded
|
|
; Pattern format: bytewidth height data...
|
|
.area _CODE_ACFAST
|
|
|
|
;void fast_sprite_8(const byte* src, byte* dst) {
|
|
.globl _fast_sprite_8
|
|
_fast_sprite_8:
|
|
push ix
|
|
ld ix,#0
|
|
add ix,sp ; IX = arg pointer
|
|
ld l,4(ix) ; src (HL)
|
|
ld h,5(ix)
|
|
ld e,6(ix) ; dst (DE)
|
|
ld d,7(ix)
|
|
inc hl ; skip width
|
|
ld c,(hl) ; load height -> C
|
|
sla c ; C *= 2
|
|
ld b,#0 ; B always 0 (BC < 256)
|
|
inc hl ; move HL to pattern start
|
|
001$:
|
|
ldi
|
|
ldi ; copy 2 bytes src to dst
|
|
ld a,b ; 0 -> A, doesnt affect flags
|
|
ld (de),a ; copy 3rd 0 (for shifts)
|
|
jp po,002$ ; exit if BC == 0
|
|
ld a,e ; E -> A
|
|
add a,#38 ; next scanline (dest += 38)
|
|
ld e,a ; A -> E
|
|
jr nc,001$ ; loop unless lo byte overflow
|
|
inc d ; inc hi byte of dest. addr
|
|
jr 001$ ; loop to next line
|
|
002$:
|
|
pop ix
|
|
ret
|
|
|
|
;void fast_sprite_16(const byte* src, byte* dst) {
|
|
.globl _fast_sprite_16
|
|
_fast_sprite_16:
|
|
push ix
|
|
ld ix,#0
|
|
add ix,sp ; IX = arg pointer
|
|
ld l,4(ix) ; src (HL)
|
|
ld h,5(ix)
|
|
ld e,6(ix) ; dst (DE)
|
|
ld d,7(ix)
|
|
inc hl ; skip width
|
|
ld c,(hl) ; load height -> C
|
|
sla c
|
|
sla c ; C *= 4
|
|
ld b,#0 ; B always 0 (BC < 256)
|
|
inc hl ; move HL to pattern start
|
|
001$:
|
|
ldi
|
|
ldi
|
|
ldi
|
|
ldi ; copy 4 bytes src to dst
|
|
ld a,b ; 0 -> A, doesnt affect flags
|
|
ld (de),a ; copy 3rd 0 (for shifts)
|
|
jp po,002$ ; exit if BC == 0
|
|
ld a,e ; E -> A
|
|
add a,#36 ; next scanline (dest += 38)
|
|
ld e,a ; A -> E
|
|
jr nc,001$ ; loop unless lo byte overflow
|
|
inc d ; inc hi byte of dest. addr
|
|
jr 001$ ; loop to next line
|
|
002$:
|
|
pop ix
|
|
ret
|