
		onbankgroup

;****************************************************************
;*								*
;*	タイトル    ：	ＣＧＢゼルダ				*
;*	ファイル名  ：	ZFADE.S					*
;*	処理内容    ：	フェード関係				*
;*	作成日付    ：  １９９８／０６／２４			*
;*								*
;****************************************************************
;
	NLIST
;
;============== バンク１ ========================================
BANK1		GROUP	1
;-------------<	ZS1 >-------------
		EXTERN	OPAF
;
;================================================================
		PUBALL
;
BANK20	GROUP	$20
;
	LIB	ZRAM	; RAM ＥＱＵＡＴＥ ファイル
	LIB	ZBN	; BG unit no file !
;
;----------------------------------------------------------------
	KANJI
	ISDMG
;
;(CGB)	ORG	$5000
	LIST
;
;
;+--------------------------------------------------------------+
;|	オープニングのホワイトアウト				|
;|		ＩＮ						|
;|			Ｅ<-カウンタ				|
;|		使用レジスタ					|
;|			Ａ,Ｂ,Ｃ,Ｄ,Ｈ,Ｌ			|
;|		使用ワークＲＡＭ				|
;|			work0,1,2				|
;+--------------------------------------------------------------+
OpenRedData	EQU	$001
OpenGreenData	EQU	$002
OpenBlueData	EQU	$004
;
OpenWhiteOut
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
		LD	A,E
		CP	$003
		RET	C
		LD	A,OpenRedData
		LD	(WORKD),A
		LD	A,OpenGreenData
		LD	(WORKE),A
		LD	A,OpenBlueData
		LD	(WORKF),A
		LD	HL,CGWORK
		LD	D,$040
		LD	A,E
		CP	$006
		JR	NC,OWOL_050
		LD	D,$028
;
OWOL_050
		AND	%00010000
		JR	Z,OpenWhiteOutLoop
		LD	A,(WORKD)
		SLA	A
		LD	(WORKD),A
		LD	A,(WORKE)
		SLA	A
		LD	(WORKE),A
		LD	A,(WORKF)
		SLA	A
		LD	(WORKF),A
;
OpenWhiteOutLoop
		PUSH	HL
;
		LD	A,(WORKD)	;赤
		LD	C,A
		LD	A,(HL)
		AND	%00011111
		ADD	A,C
		CP	%00100000
		JR	C,OWOL_100
		LD	A,%00011111
OWOL_100
		LD	(WORK0),A
;
		LD	A,(WORKE)	;緑
		LD	C,A
		LD	A,(HLI)
		AND	%11100000
		SWAP	A
		LD	B,A
		LD	A,(HL)
		AND	%00000011
		SWAP	A
		OR	B
		AND	%00111110
		ADD	A,C
		CP	%01000000
		JR	C,OWOL_200
		LD	A,%00111110
OWOL_200
		LD	(WORK1),A
;
		LD	A,(WORKF)	;青
		LD	C,A
		LD	A,(HL)
		AND	%01111100
		ADD	A,C
		CP	%10000000
		JR	C,OWOL_300
		LD	A,%01111100
OWOL_300
		LD	(WORK2),A
;
		POP	HL
		LD	A,(WORK0)
		LD	B,A
		LD	A,(WORK1)
		SWAP	A
		LD	C,A
		AND	%11100000
		OR	B
		LD	(HLI),A
		LD	A,(WORK2)
		LD	B,A
		LD	A,C
		AND	%00000011
		OR	B
		LD	(HLI),A
		DEC	D
		LD	A,D
		AND	A
		JR	NZ,OpenWhiteOutLoop
;
		LD	A,COLDMA_BITFG
		LD	(CGDMAF),A	; 転送フラグセット
		RET
;
;+--------------------------------------------------------------+
;|	オープニングのホワイトイン				|
;+--------------------------------------------------------------+
OpenWhiteIn
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
		LD	A,E
		CP	$006
		RET	C
		LD	A,OpenRedData
		LD	(WORKD),A
		LD	A,OpenGreenData
		LD	(WORKE),A
		LD	A,OpenBlueData
		LD	(WORKF),A
		LD	HL,CGWORK
		LD	A,$40
		LD	(WORK3),A
		LD	A,E
		AND	%00010000
		JR	Z,OpenWhiteInLoop
		LD	A,(WORKD)
		SLA	A
		LD	(WORKD),A
		LD	A,(WORKE)
		SLA	A
		LD	(WORKE),A
		LD	A,(WORKF)
		SLA	A
		LD	(WORKF),A
