daily berry trees

.thumb
@takes var x800D as which var to use, uses two vars per tree.

start:
	push {r4-r5, lr}
get_decrypt_var:
	ldr r0, last_result
	ldrh r0, [r0]
	add r1, r0, #0x1
	push {r1}
	ldr r1, decrypt_var
	bl call_with_r1
	mov r4, r0
	pop {r0}
	ldr r1, decrypt_var
	bl call_with_r1
	mov r5, r0
	ldr r2, clock
year_check:
	ldrh r0, [r4]
	ldrh r1, [r2]
	cmp r0, r1
	bcc checked_yesterday
month_check:
	ldrb r0, [r5, #0x1]
	ldrb r1, [r2, #0x3]
	cmp r0, r1
	bcc checked_yesterday
day_check:
	ldrb r0, [r5]
	ldrb r1, [r2, #0x4]
	cmp r0, r1
	bcc checked_yesterday
checked_today:
	ldr r0, last_result
	mov r1, #0x0
	strh r1, [r0]
	pop {r4-r5, pc}
checked_yesterday:
	ldrh r0, [r2]
	strh r0, [r4]
	add r2, r2, #0x3
	ldrh r0, [r2]
	strh r0, [r5]
	ldr r0, last_result
	mov r1, #0x1
	strh r1, [r0]
	pop {r4-r5, pc}

.align 2
last_result:	.word 0x020370D0
decrypt_var:	.word 0x0806E454
clock:		.word 0x0300553C