mirror of
https://gitlab.com/octospacc/MultiSpaccSDK
synced 2025-02-08 08:08:43 +01:00
72 lines
963 B
ArmAsm
72 lines
963 B
ArmAsm
|
|
.importzp TEMP, _oam_off, sp
|
|
.import popa, popax
|
|
.include "nes.inc"
|
|
.include "zpvars.inc"
|
|
|
|
;void __fastcall__ oam_meta_spr_pal(unsigned char x,unsigned char y,unsigned char pal,const unsigned char *metasprite);
|
|
|
|
.export _oam_meta_spr_pal
|
|
|
|
_oam_meta_spr_pal:
|
|
|
|
sta <PTR
|
|
stx <PTR+1
|
|
|
|
ldy #2 ;three popa calls replacement, performed in reversed order
|
|
lda (sp),y
|
|
dey
|
|
sta <SCRX
|
|
lda (sp),y
|
|
dey
|
|
sta <SCRY
|
|
lda (sp),y
|
|
sta <DST ;this is palette, just repurposing RAM variable name
|
|
|
|
ldx _oam_off
|
|
|
|
@1:
|
|
|
|
lda (PTR),y ;x offset
|
|
cmp #$80
|
|
beq @2
|
|
iny
|
|
clc
|
|
adc <SCRX
|
|
sta OAM_BUF+3,x
|
|
lda (PTR),y ;y offset
|
|
iny
|
|
clc
|
|
adc <SCRY
|
|
sta OAM_BUF+0,x
|
|
lda (PTR),y ;tile
|
|
iny
|
|
sta OAM_BUF+1,x
|
|
lda (PTR),y ;attribute
|
|
iny
|
|
and #$fc ;remove palette bits
|
|
ora <DST ;add new palette bits
|
|
sta OAM_BUF+2,x
|
|
inx
|
|
inx
|
|
inx
|
|
inx
|
|
jmp @1
|
|
|
|
@2:
|
|
|
|
stx _oam_off
|
|
|
|
lda <sp
|
|
adc #2 ;carry is always set here, so it adds 3
|
|
sta <sp
|
|
bcc @3
|
|
inc <sp+1
|
|
|
|
@3:
|
|
|
|
rts
|
|
|
|
|
|
|