кстати, если не сильно центрировать, можно и в 30 байт сделать

Код:
	org	-14*256+1+#10000

x equ 3
	defb	-3-x,-3-x,-23-x,-17-x,-11-x,-5-x,-15-x,-11-x,-7-x,-3-x,-7-x,-5-x,-3-x,-1-x

start
	ld	a,23	;set coords via ROM procedure
	rst	16

	dec	c
	jr	z,$	;stop when finished
; ret z

	ld	a,(bc)	;line len in negative format
	ld	e,a
print
	inc	e
	jr	z,start

	rra
	sub	b	;centering
	rst	16

	jr	print
еще, скажем, можно подумать насчет ret z, с вызовом программы через print usr ...