1IncrementDayCareMonExp: 2 ld a, [wDayCareInUse] 3 and a 4 ret z 5 ld hl, wDayCareMonExp + 2 6 inc [hl] 7 ret nz 8 dec hl 9 inc [hl] 10 ret nz 11 dec hl 12 inc [hl] 13 ld a, [hl] 14 cp $50 15 ret c 16 ld a, $50 17 ld [hl], a 18 ret 19 20