shithub: pokered

Download patch

ref: 148d3f3cf28f9c270e3d5043af0692d95bc731c5
parent: 0ad1153f165023220c7c2e3bb187ccc5d6ca75bd
author: dannye <corrnondacqb@yahoo.com>
date: Sat Jul 18 11:52:03 EDT 2015

Consolidate coord macros

--- a/engine/HoF_room_pc.asm
+++ b/engine/HoF_room_pc.asm
@@ -14,9 +14,9 @@
 	ld bc, $10
 	ld a, $ff
 	call FillMemory
-	hlCoord 0, 0
+	coord hl, 0, 0
 	call FillFourRowsWithBlack
-	hlCoord 0, 14
+	coord hl, 0, 14
 	call FillFourRowsWithBlack
 	ld a, $c0
 	ld [rBGP], a
@@ -61,7 +61,7 @@
 	ld a,[hl]
 	ld [wcf91],a
 	ld [wd0b5],a
-	hlCoord 8, 6
+	coord hl, 8, 6
 	call GetMonHeader
 	call LoadFrontSpriteByMonIndex
 	ld hl,vBGMap0 + $c
@@ -162,7 +162,7 @@
 	jp FillMemory
 
 FillMiddleOfScreenWithWhite: ; 74183 (1d:4183)
-	hlCoord 0, 4
+	coord hl, 0, 4
 	ld bc, SCREEN_WIDTH * 10
 	ld a, $7f ; blank white tile
 	jp FillMemory
@@ -172,7 +172,7 @@
 	push de
 .nextCreditsScreen
 	pop de
-	hlCoord 9, 6
+	coord hl, 9, 6
 	push hl
 	call FillMiddleOfScreenWithWhite
 	pop hl
@@ -248,10 +248,10 @@
 	ld hl, vChars2 + $600
 	ld bc, (BANK(TheEndGfx) << 8) + $0a
 	call CopyVideoData
-	hlCoord 4, 8
+	coord hl, 4, 8
 	ld de, TheEndTextString
 	call PlaceString
-	hlCoord 4, 9
+	coord hl, 4, 9
 	inc de
 	call PlaceString
 	jp FadeInCreditsText
--- a/engine/battle/animations.asm
+++ b/engine/battle/animations.asm
@@ -759,7 +759,7 @@
 	cp a,1
 	ret nz
 .moveGhostMarowakLeft
-	hlCoord 17, 0
+	coord hl, 17, 0
 	ld de,20
 	ld bc,$0707 ; 7 rows and 7 columns
 .loop
@@ -858,7 +858,7 @@
 	cp a,1 ; is it the end of the subanimation?
 	jr nz,FlashScreenEveryFourFrameBlocks
 ; if it's the end of the subanimation, make the attacking pokemon disappear
-	hlCoord 1, 5
+	coord hl, 1, 5
 	jp AnimationHideMonPic ; make pokemon disappear
 
 ; flashes the screen when subanimation counter is 1 modulo 4
@@ -1292,12 +1292,12 @@
 	ld c, $7
 	ld a, [H_WHOSETURN]
 	and a
-	hlCoord 1, 6
-	deCoord 1, 5
+	coord hl, 1, 6
+	coord de, 1, 5
 	ld a, $30
 	jr z, .asm_79291
-	hlCoord 12, 1
-	deCoord 12, 0
+	coord hl, 12, 1
+	coord de, 12, 0
 	ld a, $ff
 .asm_79291
 	ld [wd09f], a
@@ -1352,9 +1352,9 @@
 	jr nz, .asm_792c4
 	ld a, [H_WHOSETURN]
 	and a
-	hlCoord 1, 11
+	coord hl, 1, 11
 	jr z, .asm_792e2
-	hlCoord 12, 6
+	coord hl, 12, 6
 .asm_792e2
 	ld a, [wd09f]
 	inc a
@@ -1513,11 +1513,11 @@
 ; The mon's sprite disappears after this animation.
 	ld a, [H_WHOSETURN]
 	and a
-	hlCoord 0, 5
-	deCoord 2, 5
+	coord hl, 0, 5
+	coord de, 2, 5
 	jr z, .asm_793c2
-	hlCoord 11, 0
-	deCoord 13, 0
+	coord hl, 11, 0
+	coord de, 13, 0
 
 .asm_793c2
 	xor a
@@ -1561,9 +1561,9 @@
 	call AnimationHideMonPic
 	ld a, [H_WHOSETURN]
 	and a
-	hlCoord 2, 5
+	coord hl, 2, 5
 	jr z, .asm_79407
-	hlCoord 11, 0
+	coord hl, 11, 0
 .asm_79407
 	xor a
 	push hl
@@ -1674,12 +1674,12 @@
 	ld a, [H_WHOSETURN]
 	and a
 	jr z, .asm_794b1
-	hlCoord 16, 0
-	deCoord 14, 0
+	coord hl, 16, 0
+	coord de, 14, 0
 	jr .asm_794b7
 .asm_794b1
-	hlCoord 5, 5
-	deCoord 3, 5
+	coord hl, 5, 5
+	coord de, 3, 5
 .asm_794b7
 	push de
 	xor a
@@ -1883,10 +1883,10 @@
 	ld a, [H_WHOSETURN]
 	and a
 	jr z, .asm_79602
-	hlCoord 12, 0
+	coord hl, 12, 0
 	jr .asm_79605
 .asm_79602
-	hlCoord 0, 5
+	coord hl, 0, 5
 .asm_79605
 	ld d, $8
 .asm_79607
@@ -2121,7 +2121,7 @@
 	xor a
 	ld [W_SPRITEFLIPPED], a
 	call GetMonHeader
-	hlCoord 12, 0
+	coord hl, 12, 0
 	call LoadFrontSpriteByMonIndex
 	jr .asm_797d3
 .asm_797b0
@@ -2185,7 +2185,7 @@
 	push bc
 	ld e, a
 	ld d, $0
-	hlCoord 0, 0
+	coord hl, 0, 0
 	add hl, de
 	ld bc, $707
 	call ClearScreenArea
@@ -2207,7 +2207,7 @@
 .enemyTurn
 	ld a, 12
 .next
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld e, a
 	ld d, 0
 	add hl, de
--- a/engine/battle/battle_transitions.asm
+++ b/engine/battle/battle_transitions.asm
@@ -202,7 +202,7 @@
 	call BattleTransition_InwardSpiral
 	jr .done
 .outwardSpiral
-	hlCoord 10, 10
+	coord hl, 10, 10
 	ld a, $3
 	ld [wd09f], a
 	ld a, l
@@ -231,7 +231,7 @@
 BattleTransition_InwardSpiral: ; 70aaa (1c:4aaa)
 	ld a, $7
 	ld [wWhichTrade], a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld c, $11
 	ld de, SCREEN_WIDTH
 	call BattleTransition_InwardSpiral_
@@ -371,20 +371,20 @@
 	push bc
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 0, 7
-	deCoord 0, 8
+	coord hl, 0, 7
+	coord de, 0, 8
 	ld bc, -SCREEN_WIDTH * 2
 	call BattleTransition_CopyTiles1
-	hlCoord 0, 10
-	deCoord 0, 9
+	coord hl, 0, 10
+	coord de, 0, 9
 	ld bc, SCREEN_WIDTH * 2
 	call BattleTransition_CopyTiles1
-	hlCoord 8, 0
-	deCoord 9, 0
+	coord hl, 8, 0
+	coord de, 9, 0
 	ld bc, -2
 	call BattleTransition_CopyTiles2
-	hlCoord 11, 0
-	deCoord 10, 0
+	coord hl, 11, 0
+	coord de, 10, 0
 	ld bc, $2
 	call BattleTransition_CopyTiles2
 	ld a, $1
@@ -405,20 +405,20 @@
 	ld [H_AUTOBGTRANSFERENABLED], a
 .loop
 	push bc
-	hlCoord 0, 16
-	deCoord 0, 17
+	coord hl, 0, 16
+	coord de, 0, 17
 	ld bc, -SCREEN_WIDTH * 2
 	call BattleTransition_CopyTiles1
-	hlCoord 0, 1
-	deCoord 0, 0
+	coord hl, 0, 1
+	coord de, 0, 0
 	ld bc, SCREEN_WIDTH * 2
 	call BattleTransition_CopyTiles1
-	hlCoord 18, 0
-	deCoord 19, 0
+	coord hl, 18, 0
+	coord de, 19, 0
 	ld bc, -2
 	call BattleTransition_CopyTiles2
-	hlCoord 1, 0
-	deCoord 0, 0
+	coord hl, 1, 0
+	coord de, 0, 0
 	ld bc, $2
 	call BattleTransition_CopyTiles2
 	call BattleTransition_TransferDelay3
@@ -514,8 +514,8 @@
 ; used for high level wild dungeon battles
 BattleTransition_VerticalStripes: ; 70c7e (1c:4c7e)
 	ld c, SCREEN_HEIGHT
-	hlCoord 0, 0
-	deCoord 1, 17
+	coord hl, 0, 0
+	coord de, 1, 17
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
 .loop
@@ -553,8 +553,8 @@
 ; used for low level wild dungeon battles
 BattleTransition_HorizontalStripes: ; 70cb4 (1c:4cb4)
 	ld c, SCREEN_WIDTH
-	hlCoord 0, 0
-	deCoord 19, 1
+	coord hl, 0, 0
+	coord de, 19, 1
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
 .loop
--- a/engine/battle/core.asm
+++ b/engine/battle/core.asm
@@ -101,7 +101,7 @@
 	ld a, MESSAGE_BOX ; the usual text box at the bottom of the screen
 	ld [wTextBoxID], a
 	call DisplayTextBoxID
-	hlCoord 1, 5
+	coord hl, 1, 5
 	ld bc, $307
 	call ClearScreenArea
 	call DisableLCD
@@ -117,7 +117,7 @@
 	or c
 	jr nz, .clearBackgroundLoop
 ; copy the work RAM tile map to VRAM
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de, vBGMap0
 	ld b, 18 ; number of rows
 .copyRowLoop
@@ -176,7 +176,7 @@
 	ld [H_AUTOBGTRANSFERENABLED], a
 	ld a, $31
 	ld [$ffe1], a
-	hlCoord 1, 5
+	coord hl, 1, 5
 	predef CopyUncompressedPicToTilemap
 	xor a
 	ld [hWY], a
@@ -324,7 +324,7 @@
 	ld [wcf91], a
 	ld [wBattleMonSpecies2], a
 	call LoadScreenTilesFromBuffer1
-	hlCoord 1, 5
+	coord hl, 1, 5
 	ld a, $9
 	call SlideTrainerPicOffScreen
 	call SaveScreenTilesToBuffer1
@@ -760,12 +760,12 @@
 	ret
 
 UpdateCurMonHPBar: ; 3c4f6 (f:44f6)
-	hlCoord 10, 9    ; tile pointer to player HP bar
+	coord hl, 10, 9    ; tile pointer to player HP bar
 	ld a, [H_WHOSETURN]
 	and a
 	ld a, $1
 	jr z, .playersTurn
-	hlCoord 2, 2    ; tile pointer to enemy HP bar
+	coord hl, 2, 2    ; tile pointer to enemy HP bar
 	xor a
 .playersTurn
 	push bc
@@ -852,10 +852,10 @@
 	ld hl, wPlayerUsedMove
 	ld [hli], a
 	ld [hl], a
-	hlCoord 12, 5
-	deCoord 12, 6
+	coord hl, 12, 5
+	coord de, 12, 6
 	call SlideDownFaintedMonPic
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, $40b
 	call ClearScreenArea
 	ld a, [W_ISINBATTLE]
@@ -1105,11 +1105,11 @@
 	ld [hl], a
 	ld [wBattleMonStatus], a
 	call ReadPlayerMonCurHPAndStatus
-	hlCoord 9, 7
+	coord hl, 9, 7
 	ld bc, $50b
 	call ClearScreenArea
-	hlCoord 1, 10
-	deCoord 1, 11
+	coord hl, 1, 10
+	coord de, 1, 11
 	call SlideDownFaintedMonPic
 	ld a, $1
 	ld [wBattleResult], a
@@ -1137,7 +1137,7 @@
 	ld hl, UseNextMonText
 	call PrintText
 .displayYesNoBox
-	hlCoord 13, 9
+	coord hl, 13, 9
 	ld bc, $a0e
 	ld a, TWO_OPTION_MENU
 	ld [wTextBoxID], a
@@ -1214,7 +1214,7 @@
 	ld a, [W_CUROPPONENT]
 	cp $c8 + SONY1
 	jr nz, .notSony1Battle
-	hlCoord 0, 0  ; sony 1 battle
+	coord hl, 0, 0  ; sony 1 battle
 	ld bc, $815
 	call ClearScreenArea
 	call ScrollTrainerPicAfterBattle
@@ -1384,7 +1384,7 @@
 	ld [wAICount],a
 	ld hl,W_PLAYERBATTSTATUS1
 	res 5,[hl]
-	hlCoord 18, 0
+	coord hl, 18, 0
 	ld a,8
 	call SlideTrainerPicOffScreen
 	call PrintEmptyString
@@ -1454,7 +1454,7 @@
 	jr nz,.next4
 	ld hl, TrainerAboutToUseText
 	call PrintText
-	hlCoord 0, 7
+	coord hl, 0, 7
 	ld bc,$0801
 	ld a,TWO_OPTION_MENU
 	ld [wTextBoxID],a
@@ -1489,7 +1489,7 @@
 	call LoadScreenTilesFromBuffer1
 .next4
 	call ClearSprites
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc,$040B
 	call ClearScreenArea
 	ld b,1
@@ -1505,7 +1505,7 @@
 	call LoadMonFrontSprite
 	ld a,$CF
 	ld [$FFE1],a
-	hlCoord 15, 6
+	coord hl, 15, 6
 	predef AnimateSendingOutMon
 	ld a,[wEnemyMonSpecies2]
 	call PlayCry
@@ -1835,7 +1835,7 @@
 	ld [H_WHOSETURN], a
 	ld a, POOF_ANIM
 	call PlayMoveAnimation
-	hlCoord 4, 11
+	coord hl, 4, 11
 	predef AnimateSendingOutMon
 	ld a, [wcf91]
 	call PlayCry
@@ -1844,10 +1844,10 @@
 
 ; show 2 stages of the player mon getting smaller before disappearing
 AnimateRetreatingPlayerMon: ; 3ccfa (f:4cfa)
-	hlCoord 1, 5
+	coord hl, 1, 5
 	ld bc, $707
 	call ClearScreenArea
-	hlCoord 3, 7
+	coord hl, 3, 7
 	ld bc, $505
 	xor a
 	ld [wDownscaledMonSize], a
@@ -1856,7 +1856,7 @@
 	ld c, 4
 	call DelayFrames
 	call .clearScreenArea
-	hlCoord 4, 9
+	coord hl, 4, 9
 	ld bc, $303
 	ld a, $1
 	ld [wDownscaledMonSize], a
