;**************************************************************************
;
;		ROUTINE FADE couleur
;
;		ENTREE = HL +2 : numéro de couleur dans la palette (0 à 15)
;
;**************************************************************************
;
;	screen 1 : 2020H 203FH 32 octets
;	screen 2 : 2020H 203FH 32 octets
;	screen 3 : 2020H 203FH 32 octets
;	screen 4 : 1E80H 1E9FH 32 octets
;	screen 5 : 7680H 769FH 32 octets
;	screen 6 : 7680H 769FH 32 octets
;	screen 7 : FA80H FA9FH 32 octets
;	screen 8 : FA80H FA9FH 32 octets


EXTROM	.EQU	$015F		;	apple routine en sub rom


GETPLT	.EQU	$0149		;	GET PaLeTte			;	sub rom
SETPLT	.EQU	$014D		;	SET PaLeTte			;	sub rom

CHGMDP	.EQU	$01B5		;	CHanGe MoDe vdP		;	sub rom

CHGMOD	.EQU	$005F		;	CHanGe MODe			;	main rom
WRTVDP 	.EQU	$012D		;	WRiTe VDP			;	main rom

.org $D4B0-7

.db $FE,$B0,$D4		;	entete pour Binaire DiskBASIC
.lsfirst			;		MSX 2
.word (ENDFILE)		;
.msfirst			;
.db $B0,$D4			;

	push AF
	push BC
	push DE
	push HL
	push IX
	push IY

	inc HL
	inc HL
	
	LD A,(HL)
	PUSH AF
	
	LD IX,GETPLT		;	recupére les valeurs RGB (BC) de la couleur (A)
						;		B=RRRRBBBB C=0000GGGG
	CALL EXTROM
	
	LD A,B
	AND $0F				;	recupére la couleur Bleu
		DEC A
		JP P,NOTRAZA1
		LD A,$00
NOTRAZA1	
			LD H,A
	LD A,B
	AND $F0				;	recupére la couleur Rouge

	SUB $10
	AND $F0
	
		JP P,NOTRAZA2
		LD A,$00
NOTRAZA2


	ADD A,H				;	recompose Rouge et Bleu
		LD H,A
		
	DEC C				;	couleur Verte
		JP P,NOTRAZA3
		LD C,$00
NOTRAZA3


	
	LD E,C
	
	POP AF	;	le numéro de la couleur dans la palette
	LD D,A
		LD A,H
	LD IX,SETPLT		;	defini les valeurs RGB (AE) de la couleur  (D) 
	CALL EXTROM
	
	
	pop IY
	pop IX
	pop HL
	pop DE
	pop BC
	pop AF
	
	RET

	
	
ENDFILE	
.END
