**************************
*** ESTIENNE Sebastien ***
***        2004        ***
**************************

*******************************
***   Function updateKeys   ***
*******************************
updateKeys
		movem.l		A0-A1,-(A7)	; on empile
		move.l		12(A7),A0	; @ case du plateau
		move.l		16(A7),A1	; @ hero data
		btst.b		#4,(A0)		; est-ce 1 clef
		beq		supdateKeys	; non alors on va fin
		bclr.b		#4,(A0)		; on maj cette case
		add.l		#2,A1		; on va a @ des clef
		add.b		#1,(A1)		; ++ du nb clef hero
supdateKeys	movem.l		(A7)+,A0-A1	; on depile
		rts
fupdateKeys


****************************
***   Function allKeys   ***
****************************
allKeys
		movem.l		D0/A1,-(A7)	; on empile
		move.b		12(A7),D0	; charge nb clef ds D0
		move.l		14(A7),A1	; charge @ data hero
		add.l		#2,A1		; va au clef ramasse
		move.b		#0,18(A7)	; mise a 0 du bool
		cmp.b		(A1),D0		; cmp nb clef & ramasse
		bne		sallkeys	; si pas egal bool=0
		move.b		#1,18(A7)	; si egal bool=1
sallkeys	movem.l		(A7)+,D0/A1	; on depile
		rts
fallKeys