extrn	.dten, .blks, .tdzs
;
; Write hl (dec) in minimum (a) char. field, right justified.
; (If the field is too small more columns are used). Max field 128
; a,f
.tdzsf::
	push	b
	push	h
	mov	b,a
tdzsf1:	dcr	b
	call	.dten
	mov	a,h
	ora	l
	jnz	tdzsf1;		count digits. 0..9 leaves count-1
	ora	b
	cp	.blks;		0 or more
	pop	h
	pop	b
	jmp	.tdzs