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
|
CountSetBits::
; Count the number of set bits in b bytes starting from hl.
; Return in a, c and [wNumSetBits].
ld c, 0
.next
ld a, [hli]
ld e, a
ld d, 8
.count
srl e
ld a, 0
adc c
ld c, a
dec d
jr nz, .count
dec b
jr nz, .next
ld a, c
ld [wNumSetBits], a
ret
GetWeekday::
ld a, [wCurDay]
.mod
sub 7
jr nc, .mod
add 7
ret
SetSeenAndCaughtMon::
push af
ld c, a
ld hl, wPokedexCaught
ld b, SET_FLAG
call PokedexFlagAction
pop af
; fallthrough
SetSeenMon::
ld c, a
ld hl, wPokedexSeen
ld b, SET_FLAG
jr PokedexFlagAction
CheckCaughtMon::
ld c, a
ld hl, wPokedexCaught
ld b, CHECK_FLAG
jr PokedexFlagAction
CheckSeenMon::
ld c, a
ld hl, wPokedexSeen
ld b, CHECK_FLAG
; fallthrough
PokedexFlagAction::
ld d, 0
predef SmallFarFlagAction
ld a, c
and a
ret
|
