pokecrystal-board/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, .ClockTimeMayBeWrongText
	call PrintText
	ld hl, wOptions
	ld a, [hl]
	push af
	set NO_TEXT_SCROLL, [hl]
	call LoadStandardMenuHeader
	call ClearTilemap
	ld hl, .ClockSetWithControlPadText
	call PrintText
	call .SetClock
	call ExitMenu
	pop bc
	ld hl, wOptions
	ld [hl], b
	ld c, a
	ret

.ClockTimeMayBeWrongText:
	text_far _ClockTimeMayBeWrongText
	text_end

.ClockSetWithControlPadText:
	text_far _ClockSetWithControlPadText
	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, .ClockIsThisOKText
	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, .ClockHasResetText
	call PrintText
	call WaitPressAorB_BlinkCursor
	xor a
	ret

.cancel
	ld a, $1
	ret

.ClockIsThisOKText:
	text_far _ClockIsThisOKText
	text_end

.ClockHasResetText:
	text_far _ClockHasResetText
	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 07:09:41 -07:00			`RestartClock_GetWraparoundTime:`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 07:09:41 -07:00			`.WrapAroundTimes:`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`dw wBuffer4`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`db 7, 4`

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

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

Remove all address comments 2018-06-24 07:09:41 -07:00			`RestartClock:`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`; If we're here, we had an RTC overflow.`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld hl, .ClockTimeMayBeWrongText`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`call PrintText`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wOptions`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld a, [hl]`
			`push af`
			`set NO_TEXT_SCROLL, [hl]`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`call LoadStandardMenuHeader`
Standardize on lowercase Tilemap and Attrmap We used to have a mixture of TileMap and and Tilemap, as well as the similar AttrMap. Standardize on one. 2020-02-13 09:30:13 -08:00			`call ClearTilemap`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld hl, .ClockSetWithControlPadText`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`call PrintText`
			`call .SetClock`
			`call ExitMenu`
			`pop bc`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wOptions`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld [hl], b`
			`ld c, a`
			`ret`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.ClockTimeMayBeWrongText:`
			`text_far _ClockTimeMayBeWrongText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.ClockSetWithControlPadText:`
			`text_far _ClockSetWithControlPadText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`.SetClock:`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld a, 1`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wBuffer1], a ; which digit`
			`ld [wBuffer2], a`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld a, 8`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wBuffer3], a`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`call UpdateTime`
			`call GetWeekday`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08: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 11:28:22 -07:00			`ldh a, [hHours]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08: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 11:28:22 -07:00			`ldh a, [hMinutes]`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wBuffer6], a`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00
			`.loop`
			`call .joy_loop`
			`jr nc, .loop`
			`and a`
			`ret nz`
			`call .PrintTime`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld hl, .ClockIsThisOKText`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`call PrintText`
			`call YesNoBox`
			`jr c, .cancel`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08: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 08:05:26 -08:00			`xor a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld [wStringBuffer2 + 3], a`
Events and some WRAM cleanup 2015-12-18 17:07:09 -08:00			`call InitTime`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`call .PrintTime`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld hl, .ClockHasResetText`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`call PrintText`
Added w3 and w5 labels for misc/mobile_40.asm 2015-11-10 20:23:28 -08:00			`call WaitPressAorB_BlinkCursor`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`xor a`
			`ret`

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

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.ClockIsThisOKText:`
			`text_far _ClockIsThisOKText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`.ClockHasResetText:`
			`text_far _ClockHasResetText`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00
			`.joy_loop`
Labeled every function in ROM0 that's referenced in the source 2016-05-10 09:31:49 -07:00			`call JoyTextDelay_ForcehJoyDown`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 14:39:09 -08: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 09:24:14 -07:00			`call RestartClock_GetWraparoundTime`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 14:39:09 -08: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 09:24:14 -07:00			`call RestartClock_GetWraparoundTime`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 14:39:09 -08:00			`ld hl, wBuffer1`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 14:39:09 -08:00			`ld hl, wBuffer1`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 07:09:41 -07:00			`.PrintTime:`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`hlcoord 0, 5`
			`ld b, 5`
			`ld c, 18`
TextBox -> Textbox Homogenizing names. 2019-04-08 05:15:10 -07:00			`call Textbox`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`decoord 1, 8`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer4]`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld b, a`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall PrintDayOfWeek`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer5]`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld b, a`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer6]`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ld c, a`
			`decoord 11, 8`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall PrintHoursMins`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer2]`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`lb de, " ", " "`
			`call .PlaceChars`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer1]`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`lb de, "▲", "▼"`
			`call .PlaceChars`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer1]`
			`ld [wBuffer2], a`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`ret`

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

Remove all address comments 2018-06-24 07:09:41 -07:00			`.PlaceChars:`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 09:24:14 -07:00			`call RestartClock_GetWraparoundTime`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wBuffer3]`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`dec a`
			`ld b, a`
enum macros/move_anim.asm, resolve battle/anims.asm function labels 2015-11-10 13:53:37 -08:00			`call Coord2Tile`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08: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 07:09:41 -07:00			`UnreferencedString_HourJP:`
Improve some code labels 2018-03-02 16:39:16 -08:00			`; unused`
Move some gfx files around, also clock reset fn 2015-11-10 08:05:26 -08:00			`db "じ@" ; HR`

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