pokecrystal-board/macros.asm

INCLUDE "macros/enum.asm"
INCLUDE "macros/basestats.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/pic.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 equs "coord bc,"
decoord equs "coord de,"
hlcoord equs "coord hl,"

coord: MACRO
	if _NARG < 4
	ld \1, TileMap + SCREEN_WIDTH * (\3) + (\2)
	else
	ld \1, \4 + SCREEN_WIDTH * (\3) + (\2)
	endc
	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


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
Add a macro for enumeration. "enum" is like "const" but uses variables instead. This might not be desired. It has been moved to the top of macros.asm so that included macros can be enumerated. 2015-04-13 21:30:51 -07:00			`INCLUDE "macros/enum.asm"`
- Renamed "Functiond283" to "GetPocketCapacity" and updated the pointers and constants to better reflect their hypothesized purposes. - Using yenatch's version of the macro and constant handling, rewrote the tmhm bit array as a macro-defined environment. 2015-06-29 19:24:45 -07:00			`INCLUDE "macros/basestats.asm"`
Add a macro for enumeration. "enum" is like "const" but uses variables instead. This might not be desired. It has been moved to the top of macros.asm so that included macros can be enumerated. 2015-04-13 21:30:51 -07:00
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"`
Use a macro instead of manually subtracting $36 from pic banks. 2015-03-03 14:19:27 -08:00			`INCLUDE "macros/pic.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
Blindly use wram labels for everything except mobile, part 1. Wram banks and mobile make this tough, since any address can secretly be a ghost. As usual, mobile completely disregards 99% of the codebase. It's been ignored in kind. 2015-02-08 00:03:32 -08:00			`bccoord equs "coord bc,"`
			`decoord equs "coord de,"`
			`hlcoord equs "coord hl,"`
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`
Blindly use wram labels for everything except mobile, part 1. Wram banks and mobile make this tough, since any address can secretly be a ghost. As usual, mobile completely disregards 99% of the codebase. It's been ignored in kind. 2015-02-08 00:03:32 -08:00			`if _NARG < 4`
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`ld \1, TileMap + SCREEN_WIDTH * (\3) + (\2)`
Blindly use wram labels for everything except mobile, part 1. Wram banks and mobile make this tough, since any address can secretly be a ghost. As usual, mobile completely disregards 99% of the codebase. It's been ignored in kind. 2015-02-08 00:03:32 -08:00			`else`
			`ld \1, \4 + SCREEN_WIDTH * (\3) + (\2)`
			`endc`
Start moving relevant macros into macros/text.asm. 2015-01-20 14:10:55 -08:00			`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
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`