mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 20:06:09 +00:00
64 lines
682 B
ArmAsm
64 lines
682 B
ArmAsm
;======================
|
|
; hgr 2x16 draw sprite
|
|
;======================
|
|
; Note: NOT TRANSPARENT
|
|
;
|
|
; SPRITE in INL/INH
|
|
; Location at CURSOR_X*7 CURSOR_Y
|
|
; X, Y, A trashed
|
|
|
|
hgr_draw_sprite_2x16:
|
|
|
|
; set up pointers
|
|
lda INL
|
|
sta hds2_smc1+1
|
|
sta hds2_smc2+1
|
|
lda INH
|
|
sta hds2_smc1+2
|
|
sta hds2_smc2+2
|
|
|
|
; clc
|
|
; lda INL
|
|
; adc #1
|
|
; sta hds2_smc2+1
|
|
; lda #0
|
|
; adc INH
|
|
; sta hds2_smc2+2
|
|
|
|
ldx #0
|
|
hgr_2x16_sprite_yloop:
|
|
txa
|
|
pha
|
|
|
|
lsr
|
|
|
|
clc
|
|
adc CURSOR_Y
|
|
|
|
tax
|
|
lda hposn_low,X
|
|
sta GBASL
|
|
lda hposn_high,X
|
|
sta GBASH
|
|
|
|
pla
|
|
tax
|
|
|
|
ldy CURSOR_X
|
|
hds2_smc1:
|
|
lda $D000,X
|
|
sta (GBASL),Y
|
|
|
|
inx
|
|
iny
|
|
|
|
hds2_smc2:
|
|
lda $D000,X
|
|
sta (GBASL),Y
|
|
|
|
inx
|
|
cpx #32
|
|
bne hgr_2x16_sprite_yloop
|
|
|
|
rts
|