180: Routine at 52356

52356: Routine at CC84


52356	NOP
52357	CP H
52358	AND H
52359	XOR B
52360	XOR L
52361	LD L,E
52362	SBC A,D
52363	SUB L
52364	DJNZ 52242
52366	LD A,H
52367	LD C,D
52368	ADD HL,SP
52369	LD E,B
52370	XOR C
52371	LD BC,12975
52374	ADD HL,BC
52375	RET NC
52376	POP HL
52377	JP Initialise_AYSound_0
52380	LD C,(IX+5)
52383	LD B,(IX+6)
52386	LD L,(IX+3)
52389	LD H,(IX+4)
52392	ADD HL,BC
52393	INC BC
52394	INC BC
52395	LD A,(HL)
52396	INC HL
52397	LD D,(HL)
52398	LD E,A
52399	OR D
52400	JR NZ,52414
52402	LD L,(IX+3)
52405	LD H,(IX+4)
52408	LD BC,2
52411	LD E,(HL)
52412	INC HL
52413	LD D,(HL)
52414	LD (IX+5),C
52417	LD (IX+6),B
52420	LD B,0
52422	JP 52568
52425	LD A,(IX+30)
52428	LD C,A
52429	AND 7
52431	LD HL,52962
52434	XOR (HL)
52435	AND C
52436	XOR (HL)
52437	LD (HL),A
52438	JP 52568
52441	LD A,(IX+30)
52444	LD C,A
52445	AND 56
52447	LD HL,52962
52450	XOR (HL)
52451	AND C
52452	XOR (HL)
52453	LD (HL),A
52454	JP 52568
52457	LD HL,52962
52460	LD A,(IX+30)
52463	CPL
52464	AND (HL)
52465	LD (HL),A
52466	JR 52568
52468	LD A,(DE)
52469	INC DE
52470	LD (IX+7),B
52473	LD (IX+8),B
52476	LD (IX+13),A
52479	SET 2,(IX+0)
52483	LD A,(DE)
52484	LD (IX+14),A
52487	INC DE
52488	JR 52568
52490	LD A,(DE)
52491	INC DE
52492	LD (52221),A
52495	JR 52568
52497	LD A,(DE)
52498	LD (IX+27),A
52501	INC DE
52502	LD A,(DE)
52503	LD (IX+26),A
52506	INC DE
52507	LD (IX+28),A
52510	JR 52568
52512	SET 7,(IX+0)
52516	SET 3,(IX+0)
52520	JR 52568
52522	LD (IX+29),B
52525	JR 52568
52527	LD (IX+29),64
52531	JR 52568
52533	LD (IX+29),192
52537	JR 52568
52539	SET 1,(IX+0)
52543	JR 52568
52545	LD (IX+19),B
52548	RES 5,(IX+0)
52552	JR 52603
This entry point is used by the routine at 52215.
52554	DEC (IX+16)
52557	JR NZ,52616
52559	LD (IX+0),B
52562	LD E,(IX+1)
52565	LD D,(IX+2)
52568	LD A,(DE)
52569	INC DE
52570	AND A
52571	JP M,52633
52574	LD (IX+18),A
52577	LD A,(IX+25)
52580	LD (IX+19),A
52583	SET 5,(IX+0)
52587	SET 6,(IX+0)
52591	LD A,(IX+20)
52594	LD (IX+22),A
52597	LD A,(IX+23)
52600	LD (IX+24),A
52603	LD A,(IX+17)
52606	LD (IX+16),A
52609	LD (IX+2),D
52612	LD (IX+1),E
52615	RET
52616	LD A,(IX+0)
52619	BIT 3,A
52621	RET Z
52622	RLA
52623	JR NC,52629
52625	INC (IX+18)
52628	RET
52629	DEC (IX+18)
52632	RET
52633	CP 184
52635	JR C,52708
52637	ADD A,32
52639	JR C,52681
52641	ADD A,16
52643	JR C,52687
52645	ADD A,16
52647	JR NC,52674
52649	LD C,A
52650	LD HL,53195
52653	ADD HL,BC
52654	LD C,(HL)
52655	ADD HL,BC
52656	LD (IX+11),L
52659	LD (IX+9),L
52662	LD (IX+12),H
52665	LD (IX+10),H
52668	SET 4,(IX+0)
52672	JR 52568
52674	ADD A,9
52676	LD (52257),A
52679	JR 52568
52681	INC A
52682	LD (IX+17),A
52685	JR 52568
52687	LD (IX+25),A
52690	LD A,(DE)
52691	INC DE
52692	LD (IX+20),A
52695	LD A,(DE)
52696	INC DE
52697	LD (IX+21),A
52700	LD A,(DE)
52701	INC DE
52702	LD (IX+23),A
52705	JP 52568
52708	LD HL,52229
52711	LD C,A
52712	ADD HL,BC
52713	LD C,(HL)
52714	ADD HL,BC
52715	JP (HL)
This entry point is used by the routine at 52215.
52716	LD C,(IX+0)
52719	BIT 5,C
52721	JR Z,52791
52723	LD A,(IX+22)
52726	SUB 16
52728	JR NC,52767
52730	BIT 6,C
52732	JR Z,52772
52734	ADD A,(IX+19)
52737	JR NC,52740
52739	SBC A,A
52740	ADD A,16
52742	LD (IX+19),A
52745	LD A,(IX+24)
52748	SUB 16
52750	JR NC,52762
52752	RES 6,C
52754	LD A,(IX+21)
52757	LD (IX+22),A
52760	JR 52791
52762	LD (IX+24),A
52765	JR 52791
52767	LD (IX+22),A
52770	JR 52791
52772	CPL
52773	SUB 15
52775	ADD A,(IX+19)
52778	JR C,52781
52780	SUB A
52781	LD (IX+19),A
52784	DEC (IX+24)
52787	JR NZ,52791
52789	RES 5,C
52791	LD A,(IX+18)
52794	BIT 4,C
52796	JR Z,52825
52798	LD B,A
52799	LD L,(IX+11)
52802	LD H,(IX+12)
52805	LD A,(HL)
52806	CP 84
52808	JR C,52817
52810	LD L,(IX+9)
52813	LD H,(IX+10)
52816	LD A,(HL)
52817	INC HL
52818	LD (IX+11),L
52821	LD (IX+12),H
52824	ADD A,B
52825	LD HL,53003
52828	LD D,0
52830	ADD A,A
52831	LD E,A
52832	ADD HL,DE
52833	LD E,(HL)
52834	INC HL
52835	LD D,(HL)
52836	LD L,(IX+29)
52839	BIT 6,L
52841	JR Z,52915
52843	LD H,A
52844	LD B,(IX+26)
52847	SLA B
52849	BIT 7,L
52851	LD A,(IX+28)
52854	JR Z,52860
52856	BIT 0,C
52858	JR NZ,52890
52860	BIT 5,L
52862	JR NZ,52876
52864	SUB (IX+27)
52867	JR NC,52887
52869	SET 5,(IX+29)
52873	SUB A
52874	JR 52887
52876	ADD A,(IX+27)
52879	CP B
52880	JR C,52887
52882	RES 5,(IX+29)
52886	LD A,B
52887	LD (IX+28),A
52890	EX DE,HL
52891	SRL B
52893	SUB B
52894	LD E,A
52895	LD A,D
52896	LD D,0
52898	JR NC,52901
52900	DEC D
52901	ADD A,160
52903	JR C,52913
52905	SLA E
52907	RL D
52909	ADD A,24
52911	JR NC,52905
52913	ADD HL,DE
52914	EX DE,HL
52915	LD A,C
52916	XOR 1
52918	LD (IX+0),A
52921	BIT 2,C
52923	JR Z,52958
52925	LD B,(IX+14)
52928	DJNZ 52955
52930	LD C,(IX+13)
52933	BIT 7,C
52935	JR Z,52938
52937	DEC B
52938	LD L,(IX+7)
52941	LD H,(IX+8)
52944	ADD HL,BC
52945	LD (IX+7),L
52948	LD (IX+8),H
52951	ADD HL,DE
52952	EX DE,HL
52953	JR 52958
52955	LD (IX+14),B
52958	CPL
52959	AND 3
52961	LD A,56
52963	JR NZ,52975
52965	LD A,(52221)
52968	XOR 8
52970	LD (52298),A
52973	LD A,7
52975	LD HL,52996
52978	XOR (HL)
52979	AND (IX+30)
52982	XOR (HL)
52983	LD (HL),A
52984	EX DE,HL
52985	LD A,(IX+19)
52988	RET