Splitting Images: Routine at E580

E580: Routine at E580

Used by the routines at D2DE and E901.
E580	LD A,($E568)
E583	LD ($E56D),A
E586	INC A
E587	LD ($E56E),A
E58A	LD A,($E569)
E58D	LD ($E56F),A
E590	INC A
E591	LD ($E570),A
E594	LD A,($E568)
E597	LD B,A
E598	LD A,($E569)
E59B	LD C,A
E59C	CALL $E79D
E59F	LD E,$7F
E5A1	PUSH HL
E5A2	LD A,(HL)
E5A3	LD (HL),E
E5A4	LD ($E571),A
E5A7	INC HL
E5A8	LD A,(HL)
E5A9	LD (HL),E
E5AA	LD ($E572),A
E5AD	LD BC,$001F
E5B0	ADD HL,BC
E5B1	LD A,(HL)
E5B2	LD (HL),E
E5B3	LD ($E573),A
E5B6	INC HL
E5B7	LD A,(HL)
E5B8	LD (HL),E
E5B9	LD ($E574),A
E5BC	CALL $E7B0
E5BF	HALT
E5C0	POP HL
E5C1	LD A,($E571)
E5C4	LD (HL),A
E5C5	INC HL
E5C6	LD A,($E572)
E5C9	LD (HL),A
E5CA	LD BC,$001F
E5CD	ADD HL,BC
E5CE	LD A,($E573)
E5D1	LD (HL),A
E5D2	INC HL
E5D3	LD A,($E574)
E5D6	LD (HL),A
This entry point is used by the routine at D2DE.
E5D7	LD D,$00
E5D9	LD A,($E56D)
E5DC	CP $00
E5DE	JR Z,$E5E6
E5E0	DEC A
E5E1	LD ($E56D),A
E5E4	SET 1,D
E5E6	LD A,($E56E)
E5E9	CP $17
E5EB	JR Z,$E5F3
E5ED	INC A
E5EE	LD ($E56E),A
E5F1	SET 2,D
E5F3	LD A,($E570)
E5F6	CP $1F
E5F8	JR Z,$E600
E5FA	INC A
E5FB	LD ($E570),A
E5FE	SET 3,D
E600	LD A,($E56F)
E603	CP $00
E605	JR Z,$E60D
E607	DEC A
E608	LD ($E56F),A
E60B	SET 4,D
E60D	LD A,D
E60E	CP $00
E610	RET Z
E611	LD B,$02
E613	LD E,$52
E615	PUSH BC
E616	BIT 1,D
E618	JR Z,$E664
E61A	LD A,($E56D)
E61D	LD B,A
E61E	LD A,($E569)
E621	LD C,A
E622	CALL $E79D
E625	POP BC
E626	PUSH BC
E627	LD A,B
E628	CP $02
E62A	JR Z,$E637
E62C	LD A,($E571)
E62F	LD (HL),A
E630	INC HL
E631	LD A,($E572)
E634	LD (HL),A
E635	JR $E642
E637	LD A,(HL)
E638	LD ($E571),A
E63B	LD (HL),E
E63C	INC HL
E63D	LD A,(HL)
E63E	LD ($E572),A
E641	LD (HL),E
E642	BIT 3,D
E644	JP Z,$E6C7
E647	LD A,($E56D)
E64A	LD B,A
E64B	LD A,($E570)
E64E	LD C,A
E64F	CALL $E79D
E652	POP BC
E653	PUSH BC
E654	LD A,B
E655	CP $02
E657	JR Z,$E65F
E659	LD A,($E573)
E65C	LD (HL),A
E65D	JR $E664
E65F	LD A,(HL)
E660	LD ($E573),A
E663	LD (HL),E
E664	BIT 3,D
E666	JR Z,$E6C7
E668	LD A,($E568)
E66B	LD B,A
E66C	LD A,($E570)
E66F	LD C,A
E670	CALL $E79D
E673	POP BC
E674	PUSH BC
E675	LD A,B
E676	CP $02
E678	JR Z,$E690
E67A	LD A,($E574)
E67D	LD (HL),A
E67E	LD A,($E568)
E681	LD B,A
E682	INC B
E683	LD A,($E570)
E686	LD C,A
E687	CALL $E79D
E68A	LD A,($E575)
E68D	LD (HL),A
E68E	JR $E6A6
E690	LD A,(HL)
E691	LD ($E574),A
E694	LD (HL),E
E695	LD A,($E568)
E698	LD B,A
E699	INC B
E69A	LD A,($E570)
E69D	LD C,A
E69E	CALL $E79D
E6A1	LD A,(HL)
E6A2	LD ($E575),A
E6A5	LD (HL),E
E6A6	BIT 2,D
E6A8	JR Z,$E715
E6AA	LD A,($E56E)
E6AD	LD B,A
E6AE	LD A,($E570)
E6B1	LD C,A
E6B2	CALL $E79D
E6B5	POP BC
E6B6	PUSH BC
E6B7	LD A,B
E6B8	CP $02
E6BA	JR Z,$E6C2
E6BC	LD A,($E576)
E6BF	LD (HL),A
E6C0	JR $E6C7
E6C2	LD A,(HL)
E6C3	LD ($E576),A
E6C6	LD (HL),E
E6C7	BIT 2,D
E6C9	JR Z,$E715
E6CB	LD A,($E56E)
E6CE	LD B,A
E6CF	LD A,($E569)
E6D2	LD C,A
E6D3	CALL $E79D
E6D6	POP BC
E6D7	PUSH BC
E6D8	LD A,B
E6D9	CP $02
E6DB	JR Z,$E6E8
E6DD	LD A,($E577)
E6E0	LD (HL),A
E6E1	INC HL
E6E2	LD A,($E578)
E6E5	LD (HL),A
E6E6	JR $E6F3
E6E8	LD A,(HL)
E6E9	LD ($E577),A
E6EC	LD (HL),E
E6ED	INC HL
E6EE	LD A,(HL)
E6EF	LD ($E578),A
E6F2	LD (HL),E
E6F3	BIT 4,D
E6F5	JP Z,$E778
E6F8	LD A,($E56E)
E6FB	LD B,A
E6FC	LD A,($E56F)
E6FF	LD C,A
E700	CALL $E79D
E703	POP BC
E704	PUSH BC
E705	LD A,B
E706	CP $02
E708	JR Z,$E710
E70A	LD A,($E579)
E70D	LD (HL),A
E70E	JR $E715
E710	LD A,(HL)
E711	LD ($E579),A
E714	LD (HL),E
E715	BIT 4,D
E717	JR Z,$E778
E719	LD A,($E568)
E71C	LD B,A
E71D	LD A,($E56F)
E720	LD C,A
E721	CALL $E79D
E724	POP BC
E725	PUSH BC
E726	LD A,B
E727	CP $02
E729	JR Z,$E741
E72B	LD A,($E57A)
E72E	LD (HL),A
E72F	LD A,($E568)
E732	LD B,A
E733	INC B
E734	LD A,($E56F)
E737	LD C,A
E738	CALL $E79D
E73B	LD A,($E57B)
E73E	LD (HL),A
E73F	JR $E757
E741	LD A,(HL)
E742	LD ($E57A),A
E745	LD (HL),E
E746	LD A,($E568)
E749	LD B,A
E74A	INC B
E74B	LD A,($E56F)
E74E	LD C,A
E74F	CALL $E79D
E752	LD A,(HL)
E753	LD ($E57B),A
E756	LD (HL),E
E757	BIT 1,D
E759	JR Z,$E778
E75B	LD A,($E56D)
E75E	LD B,A
E75F	LD A,($E56F)
E762	LD C,A
E763	CALL $E79D
E766	POP BC
E767	PUSH BC
E768	LD A,B
E769	CP $02
E76B	JR Z,$E773
E76D	LD A,($E57C)
E770	LD (HL),A
E771	JR $E778
E773	LD A,(HL)
E774	LD ($E57C),A
E777	LD (HL),E
E778	LD A,R
E77A	LD L,A
E77B	LD H,$0A
E77D	LD A,($E56E)
E780	LD B,A
E781	LD A,$18
E783	SUB B
E784	LD B,A
E785	LD A,(HL)
E786	AND $18
E788	OR $05
E78A	OUT ($FE),A
E78C	INC HL
E78D	DJNZ $E785
E78F	POP BC
E790	LD A,B
E791	CP $02
E793	JR NZ,$E796
E795	HALT
E796	DEC B
E797	JP NZ,$E615
E79A	JP $E5D7
E79D	LD A,B
E79E	SRA A
E7A0	SRA A
E7A2	SRA A
E7A4	ADD A,$58
E7A6	LD H,A
E7A7	LD A,B
E7A8	AND $07
E7AA	RRCA
E7AB	RRCA
E7AC	RRCA
E7AD	ADD A,C
E7AE	LD L,A
E7AF	RET