extrn	.blk
;
; (a) blanks to console.  0 value valid
; a,f
.blks::	ora	a
	rz;			0 wanted
	push	b
	mov	b,a
blks1:	call	.blk
	dcr	b
	jnz	blks1
	pop	b
	ret