@@ -1868,7 +1868,7 @@
 	ld a, $4c
 	Coorda 5, 11
 .clearScreenArea
-	hlCoord 1, 5
+	coord hl, 1, 5
 	ld bc, $707
 	jp ClearScreenArea
 
@@ -1891,14 +1891,14 @@
 DrawPlayerHUDAndHPBar: ; 3cd60 (f:4d60)
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 9, 7
+	coord hl, 9, 7
 	ld bc, $50b
 	call ClearScreenArea
 	callab PlacePlayerHUDTiles
-	hlCoord 18, 9
+	coord hl, 18, 9
 	ld [hl], $73
 	ld de, wBattleMonNick
-	hlCoord 10, 7
+	coord hl, 10, 7
 	call CenterMonName
 	call PlaceString
 	ld hl, wBattleMonSpecies
@@ -1909,7 +1909,7 @@
 	ld de, wLoadedMonLevel
 	ld bc, $b
 	call CopyData
-	hlCoord 14, 8
+	coord hl, 14, 8
 	push hl
 	inc hl
 	ld de, wLoadedMonStatus
@@ -1920,7 +1920,7 @@
 .asm_3cdae
 	ld a, [wLoadedMonSpecies]
 	ld [wcf91], a
-	hlCoord 10, 9
+	coord hl, 10, 9
 	predef DrawHP
 	ld a, $1
 	ld [H_AUTOBGTRANSFERENABLED], a
@@ -1952,15 +1952,15 @@
 DrawEnemyHUDAndHPBar: ; 3cdec (f:4dec)
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, $40c
 	call ClearScreenArea
 	callab PlaceEnemyHUDTiles
 	ld de, wEnemyMonNick
-	hlCoord 1, 0
+	coord hl, 1, 0
 	call CenterMonName
 	call PlaceString
-	hlCoord 4, 1
+	coord hl, 4, 1
 	push hl
 	inc hl
 	ld de, wEnemyMonStatus
@@ -2033,7 +2033,7 @@
 .drawHPBar
 	xor a
 	ld [wHPBarType], a
-	hlCoord 2, 2
+	coord hl, 2, 2
 	call DrawHPBar
 	ld a, $1
 	ld [H_AUTOBGTRANSFERENABLED], a
@@ -2108,12 +2108,12 @@
 	ld bc, $b
 	call CopyData
 ; the following simulates the keystrokes by drawing menus on screen
-	hlCoord 9, 14
+	coord hl, 9, 14
 	ld [hl], "▶"
 	ld c, 80
 	call DelayFrames
 	ld [hl], $7f
-	hlCoord 9, 16
+	coord hl, 9, 16
 	ld [hl], "▶"
 	ld c, 50
 	call DelayFrames
@@ -2145,7 +2145,7 @@
 .safariLeftColumn
 	Coorda 13, 14
 	Coorda 13, 16
-	hlCoord 7, 14
+	coord hl, 7, 14
 	ld de, W_NUMSAFARIBALLS
 	ld bc, $102
 	call PrintNumber
@@ -2178,7 +2178,7 @@
 .safariRightColumn
 	Coorda 1, 14 ; clear upper cursor position in left column
 	Coorda 1, 16 ; clear lower cursor position in left column
-	hlCoord 7, 14
+	coord hl, 7, 14
 	ld de, W_NUMSAFARIBALLS
 	ld bc, $102
 	call PrintNumber
@@ -2399,7 +2399,7 @@
 	call GBPalNormal
 	jp DisplayBattleMenu
 .partyMonDeselected
-	hlCoord 11, 11
+	coord hl, 11, 11
 	ld bc, $81
 	ld a, $7f
 	call FillMemory
@@ -2561,17 +2561,17 @@
 	ret z
 	ld hl, wBattleMonMoves
 	call .loadmoves
-	hlCoord 4, 12
+	coord hl, 4, 12
 	ld b, $4
 	ld c, $e
 	di
 	call TextBoxBorder
-	hlCoord 4, 12
+	coord hl, 4, 12
 	ld [hl], $7a
-	hlCoord 10, 12
+	coord hl, 10, 12
 	ld [hl], $7e
 	ei
-	hlCoord 6, 13
+	coord hl, 6, 13
 	call .writemoves
 	ld b, $5
 	ld a, $c
@@ -2579,11 +2579,11 @@
 .mimicmenu
 	ld hl, wEnemyMonMoves
 	call .loadmoves
-	hlCoord 0, 7
+	coord hl, 0, 7
 	ld b, $4
 	ld c, $e
 	call TextBoxBorder
-	hlCoord 2, 8
+	coord hl, 2, 8
 	call .writemoves
 	ld b, $1
 	ld a, $7
@@ -2594,11 +2594,11 @@
 	ld bc, $2c
 	call AddNTimes
 	call .loadmoves
-	hlCoord 4, 7
+	coord hl, 4, 7
 	ld b, $4
 	ld c, $e
 	call TextBoxBorder
-	hlCoord 6, 8
+	coord hl, 6, 8
 	call .writemoves
 	ld b, $5
 	ld a, $7
@@ -2654,7 +2654,7 @@
 	jr z, .battleselect
 	dec a
 	jr nz, .select
-	hlCoord 1, 14
+	coord hl, 1, 14
 	ld de, WhichTechniqueString
 	call PlaceString
 	jr .select
@@ -2666,7 +2666,7 @@
 	ld a, [wMenuItemToSwap]
 	and a
 	jr z, .select
-	hlCoord 5, 13
+	coord hl, 5, 13
 	dec a
 	ld bc, $14
 	call AddNTimes
@@ -2903,7 +2903,7 @@
 PrintMenuItem: ; 3d4b6 (f:54b6)
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 0, 8
+	coord hl, 0, 8
 	ld b, $3
 	ld c, $9
 	call TextBoxBorder
@@ -2916,7 +2916,7 @@
 	ld a, [wCurrentMenuItem]
 	cp b
 	jr nz, .notDisabled
-	hlCoord 1, 10
+	coord hl, 1, 10
 	ld de, DisabledText
 	call PlaceString
 	jr .moveDisabled
@@ -2948,23 +2948,23 @@
 	and $3f
 	ld [wcd6d], a
 ; print TYPE/<type> and <curPP>/<maxPP>
-	hlCoord 1, 9
+	coord hl, 1, 9
 	ld de, TypeText
 	call PlaceString
-	hlCoord 7, 11
+	coord hl, 7, 11
 	ld [hl], "/"
-	hlCoord 5, 9
+	coord hl, 5, 9
 	ld [hl], "/"
-	hlCoord 5, 11
+	coord hl, 5, 11
 	ld de, wcd6d
 	ld bc, $102
 	call PrintNumber
-	hlCoord 8, 11
+	coord hl, 8, 11
 	ld de, wd11e
 	ld bc, $102
 	call PrintNumber
 	call GetCurrentMove
-	hlCoord 2, 10
+	coord hl, 2, 10
 	predef PrintMoveType
 .moveDisabled
 	ld a, $1
@@ -4924,7 +4924,7 @@
 	ld [wHPBarNewHP+1],a
 	ld a,[hl]
 	ld [wHPBarNewHP],a
-	hlCoord 2, 2
+	coord hl, 2, 2
 	xor a
 	ld [wHPBarType],a
 	predef UpdateHPBar2 ; animate the HP bar shortening
@@ -5042,7 +5042,7 @@
 	ld [wHPBarMaxHP+1],a
 	ld a,[hl]
 	ld [wHPBarMaxHP],a
-	hlCoord 10, 9
+	coord hl, 10, 9
 	ld a,$01
 	ld [wHPBarType],a
 	predef UpdateHPBar2 ; animate the HP bar shortening
@@ -6456,7 +6456,7 @@
 	ld [$0], a
 	ld a, $31
 	ld [$ffe1], a
-	hlCoord 1, 5
+	coord hl, 1, 5
 	predef_jump CopyUncompressedPicToTilemap
 
 ; does nothing since no stats are ever selected (barring glitches)
@@ -6875,7 +6875,7 @@
 	ld [$ffe1], a
 	dec a
 	ld [wAICount], a
-	hlCoord 12, 0
+	coord hl, 12, 0
 	predef CopyUncompressedPicToTilemap
 	ld a, $ff
 	ld [wEnemyMonPartyPos], a
@@ -6929,7 +6929,7 @@
 	xor a
 	ld [W_TRAINERCLASS], a
 	ld [$ffe1], a
-	hlCoord 12, 0
+	coord hl, 12, 0
 	predef CopyUncompressedPicToTilemap
 
 ; common code that executes after init battle code specific to trainer or wild battles
@@ -6951,10 +6951,10 @@
 	ld a, $9c
 	ld [H_AUTOBGTRANSFERDEST + 1], a
 	call LoadScreenTilesFromBuffer1
-	hlCoord 9, 7
+	coord hl, 9, 7
 	ld bc, $50a
 	call ClearScreenArea
-	hlCoord 1, 0
+	coord hl, 1, 0
 	ld bc, $40a
 	call ClearScreenArea
 	call ClearSprites
@@ -7098,7 +7098,7 @@
 ; been loaded with GetMonHeader.
 	ld a, [wBattleMonSpecies2]
 	ld [wcf91], a
-	hlCoord 1, 5
+	coord hl, 1, 5
 	ld b, $7
 	ld c, $8
 	call ClearScreenArea
--- a/engine/battle/draw_hud_pokeball_gfx.asm
+++ b/engine/battle/draw_hud_pokeball_gfx.asm
@@ -121,7 +121,7 @@
 	ld de, wTrainerFacingDirection
 	ld bc, $3
 	call CopyData
-	hlCoord 18, 10
+	coord hl, 18, 10
 	ld de, rIE
 	jr PlaceHUDTiles
 
@@ -136,7 +136,7 @@
 	ld de, wTrainerFacingDirection
 	ld bc, $3
 	call CopyData
-	hlCoord 1, 2
+	coord hl, 1, 2
 	ld de, $1
 	jr PlaceHUDTiles
 
--- a/engine/battle/end_of_battle.asm
+++ b/engine/battle/end_of_battle.asm
@@ -19,7 +19,7 @@
 	jr z, .placeWinOrLoseString
 	ld de, DrawText
 .placeWinOrLoseString
-	hlCoord 6, 8
+	coord hl, 6, 8
 	call PlaceString
 	ld c, 200
 	call DelayFrames
--- a/engine/battle/ghost_marowak_anim.asm
+++ b/engine/battle/ghost_marowak_anim.asm
@@ -4,7 +4,7 @@
 	ld [rOBP1], a
 	call CopyMonPicFromBGToSpriteVRAM ; cover the BG ghost pic with a sprite ghost pic that looks the same
 ; now that the ghost pic is being displayed using sprites, clear the ghost pic from the BG tilemap
-	hlCoord 12, 0
+	coord hl, 12, 0
 	ld bc, $707
 	call ClearScreenArea
 	call Delay3
--- a/engine/battle/link_battle_versus_text.asm
+++ b/engine/battle/link_battle_versus_text.asm
@@ -1,18 +1,18 @@
 ; display "[player] VS [enemy]" text box with pokeballs representing their parties next to the names
 DisplayLinkBattleVersusTextBox: ; 372d6 (d:72d6)
 	call LoadTextBoxTilePatterns
-	hlCoord 3, 4
+	coord hl, 3, 4
 	ld b, $7
 	ld c, $c
 	call TextBoxBorder
-	hlCoord 4, 5
+	coord hl, 4, 5
 	ld de, wPlayerName
 	call PlaceString
-	hlCoord 4, 10
+	coord hl, 4, 10
 	ld de, wLinkEnemyTrainerName
 	call PlaceString
 ; place bold "VS" tiles between the names
-	hlCoord 9, 8
+	coord hl, 9, 8
 	ld a, $69
 	ld [hli], a
 	ld [hl], $6a
--- a/engine/battle/moveEffects/drain_hp_effect.asm
+++ b/engine/battle/moveEffects/drain_hp_effect.asm
@@ -71,10 +71,10 @@
 .next
 	ld a, [H_WHOSETURN]
 	and a
-	hlCoord 10, 9
+	coord hl, 10, 9
 	ld a, $1
 	jr z, .next2
-	hlCoord 2, 2
+	coord hl, 2, 2
 	xor a
 .next2
 	ld [wHPBarType], a
--- a/engine/battle/moveEffects/heal_effect.asm
+++ b/engine/battle/moveEffects/heal_effect.asm
@@ -89,10 +89,10 @@
 	call BankswitchEtoF
 	ld a, [H_WHOSETURN]
 	and a
-	hlCoord 10, 9
+	coord hl, 10, 9
 	ld a, $1
 	jr z, .updateHPBar
-	hlCoord 2, 2
+	coord hl, 2, 2
 	xor a
 .updateHPBar
 	ld [wHPBarType], a
--- a/engine/battle/moveEffects/recoil_effect.asm
+++ b/engine/battle/moveEffects/recoil_effect.asm
@@ -53,12 +53,12 @@
 	ld [hli], a
 	ld [hl], a
 .getHPBarCoords
-	hlCoord 10, 9
+	coord hl, 10, 9
 	ld a, [H_WHOSETURN]
 	and a
 	ld a, $1
 	jr z, .updateHPBar
-	hlCoord 2, 2
+	coord hl, 2, 2
 	xor a
 .updateHPBar
 	ld [wHPBarType], a
--- a/engine/battle/scroll_draw_trainer_pic.asm
+++ b/engine/battle/scroll_draw_trainer_pic.asm
@@ -6,7 +6,7 @@
 	ld b, $1
 	call GoPAL_SET
 	callab _LoadTrainerPic
-	hlCoord 19, 0
+	coord hl, 19, 0
 	ld c, $0
 .scrollLoop
 	inc c
--- a/engine/battle/trainer_ai.asm
+++ b/engine/battle/trainer_ai.asm
@@ -641,7 +641,7 @@
 
 AIPrintItemUseAndUpdateHPBar: ; 3a718 (e:6718)
 	call AIPrintItemUse_
-	hlCoord 2, 2
+	coord hl, 2, 2
 	xor a
 	ld [wHPBarType],a
 	predef UpdateHPBar2
--- a/engine/battle/wild_encounters.asm
+++ b/engine/battle/wild_encounters.asm
@@ -25,7 +25,7 @@
 .asm_1389e
 ; determine if wild pokemon can appear in the half-block we're standing in
 ; is the bottom right tile (9,9) of the half-block we're standing in a grass/water tile?
-	hlCoord 9, 9
+	coord hl, 9, 9
 	ld c, [hl]
 	ld a, [W_GRASSTILE]
 	cp c
--- a/engine/cable_club.asm
+++ b/engine/cable_club.asm
@@ -9,11 +9,11 @@
 	call LoadFontTilePatterns
 	call LoadHpBarAndStatusTilePatterns
 	call LoadTrainerInfoTextBoxTiles
-	hlCoord 3, 8
+	coord hl, 3, 8
 	ld b, 2
 	ld c, 12
 	call CableClub_TextBoxBorder
