polish

toutadisparu/sources/game.s

@@ -173,8 +173,7 @@ ni_1	lda	[dpINDEX]
 * load_textes
 *-----------------------
 
-load_textes
+load_textes	lda	#pTEXTES
-	lda	#pTEXTES
 	ldx	ptrUNPACK+2
 	ldy	ptrUNPACK
 	jsr	loadFILE
@@ -318,6 +317,10 @@ get_textes2	dec
 * generique
 
 generique	jsr	switch_640
+
+	PushLong	#$e19e00
+	_InitColorTable
+
 	jsr	tag
 	
 	PushWord	#0
@@ -1783,8 +1786,8 @@ affiche_image
 	beq	ai_1
 	rts
 
-ai_1	jsr	switch_320
+ai_1	jsr	noircit_ecran
-	jsr	noircit_ecran
+	jsr	switch_320
 
 	lda	#TRUE
 	ldx	ptrIMAGE+2
@@ -2354,10 +2357,6 @@ image_ecran
 * fadeout(palette2$)
 	rts
 
-palette_320
-	hex	0000770741082C070F008000700F000D
-	hex	A90FF00FE000DF04AF0D8F07CC0CFF0F
-
 *-----------------------
 * FADEIN_MID - OK
 *-----------------------

toutadisparu/sources/toutadisparu.s

@@ -383,8 +383,6 @@ switch_res	sty	mainWIDTH
 	pha
 	_SetMasterSCB
 	_SetAllSCBs
-	PushLong	#$e19e00
-	_InitColorTable
 	_InitCursor
 	PushLong mainPORT
 	_InitPort
@@ -821,17 +819,17 @@ fadeIN6  dey
          dex
          bpl   fadeIN2
          
-         _ShowCursor
+	_ShowCursor
-         rts
+	rts
 
 *---
 
-fadeOUT  lda   #$9e00
+fadeOUT	lda	#$9e00
-         sta   Debut
+	sta	Debut
-         lda   #$00e1
+	lda	#$00e1
-         sta   Debut+2
+	sta	Debut+2
 
-         _HideCursor
+	_HideCursor
          
          ldx   #$000f
 fadeOUT1 ldy   #$01fe
@@ -864,8 +862,8 @@ fadeOUT5 dey
          dex
          bpl   fadeOUT1
          
-         _ShowCursor
+	_ShowCursor
-         jmp	noircit_ecran
+	jmp	noircit_ecran
 
 *----------------------------
 * unpackLZ4
@@ -882,8 +880,7 @@ fadeOUT5 dey
 *
 *----------------------------
 
-unpackLZ4
+unpackLZ4	sta	LZ4_Limit+1
-	sta	LZ4_Limit+1
 	
 	jsr	suspendMUSIC
 	sep	#$20