pokecrystal/engine/rtc/restart_clock.asm

RestartClock_GetWraparoundTime:
	push hl
	dec a
	ld e, a
	ld d, 0
	ld hl, .WrapAroundTimes
rept 4
	add hl, de
endr
	ld e, [hl]
	inc hl
	ld d, [hl]
	inc hl
	ld b, [hl]
	inc hl
	ld c, [hl]
	pop hl
	ret

.WrapAroundTimes:
	dw wBuffer4
	db 7, 4

	dw wBuffer5
	db 24, 12

	dw wBuffer6
	db 60, 15

RestartClock:
; If we're here, we had an RTC overflow.
	ld hl, .Text_ClockTimeMayBeWrong
	call PrintText
	ld hl, wOptions
	ld a, [hl]
	push af
	set NO_TEXT_SCROLL, [hl]
	call LoadStandardMenuHeader
	call ClearTileMap
	ld hl, .Text_SetWithControlPad
	call PrintText
	call .SetClock
	call ExitMenu
	pop bc
	ld hl, wOptions
	ld [hl], b
	ld c, a
	ret

.Text_ClockTimeMayBeWrong:
	; The clock's time may be wrong. Please reset the time.
	text_far UnknownText_0x1c40e6
	text_end

.Text_SetWithControlPad:
	; Set with the Control Pad. Confirm: A Button Cancel:  B Button
	text_far UnknownText_0x1c411c
	text_end

.SetClock:
	ld a, 1
	ld [wBuffer1], a ; which digit
	ld [wBuffer2], a
	ld a, 8
	ld [wBuffer3], a
	call UpdateTime
	call GetWeekday
	ld [wBuffer4], a
	ldh a, [hHours]
	ld [wBuffer5], a
	ldh a, [hMinutes]
	ld [wBuffer6], a

.loop
	call .joy_loop
	jr nc, .loop
	and a
	ret nz
	call .PrintTime
	ld hl, .Text_IsThisOK
	call PrintText
	call YesNoBox
	jr c, .cancel
	ld a, [wBuffer4]
	ld [wStringBuffer2], a
	ld a, [wBuffer5]
	ld [wStringBuffer2 + 1], a
	ld a, [wBuffer6]
	ld [wStringBuffer2 + 2], a
	xor a
	ld [wStringBuffer2 + 3], a
	call InitTime
	call .PrintTime
	ld hl, .Text_ClockReset
	call PrintText
	call WaitPressAorB_BlinkCursor
	xor a
	ret

.cancel
	ld a, $1
	ret

.Text_IsThisOK:
	; Is this OK?
	text_far UnknownText_0x1c415b
	text_end

.Text_ClockReset:
	; The clock has been reset.
	text_far UnknownText_0x1c4168
	text_end

.joy_loop
	call JoyTextDelay_ForcehJoyDown
	ld c, a
	push af
	call .PrintTime
	pop af
	bit 0, a
	jr nz, .press_A
	bit 1, a
	jr nz, .press_B
	bit 6, a
	jr nz, .pressed_up
	bit 7, a
	jr nz, .pressed_down
	bit 5, a
	jr nz, .pressed_left
	bit 4, a
	jr nz, .pressed_right
	jr .joy_loop

.press_A
	ld a, $0
	scf
	ret

.press_B
	ld a, $1
	scf
	ret

.pressed_up
	ld a, [wBuffer1]
	call RestartClock_GetWraparoundTime
	ld a, [de]
	inc a
	ld [de], a
	cp b
	jr c, .done_scroll
	ld a, $0
	ld [de], a
	jr .done_scroll

.pressed_down
	ld a, [wBuffer1]
	call RestartClock_GetWraparoundTime
	ld a, [de]
	dec a
	ld [de], a
	cp -1
	jr nz, .done_scroll
	ld a, b
	dec a
	ld [de], a
	jr .done_scroll

.pressed_left
	ld hl, wBuffer1
	dec [hl]
	jr nz, .done_scroll
	ld [hl], $3
	jr .done_scroll

.pressed_right
	ld hl, wBuffer1
	inc [hl]
	ld a, [hl]
	cp $4
	jr c, .done_scroll
	ld [hl], $1

.done_scroll
	xor a
	ret

