	include declare.h
	xref _initgen,RECOPIE

	section code,,c
DEBUT	jsr	_initgen
	MOVE.W	#$0FFF,D0
	
BOUCLE	jsr	RECOPIE
	SUB.B	#1,D0
	BNE	BOUCLE	
	
	JMP	MLOOP
	end	DEBUT
