Ca avance

initialisation_tableaux & image OK

toutadisparu/sources/_FileInformation.txt

@@ -1 +1 @@
-ToutADisparu=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
+ToutADisparu=Type(B3),AuxType(DB00),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

toutadisparu/sources/game.s

@@ -913,7 +913,7 @@ doDIESE1	lda	localOFFSET	; 0/25/50 => 0/50/100
 	lda	dpINDEX	; prend le mot sur 16-bit
 	sta	phrase,x
 
-*--- Maintenant, on parcout la cha”ne jusqu'ˆ la fin de la chaine
+*--- Maintenant, on parcout la cha”ne jusqu'ˆ la fin (00)
 
 ]lp	jsr	next_index
 	bne	]lp
@@ -988,6 +988,9 @@ fin
 
 nouvelle_scene
 *	ldx	scene
+	cmp	#0	; not 0
+	beq	ns_99
+	dec
 	tax
 	lda	#TRUE
 	sep	#$20
@@ -998,7 +1001,7 @@ nouvelle_scene
 	sta	deplacement
 	
 	stz	option_mot
-	rts
+ns_99	rts
 	
 *-----------------------
 * SURLIGNER_MOT
@@ -1176,11 +1179,13 @@ cprint1	rep	#$20	; nb chars x 8 to get width
 *-----------------------
 * image(scene ˆ charger)
 
-image
+image	cmp	#0	; not 0
+	beq	image_ko
+	dec
 	asl
 	tax
 	lda	image_a_charger,x
-	beq	image_1
+	bne	image_1
 	
 image_ko	lda	#FALSE
 	sta	image_chargee
@@ -1215,7 +1220,7 @@ image_1	sta	Debut
 
 	tya
 	clc
-	adc	#5	; strl (2) + '7/' (2) + la correction sur la longueur de cha”ne
+	adc	#3	; strl (2) + '7/' (2) + la correction sur la longueur de cha”ne
 	sta	pIMAGE
 	rep	#$20
 	

toutadisparu/sources/make.s

@@ -0,0 +1,14 @@
+
+* Expansion linker file
+
+         DSK   ToutADisparu
+         TYP   $B3
+         AUX   $DB00
+         
+* Assemble files
+
+         ASM   toutadisparu.s
+         KND   $0000
+         SNA   TAD
+
+* END

toutadisparu/sources/toutadisparu.s

@@ -5,14 +5,7 @@
 * (c) 2022, Antoine Vignau & Olivier Zardini
 *
 
-	lst   off
-	rel
-	typ   $B3
-	dsk   ToutADisparu.l
-
 	mx    %00
-	xc
-	xc
 
 *----------------------------------- Macros
 
@@ -1183,13 +1176,11 @@ loadPATH1
 * GS/OS
 *----------------------------------------
 
-loadFILE
-	sta	proOPEN+4  ; filename
+loadFILE	sta	proOPEN+4  ; filename
 	sty	proREAD+4  ; RAM pointer low
 	stx	proREAD+6  ; RAM pointer high
 
-loadFILE1
-	stz	proERR
+loadFILE1	stz	proERR
 
 	jsl	GSOS
 	dw	$2010
@@ -1210,16 +1201,17 @@ loadFILE1
 	adrl	proREAD
 	bcs	loadERR
 
-loadFILE2
-	jsl	GSOS
+loadFILE2	jsl	GSOS
 	dw	$2014
 	adrl	proCLOSE
 
 	ldy	proREAD+12 ; length read
 	ldx	proREAD+14
+	clc
 	rts
 
-loadERR	jsr	loadFILE2
+loadERR	sta	proERR
+	jsr	loadFILE2
 	ldy	#0
 	tyx
 	sec