	.org $8000

	clrb
	stab	$4101
	ldx		$4100
lolop:
	ldaa	,x
	pshx
	ldx		#$4000
	abx
	staa	,x
	pulx
	inx
	incb
	bne	lolop
	rts
	.end
