Merge pull request #756 from mid-kid/master

Rub a dub dub, thanks for the grub

audio/music/lookyoungster.asm

@@ -59,7 +59,8 @@ Music_LookYoungster_Ch1:
 	rest 1
 	rest 16
 	sound_loop 0, .mainloop
-	sound_ret
+
+	sound_ret ; unused
 
 Music_LookYoungster_Ch2:
 	stereo_panning TRUE, FALSE
@@ -156,7 +157,8 @@ Music_LookYoungster_Ch2:
 	note C_, 1
 	rest 1
 	sound_loop 0, .mainloop
-	sound_ret
+
+	sound_ret ; unused
 
 Music_LookYoungster_Ch3:
 	stereo_panning TRUE, TRUE
@@ -290,4 +292,5 @@ Music_LookYoungster_Ch3:
 	note G#, 1
 	rest 1
 	sound_loop 0, .mainloop
-	sound_ret
+
+	sound_ret ; unused

charmap.asm

@@ -282,6 +282,7 @@
 	charmap "「", $70
 	charmap "」", $71
 	charmap "』", $73
+	charmap "・", $74
 	charmap "⋯", $75
 
 	charmap "　", $7f

engine/battle/battle_transition.asm

@@ -673,7 +673,7 @@ StartTrainerBattle_LoadPokeBallGraphics:
 	call CopyBytes
 	pop af
 	ldh [rSVBK], a
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	call DelayFrame
 	call BattleStart_CopyTilemapAtOnce

engine/battle/core.asm

@@ -4920,7 +4920,7 @@ LoadBattleMenu2:
 	ret
 
 .mobile
-	farcall Function100b12
+	farcall Mobile_LoadBattleMenu
 	ld a, [wcd2b]
 	and a
 	ret z
@@ -5311,7 +5311,7 @@ CheckAmuletCoin:
 MoveSelectionScreen:
 	call IsMobileBattle
 	jr nz, .not_mobile
-	farcall MobileMoveSelectionScreen
+	farcall Mobile_MoveSelectionScreen
 	ret
 
 .not_mobile

engine/battle_anims/anim_commands.asm

@@ -1417,7 +1417,7 @@ BattleAnim_SetBGPals:
 	call CopyPals
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1438,7 +1438,7 @@ BattleAnim_SetOBPals:
 	call CopyPals
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

engine/battle_anims/bg_effects.asm

@@ -2546,7 +2546,7 @@ BGEffects_LoadBGPal0_OBPal1:
 	pop bc
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -2573,7 +2573,7 @@ BGEffects_LoadBGPal1_OBPal0:
 	pop bc
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

engine/debug/color_picker.asm

@@ -448,7 +448,7 @@ Function81c33:
 	hlcoord 15, 2
 	ld de, wc608 + 2
 	call Function81ca7
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ld a, $3
 	ld [wJumptableIndex], a
@@ -1227,7 +1227,7 @@ Function822a3:
 	call Function81ca7
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	call DelayFrame
 	ret

engine/events/heal_machine_anim.asm

@@ -167,7 +167,7 @@ INCBIN "gfx/overworld/heal_machine.2bpp"
 	ld bc, 1 palettes
 	ld a, BANK(wOBPals2)
 	call FarCopyWRAM
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -231,7 +231,7 @@ INCLUDE "gfx/overworld/heal_machine.pal"
 
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

engine/events/poisonstep_pals.asm

@@ -39,7 +39,7 @@ LoadPoisonBGPals:
 	jr nz, .loop
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ld c, 4
 	call DelayFrames

engine/gfx/cgb_layouts.asm

