2023-10-21 15:28:38 +00:00
|
|
|
; DMGTRIS
|
|
|
|
; Copyright (C) 2023 - Randy Thiemann <randy.thiemann@gmail.com>
|
|
|
|
|
|
|
|
; This program is free software: you can redistribute it and/or modify
|
|
|
|
; it under the terms of the GNU General Public License as published by
|
|
|
|
; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
; (at your option) any later version.
|
|
|
|
|
|
|
|
; This program is distributed in the hope that it will be useful,
|
|
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
; GNU General Public License for more details.
|
|
|
|
|
|
|
|
; You should have received a copy of the GNU General Public License
|
|
|
|
; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
2023-10-13 09:20:28 +00:00
|
|
|
IF !DEF(TIME_ASM)
|
|
|
|
DEF TIME_ASM EQU 1
|
|
|
|
|
|
|
|
|
2023-10-16 05:47:11 +00:00
|
|
|
INCLUDE "globals.asm"
|
|
|
|
|
|
|
|
|
2023-10-21 18:49:52 +00:00
|
|
|
SECTION "High Time Variables", HRAM
|
2023-10-17 05:59:54 +00:00
|
|
|
hFrameCtr:: ds 1
|
2023-10-13 09:20:28 +00:00
|
|
|
hEvenFrame:: ds 1
|
|
|
|
|
|
|
|
|
2023-10-27 19:37:32 +00:00
|
|
|
SECTION "Time Variables", WRAM0
|
|
|
|
wMinutes:: ds 1
|
|
|
|
wSeconds:: ds 1
|
|
|
|
wFrames:: ds 1
|
|
|
|
|
|
|
|
|
2023-10-13 09:20:28 +00:00
|
|
|
SECTION "Time Functions", ROM0
|
2023-10-27 19:37:32 +00:00
|
|
|
; Zeroes all timers and gets the free-running timer ticking.
|
2023-10-13 09:20:28 +00:00
|
|
|
TimeInit::
|
|
|
|
xor a, a
|
2023-10-18 01:06:22 +00:00
|
|
|
ldh [rTMA], a
|
2023-10-13 09:20:28 +00:00
|
|
|
ldh [hEvenFrame], a
|
2023-10-17 05:59:54 +00:00
|
|
|
ldh [hFrameCtr], a
|
2023-10-27 19:37:32 +00:00
|
|
|
ld [wMinutes], a
|
|
|
|
ld [wSeconds], a
|
|
|
|
ld [wFrames], a
|
2023-10-18 01:06:22 +00:00
|
|
|
ld a, TACF_262KHZ | TACF_START
|
|
|
|
ldh [rTAC], a
|
2023-10-13 09:20:28 +00:00
|
|
|
ret
|
|
|
|
|
2023-10-27 19:37:32 +00:00
|
|
|
|
|
|
|
; Resets the minute-second timer.
|
2023-11-02 06:42:45 +00:00
|
|
|
ResetGameTime::
|
2023-10-27 19:37:32 +00:00
|
|
|
xor a, a
|
|
|
|
ld [wMinutes], a
|
|
|
|
ld [wSeconds], a
|
|
|
|
ld [wFrames], a
|
|
|
|
ret
|
|
|
|
|
2023-11-02 06:42:45 +00:00
|
|
|
; Checks if the minute-second timer has reached a certain value.
|
|
|
|
; Call with max minutes in B and max seconds in C.
|
|
|
|
; A will be $FF if the torikan has succeeded, and $00 otherwise.
|
|
|
|
CheckTorikan::
|
|
|
|
; Okay if minutes are less than max minutes.
|
|
|
|
ld a, [wMinutes]
|
|
|
|
cp a, b
|
|
|
|
jr c, .success
|
|
|
|
|
|
|
|
; Check seconds if minutes are equal.
|
|
|
|
jr nz, .failure
|
|
|
|
|
|
|
|
; Okay if seconds are less than max seconds.
|
|
|
|
ld a, [wSeconds]
|
|
|
|
cp a, c
|
|
|
|
jr c, .success
|
|
|
|
|
|
|
|
; Check frames if seconds are equal.
|
|
|
|
jr nz, .failure
|
|
|
|
|
|
|
|
; Okay if frames are exactly 0.
|
|
|
|
ld a, [wFrames]
|
|
|
|
cp a, 0
|
|
|
|
jr z, .success
|
|
|
|
|
|
|
|
.failure
|
|
|
|
xor a, a
|
|
|
|
ret
|
|
|
|
|
|
|
|
.success
|
|
|
|
ld a, $FF
|
|
|
|
ret
|
|
|
|
|
2023-10-27 19:37:32 +00:00
|
|
|
|
|
|
|
; Increments the global timer. Also saves whether we're on an even frame.
|
2023-10-13 09:20:28 +00:00
|
|
|
HandleTimers::
|
2023-10-17 05:59:54 +00:00
|
|
|
ldh a, [hFrameCtr]
|
2023-10-13 09:20:28 +00:00
|
|
|
inc a
|
2023-10-17 05:59:54 +00:00
|
|
|
ldh [hFrameCtr], a
|
2023-10-13 09:20:28 +00:00
|
|
|
and 1
|
|
|
|
ldh [hEvenFrame], a
|
2023-10-27 19:37:32 +00:00
|
|
|
|
|
|
|
ld a, [wFrames]
|
|
|
|
inc a
|
|
|
|
ld [wFrames], a
|
|
|
|
cp a, 60
|
|
|
|
ret nz
|
|
|
|
|
|
|
|
xor a, a
|
|
|
|
ld [wFrames], a
|
|
|
|
ld a, [wSeconds]
|
|
|
|
inc a
|
|
|
|
ld [wSeconds], a
|
|
|
|
cp a, 60
|
|
|
|
ret nz
|
|
|
|
|
|
|
|
xor a, a
|
|
|
|
ld [wSeconds], a
|
|
|
|
ld a, [wMinutes]
|
|
|
|
inc a
|
|
|
|
ld [wMinutes], a
|
2023-10-13 09:20:28 +00:00
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
ENDC
|