SetTime::
	ld hl, wStartHour
	ldh a, [hRTCHours]
	ld [hli], a
	ldh a, [hRTCMinutes]
	ld [hl], a
	ld hl, AdjustTimeText
	call PrintText
	ret

AdjustTimeText:
	deciram wStartHour, 1, 2
	text "　じ"
	line "@"
	deciram wStartMinute, 1, 2
	text "　ふん？@"
	start_asm
.loop
	call ClearJoypad
	call GetJoypad
	ldh a, [hJoyState]
	and a
	jr z, .loop
	bit B_PAD_A, a
	jp nz, .set_time
	bit B_PAD_UP, a
	jr nz, .inc_hour
	bit B_PAD_DOWN, a
	jr nz, .dec_hour
	bit B_PAD_RIGHT, a
	jr nz, .inc_minute
	bit B_PAD_LEFT, a
	jr nz, .dec_minute
	jr .loop
.inc_hour
	ld a, [wStartHour]
	cp 23
	jr z, .show_text
	inc a
	ld [wStartHour], a
	jr .show_text
.dec_hour
	ld a, [wStartHour]
	and a
	jr z, .show_text
	dec a
	ld [wStartHour], a
	jr .show_text
.inc_minute
	ld a, [wStartMinute]
	cp 59
	jr z, .show_text
	inc a
	ld [wStartMinute], a
	jr .show_text
.dec_minute
	ld a, [wStartMinute]
	and a
	jr z, .show_text
	dec a
	ld [wStartMinute], a
.show_text
	ld hl, AdjustTimeText ; meant AdjustTimeEndText?
	call PrintText
	jp .loop
.set_time
	call SetClock
	call StartRTC
	jp TextAsmEnd

AdjustTimeEndText:
	deciram wStartHour, 1, 2
	text "　じ"
	line "@"
	deciram wStartMinute, 1, 2
	text "　ふん？"
	done