	.text
	lds	#__STACK
	clrb
	ldy	#__BS
	ldx	#__BL
	beq	l1
bssloop:
	stb	,y+
	leax	-1,x
	bne	bssloop
l1:
	ldy	#__DS
	ldu	#__DC
	ldx	#__DL
	beq	l2
dataloop:
	ldb	,u+
	stb	,y+
	leax	-1,x
	bne	dataloop
l2:
	jsr	__main
	clra
	swi