.PrintTime:
	hlcoord 0, 5
	ld b, 5
	ld c, 18
	call Textbox
	decoord 1, 8
	ld a, [wBuffer4]
	ld b, a
	farcall PrintDayOfWeek
	ld a, [wBuffer5]
	ld b, a
	ld a, [wBuffer6]
	ld c, a
	decoord 11, 8
	farcall PrintHoursMins
	ld a, [wBuffer2]
	lb de, " ", " "
	call .PlaceChars
	ld a, [wBuffer1]
	lb de, "▲", "▼"
	call .PlaceChars
	ld a, [wBuffer1]
	ld [wBuffer2], a
	ret

.unreferenced
; unused
	ld a, [wBuffer3]
	ld b, a
	call Coord2Tile
	ret

.PlaceChars:
	push de
	call RestartClock_GetWraparoundTime
	ld a, [wBuffer3]
	dec a
	ld b, a
	call Coord2Tile
	pop de
	ld [hl], d
	ld bc, 2 * SCREEN_WIDTH
	add hl, bc
	ld [hl], e
	ret

UnreferencedString_HourJP:
; unused
	db "じ@" ; HR

UnreferencedString_MinuteJP:
; unused
	db "ふん@" ; MIN
Remove all address comments 2018-06-24 14:09:41 +00:00			`RestartClock_GetWraparoundTime:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`push hl`
			`dec a`
			`ld e, a`
			`ld d, 0`
			`ld hl, .WrapAroundTimes`
			`rept 4`
			`add hl, de`
			`endr`
			`ld e, [hl]`
			`inc hl`
			`ld d, [hl]`
			`inc hl`
			`ld b, [hl]`
			`inc hl`
			`ld c, [hl]`
			`pop hl`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.WrapAroundTimes:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`dw wBuffer4`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`db 7, 4`

Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`dw wBuffer5`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`db 24, 12`

Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`dw wBuffer6`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`db 60, 15`

Remove all address comments 2018-06-24 14:09:41 +00:00			`RestartClock:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`; If we're here, we had an RTC overflow.`
			`ld hl, .Text_ClockTimeMayBeWrong`
			`call PrintText`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wOptions`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld a, [hl]`
			`push af`
			`set NO_TEXT_SCROLL, [hl]`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`call LoadStandardMenuHeader`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`call ClearTileMap`
			`ld hl, .Text_SetWithControlPad`
			`call PrintText`
			`call .SetClock`
			`call ExitMenu`
			`pop bc`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wOptions`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld [hl], b`
			`ld c, a`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Text_ClockTimeMayBeWrong:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`; The clock's time may be wrong. Please reset the time.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c40e6`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00
Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Text_SetWithControlPad:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`; Set with the Control Pad. Confirm: A Button Cancel: B Button`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c411c`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00
Remove all address comments 2018-06-24 14:09:41 +00:00			`.SetClock:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld a, 1`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer1], a ; which digit`
			`ld [wBuffer2], a`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld a, 8`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer3], a`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`call UpdateTime`
			`call GetWeekday`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer4], a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hHours]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer5], a`
Use labels instead of constants for HRAM Use explicit ldh instruction to access HRAM locations, don't rely on optimizing ld 2018-08-25 18:28:22 +00:00			`ldh a, [hMinutes]`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wBuffer6], a`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00
			`.loop`
			`call .joy_loop`
			`jr nc, .loop`
			`and a`
			`ret nz`
			`call .PrintTime`
			`ld hl, .Text_IsThisOK`
			`call PrintText`
			`call YesNoBox`
			`jr c, .cancel`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer4]`
			`ld [wStringBuffer2], a`
			`ld a, [wBuffer5]`
			`ld [wStringBuffer2 + 1], a`
			`ld a, [wBuffer6]`
			`ld [wStringBuffer2 + 2], a`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wStringBuffer2 + 3], a`
Events and some WRAM cleanup 2015-12-19 01:07:09 +00:00			`call InitTime`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`call .PrintTime`
			`ld hl, .Text_ClockReset`
			`call PrintText`
Added w3 and w5 labels for misc/mobile_40.asm 2015-11-11 04:23:28 +00:00			`call WaitPressAorB_BlinkCursor`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`xor a`
			`ret`

			`.cancel`
			`ld a, $1`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Text_IsThisOK:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`; Is this OK?`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c415b`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00
Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.Text_ClockReset:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`; The clock has been reset.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 16:16:55 +00:00			`text_far UnknownText_0x1c4168`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00
			`.joy_loop`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 16:31:49 +00:00			`call JoyTextDelay_ForcehJoyDown`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld c, a`
			`push af`
			`call .PrintTime`
			`pop af`
			`bit 0, a`
			`jr nz, .press_A`
			`bit 1, a`
			`jr nz, .press_B`
			`bit 6, a`
			`jr nz, .pressed_up`
			`bit 7, a`
			`jr nz, .pressed_down`
			`bit 5, a`
			`jr nz, .pressed_left`
			`bit 4, a`
			`jr nz, .pressed_right`
			`jr .joy_loop`

			`.press_A`
			`ld a, $0`
			`scf`
			`ret`

			`.press_B`
			`ld a, $1`
			`scf`
			`ret`

			`.pressed_up`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer1]`