-	hlCoord 4, 10
+	coord hl, 4, 10
 	ld de, PleaseWaitString
 	call PlaceString
 	ld hl, wPlayerNumHits
@@ -399,7 +399,7 @@
 	ld [wTopMenuItemY], a
 	ld a, 1
 	ld [wTopMenuItemX], a
-	hlCoord 1, 1
+	coord hl, 1, 1
 	ld bc, $0601
 	call ClearScreenArea
 .playerMonMenu_HandleInput
@@ -464,11 +464,11 @@
 	dec a
 .displayStatsTradeMenu
 	push af
-	hlCoord 0, 14
+	coord hl, 0, 14
 	ld b, 2
 	ld c, 18
 	call CableClub_TextBoxBorder
-	hlCoord 2, 16
+	coord hl, 2, 16
 	ld de, .statsTrade
 	call PlaceString
 	xor a
@@ -596,15 +596,15 @@
 	ret
 
 TradeCenter_DrawCancelBox:
-	hlCoord 11, 15
+	coord hl, 11, 15
 	ld a, $7e
 	ld bc, 2 * 20 + 9
 	call FillMemory
-	hlCoord 0, 15
+	coord hl, 0, 15
 	ld b, 1
 	ld c, 9
 	call CableClub_TextBoxBorder
-	hlCoord 2, 16
+	coord hl, 2, 16
 	ld de, CancelTextString
 	jp PlaceString
 
@@ -613,7 +613,7 @@
 
 TradeCenter_PlaceSelectedEnemyMonMenuCursor:
 	ld a, [wSerialSyncAndExchangeNybbleReceiveData]
-	hlCoord 1, 9
+	coord hl, 1, 9
 	ld bc, 20
 	call AddNTimes
 	ld [hl], $ec ; cursor
@@ -630,24 +630,24 @@
 	jp TradeCenter_DrawCancelBox
 
 TradeCenter_DrawPartyLists:
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, 6
 	ld c, 18
 	call CableClub_TextBoxBorder
-	hlCoord 0, 8
+	coord hl, 0, 8
 	ld b, 6
 	ld c, 18
 	call CableClub_TextBoxBorder
-	hlCoord 5, 0
+	coord hl, 5, 0
 	ld de, wPlayerName
 	call PlaceString
-	hlCoord 5, 8
+	coord hl, 5, 8
 	ld de, wLinkEnemyTrainerName
 	call PlaceString
-	hlCoord 2, 1
+	coord hl, 2, 1
 	ld de, wPartySpecies
 	call TradeCenter_PrintPartyListNames
-	hlCoord 2, 9
+	coord hl, 2, 9
 	ld de, wEnemyPartyMons
 	; fall through
 
@@ -684,7 +684,7 @@
 	ld [wSerialExchangeNybbleReceiveData], a
 	ld [wMenuWatchMovingOutOfBounds], a
 	ld [wMenuJoypadPollCount], a
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld b, 4
 	ld c, 18
 	call CableClub_TextBoxBorder
@@ -709,10 +709,10 @@
 	ld [wd11e], a
 	call GetMonName
 	ld hl, WillBeTradedText
-	bcCoord 1, 14
+	coord bc, 1, 14
 	call TextCommandProcessor
 	call SaveScreenTilesToBuffer1
-	hlCoord 10, 7
+	coord hl, 10, 7
 	ld bc, $080b
 	ld a, TRADE_CANCEL_MENU
 	ld [wTwoOptionMenuID], a
@@ -726,11 +726,11 @@
 ; if trade cancelled
 	ld a, $1
 	ld [wSerialExchangeNybbleSendData], a
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld b, 4
 	ld c, 18
 	call CableClub_TextBoxBorder
-	hlCoord 1, 14
+	coord hl, 1, 14
 	ld de, TradeCanceled
 	call PlaceString
 	call Serial_PrintWaitingTextAndSyncAndExchangeNybble
@@ -743,11 +743,11 @@
 	dec a ; did the other person cancel?
 	jr nz, .doTrade
 ; if the other person cancelled
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld b, 4
 	ld c, 18
 	call CableClub_TextBoxBorder
-	hlCoord 1, 14
+	coord hl, 1, 14
 	ld de, TradeCanceled
 	call PlaceString
 	jp .tradeCancelled
@@ -851,11 +851,11 @@
 	call Serial_PrintWaitingTextAndSyncAndExchangeNybble
 	ld c, 40
 	call DelayFrames
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld b, 4
 	ld c, 18
 	call CableClub_TextBoxBorder
-	hlCoord 1, 14
+	coord hl, 1, 14
 	ld de, TradeCompleted
 	call PlaceString
 	predef SaveSAVtoSRAM2
--- a/engine/clear_save.asm
+++ b/engine/clear_save.asm
@@ -5,7 +5,7 @@
 	call LoadTextBoxTilePatterns
 	ld hl, ClearSaveDataText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc, $80f
 	ld a, NO_YES_MENU
 	ld [wTwoOptionMenuID], a
--- a/engine/evolution.asm
+++ b/engine/evolution.asm
@@ -99,7 +99,7 @@
 
 Evolution_LoadPic: ; 7beb9 (1e:7eb9)
 	call GetMonHeader
-	hlCoord 7, 2
+	coord hl, 7, 2
 	jp LoadFlippedFrontSpriteByMonIndex
 
 Func_7bec2: ; 7bec2 (1e:7ec2)
@@ -117,7 +117,7 @@
 	push bc
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 7, 2
+	coord hl, 7, 2
 	ld bc, $707
 	ld de, $d
 .asm_7bee3
--- a/engine/evos_moves.asm
+++ b/engine/evos_moves.asm
@@ -121,7 +121,7 @@
 	call DelayFrames
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, $c14
 	call ClearScreenArea
 	ld a, $1
--- a/engine/hall_of_fame.asm
+++ b/engine/hall_of_fame.asm
@@ -57,11 +57,11 @@
 	call HoFDisplayAndRecordMonInfo
 	ld c, 80
 	call DelayFrames
-	hlCoord 2, 13
+	coord hl, 2, 13
 	ld b, $3
 	ld c, $e
 	call TextBoxBorder
-	hlCoord 4, 15
+	coord hl, 4, 15
 	ld de, HallOfFameText
 	call PlaceString
 	ld c, 180
@@ -112,7 +112,7 @@
 	call HoFLoadPlayerPics
 	jr .next1
 .showMon
-	hlCoord 12, 5
+	coord hl, 12, 5
 	call GetMonHeader
 	call LoadFrontSpriteByMonIndex
 	predef LoadMonBackPic
@@ -157,22 +157,22 @@
 	jp HoFRecordMonInfo
 
 HoFDisplayMonInfo: ; 702f0 (1c:42f0)
-	hlCoord 0, 2
+	coord hl, 0, 2
 	ld b, 9
 	ld c, 10
 	call TextBoxBorder
-	hlCoord 2, 6
+	coord hl, 2, 6
 	ld de, HoFMonInfoText
 	call PlaceString
-	hlCoord 1, 4
+	coord hl, 1, 4
 	ld de, wcd6d
 	call PlaceString
 	ld a, [wHoFMonLevel]
-	hlCoord 8, 7
+	coord hl, 8, 7
 	call PrintLevelCommon
 	ld a, [wHoFMonSpecies]
 	ld [wd0b5], a
-	hlCoord 3, 9
+	coord hl, 3, 9
 	predef PrintMonType
 	ld a, [wHoFMonSpecies]
 	jp PlayCry
@@ -203,7 +203,7 @@
 HoFLoadMonPlayerPicTileIDs: ; 7036d (1c:436d)
 ; c = base tile ID
 	ld b, 0
-	hlCoord 12, 5
+	coord hl, 12, 5
 	predef_jump CopyTileIDsFromList
 
 HoFDisplayPlayerStats: ; 70377 (1c:4377)
@@ -210,21 +210,21 @@
 	ld hl, wd747
 	set 3, [hl]
 	predef DisplayDexRating
-	hlCoord 0, 4
+	coord hl, 0, 4
 	ld b, $6
 	ld c, $a
 	call TextBoxBorder
-	hlCoord 5, 0
+	coord hl, 5, 0
 	ld b, $2
 	ld c, $9
 	call TextBoxBorder
-	hlCoord 7, 2
+	coord hl, 7, 2
 	ld de, wPlayerName
 	call PlaceString
-	hlCoord 1, 6
+	coord hl, 1, 6
 	ld de, HoFPlayTimeText
 	call PlaceString
-	hlCoord 5, 7
+	coord hl, 5, 7
 	ld de, W_PLAYTIMEHOURS + 1
 	ld bc, $103
 	call PrintNumber
@@ -233,10 +233,10 @@
 	ld de, W_PLAYTIMEMINUTES + 1
 	ld bc, $8102
 	call PrintNumber
-	hlCoord 1, 9
+	coord hl, 1, 9
 	ld de, HoFMoneyText
 	call PlaceString
-	hlCoord 4, 10
+	coord hl, 4, 10
 	ld de, wPlayerMoney
 	ld c, $a3
 	call PrintBCDNumber
--- a/engine/hidden_object_functions17.asm
+++ b/engine/hidden_object_functions17.asm
@@ -72,7 +72,7 @@
 	call LoadMonFrontSprite
 	ld a, $80
 	ld [$ffe1], a
-	hlCoord 10, 11
+	coord hl, 10, 11
 	predef AnimateSendingOutMon
 	call WaitForTextScrollButtonPress
 	call LoadScreenTilesFromBuffer1
@@ -109,11 +109,11 @@
 .asm_5c51
 	ld hl, wd730
 	set 6, [hl]
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $8
 	ld c, $d
 	call TextBoxBorder
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, HowToLinkText
 	call PlaceString
 	ld hl, LinkCableHelpText2
@@ -193,13 +193,13 @@
 .asm_5dd15
 	ld hl, wd730
 	set 6, [hl]
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, $060a
 	call TextBoxBorder
-	hlCoord 1, 2
+	coord hl, 1, 2
 	ld de, StatusAilmentText1
 	call PlaceString
-	hlCoord 6, 2
+	coord hl, 6, 2
 	ld de, StatusAilmentText2
 	call PlaceString
 	ld hl, ViridianSchoolBlackboardText2
--- a/engine/hidden_object_functions7.asm
+++ b/engine/hidden_object_functions7.asm
@@ -402,11 +402,11 @@
 .asm_1ec2d
 	ld hl, wd730
 	set 6, [hl]
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $a
 	ld c, $9
 	call TextBoxBorder
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, BillsMonListText
 	call PlaceString
 	ld hl, BillsHousePokemonListText2
--- a/engine/intro.asm
+++ b/engine/intro.asm
@@ -205,7 +205,7 @@
 
 IntroClearMiddleOfScreen: ; 417f8 (10:57f8)
 ; clear the area of the tile map between the black bars on the top and bottom
-	hlCoord 0, 4
+	coord hl, 0, 4
 	ld bc, SCREEN_WIDTH * 10
 
 IntroClearCommon: ; 417fe (10:57fe)
@@ -263,7 +263,7 @@
 	ret
 
 IntroCopyTiles: ; 4183f (10:583f)
-	hlCoord 13, 7
+	coord hl, 13, 7
 
 CopyTileIDsFromList_ZeroBaseTileID: ; 41842 (10:5842)
 	ld c, 0
@@ -337,10 +337,10 @@
 IntroDrawBlackBars: ; 418e9 (10:58e9)
 ; clear the screen and draw black bars on the top and bottom
 	call IntroClearScreen
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld c, SCREEN_WIDTH * 4
 	call IntroPlaceBlackTiles
-	hlCoord 0, 14
+	coord hl, 0, 14
 	ld c, SCREEN_WIDTH * 4
 	call IntroPlaceBlackTiles
 	ld hl, vBGMap1
--- a/engine/items/items.asm
+++ b/engine/items/items.asm
@@ -913,7 +913,7 @@
 	sbc b
 	ld [hl],a
 	ld [wHPBarNewHP+1],a
-	hlCoord 4, 1
+	coord hl, 4, 1
 	ld a,[wWhichPokemon]
 	ld bc,2 * 20
 	call AddNTimes ; calculate coordinates of HP bar of pokemon that used Softboiled
@@ -2095,7 +2095,7 @@
 	call PrintText
 	ld hl,TeachMachineMoveText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc,$080f
 	ld a,TWO_OPTION_MENU
 	ld [wTextBoxID],a
@@ -2486,7 +2486,7 @@
 	call CopyStringToCF4B ; copy name to wcf4b
 	ld hl,IsItOKToTossItemText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc,$080f
 	ld a,TWO_OPTION_MENU
 	ld [wTextBoxID],a
--- a/engine/learn_move.asm
+++ b/engine/learn_move.asm
@@ -76,7 +76,7 @@
 AbandonLearning: ; 6eda (1:6eda)
 	ld hl, AbandonLearningText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc, $80f
 	ld a, TWO_OPTION_MENU
 	ld [wTextBoxID], a
@@ -99,7 +99,7 @@
 	push hl
 	ld hl, TryingToLearnText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc, $80f
 	ld a, TWO_OPTION_MENU
 	ld [wTextBoxID], a
@@ -120,11 +120,11 @@
 	push hl
 	ld hl, WhichMoveToForgetText
 	call PrintText
-	hlCoord 4, 7
+	coord hl, 4, 7
 	ld b, $4
 	ld c, $e
 	call TextBoxBorder
-	hlCoord 6, 8
+	coord hl, 6, 8
 	ld de, wMovesString
 	ld a, [hFlags_0xFFF6]
 	set 2, a
--- a/engine/menu/bills_pc.asm
+++ b/engine/menu/bills_pc.asm
@@ -11,17 +11,17 @@
 	ld a, [wNumHoFTeams]
 	and a
 	jr nz, .leaguePCAvailable
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, 8
 	ld c, 14
 	jr .next
 .noOaksPC
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, 6
 	ld c, 14
 	jr .next
 .leaguePCAvailable
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, 10
 	ld c, 14
 .next
@@ -32,15 +32,15 @@
 	ld a, [wd7f1]
 	bit 0, a
 	jr nz, .metBill
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, SomeonesPCText
 	jr .next2
 .metBill
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, BillsPCText
 .next2
 	call PlaceString
-	hlCoord 2, 4
+	coord hl, 2, 4
 	ld de, wPlayerName
 	call PlaceString
 	ld l, c
@@ -50,7 +50,7 @@
 	ld a, [wd74b]
 	bit 5, a ; received pokedex?
 	jr z, .noOaksPC2
-	hlCoord 2, 6
+	coord hl, 2, 6
 	ld de, OaksPCText
 	call PlaceString
 	ld a, [wNumHoFTeams]
@@ -58,20 +58,20 @@
 	jr z, .noLeaguePC
 	ld a, 4
 	ld [wMaxMenuItem], a
