pokecrystal-board/macros.asm

INCLUDE "macros/event.asm"
INCLUDE "macros/sound.asm"
INCLUDE "macros/text.asm"
INCLUDE "macros/charmap.asm"
INCLUDE "macros/move_effect.asm"
INCLUDE "macros/move_anim.asm"
INCLUDE "macros/movement.asm"
INCLUDE "macros/map.asm"
INCLUDE "macros/predef.asm"
INCLUDE "macros/rst.asm"
INCLUDE "macros/mobile.asm"


RGB: MACRO
	dw ((\3) << 10) + ((\2) << 5) + (\1)
	ENDM


percent EQUS "* $ff / 100"


dwb: MACRO
	dw \1
	db \2
	ENDM

dbw: MACRO
	db \1
	dw \2
	ENDM

dbbw: MACRO
	db \1, \2
	dw \3
	ENDM

dbwww: MACRO
	db \1
	dw \2, \3, \4
	ENDM

dn: MACRO
	rept _NARG / 2
	db (\1) << 4 + (\2)
	shift
	shift
	endr
	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


lb: MACRO ; r, hi, lo
	ld \1, (\2) << 8 + (\3)
	ENDM


bccoord: MACRO
	coord bc, \1, \2
	ENDM

decoord: MACRO
	coord de, \1, \2
	ENDM

hlcoord: MACRO
	coord hl, \1, \2
	ENDM

coord: MACRO
	ld \1, TileMap + SCREEN_WIDTH * (\3) + (\2)
	ENDM

dwcoord: MACRO
	rept _NARG / 2
	dw TileMap + SCREEN_WIDTH * (\2) + (\1)
	shift
	shift
	endr
	ENDM


; pic animations
frame: MACRO
	db \1
	db \2
	ENDM
setrepeat: MACRO
	db $fe
	db \1
	ENDM
dorepeat: MACRO
	db $fd
	db \1
	ENDM
endanim: MACRO
	db $ff
	ENDM


; Constant enumeration

const_def: MACRO
const_value SET 0
ENDM

const: MACRO
\1 EQU const_value
const_value SET const_value + 1
ENDM


sine_wave: MACRO
; \1: amplitude

x = 0
	rept $20
	; Round up.
	dw (sin(x) + (sin(x) & $ff)) >> 8
x = x + (\1) * $40000
	endr
ENDM


bcd: MACRO
	rept _NARG
	dn ((\1) % 100) / 10, (\1) % 10
	shift
	endr
ENDM
Stop using the preprocessor. 2015-01-20 00:01:23 -08:00			`INCLUDE "macros/event.asm"`
			`INCLUDE "macros/sound.asm"`
			`INCLUDE "macros/text.asm"`
			`INCLUDE "macros/charmap.asm"`
			`INCLUDE "macros/move_effect.asm"`
			`INCLUDE "macros/move_anim.asm"`
			`INCLUDE "macros/movement.asm"`
			`INCLUDE "macros/map.asm"`
Move around some more macros. 2015-01-20 14:26:16 -08:00			`INCLUDE "macros/predef.asm"`
			`INCLUDE "macros/rst.asm"`
Add a "mobile" directive for dummied-out mobile adapter functions. 2015-01-27 15:03:14 -08:00			`INCLUDE "macros/mobile.asm"`

Stop using the preprocessor. 2015-01-20 00:01:23 -08:00
Text macros. UnknownText_0x1aa0dc: ; 0x1aa0dc db $0, "Nihihi! This GYM", $4f db "is great! Only", $51 db "girls are allowed", $4f db "here!", $57 ; 0x1aa115 is now UnknownText_0x1aa0dc: ; 0x1aa0dc text "Nihihi! This GYM" line "is great! Only" para "girls are allowed" line "here!" done ; 0x1aa115 2014-03-05 19:49:09 -08:00
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`RGB: MACRO`
			`dw ((\3) << 10) + ((\2) << 5) + (\1)`
			`ENDM`
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00
Move rst constants into macros.asm 2014-02-02 13:13:23 -08:00
Fix argument handling in *coord macros. Add a "percent" shortcut. Random returns a value from 0 to 0xff. Instead of doing extra work, most probabilities are out of 0xff. Convert these from percentages at build time for readability. 2014-06-10 23:03:21 -07:00			`percent EQUS "* $ff / 100"`

