Batty: Routine at 38730

38730: Routine at 974A

Used by the routine at Sounds_PlayQueue.
38730	XOR A
38731	LD (23773),A
38734	LD BC,1544
38737	LD A,(47077)
38740	CP 2
38742	JR NZ,38759
38744	LD HL,5392
38747	CALL 40180
38750	LD BC,1544
38753	LD HL,5568
38756	JP 40180
38759	LD HL,5392
38762	LD A,(47078)
38765	AND A
38766	JP Z,40180
38769	LD L,192
38771	JP 40180
This entry point is used by the routines at StartGame and 48591.
38774	LD A,(47082)
This entry point is used by the routine at 48591.
38777	LD HL,27837
38780	ADD A,A
38781	LD E,A
38782	LD D,0
38784	ADD HL,DE
38785	LD E,(HL)
38786	INC HL
38787	LD D,(HL)
38788	EX DE,HL
38789	LD (38793),HL
38792	RET
38793	NOP
38794	NOP
This entry point is used by the routine at StartGame.
38795	CALL 38815
38798	RET Z
38799	CALL 38815
38802	JR NZ,38799
38804	CALL 38815
38807	JR Z,38804
38809	CALL 38815
38812	JR NZ,38809
38814	RET
38815	LD A,247
38817	CALL 38823
38820	AND 15
38822	RET
This entry point is used by the routines at 37483, 37880 and 40618.
38823	IN A,(254)
38825	CPL
38826	AND 31
38828	RET
This entry point is used by the routines at 37132, DrawFrame and StartGame.
38829	LD (38864),SP
38833	LD SP,23296
38836	LD BC,32770
38839	LD DE,0
38842	JR 38857
This entry point is used by the routines at 37132, DrawFrame and StartGame.
38844	LD (38864),SP
38848	LD SP,22528
38851	LD BC,12
38854	LD DE,0
38857	PUSH DE
38858	DJNZ 38857
38860	DEC C
38861	JR NZ,38857
38863	LD SP,0
38866	RET
This entry point is used by the routine at 37132.
38867	LD E,255
38869	DEC E
38870	JR NZ,38869
38872	DEC D
38873	JR NZ,38867
38875	RET
38876	NOP
38877	NOP
This entry point is used by the routine at StartGame.
38878	LD IX,39632
38882	LD B,11
38884	XOR A
38885	LD (53248),A
38888	LD HL,53249
38891	PUSH BC
38892	LD A,(IX+0)
38895	AND A
38896	CALL NZ,38913
38899	POP BC
38900	LD DE,22
38903	ADD IX,DE
38905	DJNZ 38891
38907	LD (38911),HL
38910	RET
38911	NOP
38912	NOP
38913	LD A,(IX+4)
38916	CP 192
38918	JR C,38924
38920	SET 7,(IX+0)
38924	BIT 7,(IX+0)
38928	RET NZ
38929	LD A,(53248)
38932	INC A
38933	LD (53248),A
38936	LD C,(IX+8)
38939	LD A,(IX+2)
38942	AND 7
38944	JR Z,38947
38946	INC C
38947	LD A,C
38948	ADD A,A
38949	ADD A,A
38950	ADD A,A
38951	ADD A,(IX+2)
38954	JR NC,38969
38956	LD A,255
38958	SUB (IX+2)
38961	SRL A
38963	SRL A
38965	SRL A
38967	INC A
38968	LD C,A
38969	LD D,(IX+10)
38972	LD E,(IX+11)
38975	LD (HL),E
38976	INC HL
38977	LD (HL),D
38978	INC HL
38979	SLA C
38981	LD A,246
38983	SUB C
38984	LD (HL),A
38985	INC HL
38986	LD (39031),A
38989	LD B,(IX+9)
38992	INC B
38993	LD (HL),B
38994	INC HL
38995	EX DE,HL
38996	LD A,L
38997	LD C,255
38999	JP 39030
39002	LDI
39004	LDI
39006	LDI
39008	LDI
39010	LDI
39012	LDI
39014	LDI
39016	LDI
39018	LDI
39020	LDI
39022	DEC HL
39023	ADD A,32
39025	LD L,A
39026	JP NC,39030
39029	INC H
39030	DJNZ 39030
39032	EX DE,HL
39033	RET
This entry point is used by the routine at StartGame.
39034	LD A,(36465)
39037	AND A
39038	JR Z,39066
39040	LD IX,(36464)
39044	LD A,(IX+2)
39047	SUB 5
39049	LD L,A
39050	LD A,(IX+4)
39053	SUB 5
39055	LD H,A
39056	LD BC,1047
39059	CALL 40180
39062	XOR A
39063	LD (36465),A
This entry point is used by the routine at StartGame.
39066	LD A,(53248)
39069	AND A
39070	RET Z
39071	LD HL,53249
39074	EX AF,AF'
39075	LD E,(HL)
39076	INC HL
39077	LD D,(HL)
39078	INC HL
39079	LD A,(HL)
39080	LD (39126),A
39083	INC HL
39084	LD B,(HL)
39085	INC HL
39086	LD C,255
39088	LD A,E
39089	JP 39125
39092	EX AF,AF'
39093	DEC A
39094	JR NZ,39074
39096	RET
39097	LDI
39099	LDI
39101	LDI
39103	LDI
39105	LDI
39107	LDI
39109	LDI
39111	LDI
39113	LDI
39115	LDI
39117	DEC DE
39118	ADD A,32
39120	LD E,A
39121	JP NC,39125
39124	INC D
39125	DJNZ 39125
39127	JP 39092
39130	DEC D
39131	SBC A,D
39132	RRCA
39133	SBC A,D
39134	ADD HL,BC
39135	SBC A,D
39136	INC BC
39137	SBC A,D
39138	DEFB 253
39139	SBC A,C
39140	RST 48
39141	SBC A,C
39142	POP AF
39143	SBC A,C
39144	EX DE,HL
39145	SBC A,C
39146	SBC A,D
39147	SBC A,D
39148	ADC A,H
39149	SBC A,D
39150	LD A,(HL)
39151	SBC A,D
39152	LD (HL),B
39153	SBC A,D
39154	LD H,D
39155	SBC A,D
39156	LD D,H
39157	SBC A,D
39158	LD B,(HL)
39159	SBC A,D
39160	JR C,39060
39162	EX AF,AF'
39163	LD A,(BC)
39164	INC B
39165	LD B,0
39167	NOP
39168	LD B,0
39170	LD (BC),A
39171	LD (BC),A
39172	INC B
39173	INC B
39174	NOP
39175	NOP
39176	ADD HL,BC
39177	DJNZ 39185
39179	INC C
39180	INC B
39181	ADD HL,BC
39182	DEC B
39183	RLCA
This entry point is used by the routines at 36466, 38493, 40618 and 48591.
39184	LD A,(IX+0)
39187	BIT 7,A
39189	RET NZ
39190	CP 2
39192	JR NZ,39260
39194	LD A,(39784)
39197	CP 7
39199	JR Z,39208
39201	LD A,(39762)
39204	CP 7
39206	JR NZ,39257
39208	LD (IX+1),8
39212	RES 7,(IX+21)
39216	LD A,(36166)
39219	RRA
39220	JR C,39257
39222	LD A,(42586)
39225	INC A
39226	LD (42586),A
39229	CP 248
39231	JR C,39257
39233	LD A,(39784)
39236	CP 7
39238	JR NZ,39245
39240	LD A,255
39242	LD (39784),A
39245	LD A,(39762)
39248	CP 7
39250	JR NZ,39257
39252	LD A,255
39254	LD (39762),A
39257	LD A,(IX+0)
39260	LD HL,39160
39263	ADD A,A
39264	CALL PrintLine_9
39267	LD A,(IX+2)
39270	AND 7
39272	JR Z,39275
39274	INC HL
39275	LD A,(23768)
39278	ADD A,(HL)
39279	LD (23768),A
39282	CALL 30567
39285	LD HL,39128
39288	LD A,(IX+4)
39291	CP 192
39293	RET NC
39294	ADD A,(IX+9)
39297	CP 32
39299	LD (38876),SP
39303	BIT 7,(IX+21)
39307	LD A,0
39309	JR NZ,39314
39311	LD A,(IX+2)
39314	AND 7
39316	LD C,A
39317	LD A,(DE)
39318	LD B,A
39319	JR Z,39324
39321	ADD A,8
39323	INC B
39324	ADD A,A
39325	CALL PrintLine_9
39328	LD A,(HL)
39329	INC HL
39330	LD H,(HL)
39331	LD L,A
39332	LD (39456),HL
39335	LD (39604),HL
39338	LD (39609),HL
39341	LD (39395),HL
39344	INC DE
39345	LD A,33
39347	SUB B
39348	LD (39600),A
39351	LD (39451),A
39354	LD H,(IX+10)
39357	LD L,(IX+11)
39360	EX DE,HL
39361	LD A,(HL)
39362	LD B,A
39363	EX AF,AF'
39364	INC HL
39365	LD SP,HL
39366	LD A,(IX+4)
39369	ADD A,B
39370	CP 193
39372	JR C,39381
39374	LD A,192
39376	SUB (IX+4)
39379	LD B,A
39380	EX AF,AF'
39381	LD A,C
39382	AND A
39383	JR Z,39397
39385	ADD A,A
39386	ADD A,240
39388	LD H,A
39389	LD (39618),DE
39393	LD A,(DE)
39394	JP 39394
39397	EX DE,HL
39398	LD (39464),HL
39401	JR 39394
39403	POP DE
39404	LD A,E
39405	OR (HL)
39406	XOR D
39407	LD (HL),A
39408	INC L
39409	POP DE
39410	LD A,E
39411	OR (HL)
39412	XOR D
39413	LD (HL),A
39414	INC L
39415	POP DE
39416	LD A,E
39417	OR (HL)
39418	XOR D
39419	LD (HL),A
39420	INC L
39421	POP DE
39422	LD A,E
39423	OR (HL)
39424	XOR D
39425	LD (HL),A
39426	INC L
39427	POP DE
39428	LD A,E
39429	OR (HL)
39430	XOR D
39431	LD (HL),A
39432	INC L
39433	POP DE
39434	LD A,E
39435	OR (HL)
39436	XOR D
39437	LD (HL),A
39438	INC L
39439	POP DE
39440	LD A,E
39441	OR (HL)
39442	XOR D
39443	LD (HL),A
39444	INC L
39445	POP DE
39446	LD A,E
39447	OR (HL)
39448	XOR D
39449	LD (HL),A
39450	LD DE,0
39453	ADD HL,DE
39454	DEC B
39455	JP NZ,39455
39458	LD SP,(38876)
39462	RET
39463	LD HL,0
39466	LD DE,32
39469	ADD HL,DE
39470	LD (39464),HL
39473	DEC B
39474	JP NZ,39608
39477	JP 39458
39480	POP BC
39481	LD L,C
39482	OR (HL)
39483	LD L,B
39484	XOR (HL)
39485	LD (DE),A
39486	INC E
39487	INC H
39488	LD L,C
39489	LD A,(DE)
39490	OR (HL)
39491	LD L,B
39492	XOR (HL)
39493	DEC H
39494	POP BC
39495	LD L,C
39496	OR (HL)
39497	LD L,B
39498	XOR (HL)
39499	LD (DE),A
39500	INC E
39501	INC H
39502	LD L,C
39503	LD A,(DE)
39504	OR (HL)
39505	LD L,B
39506	XOR (HL)
39507	DEC H
39508	POP BC
39509	LD L,C
39510	OR (HL)
39511	LD L,B
39512	XOR (HL)
39513	LD (DE),A
39514	INC E
39515	INC H
39516	LD L,C
39517	LD A,(DE)
39518	OR (HL)
39519	LD L,B
39520	XOR (HL)
39521	DEC H
39522	POP BC
39523	LD L,C
39524	OR (HL)
39525	LD L,B
39526	XOR (HL)
39527	LD (DE),A
39528	INC E
39529	INC H
39530	LD L,C
39531	LD A,(DE)
39532	OR (HL)
39533	LD L,B
39534	XOR (HL)
39535	DEC H
39536	POP BC
39537	LD L,C
39538	OR (HL)
39539	LD L,B
39540	XOR (HL)
39541	LD (DE),A
39542	INC E
39543	INC H
39544	LD L,C
39545	LD A,(DE)
39546	OR (HL)
39547	LD L,B
39548	XOR (HL)
39549	DEC H
39550	POP BC
39551	LD L,C
39552	OR (HL)
39553	LD L,B
39554	XOR (HL)
39555	LD (DE),A
39556	INC E
39557	INC H
39558	LD L,C
39559	LD A,(DE)
39560	OR (HL)
39561	LD L,B
39562	XOR (HL)
39563	DEC H
39564	POP BC
39565	LD L,C
39566	OR (HL)
39567	LD L,B
39568	XOR (HL)
39569	LD (DE),A
39570	INC E
39571	INC H
39572	LD L,C
39573	LD A,(DE)
39574	OR (HL)
39575	LD L,B
39576	XOR (HL)
39577	DEC H
39578	POP BC
39579	LD L,C
39580	OR (HL)
39581	LD L,B
39582	XOR (HL)
39583	LD (DE),A
39584	INC E
39585	INC H
39586	LD L,C
39587	LD A,(DE)
39588	OR (HL)
39589	LD L,B
39590	XOR (HL)
39591	DEC H
39592	LD (DE),A
39593	EX AF,AF'
39594	DEC A
39595	JR Z,39611
39597	EX AF,AF'
39598	LD A,E
39599	ADD A,0
39601	LD E,A
39602	LD A,(DE)
39603	JP NC,39603
39606	INC D
39607	LD A,(DE)
39608	JP 39608
39611	LD SP,(38876)
39615	RET
39616	LD A,H
39617	LD HL,0
39620	LD DE,32
39623	ADD HL,DE
39624	LD (39618),HL
39627	EX DE,HL
39628	LD H,A
39629	JP 39607
39632	LD (BC),A
39633	NOP
39634	ADD A,H
39635	NOP
39636	AND B
39637	NOP
39638	JR C,39642
39640	LD (BC),A
39641	INC C
39642	NOP
39643	NOP
39644	EX AF,AF'
39645	RLCA
39646	NOP
39647	NOP
39648	NOP
39649	NOP
39650	NOP
39651	NOP
39652	NOP
39653	ADD A,B
39654	NOP
39655	NOP
39656	ADD A,H
39657	NOP
39658	AND B
39659	NOP
39660	JR C,39664
39662	LD (BC),A
39663	INC C
39664	NOP
39665	NOP
39666	EX AF,AF'
39667	RLCA
39668	NOP
39669	NOP
39670	NOP
39671	NOP
39672	NOP
39673	NOP
39674	NOP
39675	ADD A,B
39676	NOP
39677	NOP
39678	ADD A,H
39679	NOP
39680	AND B
39681	NOP
39682	JR C,39686
39684	LD (BC),A
39685	INC C
39686	NOP
39687	NOP
39688	EX AF,AF'
39689	RLCA
39690	NOP
39691	NOP
39692	NOP
39693	NOP
39694	NOP
39695	NOP
39696	NOP
39697	ADD A,B
39698	NOP
39699	NOP
39700	ADD A,H
39701	NOP
39702	AND B
39703	NOP
39704	JR NC,39707
39706	LD BC,8
39709	NOP
39710	INC B
39711	EX AF,AF'
39712	NOP
39713	NOP
39714	NOP
39715	NOP
39716	NOP
39717	NOP
39718	NOP
39719	ADD A,B
39720	NOP
39721	NOP
39722	ADD A,H
39723	NOP
39724	AND B
39725	NOP
39726	JR NC,39729
39728	LD BC,8
39731	NOP
39732	INC B
39733	EX AF,AF'
39734	NOP
39735	NOP
39736	NOP
39737	NOP
39738	NOP
39739	NOP
39740	NOP
39741	ADD A,B
39742	NOP
39743	NOP
39744	LD (HL),H
39745	NOP
39746	XOR L
39747	NOP
39748	NOP
39749	NOP
39750	INC B
39751	DEC C
39752	NOP
39753	NOP
39754	INC E
39755	LD A,(BC)
39756	NOP
39757	NOP
39758	NOP
39759	NOP
39760	RET P
39761	NOP
39762	RST 56
39763	ADD A,B
39764	LD BC,29696
39767	NOP
39768	XOR L
39769	NOP
39770	NOP
39771	NOP
39772	INC B
39773	DEC C
39774	NOP
39775	NOP
39776	INC E
39777	LD A,(BC)
39778	NOP
39779	NOP
39780	NOP
39781	NOP
39782	RET P
39783	NOP
39784	NOP
39785	ADD A,B
39786	NOP
39787	INC BC
39788	ADD A,H
39789	NOP
39790	XOR L
39791	NOP
39792	NOP
39793	NOP
39794	INC BC
39795	DEC C
39796	NOP
39797	NOP
39798	DEC DE
39799	LD A,(BC)
39800	NOP
39801	NOP
39802	NOP
39803	NOP
39804	NOP
39805	NOP
39806	NOP
39807	NOP
39808	NOP
39809	NOP
39810	JR Z,39812
39812	SBC A,A
39813	NOP
39814	NOP
39815	NOP
39816	NOP
39817	NOP
39818	NOP
39819	NOP
39820	NOP
39821	NOP
39822	NOP
39823	NOP
39824	NOP
39825	NOP
39826	RET P
39827	LD H,B
39828	NOP
39829	NOP
39830	NOP
39831	LD BC,120
39834	ADC A,B
39835	NOP
39836	NOP
39837	NOP
39838	INC BC
39839	JR 39841
39841	NOP
39842	JR 39868
39844	NOP
39845	NOP
39846	NOP
39847	NOP
39848	LD D,B
39849	LD B,H
39850	NOP
39851	NOP
39852	NOP
39853	NOP
39854	RET M
39855	NOP
39856	XOR B
39857	NOP
39858	NOP
39859	NOP
39860	INC BC
39861	INC E
39862	NOP
39863	NOP
39864	NOP
39865	NOP
39866	NOP
39867	NOP
39868	NOP
39869	NOP
39870	NOP
39871	NOP
39872	NOP
39873	NOP
39874	INC BC
39875	NOP
39876	DJNZ 39878
39878	CP C
39879	NOP
39880	NOP
39881	NOP
39882	LD (BC),A
39883	LD B,0
39885	NOP
39886	NOP
39887	NOP
39888	NOP
39889	NOP
39890	NOP
39891	NOP
39892	INC BC
39893	NOP
39894	NOP
39895	NOP
39896	INC C
39897	NOP
39898	NOP
39899	NOP
39900	NOP
39901	NOP
39902	NOP
39903	NOP
39904	NOP
39905	NOP
39906	NOP
39907	NOP
39908	NOP
39909	NOP
39910	NOP
39911	NOP
39912	NOP
39913	NOP
39914	NOP
39915	NOP
39916	NOP
39917	NOP
39918	INC BC
39919	DEC B
39920	LD A,L
39921	NOP
39922	XOR C
39923	NOP
39924	NOP
39925	NOP
39926	NOP
39927	NOP
39928	NOP
39929	NOP
39930	NOP
39931	NOP
39932	NOP
39933	NOP
39934	NOP
39935	NOP
39936	NOP
39937	NOP
39938	NOP
39939	NOP
39940	NOP
39941	NOP
39942	NOP
39943	NOP
39944	NOP
39945	NOP
39946	NOP
39947	NOP
39948	NOP
39949	NOP
39950	NOP
39951	NOP
39952	NOP
39953	NOP
39954	NOP
39955	NOP
39956	NOP
39957	NOP
39958	NOP
39959	NOP
39960	NOP
39961	NOP
39962	NOP
39963	NOP
39964	NOP
39965	NOP
39966	NOP
39967	NOP
39968	NOP
39969	NOP
39970	NOP
39971	NOP
39972	NOP
This entry point is used by the routines at 38493 and 40618.
39973	LD A,(IX+0)
39976	RLA
39977	JR NC,39983
39979	LD (IX+0),0
39983	LD L,(IX+2)
39986	LD A,(IX+17)
39989	AND A
39990	JR NZ,40009
39992	LD H,(IX+4)
39995	LD A,(IX+8)
39998	ADD A,A
39999	ADD A,A
40000	ADD A,A
40001	ADD A,L
40002	LD B,A
40003	LD C,(IX+9)
40006	JP 40072
40009	LD E,L
40010	LD A,(IX+14)
40013	LD D,A
40014	CP L
40015	JR NC,40018
40017	LD L,A
40018	LD B,(IX+8)
40021	SLA B
40023	SLA B
40025	SLA B
40027	LD C,(IX+16)
40030	SLA C
40032	SLA C
40034	SLA C
40036	LD A,E
40037	ADD A,B
40038	LD B,A
40039	LD A,D
40040	ADD A,C
40041	CP B
40042	JR C,40045
40044	LD B,A
40045	LD H,(IX+4)
40048	LD D,H
40049	LD A,(IX+15)
40052	LD E,A
40053	CP H
40054	JR NC,40057
40056	LD H,A
40057	LD A,D
40058	ADD A,(IX+9)
40061	LD D,A
40062	LD A,E
40063	ADD A,(IX+17)
40066	CP D
40067	JR NC,40070
40069	LD A,D
40070	SUB H
40071	LD C,A
40072	LD A,L
40073	AND 248
40075	LD L,A
40076	CP 248
40078	RET NC
40079	CP B
40080	JR C,40084
40082	LD B,255
40084	LD E,L
40085	BIT 7,A
40087	JR Z,40093
40089	RES 7,L
40091	RES 7,B
40093	LD A,B
40094	ADD A,7
40096	AND 248
40098	SUB L
40099	SRL A
40101	SRL A
40103	SRL A
40105	LD B,A
40106	LD L,E
40107	LD A,(IX+2)
40110	LD (IX+14),A
40113	LD A,(IX+4)
40116	LD (IX+15),A
40119	LD A,(IX+8)
40122	LD (IX+16),A
40125	LD A,(IX+9)
40128	LD (IX+17),A
40131	LD A,H
40132	ADD A,C
40133	CP 192
40135	JR C,40141
40137	LD A,192
40139	SUB H
40140	LD C,A
40141	BIT 7,L
40143	JR Z,40168
40145	RES 7,L
40147	LD A,B
40148	ADD A,A
40149	ADD A,A
40150	ADD A,A
40151	ADD A,L
40152	SUB 120
40154	JR C,40166
40156	SRL A
40158	SRL A
40160	SRL A
40162	NEG
40164	ADD A,B
40165	LD B,A
40166	SET 7,L
40168	LD A,H
40169	SUB 8
40171	JR NC,40180
40173	ADD A,C
40174	LD C,A
40175	DEC A
40176	RLA
40177	RET C
40178	LD H,8
This entry point is used by the routines at 46871 and StartGame.
40180	PUSH BC
40181	PUSH HL
40182	CALL ScreenAddress
40185	EX DE,HL
40186	POP HL
40187	CALL PrintLine_7
40190	EX DE,HL
40191	POP BC
40192	LD A,B
40193	EXX
40194	LD C,A
40195	LD A,32
40197	SUB C
40198	LD (40251),A
40201	SLA C
40203	LD B,0
40205	LD HL,40250
40208	SBC HL,BC
40210	LD (40277),HL
40213	EXX
40214	LD B,C
40215	PUSH DE
40216	LD C,254
40218	INC C
40219	JP 40276
40222	LDI
40224	LDI
40226	LDI
40228	LDI
40230	LDI
40232	LDI
40234	LDI
40236	LDI
40238	LDI
40240	LDI
40242	LDI
40244	LDI
40246	LDI
40248	LDI
40250	LD DE,0
40253	ADD HL,DE
40254	POP DE
40255	LD A,D
40256	INC D
40257	CPL
40258	AND 7
40260	JP NZ,40274
40263	LD A,E
40264	ADD A,32
40266	LD E,A
40267	JP C,40274
40270	LD A,D
40271	SUB 8
40273	LD D,A
40274	PUSH DE
40275	DEC B
40276	JP NZ,40276
40279	POP DE
40280	RET
40281	NOP
40282	LD A,(39808)
40285	AND A
40286	RET NZ
40287	LD A,(47077)
40290	CP 2
40292	JR NZ,40300
40294	LD A,(45712)
40297	CP 120
40299	RET Z
40300	PUSH IY
40302	EXX
40303	LD IX,39808
40307	LD (IX+0),4
40311	LD HL,0
40314	LD (42327),HL
40317	LD HL,(45712)
40320	LD (IX+2),L
40323	LD (IX+4),H
40326	LD A,(39784)
40329	LD (40281),A
40332	LD A,(47077)
40335	CP 2
40337	JR NZ,40350
40339	LD A,L
40340	CP 128
40342	JR C,40350
40344	LD A,(39762)
40347	LD (40281),A
40350	LD (IX+18),240
40354	LD (IX+19),96
40358	LD (IX+17),0
40362	LD (IX+12),16
40366	LD (IX+13),8
40370	CALL 36532
40373	LD A,(36169)
40376	AND 15
40378	LD HL,40522
40381	CALL PrintLine_9
40384	LD A,(40281)
40387	CP (HL)
40388	JR Z,40370
40390	LD A,(HL)
40391	CP 4
40393	JR NZ,40436
40395	LD A,(39632)
40398	AND A
40399	JR Z,40408
40401	LD A,(39639)
40404	CP 2
40406	JR Z,40370
40408	LD A,(39654)
40411	AND A
40412	JR Z,40421
40414	LD A,(39661)
40417	CP 2
40419	JR Z,40370
40421	LD A,(39676)
40424	AND A
40425	JR Z,40434
40427	LD A,(39683)
40430	CP 2
40432	JR Z,40370
40434	JR 40458
40436	CP 2
40438	JR NZ,40448
40440	LD A,(23769)
40443	DEC A
40444	JR NZ,40370
40446	JR 40458
40448	CP 5
40450	JR NZ,40458
40452	LD A,(43161)
40455	AND A
40456	JR NZ,40370
40458	LD A,(HL)
40459	CP 6
40461	JR NZ,40483
40463	LD A,(39852)
40466	AND A
40467	JR NZ,40370
40469	LD A,(47083)
40472	CP 6
40474	JR C,40483
40476	LD A,(36168)
40479	AND 192
40481	JR NZ,40370
40483	LD A,(HL)
40484	DEC A
40485	JR NZ,40508
40487	LD A,(47077)
40490	CP 2
40492	JR NZ,40508
40494	LD A,(39784)
40497	DEC A
40498	JP Z,40370
40501	LD A,(39762)
40504	DEC A
40505	JP Z,40370
40508	LD A,(HL)
40509	LD (IX+20),A
40512	LD (IX+1),A
40515	CALL 43782
40518	EXX
40519	POP IY
40521	RET
40522	NOP
40523	LD BC,770
40526	INC B
40527	DEC B
40528	LD B,7
40530	EX AF,AF'
40531	ADD HL,BC
40532	NOP
40533	INC B
40534	NOP
40535	INC BC
40536	LD BC,2
40539	LD BC,770
40542	INC B
40543	DEC B
40544	LD B,2
40546	LD BC,3
40549	INC B
40550	NOP
40551	INC BC
40552	LD BC,2
40555	LD BC,770
40558	INC B
40559	DEC B
40560	LD B,7
40562	EX AF,AF'
40563	ADD HL,BC
40564	NOP
40565	INC B
40566	NOP
40567	INC BC
40568	LD BC,2
40571	LD BC,770
40574	INC B
40575	DEC B
40576	LD B,2
40578	LD BC,3
40581	INC B
40582	NOP
40583	INC BC
40584	LD BC,2
40587	LD BC,770
40590	LD (BC),A
40591	NOP
40592	LD B,7
40594	EX AF,AF'
40595	ADD HL,BC
40596	NOP
40597	INC BC
40598	NOP
40599	LD (BC),A
40600	LD BC,3
40603	LD BC,770
40606	LD (BC),A
40607	NOP
40608	LD B,2
40610	LD BC,3
40613	INC BC
40614	NOP
40615	LD (BC),A
40616	LD BC,14851