-	hlCoord 2, 8
+	coord hl, 2, 8
 	ld de, PKMNLeaguePCText
 	call PlaceString
-	hlCoord 2, 10
+	coord hl, 2, 10
 	ld de, LogOffPCText
 	jr .next3
 .noLeaguePC
-	hlCoord 2, 8
+	coord hl, 2, 8
 	ld de, LogOffPCText
 	jr .next3
 .noOaksPC2
 	ld a, $2
 	ld [wMaxMenuItem], a
-	hlCoord 2, 6
+	coord hl, 2, 6
 	ld de, LogOffPCText
 .next3
 	call PlaceString
@@ -122,11 +122,11 @@
 	ld bc, (BANK(PokeballTileGraphics) << 8) + $01
 	call CopyVideoData
 	call LoadScreenTilesFromBuffer2DisableBGTransfer
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, 10
 	ld c, 12
 	call TextBoxBorder
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, BillsPCMenuText
 	call PlaceString
 	ld hl, wTopMenuItemY
@@ -149,7 +149,7 @@
 	ld [wPlayerMonNumber], a
 	ld hl, WhatText
 	call PrintText
-	hlCoord 9, 14
+	coord hl, 9, 14
 	ld b, 2
 	ld c, 9
 	call TextBoxBorder
@@ -159,7 +159,7 @@
 	jr c, .singleDigitBoxNum
 ; two digit box num
 	sub 9
-	hlCoord 17, 16
+	coord hl, 17, 16
 	ld [hl], "1"
 	add "0"
 	jr .next
@@ -167,7 +167,7 @@
 	add "1"
 .next
 	Coorda 18, 16
-	hlCoord 10, 16
+	coord hl, 10, 16
 	ld de, BoxNoPCText
 	call PlaceString
 	ld a, 1
@@ -391,7 +391,7 @@
 	db -1
 
 DisplayDepositWithdrawMenu: ; 2174b (8:574b)
-	hlCoord 9, 10
+	coord hl, 9, 10
 	ld b, 6
 	ld c, 9
 	call TextBoxBorder
@@ -401,9 +401,9 @@
 	jr nz, .next
 	ld de, WithdrawPCText
 .next
-	hlCoord 11, 12
+	coord hl, 11, 12
 	call PlaceString
-	hlCoord 11, 14
+	coord hl, 11, 14
 	ld de, StatsCancelPCText
 	call PlaceString
 	ld hl, wTopMenuItemY
--- a/engine/menu/diploma.asm
+++ b/engine/menu/diploma.asm
@@ -12,7 +12,7 @@
 	ld bc, $0010
 	ld a, BANK(CircleTile)
 	call FarCopyData2
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, $1012
 	predef Diploma_TextBoxBorder
 	ld hl, DiplomaTextPointersAndCoords
@@ -33,7 +33,7 @@
 	pop bc
 	dec c
 	jr nz, .asm_56715
-	hlCoord 10, 4
+	coord hl, 10, 4
 	ld de, wPlayerName
 	call PlaceString
 	callba DrawPlayerCharacter
--- a/engine/menu/league_pc.asm
+++ b/engine/menu/league_pc.asm
@@ -95,18 +95,18 @@
 	ld b, $0B
 	ld c, 0
 	call GoPAL_SET
-	hlCoord 12, 5
+	coord hl, 12, 5
 	call GetMonHeader
 	call LoadFrontSpriteByMonIndex
 	call GBPalNormal
-	hlCoord 0, 13
+	coord hl, 0, 13
 	ld b, 2
 	ld c, $12
 	call TextBoxBorder
-	hlCoord 1, 15
+	coord hl, 1, 15
 	ld de, HallOfFameNoText
 	call PlaceString
-	hlCoord 16, 15
+	coord hl, 16, 15
 	ld de, wHoFTeamNo
 	ld bc, $0103
 	call PrintNumber
--- a/engine/menu/main_menu.asm
+++ b/engine/menu/main_menu.asm
@@ -33,20 +33,20 @@
 	ld a,[wd088]
 	cp a,1
 	jr z,.next1
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b,6
 	ld c,13
 	call TextBoxBorder
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de,ContinueText
 	call PlaceString
 	jr .next2
 .next1
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b,4
 	ld c,13
 	call TextBoxBorder
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de,NewGameText
 	call PlaceString
 .next2
@@ -139,12 +139,12 @@
 	call SaveScreenTilesToBuffer1
 	ld hl, WhereWouldYouLikeText
 	call PrintText
-	hlCoord 5, 5
+	coord hl, 5, 5
 	ld b, $6
 	ld c, $d
 	call TextBoxBorder
 	call UpdateSprites
-	hlCoord 7, 7
+	coord hl, 7, 7
 	ld de, CableClubOptionsText
 	call PlaceString
 	xor a
@@ -340,21 +340,21 @@
 ContinueGame: ; 5db5 (1:5db5)
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 4, 7
+	coord hl, 4, 7
 	ld b, $8
 	ld c, $e
 	call TextBoxBorder
-	hlCoord 5, 9
+	coord hl, 5, 9
 	ld de, SaveScreenInfoText
 	call PlaceString
-	hlCoord 12, 9
+	coord hl, 12, 9
 	ld de, wPlayerName
 	call PlaceString
-	hlCoord 17, 11
+	coord hl, 17, 11
 	call Func_5e2f
-	hlCoord 16, 13
+	coord hl, 16, 13
 	call Func_5e42
-	hlCoord 13, 15
+	coord hl, 13, 15
 	call Func_5e55
 	ld a, $1
 	ld [H_AUTOBGTRANSFERENABLED], a
@@ -364,23 +364,23 @@
 PrintSaveScreenText: ; 5def (1:5def)
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 4, 0
+	coord hl, 4, 0
 	ld b, $8
 	ld c, $e
 	call TextBoxBorder
 	call LoadTextBoxTilePatterns
 	call UpdateSprites
-	hlCoord 5, 2
+	coord hl, 5, 2
 	ld de, SaveScreenInfoText
 	call PlaceString
-	hlCoord 12, 2
+	coord hl, 12, 2
 	ld de, wPlayerName
 	call PlaceString
-	hlCoord 17, 4
+	coord hl, 17, 4
 	call Func_5e2f
-	hlCoord 16, 6
+	coord hl, 16, 6
 	call Func_5e42
-	hlCoord 13, 8
+	coord hl, 13, 8
 	call Func_5e55
 	ld a, $1
 	ld [H_AUTOBGTRANSFERENABLED], a
@@ -424,28 +424,28 @@
 	next "TIME@"
 
 DisplayOptionMenu: ; 5e8a (1:5e8a)
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b,3
 	ld c,18
 	call TextBoxBorder
-	hlCoord 0, 5
+	coord hl, 0, 5
 	ld b,3
 	ld c,18
 	call TextBoxBorder
-	hlCoord 0, 10
+	coord hl, 0, 10
 	ld b,3
 	ld c,18
 	call TextBoxBorder
-	hlCoord 1, 1
+	coord hl, 1, 1
 	ld de,TextSpeedOptionText
 	call PlaceString
-	hlCoord 1, 6
+	coord hl, 1, 6
 	ld de,BattleAnimationOptionText
 	call PlaceString
-	hlCoord 1, 11
+	coord hl, 1, 11
 	ld de,BattleStyleOptionText
 	call PlaceString
-	hlCoord 2, 16
+	coord hl, 2, 16
 	ld de,OptionMenuCancelText
 	call PlaceString
 	xor a
@@ -639,7 +639,7 @@
 	dec hl
 	ld a,[hl]
 	ld [wOptionsTextSpeedCursorX],a ; text speed cursor X coordinate
-	hlCoord 0, 3
+	coord hl, 0, 3
 	call .placeUnfilledRightArrow
 	sla c
 	ld a,1 ; On
@@ -647,7 +647,7 @@
 	ld a,10 ; Off
 .storeBattleAnimationCursorX
 	ld [wOptionsBattleAnimCursorX],a ; battle animation cursor X coordinate
-	hlCoord 0, 8
+	coord hl, 0, 8
 	call .placeUnfilledRightArrow
 	sla c
 	ld a,1
@@ -655,10 +655,10 @@
 	ld a,10
 .storeBattleStyleCursorX
 	ld [wOptionsBattleStyleCursorX],a ; battle style cursor X coordinate
-	hlCoord 0, 13
+	coord hl, 0, 13
 	call .placeUnfilledRightArrow
 ; cursor in front of Cancel
-	hlCoord 0, 16
+	coord hl, 0, 16
 	ld a,1
 .placeUnfilledRightArrow
 	ld e,a
--- a/engine/menu/naming_screen.asm
+++ b/engine/menu/naming_screen.asm
@@ -4,7 +4,7 @@
 	push hl
 	ld a, [W_ISINBATTLE]
 	dec a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $4
 	ld c, $b
 	call z, ClearScreenArea ; only if in wild batle
@@ -13,7 +13,7 @@
 	call GetMonName
 	ld hl, DoYouWantToNicknameText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc, $80f
 	ld a, TWO_OPTION_MENU
 	ld [wTextBoxID], a
@@ -93,7 +93,7 @@
 	call LoadHpBarAndStatusTilePatterns
 	call LoadEDTile
 	callba LoadMonPartySpriteGfx
-	hlCoord 0, 4
+	coord hl, 0, 4
 	ld b, $9
 	ld c, $12
 	call TextBoxBorder
@@ -343,7 +343,7 @@
 	jr nz, .lowercase
 	ld de, UpperCaseAlphabet
 .lowercase
-	hlCoord 2, 5
+	coord hl, 2, 5
 	ld bc, $509 ; 5 rows, 9 columns
 .outerLoop
 	push bc
@@ -374,13 +374,13 @@
 	call CalcStringLength
 	ld a, c
 	ld [wHPBarMaxHP], a
-	hlCoord 10, 2
+	coord hl, 10, 2
 	ld bc, $10a
 	call ClearScreenArea
-	hlCoord 10, 2
+	coord hl, 10, 2
 	ld de, wcf4b
 	call PlaceString
-	hlCoord 10, 3
+	coord hl, 10, 3
 	ld a, [wNamingScreenType]
 	cp NAME_MON_SCREEN
 	jr nc, .pokemon1
@@ -419,7 +419,7 @@
 .emptySpacesRemaining
 	ld c, a
 	ld b, $0
-	hlCoord 10, 3
+	coord hl, 10, 3
 	add hl, bc
 	ld [hl], $77 ; raised underscore tile id
 	ret
@@ -467,7 +467,7 @@
 	jr .loop
 
 PrintNamingText: ; 68f8 (1:68f8)
-	hlCoord 0, 1
+	coord hl, 0, 1
 	ld a, [wNamingScreenType]
 	ld de, YourTextString
 	and a
@@ -482,12 +482,12 @@
 	pop af
 	ld [wd11e], a
 	call GetMonName
-	hlCoord 4, 1
+	coord hl, 4, 1
 	call PlaceString
 	ld hl, $1
 	add hl, bc
 	ld [hl], $c9
-	hlCoord 1, 3
+	coord hl, 1, 3
 	ld de, NicknameTextString
 	jr .placeString
 .notNickname
--- a/engine/menu/party_menu.asm
+++ b/engine/menu/party_menu.asm
@@ -30,7 +30,7 @@
 	jp z,.printMessage
 	call ErasePartyMenuCursors
 	callba SendBlkPacket_PartyMenu
-	hlCoord 3, 0
+	coord hl, 3, 0
 	ld de,wPartySpecies
 	xor a
 	ld c,a
--- a/engine/menu/players_pc.asm
+++ b/engine/menu/players_pc.asm
@@ -22,12 +22,12 @@
 	ld hl, wFlags_0xcd60
 	set 5, [hl]
 	call LoadScreenTilesFromBuffer2
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $8
 	ld c, $e
 	call TextBoxBorder
 	call UpdateSprites
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, PlayersPCMenuEntries
 	call PlaceString
 	ld hl, wTopMenuItemY
--- a/engine/menu/pokedex.asm
+++ b/engine/menu/pokedex.asm
@@ -118,7 +118,7 @@
 	pop af
 	ld [wCurrentMenuItem],a
 	push bc
-	hlCoord 0, 3
+	coord hl, 0, 3
 	ld de,20
 	ld bc,$7f0d ; 13 blank tiles
 	call DrawTileLine ; cover up the menu cursor in the pokemon list
@@ -126,7 +126,7 @@
 	ret
 .buttonBPressed
 	push bc
-	hlCoord 15, 10
+	coord hl, 15, 10
 	ld de,20
 	ld bc,$7f07 ; 7 blank tiles
 	call DrawTileLine ; cover up the menu cursor in the side menu
@@ -153,7 +153,7 @@
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED],a
 ; draw the horizontal line separating the seen and owned amounts from the menu
-	hlCoord 15, 8
+	coord hl, 15, 8
 	ld a,$7a ; horizontal line tile
 	ld [hli],a
 	ld [hli],a
@@ -160,17 +160,17 @@
 	ld [hli],a
 	ld [hli],a
 	ld [hli],a
-	hlCoord 14, 0
+	coord hl, 14, 0
 	ld [hl],$71 ; vertical line tile
-	hlCoord 14, 1
+	coord hl, 14, 1
 	call DrawPokedexVerticalLine
-	hlCoord 14, 9
+	coord hl, 14, 9
 	call DrawPokedexVerticalLine
 	ld hl,wPokedexSeen
 	ld b,wPokedexSeenEnd - wPokedexSeen
 	call CountSetBits
 	ld de,wd11e
-	hlCoord 16, 3
+	coord hl, 16, 3
 	ld bc,$0103
 	call PrintNumber ; print number of seen pokemon
 	ld hl,wPokedexOwned
@@ -177,19 +177,19 @@
 	ld b,wPokedexOwnedEnd - wPokedexOwned
 	call CountSetBits
 	ld de,wd11e
-	hlCoord 16, 6
+	coord hl, 16, 6
 	ld bc,$0103
 	call PrintNumber ; print number of owned pokemon
-	hlCoord 16, 2
+	coord hl, 16, 2
 	ld de,PokedexSeenText
 	call PlaceString
-	hlCoord 16, 5
+	coord hl, 16, 5
 	ld de,PokedexOwnText
 	call PlaceString
-	hlCoord 1, 1
+	coord hl, 1, 1
 	ld de,PokedexContentsText
 	call PlaceString
-	hlCoord 16, 10
+	coord hl, 16, 10
 	ld de,PokedexMenuItemsText
 	call PlaceString
 ; find the highest pokedex number among the pokemon the player has seen
@@ -211,10 +211,10 @@
 .loop
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED],a
-	hlCoord 4, 2
+	coord hl, 4, 2
 	ld bc,$0e0a
 	call ClearScreenArea
-	hlCoord 1, 3
+	coord hl, 1, 3
 	ld a,[wListScrollOffset]
 	ld [wd11e],a
 	ld d,7
@@ -411,18 +411,18 @@
 	push af
 	xor a
 	ld [hTilesetType],a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de,1
 	ld bc,$6414
 	call DrawTileLine ; draw top border
