
initcarac:
	// Reservons de la memoire pour definir notre police de carac.
	lda	carrom
	cmp	#0
	bne chgcara     // Police deja initialisee
	
	clc
 	lda	106
	adc	#10
	sta	carram
	sta	$e9

	// Trouvons la zone memoire reserve pour la police officielle
	ldx	756
	stx	carrom
	stx	$e7

	lda	#0
	sta	$e6
	sta	$e8

	// RECOPIER LES CARACTERES DU SYSTEME DANS NOTRE ZONE MEMOIRE
	// ON VA PAS TOUT REDESSINER NON PLUS !
	ldx	#4
rebclcpycarac:
	ldy	#0

bclcpycarac:
	lda	($e6),y
	sta	($e8),y
	iny
	cpy	#0
	bne bclcpycarac

	dex
	cpx	#0
	bne	contcpycarac

// On dessine notre voiture en caracteres
	clc
	lda	carram
	sta	$e9

	lda	#64
	sta	$e8

	lda	#dessincar/256
	sta	$e7
	lda	#dessincar&255
	sta	$e6

	ldy	#8
bclcarvoitdef:
	lda	($e6),y
	sta	($e8),y
	dey
	cpy	#0
	bne bclcarvoitdef

chgcara
	// INDIQUER A ANTIC LA NOUVELLE ZONE MEMOIRE POUR LA DEFINITION DES CARACTERES
	lda	carram
	sta	756

	rts

contcpycarac:
	ldy	$e7
	iny
	sty	$e7
	ldy	$e9
	iny
	sty	$e9
	jmp rebclcpycarac

dessincar
	db %00000000
	db %00111000
	db %01010100
	db %01111111
	db %01111111
	db %00100010
	db %00000000
	db %00000000
	
carram db 0
carrom db 0
