pokecrystal-board/home/time.asm
2023-07-31 12:32:36 +02:00

44 lines
646 B
NASM

Timer::
reti
InitTime::
ld hl, wStartDay
ld [hli], a ; wStartDay
ld [hli], a ; wStartHour
ld [hli], a ; wStartMinute
ld [hl], a ; wStartSecond
ret
AdvanceTimeOfDay::
ld hl, .TimeOfDayOrder
ld a, [wTimeOfDay]
maskbits NUM_DAYTIMES
.loop
cp [hl]
inc hl
jr z, .gotTimeOfDay
jr .loop
.gotTimeOfDay
ld a, [hl]
ld [wTimeOfDay], a
cp MORN_F
ret nz
; advance wCurDay and clear daily timers on a transition from NITE to MORN
ld a, [wCurDay]
cp MAX_DAYS
jr z, .restart_days
inc a
jr .set_days
.restart_days
xor a
.set_days
ld [wCurDay], a
call ClearDailyTimers
ret
.TimeOfDayOrder:
db MORN_F, DAY_F, NITE_F, EVE_F, MORN_F