mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-11-16 11:27:33 -08:00
e32e5212af
(TODO: use "x - 1" once rgbds allows it)
45 lines
577 B
NASM
45 lines
577 B
NASM
; pic + oam animations
|
|
|
|
frame: MACRO
|
|
db \1
|
|
x = \2
|
|
if _NARG > 2
|
|
rept _NARG + -2
|
|
x = x | (1 << (\3 + 1))
|
|
shift
|
|
endr
|
|
endc
|
|
db x
|
|
ENDM
|
|
|
|
enum_start $fc
|
|
|
|
enum delanim_command ; $fc
|
|
delanim: MACRO ; used for oam
|
|
db delanim_command
|
|
ENDM
|
|
|
|
enum dorepeat_command ; $fd
|
|
dorepeat: MACRO
|
|
db dorepeat_command
|
|
db \1 ; #
|
|
ENDM
|
|
|
|
enum setrepeat_command ; $fe
|
|
setrepeat: MACRO
|
|
db setrepeat_command
|
|
db \1 ; #
|
|
ENDM
|
|
|
|
enum endanim_command ; $ff
|
|
endanim: MACRO
|
|
db endanim_command
|
|
ENDM
|
|
|
|
__enum__ = $fe
|
|
|
|
enum dorestart_command ; $fe
|
|
dorestart: MACRO ; used for oam
|
|
db dorestart_command
|
|
ENDM
|