@@ -189,7 +189,7 @@ _CGB_PokegearPals:
 	ld a, BANK(wBGPals1)
 	call FarCopyWRAM
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -243,7 +243,7 @@ _CGB_StatsScreenHPPals:
 
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -282,7 +282,7 @@ _CGB_Pokedex:
 	call FarCopyWRAM
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -317,7 +317,7 @@ _CGB_BillsPC:
 	call InitPartyMenuOBPals
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -339,7 +339,7 @@ Function9009:
 	call InitPartyMenuOBPals
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -362,7 +362,7 @@ _CGB_PokedexUnownMode:
 	call InitPartyMenuOBPals
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -415,7 +415,7 @@ _CGB_SlotMachine:
 	call ByteFill
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -433,7 +433,7 @@ _CGB_BetaTitleScreen:
 	call FillBoxCGB
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -573,7 +573,7 @@ _CGB_Evolution:
 	call WipeAttrmap
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -591,7 +591,7 @@ _CGB_GSTitleScreen:
 	ld a, SCGB_DIPLOMA
 	ld [wDefaultSGBLayout], a
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -725,7 +725,7 @@ _CGB_TrainerCard:
 	ld [hl], a
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -749,7 +749,7 @@ _CGB_MoveList:
 	call FillBoxCGB
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -759,7 +759,7 @@ _CGB_BetaPikachuMinigame:
 	call WipeAttrmap
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -771,7 +771,7 @@ _CGB_PokedexSearchOption:
 	call WipeAttrmap
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -819,7 +819,7 @@ _CGB_PackPals:
 	call FillBoxCGB
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -877,7 +877,7 @@ _CGB_MagnetTrain:
 	call FillBoxCGB
 	call ApplyAttrmap
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

engine/gfx/color.asm

@@ -150,7 +150,7 @@ Function8b07: ; unreferenced
 	call FarCopyWRAM
 
 	call ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -352,7 +352,7 @@ ApplyHPBarPals:
 	ld bc, 4
 	ld a, BANK(wBGPals2)
 	call FarCopyWRAM
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

engine/gfx/crystal_layouts.asm

@@ -157,7 +157,7 @@ MG_Mobile_Layout01:
 .asm_49467
 	farcall ApplyAttrmap
 	farcall ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

engine/gfx/sprite_anims.asm

@@ -180,12 +180,12 @@ DoAnimFrame:
 	ld a, [hl]
 	sla a
 	sla a
-	ld d, $2
 
+	ld d, 2
 	ld hl, SPRITEANIMSTRUCT_0C
 	add hl, bc
 	ld a, [hl]
-	add $3
+	add 3
 	ld [hl], a
 	call .Sprites_Sine
 
@@ -204,7 +204,7 @@ DoAnimFrame:
 	ld a, [hl]
 	inc a
 	ld [hl], a
-	ld d, $2
+	ld d, 2
 	call .Sprites_Sine
 
 	ld hl, SPRITEANIMSTRUCT_YOFFSET
@@ -391,7 +391,7 @@ DoAnimFrame:
 	inc [hl]
 .move_vertical
 	ld a, e
-	ld d, $20
+	ld d, 32
 	call .Sprites_Sine
 
 	ld hl, SPRITEANIMSTRUCT_YOFFSET
@@ -456,10 +456,10 @@ DoAnimFrame:
 	ld hl, SPRITEANIMSTRUCT_0C
 	add hl, bc
 	ld a, [hl]
-	cp $30
+	cp 48
 	jr c, .asm_8d4cd
 	dec [hl]
-	ld d, $28
+	ld d, 40
 	call .Sprites_Sine
 
 	ld hl, SPRITEANIMSTRUCT_YOFFSET
@@ -492,8 +492,8 @@ DoAnimFrame:
 	ld a, [hl]
 	and a
 	jr z, .asm_8d51c
-	ld d, a
 
+	ld d, a
 	ld hl, SPRITEANIMSTRUCT_0C
 	add hl, bc
 	ld a, [hl]
@@ -759,11 +759,11 @@ DoAnimFrame:
 	ld hl, SPRITEANIMSTRUCT_0D
 	add hl, bc
 	ld a, [hl]
-	add $2
+	add 2
 	ld [hl], a
 	xor $ff
 	inc a
