pokecrystal-board/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) + 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
Coordinate macros all have similar structure 2017-12-29 16:05:33 -05:00			`hlcoord EQUS "coord hl,"`
Uppercase MACRO and EQU(S) according to the style guide 2017-12-28 13:23:44 +01:00			`bccoord EQUS "coord bc,"`
			`decoord EQUS "coord de,"`
Reorganize macros 2017-12-14 00:36:24 -05:00
			`coord: MACRO`
			`; register, x, y[, origin]`
			`if _NARG < 4`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld \1, (\3) * SCREEN_WIDTH + (\2) + wTileMap`
Reorganize macros 2017-12-14 00:36:24 -05:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 18:59:50 -05:00			`ld \1, (\3) * SCREEN_WIDTH + (\2) + \4`
Coordinate macros all have similar structure 2017-12-29 16:05:33 -05: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 18:59:50 -05:00			`ld \1, (\3) * BG_MAP_WIDTH + (\2) + vBGMap0`
Coordinate macros all have similar structure 2017-12-29 16:05:33 -05:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 18:59:50 -05:00			`ld \1, (\3) * BG_MAP_WIDTH + (\2) + \4`
Reorganize macros 2017-12-14 00:36:24 -05:00			`endc`
endm -> ENDM 2017-12-28 22:31:16 +01:00			`ENDM`
Reorganize macros 2017-12-14 00:36:24 -05:00
			`dwcoord: MACRO`
Coordinate macros all have similar structure 2017-12-29 16:05:33 -05:00			`; x, y`
'rept' is not indented 2018-05-06 12:16:57 -04:00			`rept _NARG / 2`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`dw (\2) * SCREEN_WIDTH + (\1) + wTileMap`
Reorganize macros 2017-12-14 00:36:24 -05:00			`shift`
			`shift`
'rept' is not indented 2018-05-06 12:16:57 -04:00			`endr`
endm -> ENDM 2017-12-28 22:31:16 +01:00			`ENDM`
Reorganize macros 2017-12-14 00:36:24 -05:00
			`ldcoord_a: MACRO`
Coordinate macros all have similar structure 2017-12-29 16:05:33 -05:00			`; x, y[, origin]`
Reorganize macros 2017-12-14 00:36:24 -05:00			`if _NARG < 3`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld [(\2) * SCREEN_WIDTH + (\1) + wTileMap], a`
Reorganize macros 2017-12-14 00:36:24 -05:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 18:59:50 -05:00			`ld [(\2) * SCREEN_WIDTH + (\1) + \3], a`
Reorganize macros 2017-12-14 00:36:24 -05:00			`endc`
endm -> ENDM 2017-12-28 22:31:16 +01:00			`ENDM`
Reorganize macros 2017-12-14 00:36:24 -05:00
			`lda_coord: MACRO`
Coordinate macros all have similar structure 2017-12-29 16:05:33 -05:00			`; x, y[, origin]`
Reorganize macros 2017-12-14 00:36:24 -05:00			`if _NARG < 3`
Prefix wram labels with w, part 2. 2018-01-23 17:39:09 -05:00			`ld a, [(\2) * SCREEN_WIDTH + (\1) + wTileMap]`
Consistent if/else/endc (matches rept/endr) and DEF (matches BANK/HIGH/LOW) 2017-12-28 21:22:35 -05:00			`else`
bgrows → * BG_MAP_WIDTH No dims macro 2017-12-29 18:59:50 -05:00			`ld a, [(\2) * SCREEN_WIDTH + (\1) + \3]`
Consistent if/else/endc (matches rept/endr) and DEF (matches BANK/HIGH/LOW) 2017-12-28 21:22:35 -05:00			`endc`
Reorganize macros 2017-12-14 00:36:24 -05:00			`ENDM`