1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
; calls DoFrame a times
DoAFrames:
.loop
push af
call DoFrame
pop af
dec a
jr nz, .loop
ret
; updates background, sprites and other game variables, halts until vblank, and reads user input
; if wDebugPauseAllowed is not 0, the game can be paused (and resumed) by pressing the SELECT button
DoFrame:
push af
push hl
push de
push bc
ld hl, wDoFrameFunction ; context-specific function
call CallIndirect
call WaitForVBlank
call ReadJoypad
call HandleDPadRepeat
ld a, [wDebugPauseAllowed]
or a
jr z, .done
ldh a, [hKeysPressed]
and SELECT
jr z, .done
.game_paused_loop
call WaitForVBlank
call ReadJoypad
call HandleDPadRepeat
ldh a, [hKeysPressed]
and SELECT
jr z, .game_paused_loop
.done
pop bc
pop de
pop hl
pop af
ret
; handle D-pad repeat counter
; used to quickly scroll through menus when a relevant D-pad key is held
HandleDPadRepeat:
ldh a, [hKeysHeld]
ldh [hDPadHeld], a
and D_PAD
jr z, .done
ld hl, hDPadRepeat
ldh a, [hKeysPressed]
and D_PAD
jr z, .dpad_key_held
ld [hl], 24
ret
.dpad_key_held
dec [hl]
jr nz, .done
ld [hl], 6
ret
.done
ldh a, [hKeysPressed]
and BUTTONS
ldh [hDPadHeld], a
ret
|