;
OpenWhiteInLoop
		PUSH	HL
		LD	A,$002
		LD	(SVBK),A
		LD	A,(HLI)
		LD	E,A
		LD	A,(HL)
		LD	D,A
		DEC	HL
		XOR	A
		LD	(SVBK),A
;
		LD	A,(WORKD)	;赤
		LD	C,A
		LD	A,E
		AND	%00011111
		LD	B,A
		LD	A,(HL)
		AND	%00011111
		CP	B
		JR	C,OWIL_130
		JR	Z,OWIL_130
		SUB	C
		JR	C,OWIL_130
		CP	B
		JR	NC,OWIL_150
OWIL_130
		LD	A,B
OWIL_150
		LD	(WORK0),A
;
		LD	A,E		;緑
		AND	%11100000
		SWAP	A
		LD	B,A
		LD	A,D
		AND	%00000011
		SWAP	A
		OR	B
		LD	B,A
		LD	A,(HLI)
		AND	%11100000
		SWAP	A
		LD	C,A
		LD	A,(HL)
		AND	%00000011
		SWAP	A
		OR	C
		PUSH	AF
		LD	A,(WORKE)
		LD	C,A
		POP	AF
		CP	B
		JR	C,OWIL_230
		JR	Z,OWIL_230
		SUB	C
		JR	C,OWIL_230
		CP	B
		JR	NC,OWIL_250
OWIL_230
		LD	A,B
OWIL_250
		LD	(WORK1),A
;
		LD	A,(WORKF)	;青
		LD	C,A
		LD	A,D
		AND	%01111100
		LD	B,A
		LD	A,(HL)
		AND	%01111100
		CP	B
		JR	C,OWIL_330
		JR	Z,OWIL_330
		SUB	C
		JR	C,OWIL_330
		CP	B
		JR	NC,OWIL_350
OWIL_330
		LD	A,B
OWIL_350
		LD	(WORK2),A
;
		POP	HL
		LD	A,(WORK0)
		LD	B,A
		LD	A,(WORK1)
		SWAP	A
		LD	C,A
		AND	%11100000
		OR	B
		LD	(HLI),A
		LD	A,(WORK2)
		LD	B,A
		LD	A,C
		AND	%00000011
		OR	B
		LD	(HLI),A
		LD	A,(WORK3)
		DEC	A
		LD	(WORK3),A
		AND	A
		JP	NZ,OpenWhiteInLoop
;
		XOR	A
		LD	(FADEMDFG),A
		LD	A,COLDMA_BITFG
		LD	(CGDMAF),A	; 転送フラグセット
		RET
;
;+------------------------------------------------------+
;|	ＲＧＢセット					|
;+------------------------------------------------------+
OpenFlashSet
		LD	A,$002
		LD	(SVBK),A
		LD	A,(BC)
		OR	(HL)
		LD	E,A
		INC	BC
		INC	HL
		LD	A,(BC)
		OR	(HL)
		LD	D,A
		DEC	BC
		DEC	HL
		XOR	A
		LD	(SVBK),A
		LD	(HL),E
		INC	HL
		LD	(HL),D
		INC	HL
		RET
;
;+--------------------------------------------------------------+
;|	オープニングデモの稲妻フラッシュ			|
;|		ＩＮ						|
;|		ＤＥ：カウンタ					|
;+--------------------------------------------------------------+
OpenFlashData
		DW	%0000000000000000
		DW	%0001000010000100
		DW	%0011000110001100
		DW	%0001000010000100
;
OpenFlash
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
		LD	A,(OPWRK2)
		AND	A		;稲妻 ちょくげき？
		JR	Z,OF_000	;	NO --> OF_000
		CP	$18
		JR	NC,OF_900
;
OF_000
		LD	HL,OpenFlashData
		SLA	E
		ADD	HL,DE
		PUSH	HL
		POP	BC
		LD	HL,CGWORK
		LD	A,$008
		LD	(WORK0),A
