.text
	cnfd
	ldpk	8
	larp	0
again	lrlk	ar0,400h
	zac
	sacl	*
	rxf
wait	lac	*
	bz	wait
	sxf
	lrlk	ar0,420h
	lac	*
	xork	0ffffh
	sacl	*
	b	again
	.end