-	ld d, $20
+	ld d, 32
 	call .Sprites_Sine
 
 	ld hl, SPRITEANIMSTRUCT_YOFFSET
@@ -777,13 +777,13 @@ DoAnimFrame:
 	ld hl, SPRITEANIMSTRUCT_0C
 	add hl, bc
 	ld a, [hl]
-	cp $14
+	cp 20
 	jr nc, .asm_8d67f
-	add $2
+	add 2
 	ld [hl], a
 	xor $ff
 	inc a
-	ld d, $20
+	ld d, 32
 	call .Sprites_Sine
 
 	ld hl, SPRITEANIMSTRUCT_YOFFSET
@@ -799,7 +799,6 @@ DoAnimFrame:
 	inc [hl]
 	inc [hl]
 	inc [hl]
-
 	ld hl, SPRITEANIMSTRUCT_0C
 	add hl, bc
 	ld a, [hl]

engine/gfx/sprites.asm

@@ -135,16 +135,16 @@ _InitSpriteAnimStruct::
 ; Back up the structure address to bc.
 	ld c, l
 	ld b, h
-; Value [wSpriteAnimCount] is initially set to -1. Set it to
+
-; the number of objects loaded into this array.
+; Increment [wSpriteAnimCount], skipping a 0 value.
 	ld hl, wSpriteAnimCount
 	inc [hl]
 	ld a, [hl]
 	and a
-	jr nz, .initialized
+	jr nz, .nonzero
 	inc [hl]
+.nonzero
 
-.initialized
 ; Get row a of SpriteAnimSeqData, copy the pointer into de
 	pop af
 	ld e, a
@@ -228,9 +228,9 @@ DeinitializeAllSprites:
 UpdateAnimFrame:
 	call InitSpriteAnimBuffer ; init WRAM
 	call GetSpriteAnimFrame ; read from a memory array
-	cp -3
+	cp dowait_command
 	jr z, .done
-	cp -4
+	cp delanim_command
 	jr z, .delete
 	call GetFrameOAMPointer
 	; add byte to [wCurAnimVTile]

engine/items/item_effects.asm

@@ -1141,7 +1141,7 @@ EvoStoneEffect:
 	cp EVERSTONE
 	jr z, .NoEffect
 
-	ld a, $1
+	ld a, TRUE
 	ld [wForceEvolution], a
 	farcall EvolvePokemon
 

engine/menus/intro_menu.asm

@@ -959,6 +959,15 @@ Intro_PlacePlayerSprite:
 	db 10 * 8 + 4,  9 * 8, 2
 	db 10 * 8 + 4, 10 * 8, 3
 
+
+	const_def
+	const TITLESCREENOPTION_MAIN_MENU
+	const TITLESCREENOPTION_DELETE_SAVE_DATA
+	const TITLESCREENOPTION_RESTART
+	const TITLESCREENOPTION_UNUSED
+	const TITLESCREENOPTION_RESET_CLOCK
+NUM_TITLESCREENOPTIONS EQU const_value
+
 IntroSequence:
 	callfar Copyright_GameFreakPresents
 	jr c, StartTitleScreen
@@ -969,7 +978,7 @@ IntroSequence:
 StartTitleScreen:
 	ldh a, [rSVBK]
 	push af
-	ld a, BANK(wBGPals1)
+	ld a, BANK(wLYOverrides)
 	ldh [rSVBK], a
 
 	call .TitleScreen
@@ -999,8 +1008,8 @@ StartTitleScreen:
 	ld b, SCGB_DIPLOMA
 	call GetSGBLayout
 	call UpdateTimePals
-	ld a, [wIntroSceneFrameCounter]
+	ld a, [wTitleScreenSelectedOption]
-	cp $5
+	cp NUM_TITLESCREENOPTIONS
 	jr c, .ok
 	xor a
 .ok
