	include declare.h
	xref	_init_clavier
	xdef	CLAVIER

	section code,,c
DEBUT	
	
CLAVIER	jsr	_init_clavier	/*initialisation du clavier*/
	
	MOVE.B	#$E0,PADR       /*on met toutes les colonnes PA a 0*/

	MOVE.B	#$03,D0		/*on initialise D0 qui est un compteur*/
BOUC	MOVE.B	PBDR,D1		/*on copie PBDR dans D1*/
	BTST	D1,D0		/*On regarde si le bit D0 de D1 est a 1, ce qui correspond à regarder si PB.i=1 avec i=D0*/
	BNE	SI		/*on regarde si c'est égal à 0 ce qui veut dire PB.i=1 */	
	SUB	#$01,D0
	BMI	SIN	
	JMP	BOUC
SI	MOVE.B	D0,$5000	/*on stocke á l'adresse 5000 la ligne où un appuit a été détecté*/		
	
		
	MOVE.B	#$04,D3
BOUCLE	MOVE.B	#$1F,PADR
	BCLR	D3,PADR

	MOVE.B	#$03,D0
BOUC2	MOVE.B	PBDR,D1
	BTST	D1,D0
	BNE	SI2	
	SUB	#$01,D0
	BMI	SIN2
	JMP	BOUC2
SIN2
	SUB	#$01,D3
	JMP	BOUCLE
	
SI2	MOVE.B	D3,$5001
	
SIN	MOVE.W	#$FFFF,$5004	/*on stocke -1 à l'adresse 5000*/		

	rts			  
	end	DEBUT