Merge https://github.com/libjet/pokegold

1 files changed, 52 insertions, 0 deletions

diff --git a/macros/coords.asm b/macros/coords.asm
new file mode 100755
index 00000000..0833c242
--- /dev/null
+++ b/macros/coords.asm
@@ -0,0 +1,52 @@
+hlcoord EQUS "coord hl,"
+bccoord EQUS "coord bc,"
+decoord EQUS "coord de,"
+
+coord: MACRO
+; register, x, y[, origin]
+	if _NARG < 4
+	ld \1, (\3) * SCREEN_WIDTH + (\2) + wTileMap
+	else
+	ld \1, (\3) * SCREEN_WIDTH + (\2) + \4
+	endc
+ENDM
+
+hlbgcoord EQUS "bgcoord hl,"
+bcbgcoord EQUS "bgcoord bc,"
+debgcoord EQUS "bgcoord de,"
+
+bgcoord: MACRO
+; register, x, y[, origin]
+	if _NARG < 4
+	ld \1, (\3) * BG_MAP_WIDTH + (\2) + vBGMap0
+	else
+	ld \1, (\3) * BG_MAP_WIDTH + (\2) + \4
+	endc
+ENDM
+
+dwcoord: MACRO
+; x, y
+rept _NARG / 2
+	dw (\2) * SCREEN_WIDTH + (\1) + wTileMap
+	shift
+	shift
+endr
+ENDM
+
+ldcoord_a: MACRO
+; x, y[, origin]
+	if _NARG < 3
+	ld [(\2) * SCREEN_WIDTH + (\1) + wTileMap], a
+	else
+	ld [(\2) * SCREEN_WIDTH + (\1) + \3], a
+	endc
+ENDM
+
+lda_coord: MACRO
+; x, y[, origin]
+	if _NARG < 3
+	ld a, [(\2) * SCREEN_WIDTH + (\1) + wTileMap]
+	else
+	ld a, [(\2) * SCREEN_WIDTH + (\1) + \3]
+	endc
+ENDM