@@ -1183,7 +1192,7 @@ TitleScreenMain:
 	ld a, [hl]
 	and D_LEFT + D_UP
 	cp  D_LEFT + D_UP
-	jr z, .clock_reset
+	jr z, .reset_clock
 
 ; Press Start or A to start the game.
 .check_start
@@ -1193,14 +1202,14 @@ TitleScreenMain:
 	ret
 
 .incave
-	ld a, 0
+	ld a, TITLESCREENOPTION_MAIN_MENU
 	jr .done
 
 .delete_save_data
-	ld a, 1
+	ld a, TITLESCREENOPTION_DELETE_SAVE_DATA
 
 .done
-	ld [wIntroSceneFrameCounter], a
+	ld [wTitleScreenSelectedOption], a
 
 ; Return to the intro sequence.
 	ld hl, wJumptableIndex
@@ -1223,9 +1232,9 @@ TitleScreenMain:
 	inc [hl]
 	ret
 
-.clock_reset
+.reset_clock
-	ld a, 4
+	ld a, TITLESCREENOPTION_RESET_CLOCK
-	ld [wIntroSceneFrameCounter], a
+	ld [wTitleScreenSelectedOption], a
 
 ; Return to the intro sequence.
 	ld hl, wJumptableIndex
@@ -1242,8 +1251,8 @@ TitleScreenEnd:
 	and a
 	ret nz
 
-	ld a, 2
+	ld a, TITLESCREENOPTION_RESTART
-	ld [wIntroSceneFrameCounter], a
+	ld [wTitleScreenSelectedOption], a
 
 ; Back to the intro.
 	ld hl, wJumptableIndex

engine/movie/intro.asm

@@ -308,7 +308,7 @@ GameFreakLogoScene4:
 	ld [wOBPals2 + 13], a
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1508,7 +1508,7 @@ Intro_Scene24_ApplyPaletteFade:
 	jr nz, .loop1
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1632,7 +1632,7 @@ CrystalIntro_UnownFade:
 
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1710,7 +1710,7 @@ Intro_Scene20_AppearUnown:
 
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1773,7 +1773,7 @@ endr
 
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1886,7 +1886,7 @@ Intro_RustleGrass:
 	dw IntroGrass2GFX
 
 Intro_SetCGBPalUpdate:
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1903,7 +1903,7 @@ Intro_ClearBGPals:
 
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	call DelayFrame
 	call DelayFrame

engine/movie/title.asm

@@ -10,7 +10,7 @@ _TitleScreen:
 ; Reset timing variables
 	ld hl, wJumptableIndex
 	ld [hli], a ; wJumptableIndex
-	ld [hli], a ; wIntroSceneFrameCounter
+	ld [hli], a ; wTitleScreenSelectedOption
 	ld [hli], a ; wTitleScreenTimer
 	ld [hl], a  ; wTitleScreenTimer + 1
 
@@ -74,7 +74,7 @@ _TitleScreen:
 
 ; 'CRYSTAL VERSION'
 	hlbgcoord 5, 9
-	ld bc, NAME_LENGTH ; length of version text
+	ld bc, 11 ; length of version text
 	ld a, 1
 	call ByteFill
 
@@ -85,7 +85,7 @@ _TitleScreen:
 	call ByteFill
 
 ; Back to VRAM bank 0
-	ld a, $0
+	ld a, 0
 	ldh [rVBK], a
 
 ; Decompress logo
@@ -108,14 +108,14 @@ _TitleScreen:
 	hlcoord 0, 3
 	lb bc, 7, 20
 	ld d, $80
-	ld e, $14
+	ld e, 20
 	call DrawTitleGraphic
 
 ; Draw copyright text
 	hlbgcoord 3, 0, vBGMap1
 	lb bc, 1, 13
 	ld d, $c
-	ld e, $10
+	ld e, 16
 	call DrawTitleGraphic
 
 ; Initialize running Suicune?
