pokecrystal-board/engine/routines/checktime.asm

20 lines
236 B
NASM
Raw Normal View History

CheckTime:: ; c000
ld a, [TimeOfDay]
ld hl, .TimeOfDayTable
ld de, 2
call IsInArray
inc hl
ld c, [hl]
ret c
xor a
ld c, a
ret
.TimeOfDayTable: ; c012
db MORN_F, MORN
db DAY_F, DAY
db NITE_F, NITE
db NITE_F, NITE
db -1