;
OpenFlashLoop
		CALL	OpenFlashSet	;０ビット目
		CALL	OpenFlashSet	;１ビット目
		CALL	OpenFlashSet	;２ビット目
		INC	HL
		INC	HL
;
		LD	A,(WORK0)
		DEC	A
		AND	A
		LD	(WORK0),A
		JR	NZ,OpenFlashLoop
;
		LD	A,BGCOL_BITFG
		LD	(CGDMAF),A	; 転送フラグセット
OF_900
		RET
;
;+----------------------------------------------+
;|	オールホワイトセットルーチン		|
;+----------------------------------------------+
AllWhiteSet
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
		LD	HL,BGCGWK
		LD	BC,OBCGWK
		LD	D,$20
WhiteSetLoop
		LD	A,$FF
		LD	(HLI),A
		LD	(BC),A
		INC	BC
		LD	(HLI),A
		LD	(BC),A
		INC	BC
		DEC	D
		LD	A,D
		AND	A
		JR	NZ,WhiteSetLoop
		LD	A,COLDMA_BITFG
		LD	(CGDMAF),A
		LD	A,$001		;フェードインフラグＯＮ
		LD	(FADEMDFG),A
		RET
;
;+----------------------------------------------+
;|	オールカラーセットルーチン		|
;+----------------------------------------------+
AllColorSet
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
		LD	C,$80
		LD	HL,CGWORK
COL_SET_LOOP
		LD	A,$002
		LD	(SVBK),A
		LD	B,(HL)
		XOR	A
		LD	(SVBK),A
		LD	(HL),B
		INC	HL
		DEC	C
		LD	A,C
		AND	A
		JR	NZ,COL_SET_LOOP
		LD	A,COLDMA_BITFG
		LD	(CGDMAF),A	; 転送フラグセット
		XOR	A
		LD	(FADEMDFG),A
		RET
;
;+----------------------------------------------+
;|	プレイヤーダウン時のカラーセットルーチン|
;+----------------------------------------------+
DownColorSet
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		JR	Z,DCS_PASS	;	NO --> DCS_PASS
		LD	HL,OBCGWK
		LD	B,$008
DCS_LOOP
		LD	A,$002
		LD	(SVBK),A
		LD	C,(HL)
		XOR	A
		LD	(SVBK),A
		LD	(HL),C
		INC	HL
		DEC	B
		LD	A,B
		AND	A
		JR	NZ,DCS_LOOP
DCS_PASS
		RET
;
;+--------------------------------------------------------------+
;|	ゲーム中のホワイトアウト				|
;+--------------------------------------------------------------+
WhiteOut
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
;
		LD	A,(SBCNT)
		AND	$001
		JR	Z,WhiteOut_100
		LD	A,OBJCOL_BITFG
		JR	WhiteOut_900
;
WhiteOut_100
		LD	A,OpenRedData*4
		LD	(WORKD),A
		LD	A,OpenGreenData*4
		LD	(WORKE),A
		LD	A,OpenBlueData*4
		LD	(WORKF),A
		LD	HL,CGWORK
		LD	D,$040
;
		CALL	OpenWhiteOutLoop
		LD	A,BGCOL_BITFG
WhiteOut_900
		LD	(CGDMAF),A	; 転送フラグセット
		RET
;
;+--------------------------------------------------------------+
;|	ゲーム中のホワイトイン					|
;+--------------------------------------------------------------+
WhiteIn
		LD	A,(CGBFLG)
		AND	A		;ＣＧＢモード？
		RET	Z		;	NO --> RET
;
		LD	A,(SBCNT)
		AND	$001
		JR	Z,WhiteIn_100
		LD	A,OBJCOL_BITFG
		JR	WhiteIn_900
;
WhiteIn_100
		LD	A,OpenRedData*4
		LD	(WORKD),A
		LD	A,OpenGreenData*4
		LD	(WORKE),A
		LD	A,OpenBlueData*4
		LD	(WORKF),A
		LD	HL,CGWORK
		LD	A,$40
		LD	(WORK3),A
;
		CALL	OpenWhiteInLoop
;
		LD	A,BGCOL_BITFG
WhiteIn_900
		LD	(CGDMAF),A	; 転送フラグセット
		RET