@@ -125,14 +125,12 @@ _TitleScreen:
 ; Initialize background crystal
 	call InitializeBackground
 
-; Save WRAM bank
+; Update palette colors
 	ldh a, [rSVBK]
 	push af
-; WRAM bank 5
 	ld a, BANK(wBGPals1)
 	ldh [rSVBK], a
 
-; Update palette colors
 	ld hl, TitleScreenPalettes
 	ld de, wBGPals1
 	ld bc, 16 palettes
@@ -143,7 +141,6 @@ _TitleScreen:
 	ld bc, 16 palettes
 	call CopyBytes
 
-; Restore WRAM bank
 	pop af
 	ldh [rSVBK], a
 
@@ -201,7 +198,7 @@ _TitleScreen:
 	ld a, -112
 	ldh [hWY], a
 
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 
 ; Update BG Map 0 (bank 0)

engine/movie/unused_title.asm

@@ -88,7 +88,7 @@ UnusedTitleScreen:
 	pop af
 	ldh [rSVBK], a
 
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 
 	ld de, MUSIC_TITLE

engine/overworld/init_map.asm

@@ -33,7 +33,7 @@ ReanchorBGMap_NoOAMUpdate::
 	call _OpenAndCloseMenu_HDMATransferTilemapAndAttrmap
 	farcall LoadOW_BGPal7
 	farcall ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	xor a
 	ldh [hBGMapMode], a

engine/pokegear/radio.asm

@@ -246,7 +246,7 @@ endr
 .loop3
 	; Choose one of the middle three Pokemon.
 	call Random
-	and NUM_GRASSMON
+	maskbits NUM_GRASSMON
 	cp 2
 	jr c, .loop3
 	cp 5

engine/pokemon/mon_menu.asm

@@ -811,8 +811,8 @@ ChooseMoveToDelete:
 
 .ChooseMoveToDelete
 	call SetUpMoveScreenBG
-	ld de, DeleteMoveScreenAttrs
+	ld de, DeleteMoveScreen2DMenuData
-	call SetMenuAttributes
+	call Load2DMenuData
 	call SetUpMoveList
 	ld hl, w2DMenuFlags1
 	set 6, [hl]
@@ -848,12 +848,12 @@ ChooseMoveToDelete:
 	pop af
 	ret
 
-DeleteMoveScreenAttrs:
+DeleteMoveScreen2DMenuData:
-	db 3, 1
+	db 3, 1 ; cursor start y, x
-	db 3, 1
+	db 3, 1 ; rows, columns
-	db $40, $00
+	db $40, $00 ; flags
-	dn 2, 0
+	dn 2, 0 ; cursor offset
-	db D_UP | D_DOWN | A_BUTTON | B_BUTTON
+	db D_UP | D_DOWN | A_BUTTON | B_BUTTON ; accepted buttons
 
 ManagePokemonMoves:
 	ld a, [wCurPartySpecies]
@@ -878,8 +878,8 @@ MoveScreenLoop:
 	ld [wPartyMenuCursor], a
 	call SetUpMoveScreenBG
 	call PlaceMoveScreenArrows
-	ld de, MoveScreenAttributes
+	ld de, MoveScreen2DMenuData
-	call SetMenuAttributes
+	call Load2DMenuData
 .loop
 	call SetUpMoveList
 	ld hl, w2DMenuFlags1
@@ -1077,12 +1077,12 @@ MoveScreenLoop:
 	call ClearSprites
 	jp ClearTilemap
 
-MoveScreenAttributes:
+MoveScreen2DMenuData:
-	db 3, 1
+	db 3, 1 ; cursor start y, x
-	db 3, 1
+	db 3, 1 ; rows, columns
-	db $40, $00
+	db $40, $00 ; flags
-	dn 2, 0
+	dn 2, 0 ; cursor offsets
-	db D_UP | D_DOWN | D_LEFT | D_RIGHT | A_BUTTON | B_BUTTON
+	db D_UP | D_DOWN | D_LEFT | D_RIGHT | A_BUTTON | B_BUTTON ; accepted buttons
 
 String_MoveWhere:
 	db "Where?@"

