mirror of
https://github.com/pret/poketcg.git
synced 2026-10-09 16:36:34 -04:00
xCrystal
87 lines
1.1 KiB
NASM
87 lines
1.1 KiB
NASM
INCROM: MACRO
|
|
INCBIN "baserom.gbc", \1, \2 - \1
|
|
ENDM
|
|
|
|
dn: MACRO
|
|
db \1 << 4 | \2
|
|
ENDM
|
|
|
|
dbw: MACRO
|
|
db \1
|
|
dw \2
|
|
ENDM
|
|
|
|
dwb: MACRO
|
|
dw \1
|
|
db \2
|
|
ENDM
|
|
|
|
dx: MACRO
|
|
x = 8 * ((\1) - 1)
|
|
rept \1
|
|
db ((\2) >> x) & $ff
|
|
x = x + -8
|
|
endr
|
|
ENDM
|
|
|
|
dt: MACRO ; three-byte (big-endian)
|
|
dx 3, \1
|
|
ENDM
|
|
|
|
dd: MACRO ; four-byte (big-endian)
|
|
dx 4, \1
|
|
ENDM
|
|
|
|
bigdw: MACRO ; big-endian word
|
|
dx 2, \1
|
|
ENDM
|
|
|
|
sgb: MACRO
|
|
db \1 << 3 + \2 ; sgb_command * 8 + length
|
|
ENDM
|
|
|
|
rgb: MACRO
|
|
dw (\3 << 10 | \2 << 5 | \1)
|
|
ENDM
|
|
|
|
emptybank: MACRO
|
|
rept $4000
|
|
db $ff
|
|
endr
|
|
ENDM
|
|
|
|
; poketcg specific macros below
|
|
|
|
textpointer: MACRO
|
|
dw ((\1 + ($4000 * (BANK(\1) - 1))) - (TextOffsets + ($4000 * (BANK(TextOffsets) - 1)))) & $ffff
|
|
db ((\1 + ($4000 * (BANK(\1) - 1))) - (TextOffsets + ($4000 * (BANK(TextOffsets) - 1)))) >> 16
|
|
const \1_
|
|
GLOBAL \1_
|
|
ENDM
|
|
|
|
energy: MACRO
|
|
en = 0
|
|
if _NARG > 1
|
|
rept _NARG / 2
|
|
x = 4 - 8 * (\1 % 2)
|
|
en = en + \2 << ((\1 * 4) + x)
|
|
shift
|
|
shift
|
|
endr
|
|
rept NUM_TYPES / 2
|
|
db LOW(en)
|
|
en = en >> 8
|
|
endr
|
|
else
|
|
db 0, 0, 0, 0
|
|
endc
|
|
ENDM
|
|
|
|
gfx: MACRO
|
|
dw ($4000 * (BANK(\1) - BANK(CardGraphics)) + (\1 - $4000)) / 8
|
|
ENDM
|
|
|
|
tx: MACRO
|
|
dw \1_
|
|
ENDM
|