;
;+--------------------------------------------------------------+
;|	ＣＧＢ用オカリナワープ等のフェード			|
;+--------------------------------------------------------------+
CGB_OKARINA_FADE
		LD	A,(WAVCNT4)
;;;;;;;;		CP	$0C
		CP	$010
		JR	Z,COF0080
		PUSH	AF
		AND	$003
		PUSH	AF
		AND	$002
		JR	NZ,TTTTTTTT
		LD	A,$001
TTTTTTTT
		OR	$080
		LD	(CGDMAF),A
		POP	AF
		SWAP	A
		LD	(COLOFS),A
		LD	A,$10
		LD	(COLLNG),A
		POP	AF
		INC	A
		LD	(WAVCNT4),A
;
COF0068
;;;;;;;;		LD	E,$008
		LD	A,(WAVFLG)
		CP	$03
		JR	Z,COF0078
;
;;;;;;;;		CALL	OpenWhiteOut
		LD	A,$001
		LD	(FADEMDFG),A
		JR	COF0080
COF0078
		LD	A,(WAVCNT4)
		DEC	A
		AND	$003
		JR	NZ,COF0080
		LD	A,(CGDMAF)	; 転送フラグセット
		PUSH	AF
		LD	A,OpenRedData*8
		LD	(WORKD),A
		LD	A,OpenGreenData*8
		LD	(WORKE),A
		LD	A,OpenBlueData*8
		LD	(WORKF),A
		LD	HL,CGWORK
		LD	A,$40
		LD	(WORK3),A
		CALL	OpenWhiteInLoop
		POP	AF
		LD	(CGDMAF),A	; 転送フラグセット
COF0080
		RET
;
;;;;;;;;CGB_OKARINA_FADE
;;;;;;;;		LD	A,(WAVCNT4)
;;;;;;;;;;;;;;;;		CP	$0C
;;;;;;;;		CP	$010
;;;;;;;;		JR	Z,COF0080
;;;;;;;;		INC	A
;;;;;;;;		LD	(WAVCNT4),A
;;;;;;;;;
;;;;;;;;COF0068
;;;;;;;;		LD	E,$008
;;;;;;;;		LD	A,(WAVFLG)
;;;;;;;;		CP	$03
;;;;;;;;		JR	Z,COF0078
;;;;;;;;;
;;;;;;;;;;;;;;;;		CALL	OpenWhiteOut
;;;;;;;;		LD	A,$001
;;;;;;;;		LD	(FADEMDFG),A
;;;;;;;;		JR	COF0080
;;;;;;;;COF0078
;;;;;;;;		CALL	OpenWhiteIn
;;;;;;;;COF0080
;;;;;;;;		RET
;
;+------------------------------------------------------+
;|	楽器を取った時のホワイトアウト			|
;+------------------------------------------------------+
GK_WhiteOut
		LD	A,(HL)
		DEC	A
		CP	$004			;ホワイトアウト開始？
		JR	C,GK_WhiteOut_950	;	NO --> GK_WhiteOut_950
		LD	A,(FRCNT)
		AND	$001
		JR	Z,GK_WhiteOut_120
		LD	A,OBJCOL_BITFG
		JR	GK_WhiteOut_900
GK_WhiteOut_120
		LD	A,(HL)
		DEC	A
		CP	$00E			;オブジェもホワイトアウト開始？
		JR	C,GK_WhiteOut_200	;	NO --> GK_WhiteOut_200
		LD	A,OpenRedData
		LD	(WORKD),A
		LD	A,OpenGreenData
		LD	(WORKE),A
		LD	A,OpenBlueData
		LD	(WORKF),A
		LD	HL,CGWORK+$20
		LD	D,$020
		CALL	OpenWhiteOutLoop
GK_WhiteOut_200
		LD	A,OpenRedData
		LD	(WORKD),A
		LD	A,OpenGreenData
		LD	(WORKE),A
		LD	A,OpenBlueData
		LD	(WORKF),A
		LD	HL,CGWORK
		LD	D,$020
		CALL	OpenWhiteOutLoop
;
		LD	A,BGCOL_BITFG
GK_WhiteOut_900
		LD	(CGDMAF),A	; 転送フラグセット
GK_WhiteOut_950
		RET
;
;===============================================================
	END
;