Move remaining constants into constants/{misc,pokemon_data}_constants.asm Now constant groups can be included separately if needed. 2014-02-02 14:12:04 -08:00
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`dwb: MACRO`
			`dw \1`
			`db \2`
			`ENDM`

			`dbw: MACRO`
			`db \1`
			`dw \2`
			`ENDM`

dbbw macro 2014-03-03 02:28:53 -08:00			`dbbw: MACRO`
			`db \1, \2`
			`dw \3`
			`ENDM`

More labels in code and some mobile datatracking. 2015-01-01 20:59:08 -08:00			`dbwww: MACRO`
			`db \1`
			`dw \2, \3, \4`
			`ENDM`

split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`dn: MACRO`
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`rept _NARG / 2`
Wrap macro arguments with parentheses. Arguments are passed in as string literals. 2014-08-14 23:43:41 -07:00			`db (\1) << 4 + (\2)`
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`shift`
			`shift`
			`endr`
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`ENDM`

Add a "mobile" directive for dummied-out mobile adapter functions. 2015-01-27 15:03:14 -08:00			`dx: MACRO`
			`x = 8 * ((\1) - 1)`
			`rept \1`
			`db ((\2) >> x) & $ff`
			`x = x + -8`
			`endr`
			`ENDM`

split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`dt: MACRO ; three-byte (big-endian)`
Add a "mobile" directive for dummied-out mobile adapter functions. 2015-01-27 15:03:14 -08:00			`dx 3, \1`
			`ENDM`

			`dd: MACRO ; four-byte (big-endian)`
			`dx 4, \1`
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`ENDM`

			`bigdw: MACRO ; big-endian word`
Add a "mobile" directive for dummied-out mobile adapter functions. 2015-01-27 15:03:14 -08:00			`dx 2, \1`
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`ENDM`

Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00
			`lb: MACRO ; r, hi, lo`
			`ld \1, (\2) << 8 + (\3)`
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`ENDM`

Move around some more macros. 2015-01-20 14:26:16 -08:00
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`bccoord: MACRO`
			`coord bc, \1, \2`
			`ENDM`

			`decoord: MACRO`
			`coord de, \1, \2`
split macros out from constants.asm into macros.asm 2013-09-03 15:22:26 -07:00			`ENDM`

Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`hlcoord: MACRO`
			`coord hl, \1, \2`
			`ENDM`
lb macro for fast double-register loads 2013-11-24 01:06:37 -08:00
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`coord: MACRO`
			`ld \1, TileMap + SCREEN_WIDTH * (\3) + (\2)`
			`ENDM`

Mobile trade incbins and coordinate macros. 2015-02-02 15:46:06 -08:00			`dwcoord: MACRO`
			`rept _NARG / 2`
			`dw TileMap + SCREEN_WIDTH * (\2) + (\1)`
			`shift`
			`shift`
			`endr`
			`ENDM`

Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00
			`; pic animations`
			`frame: MACRO`
			`db \1`
			`db \2`
			`ENDM`
			`setrepeat: MACRO`
			`db $fe`
			`db \1`
			`ENDM`
			`dorepeat: MACRO`
			`db $fd`
			`db \1`
			`ENDM`
			`endanim: MACRO`
			`db $ff`
lb macro for fast double-register loads 2013-11-24 01:06:37 -08:00			`ENDM`


constant enumeration 2013-11-27 02:39:52 -08:00			`; Constant enumeration`

			`const_def: MACRO`
			`const_value SET 0`
			`ENDM`

			`const: MACRO`
			`\1 EQU const_value`
			`const_value SET const_value + 1`
			`ENDM`


Use a macro for sine waves. So far they're identical, but amplitude could change. 2014-05-05 12:58:43 -07:00			`sine_wave: MACRO`
			`; \1: amplitude`

			`x = 0`
			`rept $20`
			`; Round up.`
			`dw (sin(x) + (sin(x) & $ff)) >> 8`
Wrap macro arguments with parentheses. Arguments are passed in as string literals. 2014-08-14 23:43:41 -07:00			`x = x + (\1) * $40000`
Use a macro for sine waves. So far they're identical, but amplitude could change. 2014-05-05 12:58:43 -07:00			`endr`
			`ENDM`
Mobile phrases and tons of related data. 2015-02-04 01:10:59 -08:00

			`bcd: MACRO`
			`rept _NARG`
			`dn ((\1) % 100) / 10, (\1) % 10`
			`shift`
			`endr`
			`ENDM`