; Small example for Amycoders' PrimeNumber compo

Test
	lea	Datas,a0
	move.l	#MemSize-1,d0	; Or MemSize/4 ... clr.l  but i decrease MemSize @ home;)
.clear	clr.b	(a0)+
	sub.l	#1,d0	; Sloooow ;)
	bne.s	,.clear

	moveq	#5,d0
	bsr	PrimeNumber

	moveq	#2001,d0
	bsr	PrimeNumber

	rts

	; --------

PrimeNumber

	; Include your code here

	rts
.exit
	PRINTT	"Code size:"
	PRINTV	.exit-PrimeNumber

	section	DoiReallyNeedIt,bss

Datas	ds.b	1*1024*1024
MemSize=*-Datas