-	hlCoord 0, 17
+	coord hl, 0, 17
 	ld b,$6f
 	call DrawTileLine ; draw bottom border
-	hlCoord 0, 1
+	coord hl, 0, 1
 	ld de,20
 	ld bc,$6610
 	call DrawTileLine ; draw left border
-	hlCoord 19, 1
+	coord hl, 19, 1
 	ld b,$67
 	call DrawTileLine ; draw right border
 	ld a,$63 ; upper left corner tile
@@ -433,14 +433,14 @@
 	Coorda 0, 17
 	ld a,$6e ; lower right corner tile
 	Coorda 19, 17
-	hlCoord 0, 9
+	coord hl, 0, 9
 	ld de,PokedexDataDividerLine
 	call PlaceString ; draw horizontal divider line
-	hlCoord 9, 6
+	coord hl, 9, 6
 	ld de,HeightWeightText
 	call PlaceString
 	call GetMonName
-	hlCoord 9, 2
+	coord hl, 9, 2
 	call PlaceString
 	ld hl,PokedexEntryPointers
 	ld a,[wd11e]
@@ -452,7 +452,7 @@
 	ld a,[hli]
 	ld e,a
 	ld d,[hl] ; de = address of pokedex entry
-	hlCoord 9, 4
+	coord hl, 9, 4
 	call PlaceString ; print species name
 	ld h,b
 	ld l,c
@@ -460,7 +460,7 @@
 	ld a,[wd11e]
 	push af
 	call IndexToPokedex
-	hlCoord 2, 8
+	coord hl, 2, 8
 	ld a, "№"
 	ld [hli],a
 	ld a,$f2
@@ -482,7 +482,7 @@
 	call Delay3
 	call GBPalNormal
 	call GetMonHeader ; load pokemon picture location
-	hlCoord 1, 1
+	coord hl, 1, 1
 	call LoadFlippedFrontSpriteByMonIndex ; draw pokemon picture
 	ld a,[wcf91]
 	call PlayCry ; play pokemon cry
@@ -495,7 +495,7 @@
 	jp z,.waitForButtonPress ; if the pokemon has not been owned, don't print the height, weight, or description
 	inc de ; de = address of feet (height)
 	ld a,[de] ; reads feet, but a is overwritten without being used
-	hlCoord 12, 6
+	coord hl, 12, 6
 	ld bc,$0102
 	call PrintNumber ; print feet (height)
 	ld a,$60 ; feet symbol tile (one tick)
@@ -502,7 +502,7 @@
 	ld [hl],a
 	inc de
 	inc de ; de = address of inches (height)
-	hlCoord 15, 6
+	coord hl, 15, 6
 	ld bc,$8102
 	call PrintNumber ; print inches (height)
 	ld a,$61 ; inches symbol tile (two ticks)
@@ -524,10 +524,10 @@
 	ld a,[de] ; a = lower byte of weight
 	ld [hl],a ; store lower byte of weight in [hDexWeight + 1]
 	ld de,hDexWeight
-	hlCoord 11, 8
+	coord hl, 11, 8
 	ld bc,$0205 ; no leading zeroes, right-aligned, 2 bytes, 5 digits
 	call PrintNumber ; print weight
-	hlCoord 14, 8
+	coord hl, 14, 8
 	ld a,[hDexWeight + 1]
 	sub a,10
 	ld a,[hDexWeight]
@@ -545,7 +545,7 @@
 	ld [hDexWeight],a ; restore original value of [hDexWeight]
 	pop hl
 	inc hl ; hl = address of pokedex description text
-	bcCoord 1, 11
+	coord bc, 1, 11
 	ld a,2
 	ld [$fff4],a
 	call TextCommandProcessor ; print pokedex description text
--- a/engine/menu/prize_menu.asm
+++ b/engine/menu/prize_menu.asm
@@ -22,7 +22,7 @@
 	ld a,$01
 	ld [wTopMenuItemX],a
 	call PrintPrizePrice
-	hlCoord 0, 2
+	coord hl, 0, 2
 	ld b,$08
 	ld c,$10
 	call TextBoxBorder
@@ -93,17 +93,17 @@
 	ld a,[W_PRIZE1]
 	ld [wd11e],a
 	call GetItemName
-	hlCoord 2, 4
+	coord hl, 2, 4
 	call PlaceString
 	ld a,[W_PRIZE2]
 	ld [wd11e],a
 	call GetItemName
-	hlCoord 2, 6
+	coord hl, 2, 6
 	call PlaceString
 	ld a,[W_PRIZE3]
 	ld [wd11e],a
 	call GetItemName
-	hlCoord 2, 8
+	coord hl, 2, 8
 	call PlaceString
 	jr .putNoThanksText
 .putMonName
@@ -110,25 +110,25 @@
 	ld a,[W_PRIZE1]
 	ld [wd11e],a
 	call GetMonName
-	hlCoord 2, 4
+	coord hl, 2, 4
 	call PlaceString
 	ld a,[W_PRIZE2]
 	ld [wd11e],a
 	call GetMonName
-	hlCoord 2, 6
+	coord hl, 2, 6
 	call PlaceString
 	ld a,[W_PRIZE3]
 	ld [wd11e],a
 	call GetMonName
-	hlCoord 2, 8
+	coord hl, 2, 8
 	call PlaceString
 .putNoThanksText
-	hlCoord 2, 10
+	coord hl, 2, 10
 	ld de,NoThanksText
 	call PlaceString
 ; put prices on the right side of the textbox
 	ld de,wd141
-	hlCoord 13, 5
+	coord hl, 13, 5
 ; reg. c:
 ; [low nybble] number of bytes
 ; [bit 765 = %100] space-padding (not zero-padding)
@@ -137,11 +137,11 @@
 ; used by text-command $02)
 	call PrintBCDNumber
 	ld de,wd143
-	hlCoord 13, 7
+	coord hl, 13, 7
 	ld c,(%1 << 7 | 2)
 	call PrintBCDNumber
 	ld de,wd145
-	hlCoord 13, 9
+	coord hl, 13, 9
 	ld c,(1 << 7 | 2)
 	jp PrintBCDNumber
 
@@ -148,18 +148,18 @@
 INCLUDE "data/prizes.asm"
 
 PrintPrizePrice: ; 5287a (14:687a)
-	hlCoord 11, 0
+	coord hl, 11, 0
 	ld b,$01
 	ld c,$07
 	call TextBoxBorder
 	call UpdateSprites
-	hlCoord 12, 0
+	coord hl, 12, 0
 	ld de,.CoinText
 	call PlaceString
-	hlCoord 13, 1
+	coord hl, 13, 1
 	ld de,.SixSpacesText
 	call PlaceString
-	hlCoord 13, 1
+	coord hl, 13, 1
 	ld de,wPlayerCoins
 	ld c,%10000010
 	call PrintBCDNumber
--- a/engine/menu/start_sub_menus.asm
+++ b/engine/menu/start_sub_menus.asm
@@ -285,7 +285,7 @@
 
 ; writes a blank tile to all possible menu cursor positions on the party menu
 ErasePartyMenuCursors: ; 132ed (4:72ed)
-	hlCoord 0, 1
+	coord hl, 0, 1
 	ld bc,2 * 20 ; menu cursor positions are 2 rows apart
 	ld a,6 ; 6 menu cursor positions
 .loop
@@ -526,10 +526,10 @@
 	ld bc,(BANK(RedPicFront) << 8) | $01
 	predef DisplayPicCenteredOrUpperRight
 	call DisableLCD
-	hlCoord 0, 2
+	coord hl, 0, 2
 	ld a," "
 	call TrainerInfo_DrawVerticalLine
-	hlCoord 1, 2
+	coord hl, 1, 2
 	call TrainerInfo_DrawVerticalLine
 	ld hl,vChars2 + $70
 	ld de,vChars2
@@ -572,7 +572,7 @@
 	dec a
 	ld [hli],a
 	ld [hl],1
-	hlCoord 0, 0
+	coord hl, 0, 0
 	call TrainerInfo_DrawTextBox
 	ld hl,wTrainerInfoTextBoxWidthPlus1
 	ld a,16 + 1
@@ -580,27 +580,27 @@
 	dec a
 	ld [hli],a
 	ld [hl],3
-	hlCoord 1, 10
+	coord hl, 1, 10
 	call TrainerInfo_DrawTextBox
-	hlCoord 0, 10
+	coord hl, 0, 10
 	ld a,$d7
 	call TrainerInfo_DrawVerticalLine
-	hlCoord 19, 10
+	coord hl, 19, 10
 	call TrainerInfo_DrawVerticalLine
-	hlCoord 6, 9
+	coord hl, 6, 9
 	ld de,TrainerInfo_BadgesText
 	call PlaceString
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de,TrainerInfo_NameMoneyTimeText
 	call PlaceString
-	hlCoord 7, 2
+	coord hl, 7, 2
 	ld de,wPlayerName
 	call PlaceString
-	hlCoord 8, 4
+	coord hl, 8, 4
 	ld de,wPlayerMoney
 	ld c,$e3
 	call PrintBCDNumber
-	hlCoord 9, 6
+	coord hl, 9, 6
 	ld de,W_PLAYTIMEHOURS + 1 ; hours
 	ld bc,$4103
 	call PrintNumber
@@ -713,7 +713,7 @@
 
 SwitchPartyMon_ClearGfx: ; 13625 (4:7625)
 	push af
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, SCREEN_WIDTH * 2
 	call AddNTimes
 	ld c, SCREEN_WIDTH * 2
--- a/engine/menu/status_screen.asm
+++ b/engine/menu/status_screen.asm
@@ -105,7 +105,7 @@
 	push af
 	xor a
 	ld [hTilesetType], a
-	hlCoord 19, 1
+	coord hl, 19, 1
 	ld bc, $060a
 	call DrawLineBox ; Draws the box around name, HP and status
 	ld de, $fffa
@@ -113,54 +113,54 @@
 	ld [hl], $f2 ; . after No ("." is a different one)
 	dec hl
 	ld [hl], "№"
-	hlCoord 19, 9
+	coord hl, 19, 9
 	ld bc, $0806
 	call DrawLineBox ; Draws the box around types, ID No. and OT
-	hlCoord 10, 9
+	coord hl, 10, 9
 	ld de, Type1Text
 	call PlaceString ; "TYPE1/"
-	hlCoord 11, 3
+	coord hl, 11, 3
 	predef DrawHP
 	ld hl, wcf25
 	call GetHealthBarColor
 	ld b, $3
 	call GoPAL_SET ; SGB palette
-	hlCoord 16, 6
+	coord hl, 16, 6
 	ld de, wLoadedMonStatus
 	call PrintStatusCondition
 	jr nz, .StatusWritten
-	hlCoord 16, 6
+	coord hl, 16, 6
 	ld de, OKText
 	call PlaceString ; "OK"
 .StatusWritten
-	hlCoord 9, 6
+	coord hl, 9, 6
 	ld de, StatusText
 	call PlaceString ; "STATUS/"
-	hlCoord 14, 2
+	coord hl, 14, 2
 	call PrintLevel ; Pokémon level
 	ld a, [W_MONHDEXNUM]
 	ld [wd11e], a
 	ld [wd0b5], a
 	predef IndexToPokedex
-	hlCoord 3, 7
+	coord hl, 3, 7
 	ld de, wd11e
 	ld bc, $8103 ; Zero-padded, 3
 	call PrintNumber ; Pokémon no.
-	hlCoord 11, 10
+	coord hl, 11, 10
 	predef PrintMonType
 	ld hl, NamePointers2
 	call .GetStringPointer
 	ld d, h
 	ld e, l
-	hlCoord 9, 1
+	coord hl, 9, 1
 	call PlaceString ; Pokémon name
 	ld hl, OTPointers
 	call .GetStringPointer
 	ld d, h
 	ld e, l
-	hlCoord 12, 16
+	coord hl, 12, 16
 	call PlaceString ; OT
-	hlCoord 12, 14
+	coord hl, 12, 14
 	ld de, wLoadedMonOTID
 	ld bc, $8205 ; 5
 	call PrintNumber ; ID Number
@@ -168,7 +168,7 @@
 	call PrintStatsBox
 	call Delay3
 	call GBPalNormal
-	hlCoord 1, 0
+	coord hl, 1, 0
 	call LoadFlippedFrontSpriteByMonIndex ; draw Pokémon picture
 	ld a, [wcf91]
 	call PlayCry ; play Pokémon cry
@@ -247,19 +247,19 @@
 	ld a, d
 	and a ; a is 0 from the status screen
 	jr nz, .DifferentBox
-	hlCoord 0, 8
+	coord hl, 0, 8
 	ld b, $8
 	ld c, $8
 	call TextBoxBorder ; Draws the box
-	hlCoord 1, 9 ; Start printing stats from here
+	coord hl, 1, 9 ; Start printing stats from here
 	ld bc, $0019 ; Number offset
 	jr .PrintStats
 .DifferentBox
-	hlCoord 9, 2
+	coord hl, 9, 2
 	ld b, $8
 	ld c, $9
 	call TextBoxBorder
-	hlCoord 11, 3
+	coord hl, 11, 3
 	ld bc, $0018
 .PrintStats
 	push bc
@@ -306,16 +306,16 @@
 	ld bc, NUM_MOVES
 	call CopyData
 	callab FormatMovesString
-	hlCoord 9, 2
+	coord hl, 9, 2
 	ld bc, $050a
 	call ClearScreenArea ; Clear under name
-	hlCoord 19, 3
+	coord hl, 19, 3
 	ld [hl], $78
-	hlCoord 0, 8
+	coord hl, 0, 8
 	ld b, $8
 	ld c, $12
 	call TextBoxBorder ; Draw move container
-	hlCoord 2, 9
+	coord hl, 2, 9
 	ld de, wMovesString
 	call PlaceString ; Print moves
 	ld a, [wNumMovesMinusOne]
@@ -324,7 +324,7 @@
 	ld a, $4
 	sub c
 	ld b, a ; Number of moves ?
-	hlCoord 11, 10
+	coord hl, 11, 10
 	ld de, SCREEN_WIDTH * 2
 	ld a, $72 ; special P tile id
 	call StatusScreen_PrintPP ; Print "PP"
@@ -336,7 +336,7 @@
 	call StatusScreen_PrintPP ; Fill the rest with --
 .InitPP ; 12bbb
 	ld hl, wLoadedMonMoves
-	deCoord 14, 10
+	coord de, 14, 10
 	ld b, 0
 .PrintPP ; 12bc3
 	ld a, [hli]
@@ -386,7 +386,7 @@
 	cp $4
 	jr nz, .PrintPP
 .PPDone
-	hlCoord 9, 3
+	coord hl, 9, 3
 	ld de, EXPPointsText
 	call PlaceString
 	ld a, [wLoadedMonLevel] ; level
@@ -396,7 +396,7 @@
 	inc a
 	ld [wLoadedMonLevel], a ; Increase temporarily if not 100
 .Level100
