	include declare.h
	xref _initgen,CLAVIER
	xdef TEMPO
	
	section code,,c
DEBUT	jsr	_initgen

	move.l	#$0000FFFF,D7
BOUCLE	cmp.l	#$00000000,D7
	beq SUITE
	sub.l #$00000001,D7
	jsr CLAVIER
	jmp BOUCLE
SUITE	jmp	$F50024
	
	section data,,c	   
TEMPO	DC.L	$000000FF
	
	end	DEBUT