вот так, кстати, можно 1 переход (и байт) вырезать
Код:
space1:
	ld	b,h		;b>0 anyway )))
	ld	d,h
	ld	e,l

lp_spc1:
	ld	c,b		;prev char -#20
	ld	a,(hl)
	ld	(de),a
	inc	hl
	cp	#0a
	ret	z
;	jr	z,clearline

	sub	#20
	ld	b,a
	or	c
	jr	z,lp_spc1	;prev and current char = space, skip one

	inc	de		;moved ok
	jr	lp_spc1