engine/pokemon/party_menu.asm

@@ -612,8 +612,8 @@ InitPartyMenuWithCancel:
 ; with cancel
 	xor a
 	ld [wSwitchMon], a
-	ld de, PartyMenuAttributes
+	ld de, PartyMenu2DMenuData
-	call SetMenuAttributes
+	call Load2DMenuData
 	ld a, [wPartyCount]
 	inc a
 	ld [w2DMenuNumRows], a ; list length
@@ -637,8 +637,8 @@ InitPartyMenuWithCancel:
 
 InitPartyMenuNoCancel:
 ; no cancel
-	ld de, PartyMenuAttributes
+	ld de, PartyMenu2DMenuData
-	call SetMenuAttributes
+	call Load2DMenuData
 	ld a, [wPartyCount]
 	ld [w2DMenuNumRows], a ; list length
 	ld b, a
@@ -656,20 +656,12 @@ InitPartyMenuNoCancel:
 	ld [wMenuJoypadFilter], a
 	ret
 
-PartyMenuAttributes:
+PartyMenu2DMenuData:
-; cursor y
+	db 1, 0 ; cursor start y, x
-; cursor x
+	db 0, 1 ; rows, columns
-; num rows
+	db $60, $00 ; flags
-; num cols
+	dn 2, 0 ; cursor offset
-; bit 6: animate sprites  bit 5: wrap around
+	db 0 ; accepted buttons
-; ?
-; distance between items (hi: y, lo: x)
-; allowed buttons (mask)
-	db 1, 0
-	db 0, 1
-	db $60, $00
-	dn 2, 0
-	db 0
 
 PartyMenuSelect:
 ; sets carry if exitted menu.

home/menu.asm

@@ -1,20 +1,22 @@
-SetMenuAttributes::
+Load2DMenuData::
 	push hl
 	push bc
-	ld hl, w2DMenuCursorInitY
+	ld hl, w2DMenuData
-	ld b, $8
+	ld b, w2DMenuDataEnd - w2DMenuData
 .loop
 	ld a, [de]
 	inc de
 	ld [hli], a
 	dec b
 	jr nz, .loop
+
+	; Reset menu state
 	ld a, $1
-	ld [hli], a
+	ld [hli], a ; wMenuCursorY
-	ld [hli], a
+	ld [hli], a ; wMenuCursorX
 	xor a
-	ld [hli], a
+	ld [hli], a ; wCursorOffCharacter
-	ld [hli], a
+	ld [hli], a ; wCursorCurrentTile
 	ld [hli], a
 	pop bc
 	pop hl

home/palettes.asm

@@ -99,7 +99,7 @@ DmgToCgbBGPals::
 	ld c, 8
 	call CopyPals
 ; request pal update
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 
 	pop af
@@ -147,7 +147,7 @@ DmgToCgbObjPals::
 	ld c, 8
 	call CopyPals
 ; request pal update
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 
 	pop af
@@ -182,7 +182,7 @@ DmgToCgbObjPal0::
 	ld b, a
 	ld c, 1
 	call CopyPals
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 
 	pop af
@@ -219,7 +219,7 @@ DmgToCgbObjPal1::
 	ld b, a
 	ld c, 1
 	call CopyPals
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 
 	pop af
@@ -319,7 +319,7 @@ ReloadSpritesNoPalettes::
 	call ByteFill
 	pop af
 	ldh [rSVBK], a
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	call DelayFrame
 	ret

home/text.asm

@@ -698,7 +698,7 @@ TextCommands::
 	dw TextCommand_PROMPT_BUTTON ; TX_PROMPT_BUTTON
 	dw TextCommand_SCROLL        ; TX_SCROLL
 	dw TextCommand_START_ASM     ; TX_START_ASM
