73 lines
951 B
ArmAsm
73 lines
951 B
ArmAsm
;===============
|
|
; gr_put_sprite
|
|
;===============
|
|
; Sprite to display in INL/INH
|
|
; MASK (for transparency) on MASKL/MASH
|
|
; Location is XPOS,YPOS
|
|
; Note, only works if YPOS is multiple of two
|
|
|
|
; trashes A,X,Y
|
|
|
|
gr_put_sprite:
|
|
ldy #0
|
|
|
|
lda (INL),Y ; xsize
|
|
clc
|
|
adc XPOS
|
|
sta gps_xmax_smc+1 ; store xmas (self-modify)
|
|
|
|
iny ; 2
|
|
|
|
lda (INL),Y ; ysize
|
|
asl ; mul by 2
|
|
clc
|
|
adc YPOS
|
|
sta gps_ymax_smc+1
|
|
|
|
iny
|
|
|
|
tya
|
|
tax
|
|
|
|
lda INL
|
|
sta gps_src_smc+1
|
|
lda INH
|
|
sta gps_src_smc+2
|
|
|
|
gr_put_sprite_loop:
|
|
ldy YPOS
|
|
lda gr_offsets,Y
|
|
sta OUTL
|
|
lda gr_offsets+1,Y
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta OUTH
|
|
|
|
|
|
ldy XPOS
|
|
gr_put_sprite_row:
|
|
cpy #40
|
|
bcs gr_put_sprite_dont_draw ; don't draw if out of bounds
|
|
|
|
gps_src_smc:
|
|
lda $f000,X
|
|
sta (OUTL),Y
|
|
|
|
gr_put_sprite_dont_draw:
|
|
iny
|
|
inx
|
|
gps_xmax_smc:
|
|
cpy #40
|
|
bne gr_put_sprite_row
|
|
|
|
inc YPOS
|
|
inc YPOS
|
|
lda YPOS
|
|
gps_ymax_smc:
|
|
cmp #40
|
|
|
|
bne gr_put_sprite_loop
|
|
|
|
gr_put_sprite_done:
|
|
rts ; return ; 6
|