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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
|
.include "asm/macros.inc"
.include "constants/constants.inc"
.syntax unified
.text
thumb_func_start sub_809C718
sub_809C718: @ 809C718
push {r4,r5,lr}
ldr r2, _0809C778 @ =gSaveBlock1Ptr
ldr r1, [r2]
ldr r0, _0809C77C @ =gUnknown_83DF7E8
ldr r3, _0809C780 @ =0x000030ec
adds r1, r3
movs r4, 0x93
lsls r4, 3
adds r0, r4
ldm r0!, {r3-r5}
stm r1!, {r3-r5}
ldm r0!, {r3-r5}
stm r1!, {r3-r5}
ldr r0, [r0]
str r0, [r1]
movs r1, 0
adds r4, r2, 0
adds r5, r4, 0
ldr r3, _0809C784 @ =0x00003108
movs r2, 0
_0809C740:
ldr r0, [r5]
adds r0, r3
adds r0, r1
strb r2, [r0]
adds r1, 0x1
cmp r1, 0x11
ble _0809C740
ldr r0, [r4]
ldr r5, _0809C788 @ =0x0000311a
adds r0, r5
movs r1, 0
strb r1, [r0]
ldr r0, [r4]
ldr r2, _0809C78C @ =0x0000311b
adds r0, r2
strb r1, [r0]
ldr r0, [r4]
ldr r3, _0809C780 @ =0x000030ec
adds r0, r3
bl GetEnigmaBerryChecksum
ldr r1, [r4]
ldr r4, _0809C790 @ =0x0000311c
adds r1, r4
str r0, [r1]
pop {r4,r5}
pop {r0}
bx r0
.align 2, 0
_0809C778: .4byte gSaveBlock1Ptr
_0809C77C: .4byte gUnknown_83DF7E8
_0809C780: .4byte 0x000030ec
_0809C784: .4byte 0x00003108
_0809C788: .4byte 0x0000311a
_0809C78C: .4byte 0x0000311b
_0809C790: .4byte 0x0000311c
thumb_func_end sub_809C718
thumb_func_start sub_809C794
sub_809C794: @ 809C794
push {lr}
sub sp, 0x4
mov r1, sp
movs r0, 0
strh r0, [r1]
ldr r0, _0809C7B8 @ =gSaveBlock1Ptr
ldr r1, [r0]
ldr r0, _0809C7BC @ =0x000030ec
adds r1, r0
ldr r2, _0809C7C0 @ =0x0100001a
mov r0, sp
bl CpuSet
bl sub_809C718
add sp, 0x4
pop {r0}
bx r0
.align 2, 0
_0809C7B8: .4byte gSaveBlock1Ptr
_0809C7BC: .4byte 0x000030ec
_0809C7C0: .4byte 0x0100001a
thumb_func_end sub_809C794
thumb_func_start SetEnigmaBerry
SetEnigmaBerry: @ 809C7C4
push {r4-r7,lr}
adds r4, r0, 0
bl sub_809C794
adds r5, r4, 0
ldr r0, _0809C824 @ =gSaveBlock1Ptr
ldr r2, [r0]
ldr r0, _0809C828 @ =0x000030ec
adds r4, r2, r0
adds r1, r4, 0
adds r0, r5, 0
ldm r0!, {r3,r6,r7}
stm r1!, {r3,r6,r7}
ldm r0!, {r3,r6,r7}
stm r1!, {r3,r6,r7}
ldr r0, [r0]
str r0, [r1]
movs r3, 0
ldr r0, _0809C82C @ =0x00003108
adds r6, r2, r0
ldr r1, _0809C830 @ =0x00000516
adds r2, r5, r1
_0809C7F0:
adds r0, r6, r3
adds r1, r2, r3
ldrb r1, [r1]
strb r1, [r0]
adds r3, 0x1
cmp r3, 0x11
ble _0809C7F0
movs r3, 0xA5
lsls r3, 3
adds r0, r5, r3
ldrb r0, [r0]
adds r1, r4, 0
adds r1, 0x2E
strb r0, [r1]
ldr r6, _0809C834 @ =0x00000529
adds r0, r5, r6
ldrb r0, [r0]
adds r1, 0x1
strb r0, [r1]
adds r0, r4, 0
bl GetEnigmaBerryChecksum
str r0, [r4, 0x30]
pop {r4-r7}
pop {r0}
bx r0
.align 2, 0
_0809C824: .4byte gSaveBlock1Ptr
_0809C828: .4byte 0x000030ec
_0809C82C: .4byte 0x00003108
_0809C830: .4byte 0x00000516
_0809C834: .4byte 0x00000529
thumb_func_end SetEnigmaBerry
thumb_func_start GetEnigmaBerryChecksum
GetEnigmaBerryChecksum: @ 809C838
push {lr}
adds r3, r0, 0
movs r2, 0
movs r1, 0
_0809C840:
adds r0, r3, r1
ldrb r0, [r0]
adds r2, r0
adds r1, 0x1
cmp r1, 0x2F
bls _0809C840
adds r0, r2, 0
pop {r1}
bx r1
thumb_func_end GetEnigmaBerryChecksum
thumb_func_start IsEnigmaBerryValid
IsEnigmaBerryValid: @ 809C854
push {r4,lr}
ldr r4, _0809C888 @ =gSaveBlock1Ptr
ldr r1, [r4]
movs r2, 0xC4
lsls r2, 6
adds r0, r1, r2
ldrb r0, [r0]
cmp r0, 0
beq _0809C898
ldr r2, _0809C88C @ =0x000030f6
adds r0, r1, r2
ldrb r0, [r0]
cmp r0, 0
beq _0809C898
ldr r2, _0809C890 @ =0x000030ec
adds r0, r1, r2
bl GetEnigmaBerryChecksum
ldr r1, [r4]
ldr r2, _0809C894 @ =0x0000311c
adds r1, r2
ldr r1, [r1]
cmp r0, r1
bne _0809C898
movs r0, 0x1
b _0809C89A
.align 2, 0
_0809C888: .4byte gSaveBlock1Ptr
_0809C88C: .4byte 0x000030f6
_0809C890: .4byte 0x000030ec
_0809C894: .4byte 0x0000311c
_0809C898:
movs r0, 0
_0809C89A:
pop {r4}
pop {r1}
bx r1
thumb_func_end IsEnigmaBerryValid
thumb_func_start sub_809C8A0
sub_809C8A0: @ 809C8A0
push {r4,lr}
lsls r0, 24
lsrs r4, r0, 24
cmp r4, 0x2B
bne _0809C8C4
bl IsEnigmaBerryValid
cmp r0, 0
beq _0809C8C4
ldr r0, _0809C8BC @ =gSaveBlock1Ptr
ldr r0, [r0]
ldr r1, _0809C8C0 @ =0x000030ec
b _0809C8D8
.align 2, 0
_0809C8BC: .4byte gSaveBlock1Ptr
_0809C8C0: .4byte 0x000030ec
_0809C8C4:
subs r0, r4, 0x1
lsls r0, 24
lsrs r0, 24
cmp r0, 0x2A
bls _0809C8D0
movs r4, 0x1
_0809C8D0:
lsls r0, r4, 3
subs r0, r4
lsls r0, 2
ldr r1, _0809C8E0 @ =gUnknown_83DF7CC
_0809C8D8:
adds r0, r1
pop {r4}
pop {r1}
bx r1
.align 2, 0
_0809C8E0: .4byte gUnknown_83DF7CC
thumb_func_end sub_809C8A0
thumb_func_start ItemIdToBerryType
ItemIdToBerryType: @ 809C8E4
push {lr}
lsls r0, 16
lsrs r1, r0, 16
ldr r2, _0809C900 @ =0xff7b0000
adds r0, r2
lsrs r0, 16
cmp r0, 0x2A
bhi _0809C904
adds r0, r1, 0
adds r0, 0x7C
lsls r0, 24
lsrs r0, 24
b _0809C906
.align 2, 0
_0809C900: .4byte 0xff7b0000
_0809C904:
movs r0, 0x1
_0809C906:
pop {r1}
bx r1
thumb_func_end ItemIdToBerryType
thumb_func_start BerryTypeToItemId
BerryTypeToItemId: @ 809C90C
push {lr}
lsls r0, 16
lsrs r1, r0, 16
ldr r2, _0809C928 @ =0xffff0000
adds r0, r2
lsrs r0, 16
cmp r0, 0x2A
bhi _0809C92C
adds r0, r1, 0
adds r0, 0x84
lsls r0, 16
lsrs r0, 16
b _0809C92E
.align 2, 0
_0809C928: .4byte 0xffff0000
_0809C92C:
movs r0, 0x85
_0809C92E:
pop {r1}
bx r1
thumb_func_end BerryTypeToItemId
thumb_func_start GetBerryNameByBerryType
GetBerryNameByBerryType: @ 809C934
push {r4,lr}
adds r4, r1, 0
lsls r0, 24
lsrs r0, 24
bl sub_809C8A0
adds r1, r0, 0
adds r0, r4, 0
movs r2, 0x6
bl memcpy
movs r0, 0xFF
strb r0, [r4, 0x6]
pop {r4}
pop {r0}
bx r0
thumb_func_end GetBerryNameByBerryType
.align 2, 0 @ Don't pad with nop.
|
