pokecrystal/macros/coords.asm

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) + TileMap
	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) + TileMap
	shift
	shift
	endr
ENDM

ldcoord_a: MACRO
; x, y[, origin]
	if _NARG < 3
	ld [(\2) * SCREEN_WIDTH + (\1) + TileMap], 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) + TileMap]
	else
	ld a, [(\2) * SCREEN_WIDTH + (\1) + \3]
	endc
ENDM
Coordinate macros all have similar structure 2017-12-29 21:05:33 +00:00			`hlcoord EQUS "coord hl,"`
Uppercase MACRO and EQU(S) according to the style guide 2017-12-28 12:23:44 +00:00			`bccoord EQUS "coord bc,"`
			`decoord EQUS "coord de,"`
Reorganize macros 2017-12-14 05:36:24 +00:00
			`coord: MACRO`
			`; register, x, y[, origin]`
			`if _NARG < 4`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld \1, (\3) * SCREEN_WIDTH + (\2) + TileMap`
Reorganize macros 2017-12-14 05:36:24 +00:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld \1, (\3) * SCREEN_WIDTH + (\2) + \4`
Coordinate macros all have similar structure 2017-12-29 21:05:33 +00:00			`endc`
			`ENDM`

			`hlbgcoord EQUS "bgcoord hl,"`
			`bcbgcoord EQUS "bgcoord bc,"`
			`debgcoord EQUS "bgcoord de,"`

			`bgcoord: MACRO`
			`; register, x, y[, origin]`
			`if _NARG < 4`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld \1, (\3) * BG_MAP_WIDTH + (\2) + vBGMap0`
Coordinate macros all have similar structure 2017-12-29 21:05:33 +00:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld \1, (\3) * BG_MAP_WIDTH + (\2) + \4`
Reorganize macros 2017-12-14 05:36:24 +00:00			`endc`
endm -> ENDM 2017-12-28 21:31:16 +00:00			`ENDM`
Reorganize macros 2017-12-14 05:36:24 +00:00
			`dwcoord: MACRO`
Coordinate macros all have similar structure 2017-12-29 21:05:33 +00:00			`; x, y`
Reorganize macros 2017-12-14 05:36:24 +00:00			`rept _NARG / 2`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`dw (\2) * SCREEN_WIDTH + (\1) + TileMap`
Reorganize macros 2017-12-14 05:36:24 +00:00			`shift`
			`shift`
			`endr`
endm -> ENDM 2017-12-28 21:31:16 +00:00			`ENDM`
Reorganize macros 2017-12-14 05:36:24 +00:00
			`ldcoord_a: MACRO`
Coordinate macros all have similar structure 2017-12-29 21:05:33 +00:00			`; x, y[, origin]`
Reorganize macros 2017-12-14 05:36:24 +00:00			`if _NARG < 3`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld [(\2) * SCREEN_WIDTH + (\1) + TileMap], a`
Reorganize macros 2017-12-14 05:36:24 +00:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld [(\2) * SCREEN_WIDTH + (\1) + \3], a`
Reorganize macros 2017-12-14 05:36:24 +00:00			`endc`
endm -> ENDM 2017-12-28 21:31:16 +00:00			`ENDM`
Reorganize macros 2017-12-14 05:36:24 +00:00
			`lda_coord: MACRO`
Coordinate macros all have similar structure 2017-12-29 21:05:33 +00:00			`; x, y[, origin]`
Reorganize macros 2017-12-14 05:36:24 +00:00			`if _NARG < 3`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld a, [(\2) * SCREEN_WIDTH + (\1) + TileMap]`
Consistent if/else/endc (matches rept/endr) and DEF (matches BANK/HIGH/LOW) 2017-12-29 02:22:35 +00:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 23:59:50 +00:00			`ld a, [(\2) * SCREEN_WIDTH + (\1) + \3]`
Consistent if/else/endc (matches rept/endr) and DEF (matches BANK/HIGH/LOW) 2017-12-29 02:22:35 +00:00			`endc`
Reorganize macros 2017-12-14 05:36:24 +00:00			`ENDM`