-	dw TextCommand_NUM           ; TX_NUM
+	dw TextCommand_DECIMAL       ; TX_DECIMAL
 	dw TextCommand_PAUSE         ; TX_PAUSE
 	dw TextCommand_SOUND         ; TX_SOUND_DEX_FANFARE_50_79
 	dw TextCommand_DOTS          ; TX_DOTS
@@ -851,8 +851,8 @@ TextCommand_START_ASM::
 	ld [hl], a
 	ret
 
-TextCommand_NUM::
+TextCommand_DECIMAL::
-; print a number
+; print a decimal number
 	ld a, [hli]
 	ld e, a
 	ld a, [hli]

home/tilemap.asm

@@ -197,7 +197,7 @@ ClearPalettes::
 	ldh [rSVBK], a
 
 ; Request palette update
-	ld a, 1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

hram.asm

@@ -89,7 +89,7 @@ hPrintNumBuffer:: ds 10
 
 NEXTU
 ; miscellaneous
-    ds 9
+	ds 9
 hMGStatusFlags:: db
 ENDU
 

macros/scripts/text.asm

@@ -61,9 +61,9 @@ text_asm: MACRO
 	db TX_START_ASM
 ENDM
 
-	const TX_NUM ; $09
+	const TX_DECIMAL ; $09
 text_decimal: MACRO
-	db TX_NUM
+	db TX_DECIMAL
 	dw \1 ; address
 	dn \2, \3 ; bytes, digits
 ENDM

mobile/mobile_40.asm

@@ -409,7 +409,7 @@ Function1002dc:
 Function1002ed:
 	farcall LoadOW_BGPal7
 	farcall ApplyPals
-	ld a, $01
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	call DelayFrame
 	ret
@@ -1689,7 +1689,7 @@ Unknown_100b0a:
 
 popc
 
-Function100b12:
+Mobile_LoadBattleMenu:
 	call Function100dd8
 	ret c
 	ld hl, BattleMenuHeader
@@ -1747,7 +1747,7 @@ Function100b7a:
 	set 7, [hl]
 	ret
 
-MobileMoveSelectionScreen:
+Mobile_MoveSelectionScreen:
 	xor a
 	ld [wMoveSwapBuffer], a
 	farcall CheckPlayerHasUsableMoves
@@ -1765,7 +1765,7 @@ MobileMoveSelectionScreen:
 .GetMoveSelection:
 	xor a
 	ldh [hBGMapMode], a
-	call Function100c74
+	call .ListMoves
 	call Function100c98
 .master_loop
 	farcall MoveInfoBox
@@ -1860,7 +1860,7 @@ MobileMoveSelectionScreen:
 	call SafeLoadTempTilemapToTilemap
 	jp .GetMoveSelection
 
-Function100c74:
+.ListMoves:
 	hlcoord 0, 8
 	ld b, 8
 	ld c, 8
@@ -1876,8 +1876,8 @@ Function100c74:
 	ret
 
 Function100c98:
-	ld de, .attrs
+	ld de, .data
-	call SetMenuAttributes
+	call Load2DMenuData
 	ld a, [wNumMoves]
 	inc a
 	ld [w2DMenuNumRows], a
@@ -1886,12 +1886,12 @@ Function100c98:
 	ld [wMenuCursorY], a
 	ret
 
-.attrs
+.data:
-	db 10, 1
+	db 10, 1 ; cursor start y, x
-	db 255, 1
+	db -1, 1 ; rows, columns
-	db $a0, $00
+	db $a0, $00 ; flags
-	dn 2, 0
+	dn 2, 0 ; cursor offsets
-	db D_UP | D_DOWN | A_BUTTON | B_BUTTON
+	db D_UP | D_DOWN | A_BUTTON | B_BUTTON ; accepted buttons
 
 Mobile_PartyMenuSelect:
 	call Function100dd8
@@ -2210,7 +2210,7 @@ Function100eca:
 
 Function100ed4:
 	farcall ApplyPals
