Comment, remove, or revise many unreferenced labels

This commit is contained in:
Rangi
2020-10-26 15:45:57 -04:00
parent a2b6befd7d
commit 9dcdad5e60
180 changed files with 810 additions and 1032 deletions

View File

@@ -101,7 +101,7 @@ _DepositPKMN:
ld [wJumptableIndex], a
ret
.go_back
.go_back ; unreferenced
ld hl, wJumptableIndex
dec [hl]
ret
@@ -358,7 +358,7 @@ _WithdrawPKMN:
ld [wJumptableIndex], a
ret
.unused
.go_back ; unreferenced
ld hl, wJumptableIndex
dec [hl]
ret
@@ -609,7 +609,7 @@ _MovePKMNWithoutMail:
ld [wJumptableIndex], a
ret
.unused
.go_back ; unreferenced
ld hl, wJumptableIndex
dec [hl]
ret
@@ -2222,7 +2222,7 @@ PCString_ReleasedPKMN: db "Released <PK><MN>.@"
PCString_Bye: db "Bye,@"
PCString_Stored: db "Stored @"
PCString_Got: db "Got @"
PCString_Non: db "Non.@"
PCString_Non: db "Non.@" ; unreferenced
PCString_BoxFull: db "The BOX is full.@"
PCString_PartyFull: db "The party's full!@"
PCString_NoReleasingEGGS: db "No releasing EGGS!@"
@@ -2268,16 +2268,16 @@ _ChangeBox_MenuHeader:
dw .MenuData
db 1 ; default option
.MenuData
.MenuData:
db SCROLLINGMENU_CALL_FUNCTION3_NO_SWITCH | SCROLLINGMENU_ENABLE_FUNCTION3 ; flags
db 4, 0 ; rows, columns
db SCROLLINGMENU_ITEMS_NORMAL ; item format
dba .boxes
dba .boxnames
dba .Boxes
dba .PrintBoxNames
dba NULL
dba BillsPC_PrintBoxCountAndCapacity
.boxes
.Boxes:
db NUM_BOXES
x = 1
rept NUM_BOXES
@@ -2286,7 +2286,7 @@ x = x + 1
endr
db -1
.boxnames
.PrintBoxNames:
push de
ld a, [wMenuSelection]
dec a

View File

@@ -1,5 +1,5 @@
GetBreedMon1LevelGrowth:
ld hl, wBreedMon1Stats
ld hl, wBreedMon1
ld de, wTempMon
ld bc, BOXMON_STRUCT_LENGTH
call CopyBytes
@@ -13,7 +13,7 @@ GetBreedMon1LevelGrowth:
ret
GetBreedMon2LevelGrowth:
ld hl, wBreedMon2Stats
ld hl, wBreedMon2
ld de, wTempMon
ld bc, BOXMON_STRUCT_LENGTH
call CopyBytes

View File

@@ -8,7 +8,7 @@ SendMailToPC:
cp MAILBOX_CAPACITY
jr nc, .full
ld bc, MAIL_STRUCT_LENGTH
ld hl, sMailbox
ld hl, sMailboxes
call AddNTimes
ld d, h
ld e, l
@@ -44,7 +44,7 @@ DeleteMailFromPC:
call OpenSRAM
ld a, b
push bc
ld hl, sMailbox
ld hl, sMailboxes
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
push hl
@@ -73,7 +73,7 @@ DeleteMailFromPC:
ReadMailMessage:
ld a, b
ld hl, sMailbox
ld hl, sMailboxes
ld bc, MAIL_STRUCT_LENGTH
call AddNTimes
ld d, h
@@ -87,7 +87,7 @@ MoveMailFromPCToParty:
push bc
ld a, b
ld bc, MAIL_STRUCT_LENGTH
ld hl, sMailbox
ld hl, sMailboxes
call AddNTimes
push hl
ld a, [wCurPartyMon]
@@ -314,19 +314,19 @@ _PlayerMailBoxMenu:
text_end
InitMail:
; initialize wMailboxCount and beyond with incrementing values, one per mail
; set z if no mail
; return z if no mail
ld a, BANK(sMailboxCount)
call OpenSRAM
ld a, [sMailboxCount]
call CloseSRAM
ld hl, wMailboxCount
ld [hli], a
and a
; initialize wMailboxCount from sMailboxCount
ld hl, wMailboxCount
ld [hli], a ; now hl = wMailboxItems
and a
jr z, .done ; if no mail, we're done
; load values in memory with incrementing values starting at wMailboxCount
; initialize wMailboxItems with incrementing values starting at 1
ld b, a
ld a, 1
.loop
@@ -334,6 +334,7 @@ InitMail:
inc a
dec b
jr nz, .loop
.done
ld [hl], -1 ; terminate

View File

@@ -404,7 +404,7 @@ LoadBlueSkyMailGFX:
ld de, BlueSkyMailGrassGFX
ld c, 1 * LEN_1BPP_TILE
call LoadMailGFX_Color3
ld de, MailDragoniteGFX
ld de, MailDragoniteAndSentretGFX
ld c, 23 * LEN_1BPP_TILE
call LoadMailGFX_Color3
ld de, MailCloudGFX
@@ -767,7 +767,7 @@ Mail_Place14TileAlternatingRow:
ld b, 14 / 2
jr Mail_PlaceAlternatingRow
Mail_Place16TileAlternatingRow:
Mail_Place16TileAlternatingRow: ; unreferenced
push af
ld b, 16 / 2
jr Mail_PlaceAlternatingRow
@@ -775,6 +775,7 @@ Mail_Place16TileAlternatingRow:
Mail_Place18TileAlternatingRow:
push af
ld b, 18 / 2
; fallthrough
Mail_PlaceAlternatingRow:
.loop
@@ -812,16 +813,16 @@ Mail_PlaceAlternatingColumn:
pop af
ret
Mail_Draw7TileRow:
ld b, $7
Mail_Draw7TileRow: ; unreferenced
ld b, 7
jr Mail_DrawRowLoop
Mail_Draw13TileRow:
ld b, $d
ld b, 13
jr Mail_DrawRowLoop
Mail_Draw16TileRow:
ld b, $10
ld b, 16
jr Mail_DrawRowLoop
Mail_DrawTopBottomBorder:
@@ -830,6 +831,7 @@ Mail_DrawTopBottomBorder:
Mail_DrawFullWidthBorder:
ld b, SCREEN_WIDTH
; fallthrough
Mail_DrawRowLoop:
.loop

View File

@@ -758,12 +758,10 @@ TeachWhichPKMNString:
MoveToWhereString:
db "Move to where?@"
ChooseAFemalePKMNString:
; unused
ChooseAFemalePKMNString: ; unreferenced
db "Choose a ♀<PK><MN>.@"
ChooseAMalePKMNString:
; unused
ChooseAMalePKMNString: ; unreferenced
db "Choose a ♂<PK><MN>.@"
ToWhichPKMNString: