Batty: Routine at 26707

26707: Routine at 6853

Used by the routine at 26624.
26707	LD IX,26839
26711	LD L,(IX+0)
26714	LD H,(IX+1)
26717	LD A,H
26718	OR L
26719	RET Z
26720	LD C,(IX+2)
26723	SRL C
26725	LD E,(IX+3)
26728	LD D,(IX+4)
26731	LD A,1
26733	LD (26789),A
26736	SRL C
26738	PUSH BC
26739	CALL C,26763
26742	POP BC
26743	LD A,C
26744	AND A
26745	JR Z,26756
26747	LD A,(26789)
26750	INC A
26751	LD (26789),A
26754	JR 26736
26756	LD DE,5
26759	ADD IX,DE
26761	JR 26711
26763	PUSH HL
26764	LD A,(HL)
26765	LD (26778),A
26768	INC A
26769	LD (DE),A
26770	INC HL
26771	INC DE
26772	LD A,(HL)
26773	LD (DE),A
26774	INC HL
26775	INC DE
26776	EX AF,AF'
26777	LD B,0
26779	PUSH BC
26780	PUSH DE
26781	LD A,(HL)
26782	INC HL
26783	LD E,(HL)
26784	INC HL
26785	LD D,0
26787	LD C,D
26788	LD B,0
26790	SRL E
26792	RR D
26794	SRL A
26796	RR C
26798	DJNZ 26790
26800	LD B,A
26801	LD A,D
26802	LD (26825),A
26805	LD A,E
26806	LD (26816),A
26809	POP DE
26810	LD A,(DE)
26811	OR B
26812	LD (DE),A
26813	INC DE
26814	LD A,(DE)
26815	OR 0
26817	LD (DE),A
26818	INC DE
26819	LD A,(DE)
26820	OR C
26821	LD (DE),A
26822	INC DE
26823	LD A,(DE)
26824	OR 0
26826	LD (DE),A
26827	DEC DE
26828	POP BC
26829	DJNZ 26779
26831	INC DE
26832	INC DE
26833	EX AF,AF'
26834	DEC A
26835	JR NZ,26776
26837	POP HL
26838	RET
26839	LD D,123
26841	RST 56
26842	LD C,B
26843	LD A,E
26844	JR C,26972
26846	DJNZ 26926
26848	LD A,L
26849	LD B,D
26850	LD A,A
26851	DJNZ 26735
26853	ADD A,D
26854	ADC A,B
26855	ADD A,C
26856	DJNZ 26844
26858	ADD A,C
26859	NOP
26860	NOP