-	hlCoord 14, 6
+	coord hl, 14, 6
 	ld [hl], $70 ; 1-tile "to"
 	inc hl
 	inc hl
@@ -404,22 +404,22 @@
 	pop af
 	ld [wLoadedMonLevel], a
 	ld de, wLoadedMonExp
-	hlCoord 12, 4
+	coord hl, 12, 4
 	ld bc, $0307
 	call PrintNumber ; exp
 	call .asm_12c86
 	ld de, wLoadedMonExp
-	hlCoord 7, 6
+	coord hl, 7, 6
 	ld bc, $0307
 	call PrintNumber
-	hlCoord 9, 0
+	coord hl, 9, 0
 	call StatusScreen_ClearName
-	hlCoord 9, 1
+	coord hl, 9, 1
 	call StatusScreen_ClearName
 	ld a, [W_MONHDEXNUM]
 	ld [wd11e], a
 	call GetMonName
-	hlCoord 9, 1
+	coord hl, 9, 1
 	call PlaceString
 	ld a, $1
 	ld [$ffba], a
--- a/engine/menu/vending_machine.asm
+++ b/engine/menu/vending_machine.asm
@@ -17,15 +17,15 @@
 	ld [wTopMenuItemX], a
 	ld hl, wd730
 	set 6, [hl]
-	hlCoord 0, 3
+	coord hl, 0, 3
 	ld b, 8
 	ld c, 12
 	call TextBoxBorder
 	call UpdateSprites
-	hlCoord 2, 5
+	coord hl, 2, 5
 	ld de, DrinkText
 	call PlaceString
-	hlCoord 9, 6
+	coord hl, 9, 6
 	ld de, DrinkPriceText
 	call PlaceString
 	ld hl, wd730
--- a/engine/oak_speech.asm
+++ b/engine/oak_speech.asm
@@ -68,7 +68,7 @@
 	ld [wd0b5],a
 	ld [wcf91],a
 	call GetMonHeader
-	hlCoord 6, 4
+	coord hl, 6, 4
 	call LoadFlippedFrontSpriteByMonIndex
 	call MovePicLeft
 	ld hl,OakSpeechText2
@@ -141,7 +141,7 @@
 	ld [MBC1RomBank],a
 	ld c,20
 	call DelayFrames
-	hlCoord 6, 5
+	coord hl, 6, 5
 	ld b,7
 	ld c,7
 	call ClearScreenArea
@@ -224,9 +224,9 @@
 	pop bc
 	ld a,c
 	and a
-	hlCoord 15, 1
+	coord hl, 15, 1
 	jr nz,.next
-	hlCoord 6, 4
+	coord hl, 6, 4
 .next
 	xor a
 	ld [$FFE1],a
--- a/engine/oak_speech2.asm
+++ b/engine/oak_speech2.asm
@@ -66,7 +66,7 @@
 
 OakSpeechSlidePicLeft: ; 69ec (1:69ec)
 	push de
-	hlCoord 0, 0
+	coord hl, 0, 0
 	lb bc, 12, 11
 	call ClearScreenArea ; clear the name list text box
 	ld c, 10
@@ -76,13 +76,13 @@
 	ld bc, $b
 	call CopyData
 	call Delay3
-	hlCoord 12, 4
+	coord hl, 12, 4
 	lb de, 6, 6 * SCREEN_WIDTH + 5
 	ld a, $ff
 	jr OakSpeechSlidePicCommon
 
 OakSpeechSlidePicRight: ; 6a12 (1:6a12)
-	hlCoord 5, 4
+	coord hl, 5, 4
 	lb de, 6, 6 * SCREEN_WIDTH + 5
 	xor a
 
@@ -161,15 +161,15 @@
 
 DisplayIntroNameTextBox: ; 6a6c (1:6a6c)
 	push de
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $a
 	ld c, $9
 	call TextBoxBorder
-	hlCoord 3, 0
+	coord hl, 3, 0
 	ld de, .namestring
 	call PlaceString
 	pop de
-	hlCoord 2, 2
+	coord hl, 2, 2
 	call PlaceString
 	call UpdateSprites
 	xor a
--- a/engine/overworld/cinnabar_lab.asm
+++ b/engine/overworld/cinnabar_lab.asm
@@ -20,7 +20,7 @@
 	dec l
 	ld b, l
 	ld c, $d
-	hlCoord 0, 0
+	coord hl, 0, 0
 	call TextBoxBorder
 	call UpdateSprites
 	call Func_610c2
@@ -101,7 +101,7 @@
 	push hl
 	ld [wd11e], a
 	call GetItemName
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld a, [$ffdb]
 	ld bc, SCREEN_WIDTH * 2
 	call AddNTimes
--- a/engine/overworld/movement.asm
+++ b/engine/overworld/movement.asm
@@ -704,7 +704,7 @@
 	add SCREEN_WIDTH ; screen X tile + 20
 	ld d, $0
 	ld e, a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	add hl, bc
 	add hl, bc
 	add hl, bc
--- a/engine/overworld/pokemart.asm
+++ b/engine/overworld/pokemart.asm
@@ -84,7 +84,7 @@
 	ld hl,PokemartTellSellPriceText
 	ld bc,$0e01
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc,$080f
 	ld a,TWO_OPTION_MENU
 	ld [wTextBoxID],a
@@ -162,7 +162,7 @@
 	call CopyStringToCF4B ; copy name to wcf4b
 	ld hl,PokemartTellBuyPriceText
 	call PrintText
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc,$080f
 	ld a,TWO_OPTION_MENU
 	ld [wTextBoxID],a
--- a/engine/save.asm
+++ b/engine/save.asm
@@ -151,10 +151,10 @@
 	ret nz
 .save
 	call SaveSAVtoSRAM
-	hlCoord 1, 13
+	coord hl, 1, 13
 	ld bc,$0412
 	call ClearScreenArea ; clear area 4x12 starting at 13,1
-	hlCoord 1, 14
+	coord hl, 1, 14
 	ld de,NowSavingString
 	call PlaceString
 	ld c,120
@@ -172,7 +172,7 @@
 
 SaveSAVConfirm: ; 73768 (1c:7768)
 	call PrintText
-	hlCoord 0, 7
+	coord hl, 0, 7
 	ld bc,$0801
 	ld a,TWO_OPTION_MENU
 	ld [wTextBoxID],a
@@ -426,13 +426,13 @@
 	and $7f
 	ld [wCurrentMenuItem], a
 	ld [wLastMenuItem], a
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $2
 	ld c, $9
 	call TextBoxBorder
 	ld hl, ChooseABoxText
 	call PrintText
-	hlCoord 11, 0
+	coord hl, 11, 0
 	ld b, $c
 	ld c, $7
 	call TextBoxBorder
@@ -439,7 +439,7 @@
 	ld hl, hFlags_0xFFF6
 	set 2, [hl]
 	ld de, BoxNames
-	hlCoord 13, 1
+	coord hl, 13, 1
 	call PlaceString
 	ld hl, hFlags_0xFFF6
 	res 2, [hl]
@@ -448,7 +448,7 @@
 	cp 9
 	jr c, .asm_739a6
 	sub 9
-	hlCoord 8, 2
+	coord hl, 8, 2
 	ld [hl], "1"
 	add "0"
 	jr .asm_739a8
@@ -456,11 +456,11 @@
 	add "1"
 .asm_739a8
 	Coorda 9, 2
-	hlCoord 1, 2
+	coord hl, 1, 2
 	ld de, BoxNoText
 	call PlaceString
 	call Func_73a84
-	hlCoord 18, 1
+	coord hl, 18, 1
 	ld de, wWhichTrade
 	ld bc, SCREEN_WIDTH
 	ld a, $c
--- a/engine/slot_machine.asm
+++ b/engine/slot_machine.asm
@@ -79,11 +79,11 @@
 	ld [wCurrentMenuItem], a
 	ld [wLastMenuItem], a
 	ld [wMenuWatchMovingOutOfBounds], a
-	hlCoord 14, 11
+	coord hl, 14, 11
 	ld b, 5
 	ld c, 4
 	call TextBoxBorder
-	hlCoord 16, 12
+	coord hl, 16, 12
 	ld de, CoinMultiplierSlotMachineText
 	call PlaceString
 	call HandleMenuInput
@@ -133,7 +133,7 @@
 .skip2
 	ld hl, OneMoreGoSlotMachineText
 	call PrintText
-	hlCoord 14, 12
+	coord hl, 14, 12
 	ld bc, $0d0f
 	xor a ; YES_NO_MENU
 	ld [wTwoOptionMenuID], a
@@ -614,7 +614,7 @@
 
 SlotMachine_PrintWinningSymbol: ; 37728 (d:7728)
 ; prints winning symbol and down arrow in text box
-	hlCoord 2, 14
+	coord hl, 2, 14
 	ld a, [wSlotMachineWinningSymbol]
 	add $25
 	ld [hli], a
@@ -626,7 +626,7 @@
 	ld [hli], a
 	inc a
 	ld [hl], a
-	hlCoord 18, 16
+	coord hl, 18, 16
 	ld [hl], $ee ; down arrow
 	ret
 
@@ -641,13 +641,13 @@
 	predef SubBCDPredef
 
 SlotMachine_PrintCreditCoins: ; 37754 (d:7754)
-	hlCoord 5, 1
+	coord hl, 5, 1
 	ld de, wPlayerCoins
 	ld c, $2
 	jp PrintBCDNumber
 
 SlotMachine_PrintPayoutCoins: ; 3775f (d:775f)
-	hlCoord 11, 1
+	coord hl, 11, 1
 	ld de, wPayoutCoins
 	ld bc, $8204 ; 2 bytes, 4 digits, leading zeroes
 	jp PrintNumber
@@ -724,19 +724,19 @@
 	jr z, SlotMachine_UpdateTwoCoinBallTiles
 
 SlotMachine_UpdateThreeCoinBallTiles: ; 377e3 (d:77e3)
-	hlCoord 3, 2
+	coord hl, 3, 2
 	call SlotMachine_UpdateBallTiles
-	hlCoord 3, 10
+	coord hl, 3, 10
 	call SlotMachine_UpdateBallTiles
 
 SlotMachine_UpdateTwoCoinBallTiles: ; 377ef (d:77ef)
-	hlCoord 3, 4
+	coord hl, 3, 4
 	call SlotMachine_UpdateBallTiles
-	hlCoord 3, 8
+	coord hl, 3, 8
 	call SlotMachine_UpdateBallTiles
 
 SlotMachine_UpdateOneCoinBallTiles: ; 377fb (d:77fb)
-	hlCoord 3, 6
+	coord hl, 3, 6
 
 SlotMachine_UpdateBallTiles: ; 377fe (d:77fe)
 	ld a, [wd08a]
@@ -863,7 +863,7 @@
 	ld a, BANK(SlotMachineTiles2)
 	call FarCopyData2
 	ld hl, SlotMachineMap
-	deCoord 0, 0
+	coord de, 0, 0
 	ld bc, $00f0
 	call CopyData
 	call EnableLCD
--- a/engine/titlescreen.asm
+++ b/engine/titlescreen.asm
@@ -70,7 +70,7 @@
 	call ClearBothBGMaps
 
 ; place tiles for pokemon logo (except for the last row)
-	hlCoord 2, 1
+	coord hl, 2, 1
 	ld a, $80
 	ld de, SCREEN_WIDTH
 	ld c, 6
@@ -88,7 +88,7 @@
 	jr nz, .pokemonLogoTileLoop
 
 ; place tiles for the last row of the pokemon logo
-	hlCoord 2, 7
+	coord hl, 2, 7
 	ld a, $31
 	ld b, $10
 .pokemonLogoLastTileRowLoop
@@ -105,7 +105,7 @@
 	ld [hl], a
 
 ; place tiles for title screen copyright
-	hlCoord 2, 17
+	coord hl, 2, 17
 	ld de, .tileScreenCopyrightTiles
 	ld b, $10
 .tileScreenCopyrightTilesLoop
@@ -362,7 +362,7 @@
 LoadTitleMonSprite: ; 4524 (1:4524)
 	ld [wcf91], a
 	ld [wd0b5], a
-	hlCoord 5, 10
+	coord hl, 5, 10
 	call GetMonHeader
 	jp LoadFrontSpriteByMonIndex
 
@@ -381,7 +381,7 @@
 	ld hl, vChars2 + $600
 	ld bc, (BANK(NintendoCopyrightLogoGraphics) << 8) + $1c
 	call CopyVideoData
-	hlCoord 2, 7
+	coord hl, 2, 7
 	ld de, CopyrightTextString
 	jp PlaceString
 
@@ -395,7 +395,7 @@
 
 ; prints version text (red, blue)
 PrintGameVersionOnTitleScreen: ; 4598 (1:4598)
-	hlCoord 7, 8
+	coord hl, 7, 8
 	ld de, VersionOnTitleScreenText
 	jp PlaceString
 
--- a/engine/town_map.asm
+++ b/engine/town_map.asm
@@ -11,7 +11,7 @@
 	push af
 	ld b, $0
 	call DrawPlayerOrBirdSprite ; player sprite
-	hlCoord 1, 0
+	coord hl, 1, 0
 	ld de, wcd6d
 	call PlaceString
 	ld hl, wOAMBuffer
@@ -28,7 +28,7 @@
 	jr .enterLoop
 
 .townMapLoop
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, $114
 	call ClearScreenArea
 	ld hl, TownMapOrder
@@ -55,7 +55,7 @@
 	inc de
 	cp $50
 	jr nz, .copyMapName
-	hlCoord 1, 0
+	coord hl, 1, 0
 	ld de, wcd6d
 	call PlaceString
 	ld hl, wOAMBuffer + $10
@@ -117,7 +117,7 @@
 	push hl
 	call DisplayWildLocations
 	call GetMonName
-	hlCoord 1, 0
+	coord hl, 1, 0
 	call PlaceString
 	ld h, b
 	ld l, c
@@ -152,7 +152,7 @@
 	push af
 	ld [hl], $ff
 	push hl
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de, ToText
 	call PlaceString
 	ld a, [W_CURMAP]
@@ -159,13 +159,13 @@
 	ld b, $0
 	call DrawPlayerOrBirdSprite
 	ld hl, wFlyLocationsList
-	deCoord 18, 0
+	coord de, 18, 0
 .townMapFlyLoop
 	ld a, $7f
 	ld [de], a
 	push hl
 	push hl
-	hlCoord 3, 0
+	coord hl, 3, 0
 	ld bc, $10f
 	call ClearScreenArea
 	pop hl
@@ -172,14 +172,14 @@
 	ld a, [hl]
 	ld b, $4
 	call DrawPlayerOrBirdSprite ; draw bird sprite
-	hlCoord 3, 0
+	coord hl, 3, 0
 	ld de, wcd6d
 	call PlaceString
 	ld c, 15
 	call DelayFrames
-	hlCoord 18, 0
+	coord hl, 18, 0
 	ld [hl], $ed