Organize the engine/ directory, director's cut Cleaned up `engine/routines`, in favor of moving files into more appropriate directories. predef-related routines are now in top-level `engine`. `rtc/delete_save_change_clock.asm` has been split into both `menus/delete_save.asm` and `rtc/reset_password.asm`. Made a new subdirectory: * engine/math: Contains all generic math-related routines. 2018-03-25 16:24:14 +00:00			`call RestartClock_GetWraparoundTime`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld a, [de]`
			`inc a`
			`ld [de], a`
			`cp b`
			`jr c, .done_scroll`
			`ld a, $0`
			`ld [de], a`
			`jr .done_scroll`

			`.pressed_down`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer1]`
Organize the engine/ directory, director's cut Cleaned up `engine/routines`, in favor of moving files into more appropriate directories. predef-related routines are now in top-level `engine`. `rtc/delete_save_change_clock.asm` has been split into both `menus/delete_save.asm` and `rtc/reset_password.asm`. Made a new subdirectory: * engine/math: Contains all generic math-related routines. 2018-03-25 16:24:14 +00:00			`call RestartClock_GetWraparoundTime`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld a, [de]`
			`dec a`
			`ld [de], a`
			`cp -1`
			`jr nz, .done_scroll`
			`ld a, b`
			`dec a`
			`ld [de], a`
			`jr .done_scroll`

			`.pressed_left`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wBuffer1`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`dec [hl]`
			`jr nz, .done_scroll`
			`ld [hl], $3`
			`jr .done_scroll`

			`.pressed_right`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wBuffer1`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`inc [hl]`
			`ld a, [hl]`
			`cp $4`
			`jr c, .done_scroll`
			`ld [hl], $1`

			`.done_scroll`
			`xor a`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.PrintTime:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`hlcoord 0, 5`
			`ld b, 5`
			`ld c, 18`
TextBox -> Textbox Homogenizing names. 2019-04-08 12:15:10 +00:00			`call Textbox`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`decoord 1, 8`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer4]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld b, a`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall PrintDayOfWeek`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer5]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld b, a`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer6]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld c, a`
			`decoord 11, 8`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall PrintHoursMins`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer2]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`lb de, " ", " "`
			`call .PlaceChars`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer1]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`lb de, "▲", "▼"`
			`call .PlaceChars`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer1]`
			`ld [wBuffer2], a`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.unreferenced`
Improve some code labels 2018-03-03 00:39:16 +00:00			`; unused`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ld b, a`
enum macros/move_anim.asm, resolve battle/anims.asm function labels 2015-11-10 21:53:37 +00:00			`call Coord2Tile`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.PlaceChars:`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`push de`
Organize the engine/ directory, director's cut Cleaned up `engine/routines`, in favor of moving files into more appropriate directories. predef-related routines are now in top-level `engine`. `rtc/delete_save_change_clock.asm` has been split into both `menus/delete_save.asm` and `rtc/reset_password.asm`. Made a new subdirectory: * engine/math: Contains all generic math-related routines. 2018-03-25 16:24:14 +00:00			`call RestartClock_GetWraparoundTime`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wBuffer3]`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`dec a`
			`ld b, a`
enum macros/move_anim.asm, resolve battle/anims.asm function labels 2015-11-10 21:53:37 +00:00			`call Coord2Tile`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`pop de`
			`ld [hl], d`
			`ld bc, 2 * SCREEN_WIDTH`
			`add hl, bc`
			`ld [hl], e`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`UnreferencedString_HourJP:`
Improve some code labels 2018-03-03 00:39:16 +00:00			`; unused`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`db "じ@" ; HR`

Remove all address comments 2018-06-24 14:09:41 +00:00			`UnreferencedString_MinuteJP:`
Improve some code labels 2018-03-03 00:39:16 +00:00			`; unused`
Move some gfx files around, also clock reset fn 2015-11-10 16:05:26 +00:00			`db "ふん@" ; MIN`