Nail down the rest of SRAM banks 0 and 1.

home/time.asm

@@ -280,18 +280,18 @@ SetClock:: ; 691
 Function6c4:: ; 6c4
 	xor a
 	push af
-	ld a, $0
+	ld a, BANK(s0_ac60)
 	call GetSRAMBank
 	pop af
-	ld [$ac60], a
+	ld [s0_ac60], a
 	call CloseSRAM
 	ret
 ; 6d3
 
 Function6d3:: ; 6d3
-	ld hl, $ac60
+	ld hl, s0_ac60
 	push af
-	ld a, $0
+	ld a, BANK(s0_ac60)
 	call GetSRAMBank
 	pop af
 	or [hl]
@@ -301,9 +301,9 @@ Function6d3:: ; 6d3
 ; 6e3
 
 Function6e3:: ; 6e3
-	ld a, $0
+	ld a, BANK(s0_ac60)
 	call GetSRAMBank
-	ld a, [$ac60]
+	ld a, [s0_ac60]
 	call CloseSRAM
 	ret
 ; 6ef

items/item_effects.asm

@@ -216,10 +216,10 @@ ParkBall: ; e8a2
 	cp PARTY_LENGTH
 	jr nz, .asm_e8c0
 
-	ld a, $1
+	ld a, BANK(sBoxCount)
 	call GetSRAMBank
-	ld a, [$ad10]
-	cp 20
+	ld a, [sBoxCount]
+	cp MONS_PER_BOX
 	call CloseSRAM
 	jp z, Ball_BoxIsFullMessage
 
@@ -622,22 +622,21 @@ endr
 
 	callba Function4db83
 
-	ld a, $1
+	ld a, BANK(sBoxCount)
 	call GetSRAMBank
 
-	ld a, [$ad10]
+	ld a, [sBoxCount]
 	cp MONS_PER_BOX
 	jr nz, .asm_eb5b
 	ld hl, wd0ee
 	set 7, [hl]
-
 .asm_eb5b
 	ld a, [CurItem]
 	cp FRIEND_BALL
 	jr nz, .asm_eb67
+	; Bug: overwrites the happiness of the first mon in the box!
 	ld a, FRIEND_BALL_HAPPINESS
-	ld [$ad41], a
-
+	ld [sBoxMon1Happiness], a
 .asm_eb67
 	call CloseSRAM
 

wram.asm

@@ -2692,14 +2692,23 @@ s0_abe3:: ds 1
 s0_abe4:: ds 1
 s0_abe5:: ds 1
 s0_abe6:: ds 10
-s0_abf0:: ds $d
+s0_abf0:: ds 10
+s0_abfa:: ds 2
+	ds 1
 s0_abfd:: ds 1
 s0_abfe:: ds 12
 sMysteryGiftTrainer:: ds (1 + 1 + NUM_MOVES) * PARTY_LENGTH + 1
 	ds 1
 s0_abe4End::
 
-	ds $b200 - $ac30
+	ds $30
+
+s0_ac60:: ds 8
+s0_ac68:: ds 1
+s0_ac69:: ds 1
+s0_ac6a:: ds 1
+
+	ds $b200 - $ac6b
 
 sBackupOptions:: ds OptionsEnd - Options
 
@@ -2756,11 +2765,11 @@ sHallOfFame:: ; b2c0
 	ds HOF_LENGTH * NUM_HOF_TEAMS
 sHallOfFameEnd::
 
-; be3c
-	ds 1
+s1_be3c:: ds 1
+
 sCrystalData::
 	ds wCrystalDataEnd - wCrystalData
-	ds 1
+s1_be44:: ds 1
 s1_be45:: ds 1
 
 sBattleTower:: ; be46