-	hlCoord 19, 0
+	coord hl, 19, 0
 	ld [hl], $ee
 	pop hl
 .inputLoop
@@ -218,7 +218,7 @@
 	ld [hl], a
 	ret
 .pressedUp
-	deCoord 18, 0
+	coord de, 18, 0
 	inc hl
 	ld a, [hl]
 	cp $ff
@@ -230,7 +230,7 @@
 	ld hl, wFlyLocationsList
 	jp .townMapFlyLoop
 .pressedDown
-	deCoord 19, 0
+	coord de, 19, 0
 	dec hl
 	ld a, [hl]
 	cp $ff
@@ -276,7 +276,7 @@
 	call GBPalWhiteOutWithDelay3
 	call ClearScreen
 	call UpdateSprites
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $12
 	ld c, $12
 	call TextBoxBorder
@@ -291,7 +291,7 @@
 	ld bc, $8
 	ld a, BANK(MonNestIcon)
 	call FarCopyDataDouble
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de, CompressedMap
 .nextTile
 	ld a, [de]
@@ -394,11 +394,11 @@
 	and a ; were any OAM entries written?
 	jr nz, .drawPlayerSprite
 ; if no OAM entries were written, print area unknown text
-	hlCoord 1, 7
+	coord hl, 1, 7
 	ld b, $2
 	ld c, $f
 	call TextBoxBorder
-	hlCoord 2, 9
+	coord hl, 2, 9
 	ld de, AreaUnknownText
 	call PlaceString
 	jr .done
--- a/engine/trade.asm
+++ b/engine/trade.asm
@@ -148,7 +148,7 @@
 	jp DelayFrames
 
 Trade_ClearTileMap: ; 41196 (10:5196)
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc, 20 * 18
 	ld a, " "
 	jp FillMemory
@@ -234,7 +234,7 @@
 	ld [hSCX], a
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
-	hlCoord 4, 0
+	coord hl, 4, 0
 	ld b, 6
 	ld c, 10
 	call TextBoxBorder
@@ -283,7 +283,7 @@
 	call DelayFrame
 	ld a, %10001011
 	ld [rLCDC], a
-	hlCoord 6, 2
+	coord hl, 6, 2
 	ld b, $7 ; open end of link cable tile ID list index
 	call CopyTileIDsFromList_ZeroBaseTileID
 	call Trade_CopyTileMapToVRAM
@@ -355,7 +355,7 @@
 	ld a, TRADE_BALL_TILT_ANIM
 	call Trade_ShowAnimation
 	call Trade_ShowClearedWindow
-	hlCoord 4, 10
+	coord hl, 4, 10
 	ld b, 6
 	ld c, 10
 	call TextBoxBorder
@@ -372,7 +372,7 @@
 	ld a, [wTradedEnemyMonSpecies]
 	call PlayCry
 	call Trade_Delay100
-	hlCoord 4, 10
+	coord hl, 4, 10
 	ld bc, $80c
 	call ClearScreenArea
 	jp PrintTradeTakeCareText
@@ -464,7 +464,7 @@
 	call Trade_ClearTileMap
 
 ; draw link cable
-	hlCoord 11, 4
+	coord hl, 11, 4
 	ld a, $5d
 	ld [hli], a
 	ld a, $5e
@@ -475,16 +475,16 @@
 	jr nz, .loop
 
 ; draw gameboy pic
-	hlCoord 5, 3
+	coord hl, 5, 3
 	ld b, $6
 	call CopyTileIDsFromList_ZeroBaseTileID
 
 ; draw text box with player name below gameboy pic
-	hlCoord 4, 12
+	coord hl, 4, 12
 	ld b, 2
 	ld c, 7
 	call TextBoxBorder
-	hlCoord 5, 14
+	coord hl, 5, 14
 	ld de, wPlayerName
 	call PlaceString
 
@@ -494,7 +494,7 @@
 	call Trade_ClearTileMap
 
 ; draw horizontal segment of link cable
-	hlCoord 0, 4
+	coord hl, 0, 4
 	ld a, $5e
 	ld c, $e
 .loop
@@ -522,16 +522,16 @@
 	ld [hl], a
 
 ; draw gameboy pic
-	hlCoord 7, 8
+	coord hl, 7, 8
 	ld b, $6
 	call CopyTileIDsFromList_ZeroBaseTileID
 
 ; draw text box with enemy name above link cable
-	hlCoord 6, 0
+	coord hl, 6, 0
 	ld b, $2
 	ld c, $7
 	call TextBoxBorder
-	hlCoord 7, 2
+	coord hl, 7, 2
 	ld de, wLinkEnemyTrainerName
 	call PlaceString
 
@@ -540,7 +540,7 @@
 Trade_DrawCableAcrossScreen: ; 4149f (10:549f)
 ; Draws the link cable across the screen.
 	call Trade_ClearTileMap
-	hlCoord 0, 4
+	coord hl, 0, 4
 	ld a, $5e
 	ld c, SCREEN_WIDTH
 .loop
@@ -553,7 +553,7 @@
 ; This is used to copy the link cable tiles off screen so that the cable
 ; continues when the screen is scrolled.
 	push hl
-	hlCoord 0, 4
+	coord hl, 0, 4
 	call CopyToScreenEdgeTiles
 	pop hl
 	ld a, h
@@ -737,7 +737,7 @@
 	xor $1
 	ld [H_AUTOBGTRANSFERENABLED], a
 	call GetMonHeader
-	hlCoord 7, 2
+	coord hl, 7, 2
 	call LoadFlippedFrontSpriteByMonIndex
 	ld c, 10
 	jp DelayFrames
--- a/engine/trade2.asm
+++ b/engine/trade2.asm
@@ -1,43 +1,43 @@
 Trade_PrintPlayerMonInfoText: ; 42769 (10:6769)
-	hlCoord 5, 0
+	coord hl, 5, 0
 	ld de,Trade_MonInfoText
 	call PlaceString
 	ld a,[wTradedPlayerMonSpecies]
 	ld [wd11e],a
 	predef IndexToPokedex
-	hlCoord 9, 0
+	coord hl, 9, 0
 	ld de,wd11e
 	ld bc,$8103
 	call PrintNumber
-	hlCoord 5, 2
+	coord hl, 5, 2
 	ld de,wcf4b
 	call PlaceString
-	hlCoord 8, 4
+	coord hl, 8, 4
 	ld de,wTradedPlayerMonOT
 	call PlaceString
-	hlCoord 8, 6
+	coord hl, 8, 6
 	ld de,wTradedPlayerMonOTID
 	ld bc,$8205
 	jp PrintNumber
 
 Trade_PrintEnemyMonInfoText: ; 427a7 (10:67a7)
-	hlCoord 5, 10
+	coord hl, 5, 10
 	ld de,Trade_MonInfoText
 	call PlaceString
 	ld a,[wTradedEnemyMonSpecies]
 	ld [wd11e],a
 	predef IndexToPokedex
-	hlCoord 9, 10
+	coord hl, 9, 10
 	ld de,wd11e
 	ld bc,$8103
 	call PrintNumber
-	hlCoord 5, 12
+	coord hl, 5, 12
 	ld de,wcd6d
 	call PlaceString
-	hlCoord 8, 14
+	coord hl, 8, 14
 	ld de,wTradedEnemyMonOT
 	call PlaceString
-	hlCoord 8, 16
+	coord hl, 8, 16
 	ld de,wTradedEnemyMonOTID
 	ld bc,$8205
 	jp PrintNumber
--- a/home.asm
+++ b/home.asm
@@ -1405,7 +1405,7 @@
 	call DisplayTextBoxID ; draw the menu text box
 	call UpdateSprites ; disable sprites behind the text box
 ; the code up to .skipMovingSprites appears to be useless
-	hlCoord 4, 2 ; coordinates of upper left corner of menu text box
+	coord hl, 4, 2 ; coordinates of upper left corner of menu text box
 	ld de,$090e ; height and width of menu text box
 	ld a,[wListMenuID]
 	and a ; is it a PC pokemon list?
@@ -1446,7 +1446,7 @@
 	call DelayFrames
 	xor a
 	ld [wCurrentMenuItem],a
-	hlCoord 5, 4
+	coord hl, 5, 4
 	ld a,l
 	ld [wMenuCursorLocation],a
 	ld a,h
@@ -1568,7 +1568,7 @@
 
 DisplayChooseQuantityMenu:: ; 2d57 (0:2d57)
 ; text box dimensions/coordinates for just quantity
-	hlCoord 15, 9
+	coord hl, 15, 9
 	ld b,1 ; height
 	ld c,3 ; width
 	ld a,[wListMenuID]
@@ -1575,16 +1575,16 @@
 	cp a,PRICEDITEMLISTMENU
 	jr nz,.drawTextBox
 ; text box dimensions/coordinates for quantity and price
-	hlCoord 7, 9
+	coord hl, 7, 9
 	ld b,1  ; height
 	ld c,11 ; width
 .drawTextBox
 	call TextBoxBorder
-	hlCoord 16, 10
+	coord hl, 16, 10
 	ld a,[wListMenuID]
 	cp a,PRICEDITEMLISTMENU
 	jr nz,.printInitialQuantity
-	hlCoord 8, 10
+	coord hl, 8, 10
 .printInitialQuantity
 	ld de,InitialQuantityText
 	call PlaceString
@@ -1624,7 +1624,7 @@
 	ld a,[wMaxItemQuantity]
 	ld [hl],a
 .handleNewQuantity
-	hlCoord 17, 10
+	coord hl, 17, 10
 	ld a,[wListMenuID]
 	cp a,PRICEDITEMLISTMENU
 	jr nz,.printQuantity
@@ -1663,13 +1663,13 @@
 	ld a,[hDivideBCDQuotient + 2]
 	ld [hMoney + 2],a
 .skipHalvingPrice
-	hlCoord 12, 10
+	coord hl, 12, 10
 	ld de,SpacesBetweenQuantityAndPriceText
 	call PlaceString
 	ld de,hMoney ; total price
 	ld c,$a3
 	call PrintBCDNumber
-	hlCoord 9, 10
+	coord hl, 9, 10
 .printQuantity
 	ld de,wItemQuantity ; current quantity
 	ld bc,$8102 ; print leading zeroes, 1 byte, 2 digits
@@ -1708,7 +1708,7 @@
 	ret
 
 PrintListMenuEntries:: ; 2e5a (0:2e5a)
-	hlCoord 5, 3
+	coord hl, 5, 3
 	ld b,$09
 	ld c,$0e
 	call ClearScreenArea
@@ -1733,7 +1733,7 @@
 	jr nc,.noCarry
 	inc d
 .noCarry
-	hlCoord 6, 4 ; coordinates of first list entry name
+	coord hl, 6, 4 ; coordinates of first list entry name
 	ld b,4 ; print 4 names
 .loop
 	ld a,b
@@ -3011,7 +3011,7 @@
 InitYesNoTextBoxParameters:: ; 35ff (0:35ff)
 	xor a ; YES_NO_MENU
 	ld [wTwoOptionMenuID], a
-	hlCoord 14, 7
+	coord hl, 14, 7
 	ld bc, $80f
 	ret
 
@@ -3019,7 +3019,7 @@
 	call SaveScreenTilesToBuffer1
 	ld a, HEAL_CANCEL_MENU
 	ld [wTwoOptionMenuID], a
-	hlCoord 11, 6
+	coord hl, 11, 6
 	ld bc, $80c
 	jr DisplayYesNoChoice
 
@@ -3027,7 +3027,7 @@
 	call SaveScreenTilesToBuffer1
 	ld a, WIDE_YES_NO_MENU
 	ld [wTwoOptionMenuID], a
-	hlCoord 12, 7
+	coord hl, 12, 7
 	ld bc, $080d
 DisplayYesNoChoice:: ; 3628 (0:3628)
 	ld a, TWO_OPTION_MENU
@@ -3176,7 +3176,7 @@
 
 
 SaveScreenTilesToBuffer2:: ; 36f4 (0:36f4)
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de, wTileMapBackup2
 	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call CopyData
@@ -3193,13 +3193,13 @@
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
 	ld hl, wTileMapBackup2
-	deCoord 0, 0
+	coord de, 0, 0
 	ld bc, $168
 	call CopyData
 	ret
 
 SaveScreenTilesToBuffer1:: ; 3719 (0:3719)
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de, wTileMapBackup
 	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	jp CopyData
@@ -3208,7 +3208,7 @@
 	xor a
 	ld [H_AUTOBGTRANSFERENABLED], a
 	ld hl, wTileMapBackup
-	deCoord 0, 0
+	coord de, 0, 0
 	ld bc, SCREEN_WIDTH * SCREEN_HEIGHT
 	call CopyData
 	ld a, $1
@@ -3470,7 +3470,7 @@
 	jr z, .skipAnimation
 	call TownMapSpriteBlinkingAnimation
 .skipAnimation
-	hlCoord 18, 16
+	coord hl, 18, 16
 	call HandleDownArrowBlinkTiming
 	pop hl
 	call JoypadLowSensitivity
@@ -3946,7 +3946,7 @@
 	and a ; was a key pressed?
 	jr nz,.keyPressed
 	push hl
-	hlCoord 18, 11 ; coordinates of blinking down arrow in some menus
+	coord hl, 18, 11 ; coordinates of blinking down arrow in some menus
 	call HandleDownArrowBlinkTiming ; blink down arrow (if any)
 	pop hl
 	ld a,[wMenuJoypadPollCount]
@@ -4037,7 +4037,7 @@
 	ld a,[wTopMenuItemY]
 	and a ; is the y coordinate 0?
 	jr z,.adjustForXCoord
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc,SCREEN_WIDTH
 .topMenuItemLoop
 	add hl,bc
@@ -4207,7 +4207,7 @@
 	call Delay3
 	pop hl
 Func_3c59:: ; 3c59 (0:3c59)
-	bcCoord 1, 14
+	coord bc, 1, 14
 	jp TextCommandProcessor
 
 
--- a/home/copy2.asm
+++ b/home/copy2.asm
@@ -184,17 +184,17 @@
 	ld c, 6
 
 	ld hl, $600 * 0
-	deCoord 0, 6 * 0
+	coord de, 0, 6 * 0
 	call .setup
 	call DelayFrame
 
 	ld hl, $600 * 1
-	deCoord 0, 6 * 1
+	coord de, 0, 6 * 1
 	call .setup
 	call DelayFrame
 
 	ld hl, $600 * 2
-	deCoord 0, 6 * 2
+	coord de, 0, 6 * 2
 	call .setup
 	jp DelayFrame
 
@@ -217,7 +217,7 @@
 ; for the bg map to update.
 	ld bc, 20 * 18
 	inc b
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld a, $7f
 .loop
 	ld [hli], a
--- a/home/overworld.asm
+++ b/home/overworld.asm
@@ -1420,7 +1420,7 @@
 	ld bc,$0002
 	add hl,bc
 .copyToVisibleAreaBuffer
