
len	= $fb

	org	$0801

	dc.w	.link
	dc.w	2023
	dc.b	$9e,$32,$30,$36,$31,$00	; sys 2061
.link	dc.w	0	


START	ldx	#4
.loop	lda	len_t,x
	sta	len
.put	lda	#$2a
.store	sta	$0400+8*40+20

	clc
	lda	delta_lo,y
	adc	.store+1
	sta	.store+1
	lda	delta_hi,y
	adc	.store+2
	sta	.store+2

	dec	len
	bne	.put

	iny
	tya
	and	#3
	tay

	dex
	bpl	.loop
	bmi	START

len_t		dc.b	12,6,6,12,3		; indexed by x, 4..0
delta_lo	dc.b	-39,41,39,-41		; indexed by y, 0..3
delta_hi	dc.b	-1 , 0, 0, -1