-	ld a, $01
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -5944,7 +5944,7 @@ Function1029cf:
 	ld hl, wcd4b
 	set 1, [hl]
 	ld de, MenuData3_102a33
-	call SetMenuAttributes
+	call Load2DMenuData
 	ld a, [wcd4a]
 	inc a
 	ld [wcd4a], a
@@ -5981,11 +5981,11 @@ String_102a26:
 	db   "@"
 
 MenuData3_102a33:
-	db 8, 11
+	db 8, 11 ; cursor start y, x
-	db 2,  1
+	db 2, 1 ; rows, columns
-	db $80, $00
+	db $80, $00 ; flags
-	dn 2, 0
+	dn 2, 0 ; cursor offset
-	db A_BUTTON
+	db A_BUTTON ; accepted buttons
 
 Function102a3b:
 	ld a, [wcd30]
@@ -6115,8 +6115,8 @@ Function102b4e:
 	ld [wMonType], a
 	ld a, [wMenuCursorY]
 	push af
-	ld de, Unknown_102b73
+	ld de, MenuData_102b73
-	call SetMenuAttributes
+	call Load2DMenuData
 	pop af
 	ld [wMenuCursorY], a
 	ld a, [wOTPartyCount]
@@ -6130,32 +6130,32 @@ Function102b68: ; unreferenced
 	call ByteFill
 	ret
 
-Unknown_102b73:
+MenuData_102b73:
-	db 9, 6
+	db 9, 6 ; cursor start y, x
-	db 255, 1
+	db -1, 1 ; rows, columns
-	db $a0, $00
+	db $a0, $00 ; flags
-	dn 1, 0
+	dn 1, 0 ; cursor offset
-	db D_UP | D_DOWN | A_BUTTON
+	db D_UP | D_DOWN | A_BUTTON ; accepted buttons
 
 Function102b7b:
 	xor a
 	ld [wMonType], a
 	ld a, [wMenuCursorY]
 	push af
-	ld de, Unknown_102b94
+	ld de, MenuData_102b94
-	call SetMenuAttributes
+	call Load2DMenuData
 	pop af
 	ld [wMenuCursorY], a
 	ld a, [wPartyCount]
 	ld [w2DMenuNumRows], a
 	ret
 
-Unknown_102b94:
+MenuData_102b94:
-	db 1, 6
+	db 1, 6 ; cursor start y, x
-	db 255, 1
+	db 255, 1 ; rows, columns
-	db $a0, $00
+	db $a0, $00 ; flags
-	dn 1, 0
+	dn 1, 0 ; cursor offset
-	db D_UP | D_DOWN | A_BUTTON
+	db D_UP | D_DOWN | A_BUTTON ; accepted buttons
 
 Function102b9c:
 	ld a, [wcd4d]

mobile/mobile_42.asm

@@ -1450,7 +1450,7 @@ Function108b5a:
 	jr nz, .loop
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 
@@ -1474,7 +1474,7 @@ Function108b78:
 	ld [hld], a
 	pop af
 	ldh [rSVBK], a
-	ld a, $1
+	ld a, TRUE 
 	ldh [hCGBPalUpdate], a
 	ret
 

mobile/mobile_5b.asm

@@ -650,7 +650,7 @@ Function16cbd1:
 	ld a, $5
 	call FarCopyWRAM
 	farcall ApplyPals
-	ld a, $1
+	ld a, TRUE
 	ldh [hCGBPalUpdate], a
 	ret
 

wram.asm

@@ -1436,13 +1436,14 @@ wcf65:: db
 wcf66:: db
 
 NEXTU
-; intro and title data
+; intro data
 wIntroSceneFrameCounter:: db
-UNION
 wIntroSceneTimer:: db
+
 NEXTU
+; title data
+wTitleScreenSelectedOption:: db
 wTitleScreenTimer:: dw
-ENDU
 
 NEXTU
 ; credits data