include	EtiqE1
			org	$B600
			ldx	#$1000
			lds	#$01FF
			lda	#%00000001
			sta	DDRC,x

DEBUT
			bclr	PORTC,x %00000001
			jsr	MARCHE
			bset	PORTC,x %00000001
			lda	#%01100000
			sta	PORTA,x
			jsr	TEMP1
			lda	#%00000000
			sta	PORTA,x
			jsr	TEMPO
			bra	DEBUT

MARCHE		
			lda	PORTC,x
			jsr	?outsci
*			jsr	?tempo1000
			anda	#%00011110
			cmpa	#%00010010
			beq	NORM
			cmpa	#%00000110
			beq	GAUCHE
			cmpa	#%00011000
			beq	DROITE
			cmpa	#%00010000
			beq	DROITE
			cmpa	#%00000010
			beq	GAUCHE
			lda	#%00001010
			sta	PORTB,x
			rts


NORM		lda	#%00001010
			sta	PORTB,x
			rts


DROITE		lda	#%00001000
			sta	PORTB,x
			rts


GAUCHE		lda	#%00000010
			sta	PORTB,x
			rts

TEMP1		ldy	#6

T1			lda	#50
T2			deca

			bne	T2

			dey

			bne	T1

			rts

TEMPO		ldy	#6

T3			lda	#15
T4			deca

			bne	T4

			dey

			bne	T3

			rts