;
; fill hl^ for b with a, advance hl
; f,b,h,l
.fillc::
	mov m,a	! inx h ! dcr b
	jnz	.fillc
	ret