Un poco si :)
ld a, [$c0af]
and a, a
ret nz
ld hl, $c01a
ld bc, $c04c - $c01a
ld a, $10
add a, [hl]
ld [hl], a
add hl, bc
ld [hl], a
add hl, bc
ld [hl], a
add hl, bc
ld [hld], a
ld [hl], $00
ret
Un puñado de bytes menos (aunque la direccion de c0af deberias cambiarla).