Pheenix: Routine at 7616

7616: Routine at 7616

Used by the routines at TitleScreen and StartGame.
7616	LD A,($66F1)
7619	CP $04
761B	JR NZ,$7620
761D	CALL $6A23
7620	LD DE,$65DD
7623	LD HL,($668F)
7626	LD A,($6691)
7629	OR A
762A	JR NZ,$764C
762C	LD A,($66F1)
762F	AND $04
7631	LD A,$07
7633	JR NZ,$7636
7635	ADD A,A
7636	PUSH AF
7637	SUB L
7638	EX AF,AF'
7639	POP AF
763A	CP L
763B	JR NZ,$764C
763D	PUSH HL
763E	LD HL,$66C2
7641	INC (HL)
7642	LD A,(HL)
7643	SUB $14
7645	POP HL
7646	JR NZ,$764C
7648	INC A
7649	LD ($6691),A
764C	ADD HL,HL
764D	ADD HL,DE
764E	PUSH HL
764F	LD E,(HL)
7650	INC HL
7651	LD D,(HL)
7652	LD A,D
7653	OR A
7654	JR NZ,$7662
7656	EX AF,AF'
7657	JR NZ,$765E
7659	LD A,$01
765B	LD ($6691),A
765E	POP AF
765F	JP $7991
7662	PUSH DE
7663	LD A,($66F1)
7666	BIT 1,A
7668	JP NZ,$76FD
766B	AND $04
766D	JR Z,$7676
766F	LD A,($6691)
7672	OR A
7673	JP NZ,$76FD
7676	LD BC,$66C4
7679	LD HL,($668F)
767C	ADD HL,BC
767D	LD A,(HL)
767E	OR A
767F	JR NZ,$76F3
7681	LD A,($6691)
7684	OR A
7685	JR Z,$7692
7687	CALL $670E
768A	CP $D5
768C	JR NZ,$76CB
768E	LD (HL),$3C
7690	JR $76EE
7692	LD A,($6695)
7695	AND $01
7697	JR NZ,$769C
7699	POP AF
769A	POP AF
769B	RET
769C	LD BC,$6657
769F	LD A,($66F1)
76A2	OR A
76A3	JR Z,$76AF
76A5	LD BC,$6666
76A8	CP $01
76AA	JR Z,$76AF
76AC	LD BC,$6675
76AF	LD HL,($668F)
76B2	ADD HL,BC
76B3	LD A,(HL)
76B4	CP E
76B5	JR Z,$76EE
76B7	LD HL,$668F
76BA	LD A,(HL)
76BB	OR A
76BC	JR NZ,$76CA
76BE	LD A,($66F1)
76C1	AND $06
76C3	LD A,$0F
76C5	JR Z,$76C9
76C7	LD A,$08
76C9	LD (HL),A
76CA	DEC (HL)
76CB	CALL ConvertScreenToAttributeBufferAddress
76CE	EX DE,HL
76CF	LD BC,$0020
76D2	LD A,($66C3)
76D5	OR A
76D6	LD A,L
76D7	JR NZ,$76E4
76D9	AND $1F
76DB	JP NZ,$7800
76DE	INC A
76DF	LD ($66C3),A
76E2	JR $76EE
76E4	AND $1F
76E6	SUB $1D
76E8	JP NZ,$781F
76EB	LD ($66C3),A
76EE	POP AF
76EF	POP AF
76F0	JP $799E
76F3	CP $01
76F5	JR NZ,$76FC
76F7	LD A,D
76F8	CP $48
76FA	JR NZ,$76FD
76FC	DEC (HL)
76FD	LD BC,$6680
7700	LD HL,($668F)
7703	ADD HL,BC
7704	LD A,(HL)
7705	PUSH AF
7706	LD A,($6691)
7709	OR A
770A	JR NZ,$7782
770C	POP AF
770D	PUSH HL
770E	PUSH AF
770F	LD A,E
7710	AND $1F
7712	PUSH AF
7713	CP $0A
7715	JR Z,$7723
7717	CP $0D
7719	JR Z,$7723
771B	CP $10
771D	JR Z,$7723
771F	CP $13
7721	JR NZ,$7728
7723	LD A,$02
7725	LD ($6692),A
7728	BIT 7,D
772A	JR NZ,$773B
772C	POP AF
772D	CP $1D
772F	JR NZ,$7738
7731	SET 7,D
7733	POP AF
7734	INC A
7735	PUSH AF
7736	JR $7746
7738	INC DE
7739	JR $7747
773B	POP AF
773C	OR A
773D	JR NZ,$7746
773F	RES 7,D
7741	POP AF
7742	INC A
7743	PUSH AF
7744	JR $7738
7746	DEC DE
7747	POP AF
7748	POP HL
7749	LD (HL),A
774A	POP HL
774B	PUSH AF
774C	PUSH DE
774D	EX DE,HL
774E	RES 7,D
7750	CALL $7564
7753	POP DE
7754	POP AF
7755	PUSH DE
7756	RES 7,D
7758	OR A
7759	CALL Z,$75B7
775C	CP $01
775E	CALL Z,$75BC
7761	CP $02
7763	CALL Z,$75C7
7766	CP $03
7768	JR NZ,$777E
776A	LD A,$01
776C	LD ($6691),A
776F	CALL $75D7
7772	LD HL,$6680
7775	LD DE,$6681
7778	LD BC,$000E
777B	LD (HL),B
777C	LDIR
777E	POP DE
777F	JP $798D
7782	POP AF
7783	PUSH AF
7784	AND $F0
7786	JR NZ,$7796
7788	POP AF
7789	CALL $670E
778C	SRA A
778E	SRA A
7790	AND $07
7792	ADD A,$80
7794	JR $7797
7796	POP AF
7797	SUB $10
7799	LD (HL),A
779A	AND $07
779C	PUSH AF
779D	CALL ConvertScreenToAttributeBufferAddress
77A0	EX DE,HL
77A1	LD BC,$0020
77A4	PUSH HL
77A5	PUSH BC
77A6	LD B,$03
77A8	LD A,(HL)
77A9	CP $46
77AB	JR Z,$77C4
77AD	CP $07
77AF	JR Z,$77C4
77B1	INC HL
77B2	DJNZ $77A8
77B4	DEC HL
77B5	DEC HL
77B6	POP BC
77B7	ADD HL,BC
77B8	LD A,(HL)
77B9	CP $46
77BB	JR Z,$77C5
77BD	CP $07
77BF	JR Z,$77C5
77C1	POP HL
77C2	JR $77DA
77C4	POP BC
77C5	POP DE
77C6	CALL $71AB
77C9	LD DE,$65DD
77CC	LD HL,($668F)
77CF	ADD HL,HL
77D0	ADD HL,DE
77D1	INC HL
77D2	LD (HL),$00
77D4	POP AF
77D5	POP AF
77D6	POP AF
77D7	JP $799E
77DA	POP AF
77DB	JR Z,$7855
77DD	CP $07
77DF	JR Z,$781F
77E1	CP $06
77E3	JR Z,$7800
77E5	CP $04
77E7	JP Z,$78C6
77EA	CP $02
77EC	JP Z,$78C6
77EF	AND A
77F0	SBC HL,BC
77F2	PUSH HL
77F3	LD B,$03
77F5	LD A,(HL)
77F6	OR A
77F7	JR NZ,$7844
77F9	INC HL
77FA	DJNZ $77F5
77FC	POP HL
77FD	JP $7965
7800	LD A,L
7801	AND $1F
7803	JR Z,$7845
7805	ADD HL,BC
7806	LD A,(HL)
7807	OR A
7808	JR NZ,$7845
780A	DEC HL
780B	SBC HL,BC
780D	LD A,(HL)
780E	OR A
780F	JR Z,$781C
7811	LD A,($6693)
7814	OR A
7815	JR NZ,$7845
7817	LD A,(HL)
7818	CP $46
781A	JR NZ,$7845
781C	JP $7965
781F	LD A,L
7820	AND $1F
7822	CP $1D
7824	JR Z,$7845
7826	INC HL
7827	PUSH HL
7828	INC HL
7829	ADD HL,BC
782A	LD A,(HL)
782B	OR A
782C	JR NZ,$7844
782E	INC HL
782F	SBC HL,BC
7831	LD A,(HL)
7832	OR A
7833	JR Z,$7840
7835	LD A,($6693)
7838	OR A
7839	JR NZ,$7844
783B	LD A,(HL)
783C	CP $46
783E	JR NZ,$7844
7840	POP HL
7841	JP $7965
7844	POP AF
7845	POP AF
7846	POP AF
7847	LD BC,$6680
784A	LD HL,($668F)
784D	ADD HL,BC
784E	LD A,(HL)
784F	AND $0F
7851	LD (HL),A
7852	JP $7991
7855	LD A,L
7856	AND $E0
7858	CP $C0
785A	JR NZ,$7882
785C	LD A,H
785D	CP $5A
785F	JR NZ,$7882
7861	LD A,($66F1)
7864	AND $02
7866	JR Z,$7845
7868	LD H,$58
786A	LD A,L
786B	SUB $A0
786D	LD L,A
786E	PUSH HL
786F	LD B,$03
7871	LD A,(HL)
7872	OR A
7873	JR NZ,$7844
7875	INC HL
7876	DJNZ $7871
7878	LD C,$20
787A	ADD HL,BC
787B	DEC HL
787C	LD A,(HL)
787D	OR A
787E	JR NZ,$7844
7880	JR $78B5
7882	ADD HL,BC
7883	PUSH HL
7884	LD A,(HL)
7885	OR A
7886	JR Z,$7893
7888	LD A,($6693)
788B	OR A
788C	JR NZ,$7844
788E	LD A,(HL)
788F	CP $46
7891	JR NZ,$7844
7893	INC HL
7894	INC HL
7895	LD A,(HL)
7896	OR A
7897	JR Z,$78A4
7899	LD A,($6693)
789C	OR A
789D	JR NZ,$7844
789F	LD A,(HL)
78A0	CP $46
78A2	JR NZ,$7844
78A4	ADD HL,BC
78A5	DEC HL
78A6	LD A,(HL)
78A7	OR A
78A8	JR Z,$78B5
78AA	LD A,($6693)
78AD	OR A
78AE	JR NZ,$7844
78B0	LD A,(HL)
78B1	CP $46
78B3	JR NZ,$7844
78B5	POP HL
78B6	CALL ConvertAttributeToScreenBufferAddress
78B9	POP DE
78BA	PUSH HL
78BB	SET 7,D
78BD	PUSH DE
78BE	RES 7,D
78C0	CALL $7564
78C3	JP $7970
78C6	PUSH HL
78C7	LD A,L
78C8	AND $1F
78CA	LD L,A
78CB	LD A,($66ED)
78CE	INC A
78CF	AND $1F
78D1	CP L
78D2	POP HL
78D3	JR Z,$7855
78D5	JR NC,$7925
78D7	LD A,L
78D8	AND $1F
78DA	JP Z,$7855
78DD	LD A,L
78DE	AND $E0
78E0	CP $C0
78E2	JR NZ,$78EA
78E4	LD A,H
78E5	CP $5A
78E7	JP Z,$7861
78EA	ADD HL,BC
78EB	DEC HL
78EC	PUSH HL
78ED	LD A,(HL)
78EE	OR A
78EF	JR Z,$78FE
78F1	LD A,($6693)
78F4	OR A
78F5	JP NZ,$7844
78F8	LD A,(HL)
78F9	CP $46
78FB	JP NZ,$7844
78FE	INC HL
78FF	LD A,(HL)
7900	OR A
7901	JR Z,$7910
7903	LD A,($6693)
7906	OR A
7907	JP NZ,$7844
790A	LD A,(HL)
790B	CP $46
790D	JP NZ,$7844
7910	ADD HL,BC
7911	LD A,(HL)
7912	OR A
7913	JR Z,$7922
7915	LD A,($6693)
7918	OR A
7919	JP NZ,$7844
791C	LD A,(HL)
791D	CP $46
791F	JP NZ,$7844
7922	POP HL
7923	JR $7965
7925	LD A,L
7926	AND $1F
7928	CP $1D
792A	JP Z,$7855
792D	LD A,L
792E	AND $E0
7930	CP $C0
7932	JR NZ,$793A
7934	LD A,H
7935	CP $5A
7937	JP Z,$7861
793A	ADD HL,BC
793B	INC HL
793C	PUSH HL
793D	INC HL
793E	LD A,(HL)
793F	OR A
7940	JR Z,$794F
7942	LD A,($6693)
7945	OR A
7946	JP NZ,$7844
7949	LD A,(HL)
794A	CP $46
794C	JP NZ,$7844
794F	INC HL
7950	LD A,(HL)
7951	OR A
7952	JR Z,$795E
7954	LD A,($6693)
7957	OR A
7958	JP NZ,$7844
795B	LD A,(HL)
795C	CP $46
795E	JP NZ,$7844
7961	DEC HL
7962	ADD HL,BC
7963	JR $7911
7965	CALL ConvertAttributeToScreenBufferAddress
7968	POP DE
7969	PUSH HL
796A	PUSH DE
796B	RES 7,D
796D	CALL $7564
7970	POP DE
7971	BIT 7,D
7973	POP DE
7974	LD A,($66F1)
7977	JR Z,$7983
7979	AND $02
797B	CALL NZ,$75D7
797E	CALL Z,$75AD
7981	JR $798D
7983	AND $02
7985	CALL NZ,$75D2
7988	CALL Z,$75B2
798B	SET 7,D
798D	POP HL
798E	LD (HL),E
798F	INC HL
7990	LD (HL),D
7991	LD A,($6692)
7994	OR A
7995	JR Z,$799E
7997	DEC A
7998	LD ($6692),A
799B	JP $7616
799E	LD HL,$668F
79A1	LD A,($66F1)
79A4	AND $06
79A6	LD A,$07
79A8	JR NZ,$79AB
79AA	ADD A,A
79AB	CP (HL)
79AC	JR NZ,$79B0
79AE	LD (HL),$FF
79B0	INC (HL)
79B1	RET