-	deCoord 0, 0 ; base address for the tiles that are directly transfered to VRAM during V-blank
+	coord de, 0, 0 ; base address for the tiles that are directly transfered to VRAM during V-blank
 	ld b, SCREEN_HEIGHT
 .rowLoop2
 	ld c, SCREEN_WIDTH
@@ -1693,7 +1693,7 @@
 ; the portion of the map that was newly exposed due to the player's movement
 
 ScheduleNorthRowRedraw:: ; 0e91 (0:0e91)
-	hlCoord 0, 0
+	coord hl, 0, 0
 	call CopyToScreenEdgeTiles
 	ld a,[wMapViewVRAMPointer]
 	ld [H_SCREENEDGEREDRAWADDR],a
@@ -1715,7 +1715,7 @@
 	ret
 
 ScheduleSouthRowRedraw:: ; 0eb2 (0:0eb2)
-	hlCoord 0, 16
+	coord hl, 0, 16
 	call CopyToScreenEdgeTiles
 	ld a,[wMapViewVRAMPointer]
 	ld l,a
@@ -1734,7 +1734,7 @@
 	ret
 
 ScheduleEastColumnRedraw:: ; 0ed3 (0:0ed3)
-	hlCoord 18, 0
+	coord hl, 18, 0
 	call ScheduleColumnRedrawHelper
 	ld a,[wMapViewVRAMPointer]
 	ld c,a
@@ -1772,7 +1772,7 @@
 	ret
 
 ScheduleWestColumnRedraw:: ; 0f08 (0:0f08)
-	hlCoord 0, 0
+	coord hl, 0, 0
 	call ScheduleColumnRedrawHelper
 	ld a,[wMapViewVRAMPointer]
 	ld [H_SCREENEDGEREDRAWADDR],a
@@ -2323,7 +2323,7 @@
 	call LoadTilesetTilePatternData
 	call LoadCurrentMapView
 ; copy current map view to VRAM
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld de,vBGMap0
 	ld b,18
 .vramCopyLoop
--- a/home/text.asm
+++ b/home/text.asm
@@ -76,7 +76,7 @@
 	cp $4F
 	jr nz,.next3
 	pop hl
-	hlCoord 1, 16
+	coord hl, 1, 16
 	push hl
 	jp PlaceNextChar_inc
 
@@ -290,13 +290,13 @@
 	Coorda 18, 16
 	call ProtectedDelay3
 	call ManualTextScroll
-	hlCoord 1, 13
+	coord hl, 1, 13
 	ld bc,$0412
 	call ClearScreenArea
 	ld c,20
 	call DelayFrames
 	pop de
-	hlCoord 1, 14
+	coord hl, 1, 14
 	jp PlaceNextChar_inc
 
 Char49:: ; 1ad5 (0:1ad5)
@@ -305,7 +305,7 @@
 	Coorda 18, 16
 	call ProtectedDelay3
 	call ManualTextScroll
-	hlCoord 1, 10
+	coord hl, 1, 10
 	ld bc,$0712
 	call ClearScreenArea
 	ld c,20
@@ -312,7 +312,7 @@
 	call DelayFrames
 	pop de
 	pop hl
-	hlCoord 1, 11
+	coord hl, 1, 11
 	push hl
 	jp PlaceNextChar_inc
 
@@ -330,13 +330,13 @@
 	push de
 	call Next1B18
 	call Next1B18
-	hlCoord 1, 16
+	coord hl, 1, 16
 	pop de
 	jp PlaceNextChar_inc
 
 Next1B18:: ; 1b18 (0:1b18)
-	hlCoord 0, 14
-	deCoord 0, 13
+	coord hl, 0, 14
+	coord de, 0, 13
 	ld b,60
 .next
 	ld a,[hli]
@@ -344,7 +344,7 @@
 	inc de
 	dec b
 	jr nz,.next
-	hlCoord 1, 16
+	coord hl, 1, 16
 	ld a, " "
 	ld b,SCREEN_WIDTH - 2
 .next2
@@ -499,7 +499,7 @@
 ; (no arguments)
 TextCommand05:: ; 1bc5 (0:1bc5)
 	pop hl
-	bcCoord 1, 16 ; address of second line of dialogue text box
+	coord bc, 1, 16 ; address of second line of dialogue text box
 	jp NextTextCommand
 
 ; blink arrow and wait for A or B to be pressed
@@ -528,7 +528,7 @@
 	call Next1B18 ; scroll up text
 	call Next1B18
 	pop hl
-	bcCoord 1, 16 ; address of second line of dialogue text box
+	coord bc, 1, 16 ; address of second line of dialogue text box
 	jp NextTextCommand
 
 ; execute asm inline
--- a/home/vcopy.asm
+++ b/home/vcopy.asm
@@ -130,7 +130,7 @@
 	dec a
 	jr z,.transferMiddleThird
 .transferBottomThird
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld sp,hl
 	ld a,[H_AUTOBGTRANSFERDEST + 1]
 	ld h,a
@@ -141,7 +141,7 @@
 	xor a ; TRANSFERTOP
 	jr .doTransfer
 .transferTopThird
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld sp,hl
 	ld a,[H_AUTOBGTRANSFERDEST + 1]
 	ld h,a
@@ -150,7 +150,7 @@
 	ld a,TRANSFERMIDDLE
 	jr .doTransfer
 .transferMiddleThird
-	hlCoord 0, 6
+	coord hl, 0, 6
 	ld sp,hl
 	ld a,[H_AUTOBGTRANSFERDEST + 1]
 	ld h,a
--- a/macros.asm
+++ b/macros.asm
@@ -67,22 +67,11 @@
 coins equs "bcd2"
 money equs "bcd3"
 
-;\1 = X
-;\2 = Y
-hlCoord: MACRO
-	ld hl, wTileMap + 20 * \2 + \1
-	ENDM
-
-;\1 = X
-;\2 = Y
-deCoord: MACRO
-	ld de, wTileMap + 20 * \2 + \1
-	ENDM
-
-;\1 = X
-;\2 = Y
-bcCoord: MACRO
-	ld bc, wTileMap + 20 * \2 + \1
+;\1 = r
+;\2 = X
+;\3 = Y
+coord: MACRO
+	ld \1, wTileMap + 20 * \3 + \2
 	ENDM
 
 ;\1 = X
--- a/main.asm
+++ b/main.asm
@@ -158,7 +158,7 @@
 INCLUDE "engine/oam_dma.asm"
 
 PrintWaitingText:
-	hlCoord 3, 10
+	coord hl, 3, 10
 	ld b, $1
 	ld c, $b
 	ld a, [W_ISINBATTLE]
@@ -169,7 +169,7 @@
 .asm_4c17
 	call CableClub_TextBoxBorder
 .asm_4c1a
-	hlCoord 4, 11
+	coord hl, 4, 11
 	ld de, WaitingText
 	call PlaceString
 	ld c, 50
@@ -1005,18 +1005,18 @@
 	ld a,[wd74b]
 	bit 5,a ; does the player have the pokedex?
 ; start menu with pokedex
-	hlCoord 10, 0
+	coord hl, 10, 0
 	ld b,$0e
 	ld c,$08
 	jr nz,.drawTextBoxBorder
 ; start menu without pokedex
-	hlCoord 10, 0
+	coord hl, 10, 0
 	ld b,$0c
 	ld c,$08
 	jr .drawTextBoxBorder
 ; if text ID is not 0 (i.e. not the start menu) then do a standard dialogue text box
 .notStartMenu
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld b,$04
 	ld c,$12
 .drawTextBoxBorder
@@ -1074,12 +1074,12 @@
 	ld a,[wd74b]
 	bit 5,a ; does the player have the pokedex?
 ; menu with pokedex
-	hlCoord 10, 0
+	coord hl, 10, 0
 	ld b,$0e
 	ld c,$08
 	jr nz,.drawTextBoxBorder
 ; shorter menu if the player doesn't have the pokedex
-	hlCoord 10, 0
+	coord hl, 10, 0
 	ld b,$0c
 	ld c,$08
 .drawTextBoxBorder
@@ -1097,7 +1097,7 @@
 	ld [wMenuWatchMovingOutOfBounds],a
 	ld hl,wd730
 	set 6,[hl] ; no pauses between printing each letter
-	hlCoord 12, 2
+	coord hl, 12, 2
 	ld a,[wd74b]
 	bit 5,a ; does the player have the pokedex?
 ; case for not having pokdex
@@ -1276,7 +1276,7 @@
 ; hl = address of upper left corner of text box
 GetAddressOfScreenCoords: ; 7375 (1:7375)
 	push bc
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld bc,20
 .loop ; loop to add d rows to the base address
 	ld a,d
@@ -1437,11 +1437,11 @@
 	ld a, MONEY_BOX_TEMPLATE
 	ld [wTextBoxID], a
 	call DisplayTextBoxID
-	hlCoord 13, 1
+	coord hl, 13, 1
 	ld b, $1
 	ld c, $6
 	call ClearScreenArea
-	hlCoord 12, 1
+	coord hl, 12, 1
 	ld de, wPlayerMoney
 	ld c, $a3
 	call PrintBCDNumber
@@ -1734,7 +1734,7 @@
 	jr nz, .fieldMovesExist
 
 ; no field moves
-	hlCoord 11, 11
+	coord hl, 11, 11
 	ld b, 5
 	ld c, 7
 	call TextBoxBorder
@@ -1741,7 +1741,7 @@
 	call UpdateSprites
 	ld a, 12
 	ld [hFieldMoveMonMenuTopMenuItemX], a
-	hlCoord 13, 12
+	coord hl, 13, 12
 	ld de, PokemonMenuEntries
 	jp PlaceString
 
@@ -1750,7 +1750,7 @@
 
 ; Calculate the text box position and dimensions based on the leftmost X coord
 ; of the field move names before adjusting for the number of field moves.
-	hlCoord 0, 11
+	coord hl, 0, 11
 	ld a, [wFieldMovesLeftmostXCoord]
 	dec a
 	ld e, a
@@ -1781,7 +1781,7 @@
 	call UpdateSprites
 
 ; Calculate the position of the first field move name to print.
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld a, [wFieldMovesLeftmostXCoord]
 	inc a
 	ld e, a
@@ -1830,7 +1830,7 @@
 	pop hl
 	ld a, [wFieldMovesLeftmostXCoord]
 	ld [hFieldMoveMonMenuTopMenuItemX], a
-	hlCoord 0, 12
+	coord hl, 0, 12
 	ld a, [wFieldMovesLeftmostXCoord]
 	inc a
 	ld e, a
@@ -2316,28 +2316,28 @@
 	ret c
 	cp UNKNOWN_DUNGEON_2
 	ret nc
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $3
 	ld c, $7
 	call TextBoxBorder
-	hlCoord 1, 1
+	coord hl, 1, 1
 	ld de, wSafariSteps
 	ld bc, $203
 	call PrintNumber
-	hlCoord 4, 1
+	coord hl, 4, 1
 	ld de, SafariSteps
 	call PlaceString
-	hlCoord 1, 3
+	coord hl, 1, 3
 	ld de, SafariBallText
 	call PlaceString
 	ld a, [W_NUMSAFARIBALLS]
 	cp $a
 	jr nc, .asm_c56d
-	hlCoord 5, 3
+	coord hl, 5, 3
 	ld a, $7f
 	ld [hl], a
 .asm_c56d
-	hlCoord 6, 3
+	coord hl, 6, 3
 	ld de, W_NUMSAFARIBALLS
 	ld bc, $102
 	jp PrintNumber
@@ -3025,11 +3025,11 @@
 	ld [hli], a
 	ld [hl], $60 ; First name
 
-	hlCoord 2, 11
+	coord hl, 2, 11
 	ld de, wTempObtainedBadgesBooleans
 	call .DrawBadgeRow
 
-	hlCoord 2, 14
+	coord hl, 2, 14
 	ld de, wTempObtainedBadgesBooleans + 4
 ;	call .DrawBadgeRow
 ;	ret
--- a/scripts/bikeshop.asm
+++ b/scripts/bikeshop.asm
@@ -51,15 +51,15 @@
 	ld [wTopMenuItemX], a
 	ld hl, wd730
 	set 6, [hl]
-	hlCoord 0, 0
+	coord hl, 0, 0
 	ld b, $4
 	ld c, $f
 	call TextBoxBorder
 	call UpdateSprites
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld de, BikeShopMenuText
 	call PlaceString
-	hlCoord 8, 3
+	coord hl, 8, 3
 	ld de, BikeShopMenuPrice
 	call PlaceString
 	ld hl, BikeShopText_1d815
--- a/scripts/celadongamecorner.asm
+++ b/scripts/celadongamecorner.asm
@@ -480,32 +480,32 @@
 CeladonGameCornerScript_48f1e: ; 48f1e (12:4f1e)
 	ld hl, wd730
 	set 6, [hl]
-	hlCoord 11, 0
+	coord hl, 11, 0
 	ld b, $5
 	ld c, $7
 	call TextBoxBorder
 	call UpdateSprites
-	hlCoord 12, 1
+	coord hl, 12, 1
 	ld b, $4
 	ld c, $7
 	call ClearScreenArea
-	hlCoord 12, 2
+	coord hl, 12, 2
 	ld de, GameCornerMoneyText
 	call PlaceString
-	hlCoord 12, 3
+	coord hl, 12, 3
 	ld de, GameCornerBlankText1
 	call PlaceString
-	hlCoord 12, 3
+	coord hl, 12, 3
 	ld de, wPlayerMoney
 	ld c, $a3
 	call PrintBCDNumber
-	hlCoord 12, 4
+	coord hl, 12, 4
 	ld de, GameCornerCoinText
 	call PlaceString
-	hlCoord 12, 5
+	coord hl, 12, 5
 	ld de, GameCornerBlankText2
 	call PlaceString
-	hlCoord 15, 5
+	coord hl, 15, 5
 	ld de, wPlayerCoins
 	ld c, $82
 	call PrintBCDNumber
--- a/scripts/celadonmartroof.asm
+++ b/scripts/celadonmartroof.asm
@@ -63,7 +63,7 @@
 	dec l
 	ld b, l
 	ld c, $c
-	hlCoord 0, 0
+	coord hl, 0, 0
 	call TextBoxBorder
 	call UpdateSprites
 	call CeladonMartRoofScript_48532
@@ -200,7 +200,7 @@
 	push hl
 	ld [wd11e], a
 	call GetItemName
-	hlCoord 2, 2
+	coord hl, 2, 2
 	ld a, [$ffdb]
 	ld bc, SCREEN_WIDTH * 2
 	call AddNTimes
--- a/scripts/vermiliondock.asm
+++ b/scripts/vermiliondock.asm
@@ -53,7 +53,7 @@
 	call DelayFrames
 	ld b, $9c
 	call CopyScreenTileBufferToVRAM
-	hlCoord 0, 10
+	coord hl, 0, 10
 	ld bc, $0078
 	ld a, $14
 	call FillMemory