Label some radio stuff.

main.asm

@@ -72032,7 +72032,7 @@ Function9164e: ; 9164e (24:564e)
 UpdateRadioStation: ; 9166f (24:566f)
 	ld hl, wd958
 	ld d, [hl]
-	ld hl, Unknown_916ad
+	ld hl, RadioChannels
 .asm_91676
 	ld a, [hli]
 	cp $ff
@@ -72076,79 +72076,82 @@ Function916a1: ; 916a1
 	ret
 ; 916ad
 
-Unknown_916ad: ; 916ad
-	dbw 16, Function916c9
-	dbw 28, Function916d8
-	dbw 32, Function916e0
-	dbw 40, Function916e8
-	dbw 52, Function916f0
-	dbw 64, Function916fa
-	dbw 72, Function91709
-	dbw 78, Function91718
-	dbw 80, Function91727
-	db $ff
-; 916c9
 
-Function916c9: ; 916c9
-	call Function91744
-	jr nc, Function91740
+RadioChannels:
+; frequencies and the shows that play on them.
+; frequency value given here = 4 × ingame_frequency − 2
+	dbw 16, .PkmnTalkAndPokedexShow
+	dbw 28, .PokemonMusic
+	dbw 32, .LuckyChannel
+	dbw 40, .BuenasPassword
+	dbw 52, .RuinsOfAlphRadio
+	dbw 64, .PlacesAndPeople
+	dbw 72, .LetsAllSing
+	dbw 78, .PokeFluteRadio
+	dbw 80, .EvolutionRadio
+	db $ff
+
+.PkmnTalkAndPokedexShow
+; Pokédex Show in the morning
+; Oak's Pokémon Talk in the afternoon and evening
+	call .InJohto
+	jr nc, .NoSignal
 	ld a, [TimeOfDay]
 	and a
 	jp z, Function91766
 	jp Function91753
 
-Function916d8: ; 916d8
-	call Function91744
-	jr nc, Function91740
+.PokemonMusic
+	call .InJohto
+	jr nc, .NoSignal
 	jp Function9177b
 
-Function916e0: ; 916e0
-	call Function91744
-	jr nc, Function91740
+.LuckyChannel
+	call .InJohto
+	jr nc, .NoSignal
 	jp Function91790
 
-Function916e8: ; 916e8
-	call Function91744
-	jr nc, Function91740
+.BuenasPassword
+	call .InJohto
+	jr nc, .NoSignal
 	jp Function917a5
 
-Function916f0: ; 916f0
+.RuinsOfAlphRadio
 	ld a, [wc6d8]
 	cp RUINS_OF_ALPH
-	jr nz, Function91740
+	jr nz, .NoSignal
 	jp Function917d5
 
-Function916fa: ; 916fa
-	call Function91744
-	jr c, Function91740
+.PlacesAndPeople
+	call .InJohto
+	jr c, .NoSignal
 	ld a, [wd957]
 	bit 3, a
-	jr z, Function91740
+	jr z, .NoSignal
 	jp Function917ea
 
-Function91709: ; 91709
-	call Function91744
-	jr c, Function91740
+.LetsAllSing
+	call .InJohto
+	jr c, .NoSignal
 	ld a, [wd957]
 	bit 3, a
-	jr z, Function91740
+	jr z, .NoSignal
 	jp Function917ff
 
-Function91718: ; 91718
-	call Function91744
-	jr c, Function91740
+.PokeFluteRadio
+	call .InJohto
+	jr c, .NoSignal
 	ld a, [wd957]
 	bit 3, a
-	jr z, Function91740
+	jr z, .NoSignal
 	jp Function91829
 
-Function91727: ; 91727
-; This station airs in the Lake of Rage
-; area when Rocket are still in Mahogany.
+.EvolutionRadio
+; This station airs in the Lake of Rage area when Rocket are still in Mahogany.
 
 	ld a, [StatusFlags]
 	bit 4, a
-	jr z, Function91740
+	jr z, .NoSignal
 
 	ld a, [wc6d8]
 	cp MAHOGANY_TOWN
@@ -72156,15 +72159,17 @@ Function91727: ; 91727
 	cp ROUTE_43
 	jr z, .ok
 	cp LAKE_OF_RAGE
-	jr nz, Function91740
+	jr nz, .NoSignal
 .ok
 	jp Function9183e
 
-Function91740: ; 91740
+.NoSignal
 	call NoRadioStation
 	ret
 
-Function91744: ; 91744 (24:5744)
+.InJohto
+; if in Johto or on the S.S. Aqua, set carry
+; otherwise clear carry
 	ld a, [wc6d8]
 	cp FAST_SHIP
 	jr z, .johto
@@ -77644,12 +77649,12 @@ Functionb8b8f: ; b8b8f (2e:4b8f)
 Functionb8b90: ; b8b90 (2e:4b90)
 	call Function1052
 	call PrintText
-	ld de, $51
+	ld de, MUSIC_POKEMON_MARCH
 	call GetWeekday
 	and 1
-	jr z, .asm_b8ba3
-	ld de, $50
-.asm_b8ba3
+	jr z, .done
+	ld de, MUSIC_POKEMON_LULLABY
+.done
 	callab Function91854
 	ret
 ; b8baa (2e:4baa)
@@ -78751,7 +78756,7 @@ Functionb91eb: ; b91eb (2e:51eb)
 	ret nz
 	call Function1052
 	call PrintText
-	ld hl, Unknown_b920b
+	ld hl, RadioChannelSongs
 	ld a, [wd002]
 	ld c, a
 	ld b, 0
@@ -78764,7 +78769,7 @@ Functionb91eb: ; b91eb (2e:51eb)
 	ret
 ; b920b (2e:520b)
 
-Unknown_b920b: ; b920b
+RadioChannelSongs: ; b920b
 	dw MUSIC_POKEMON_TALK
 	dw MUSIC_POKEMON_CENTER
 	dw MUSIC_TITLE