Robotron: 2084: Routine at 51279

51279: Routine at C84F

Used by the routines at 54705 and 54832.
51279	EXX
51280	LD D,0
51282	EXX
51283	JP 51290
This entry point is used by the routines at 54705 and 54832.
51286	EXX
51287	LD D,1
51289	EXX
51290	LD B,H
51291	LD C,L
51292	LD E,(HL)
51293	SLA E
51295	LD D,0
51297	LD HL,50700
51300	ADD HL,DE
51301	LD E,(HL)
51302	INC HL
51303	LD D,(HL)
51304	LD H,B
51305	LD L,C
51306	INC HL
51307	LD B,70
51309	LD C,(HL)
51310	INC HL
51311	SLA C
51313	RL B
51315	PUSH BC
51316	LD A,(HL)
51317	AND A
51318	LD HL,0
51321	RRA
51322	RR L
51324	RRA
51325	RR L
51327	RRA
51328	RR L
51330	RRC L
51332	ADD HL,DE
51333	LD B,H
51334	LD C,L
51335	POP HL
51336	EXX
51337	LD C,A
51338	EXX
51339	ADD A,(HL)
51340	LD E,A
51341	INC HL
51342	LD D,(HL)
51343	INC HL
51344	LD A,(BC)
51345	EX DE,HL
51346	XOR (HL)
51347	LD (HL),A
51348	INC BC
51349	INC HL
51350	LD A,(BC)
51351	INC BC
51352	XOR (HL)
51353	LD (HL),A
51354	EXX
51355	LD A,D
51356	AND A
51357	EXX
51358	JR Z,51375
51360	LD A,H
51361	RRCA
51362	RRCA
51363	RRCA
51364	AND 3
51366	OR 88
51368	LD H,A
51369	EXX
51370	LD A,B
51371	EXX
51372	LD (HL),A
51373	DEC HL
51374	LD (HL),A
51375	EX DE,HL
51376	EXX
51377	LD A,C
51378	EXX
51379	ADD A,(HL)
51380	LD E,A
51381	INC HL
51382	LD D,(HL)
51383	INC HL
51384	LD A,(BC)
51385	EX DE,HL
51386	XOR (HL)
51387	LD (HL),A
51388	INC BC
51389	INC HL
51390	LD A,(BC)
51391	INC BC
51392	XOR (HL)
51393	LD (HL),A
51394	EX DE,HL
51395	EXX
51396	LD A,C
51397	EXX
51398	ADD A,(HL)
51399	LD E,A
51400	INC HL
51401	LD D,(HL)
51402	INC HL
51403	LD A,(BC)
51404	EX DE,HL
51405	XOR (HL)
51406	LD (HL),A
51407	INC BC
51408	INC HL
51409	LD A,(BC)
51410	INC BC
51411	XOR (HL)
51412	LD (HL),A
51413	EX DE,HL
51414	EXX
51415	LD A,C
51416	EXX
51417	ADD A,(HL)
51418	LD E,A
51419	INC HL
51420	LD D,(HL)
51421	INC HL
51422	LD A,(BC)
51423	EX DE,HL
51424	XOR (HL)
51425	LD (HL),A
51426	INC BC
51427	INC HL
51428	LD A,(BC)
51429	INC BC
51430	XOR (HL)
51431	LD (HL),A
51432	EX DE,HL
51433	EXX
51434	LD A,C
51435	EXX
51436	ADD A,(HL)
51437	LD E,A
51438	INC HL
51439	LD D,(HL)
51440	INC HL
51441	LD A,(BC)
51442	EX DE,HL
51443	XOR (HL)
51444	LD (HL),A
51445	INC BC
51446	INC HL
51447	LD A,(BC)
51448	INC BC
51449	XOR (HL)
51450	LD (HL),A
51451	EX DE,HL
51452	EXX
51453	LD A,C
51454	EXX
51455	ADD A,(HL)
51456	LD E,A
51457	INC HL
51458	LD D,(HL)
51459	INC HL
51460	LD A,(BC)
51461	EX DE,HL
51462	XOR (HL)
51463	LD (HL),A
51464	INC BC
51465	INC HL
51466	LD A,(BC)
51467	INC BC
51468	XOR (HL)
51469	LD (HL),A
51470	EX DE,HL
51471	EXX
51472	LD A,C
51473	EXX
51474	ADD A,(HL)
51475	LD E,A
51476	INC HL
51477	LD D,(HL)
51478	INC HL
51479	LD A,(BC)
51480	EX DE,HL
51481	XOR (HL)
51482	LD (HL),A
51483	INC BC
51484	INC HL
51485	LD A,(BC)
51486	INC BC
51487	XOR (HL)
51488	LD (HL),A
51489	EX DE,HL
51490	EXX
51491	LD A,C
51492	EXX
51493	ADD A,(HL)
51494	LD E,A
51495	INC HL
51496	LD D,(HL)
51497	INC HL
51498	LD A,(BC)
51499	EX DE,HL
51500	XOR (HL)
51501	LD (HL),A
51502	INC BC
51503	INC HL
51504	LD A,(BC)
51505	INC BC
51506	XOR (HL)
51507	LD (HL),A
51508	EXX
51509	LD A,D
51510	AND A
51511	EXX
51512	RET Z
51513	LD A,H
51514	RRCA
51515	RRCA
51516	RRCA
51517	AND 3
51519	OR 88
51521	LD H,A
51522	EXX
51523	LD A,B
51524	EXX
51525	LD (HL),A
51526	DEC HL
51527	LD (HL),A
51528	RET
This entry point is used by the routine at 54832.
51529	EXX
51530	LD D,0
51532	EXX
51533	JP 51540
This entry point is used by the routine at 54832.
51536	EXX
51537	LD D,1
51539	EXX
51540	LD B,H
51541	LD C,L
51542	LD E,(HL)
51543	SLA E
51545	LD D,0
51547	LD HL,50700
51550	ADD HL,DE
51551	LD E,(HL)
51552	INC HL
51553	LD D,(HL)
51554	LD H,B
51555	LD L,C
51556	INC HL
51557	LD B,70
51559	LD C,(HL)
51560	SLA C
51562	RL B
51564	PUSH BC
51565	INC HL
51566	LD A,(HL)
51567	AND A
51568	LD HL,0
51571	RRA
51572	RR L
51574	RRA
51575	RR L
51577	RRA
51578	RR L
51580	EXX
51581	LD C,A
51582	EXX
51583	LD A,L
51584	RRCA
51585	ADD A,L
51586	LD L,A
51587	LD A,H
51588	ADC A,0
51590	LD H,A
51591	ADD HL,DE
51592	LD B,H
51593	LD C,L
51594	POP HL
51595	EXX
51596	LD A,C
51597	EXX
51598	ADD A,(HL)
51599	LD E,A
51600	INC HL
51601	LD D,(HL)
51602	INC HL
51603	EX DE,HL
51604	LD A,(BC)
51605	XOR (HL)
51606	LD (HL),A
51607	INC BC
51608	INC HL
51609	LD A,(BC)
51610	XOR (HL)
51611	LD (HL),A
51612	INC BC
51613	INC HL
51614	LD A,(BC)
51615	XOR (HL)
51616	LD (HL),A
51617	INC BC
51618	EXX
51619	LD A,D
51620	AND A
51621	EXX
51622	JR Z,51641
51624	LD A,H
51625	RRCA
51626	RRCA
51627	RRCA
51628	AND 3
51630	OR 88
51632	LD H,A
51633	EXX
51634	LD A,B
51635	EXX
51636	LD (HL),A
51637	DEC HL
51638	LD (HL),A
51639	DEC HL
51640	LD (HL),A
51641	EX DE,HL
51642	EXX
51643	LD A,C
51644	EXX
51645	ADD A,(HL)
51646	LD E,A
51647	INC HL
51648	LD D,(HL)
51649	INC HL
51650	EX DE,HL
51651	LD A,(BC)
51652	XOR (HL)
51653	LD (HL),A
51654	INC BC
51655	INC HL
51656	LD A,(BC)
51657	XOR (HL)
51658	LD (HL),A
51659	INC BC
51660	INC HL
51661	LD A,(BC)
51662	XOR (HL)
51663	LD (HL),A
51664	INC BC
51665	EX DE,HL
51666	EXX
51667	LD A,C
51668	EXX
51669	ADD A,(HL)
51670	LD E,A
51671	INC HL
51672	LD D,(HL)
51673	INC HL
51674	EX DE,HL
51675	LD A,(BC)
51676	XOR (HL)
51677	LD (HL),A
51678	INC BC
51679	INC HL
51680	LD A,(BC)
51681	XOR (HL)
51682	LD (HL),A
51683	INC BC
51684	INC HL
51685	LD A,(BC)
51686	XOR (HL)
51687	LD (HL),A
51688	INC BC
51689	EX DE,HL
51690	EXX
51691	LD A,C
51692	EXX
51693	ADD A,(HL)
51694	LD E,A
51695	INC HL
51696	LD D,(HL)
51697	INC HL
51698	EX DE,HL
51699	LD A,(BC)
51700	XOR (HL)
51701	LD (HL),A
51702	INC BC
51703	INC HL
51704	LD A,(BC)
51705	XOR (HL)
51706	LD (HL),A
51707	INC BC
51708	INC HL
51709	LD A,(BC)
51710	XOR (HL)
51711	LD (HL),A
51712	INC BC
51713	EX DE,HL
51714	EXX
51715	LD A,C
51716	EXX
51717	ADD A,(HL)
51718	LD E,A
51719	INC HL
51720	LD D,(HL)
51721	INC HL
51722	EX DE,HL
51723	LD A,(BC)
51724	XOR (HL)
51725	LD (HL),A
51726	INC BC
51727	INC HL
51728	LD A,(BC)
51729	XOR (HL)
51730	LD (HL),A
51731	INC BC
51732	INC HL
51733	LD A,(BC)
51734	XOR (HL)
51735	LD (HL),A
51736	INC BC
51737	EX DE,HL
51738	EXX
51739	LD A,C
51740	EXX
51741	ADD A,(HL)
51742	LD E,A
51743	INC HL
51744	LD D,(HL)
51745	INC HL
51746	EX DE,HL
51747	LD A,(BC)
51748	XOR (HL)
51749	LD (HL),A
51750	INC BC
51751	INC HL
51752	LD A,(BC)
51753	XOR (HL)
51754	LD (HL),A
51755	INC BC
51756	INC HL
51757	LD A,(BC)
51758	XOR (HL)
51759	LD (HL),A
51760	INC BC
51761	EX DE,HL
51762	EXX
51763	LD A,C
51764	EXX
51765	ADD A,(HL)
51766	LD E,A
51767	INC HL
51768	LD D,(HL)
51769	INC HL
51770	EX DE,HL
51771	LD A,(BC)
51772	XOR (HL)
51773	LD (HL),A
51774	INC BC
51775	INC HL
51776	LD A,(BC)
51777	XOR (HL)
51778	LD (HL),A
51779	INC BC
51780	INC HL
51781	LD A,(BC)
51782	XOR (HL)
51783	LD (HL),A
51784	INC BC
51785	EX DE,HL
51786	EXX
51787	LD A,C
51788	EXX
51789	ADD A,(HL)
51790	LD E,A
51791	INC HL
51792	LD D,(HL)
51793	INC HL
51794	EX DE,HL
51795	LD A,(BC)
51796	XOR (HL)
51797	LD (HL),A
51798	INC BC
51799	INC HL
51800	LD A,(BC)
51801	XOR (HL)
51802	LD (HL),A
51803	INC BC
51804	INC HL
51805	LD A,(BC)
51806	XOR (HL)
51807	LD (HL),A
51808	INC BC
51809	EX DE,HL
51810	EXX
51811	LD A,C
51812	EXX
51813	ADD A,(HL)
51814	LD E,A
51815	INC HL
51816	LD D,(HL)
51817	INC HL
51818	EX DE,HL
51819	LD A,(BC)
51820	XOR (HL)
51821	LD (HL),A
51822	INC BC
51823	INC HL
51824	LD A,(BC)
51825	XOR (HL)
51826	LD (HL),A
51827	INC BC
51828	INC HL
51829	LD A,(BC)
51830	XOR (HL)
51831	LD (HL),A
51832	INC BC
51833	EXX
51834	LD A,D
51835	AND A
51836	EXX
51837	JR Z,51856
51839	LD A,H
51840	RRCA
51841	RRCA
51842	RRCA
51843	AND 3
51845	OR 88
51847	LD H,A
51848	EXX
51849	LD A,B
51850	EXX
51851	LD (HL),A
51852	DEC HL
51853	LD (HL),A
51854	DEC HL
51855	LD (HL),A
51856	EX DE,HL
51857	EXX
51858	LD A,C
51859	EXX
51860	ADD A,(HL)
51861	LD E,A
51862	INC HL
51863	LD D,(HL)
51864	INC HL
51865	EX DE,HL
51866	LD A,(BC)
51867	XOR (HL)
51868	LD (HL),A
51869	INC BC
51870	INC HL
51871	LD A,(BC)
51872	XOR (HL)
51873	LD (HL),A
51874	INC BC
51875	INC HL
51876	LD A,(BC)
51877	XOR (HL)
51878	LD (HL),A
51879	INC BC
51880	EX DE,HL
51881	EXX
51882	LD A,C
51883	EXX
51884	ADD A,(HL)
51885	LD E,A
51886	INC HL
51887	LD D,(HL)
51888	INC HL
51889	EX DE,HL
51890	LD A,(BC)
51891	XOR (HL)
51892	LD (HL),A
51893	INC BC
51894	INC HL
51895	LD A,(BC)
51896	XOR (HL)
51897	LD (HL),A
51898	INC BC
51899	INC HL
51900	LD A,(BC)
51901	XOR (HL)
51902	LD (HL),A
51903	INC BC
51904	EX DE,HL
51905	EXX
51906	LD A,C
51907	EXX
51908	ADD A,(HL)
51909	LD E,A
51910	INC HL
51911	LD D,(HL)
51912	INC HL
51913	EX DE,HL
51914	LD A,(BC)
51915	XOR (HL)
51916	LD (HL),A
51917	INC BC
51918	INC HL
51919	LD A,(BC)
51920	XOR (HL)
51921	LD (HL),A
51922	INC BC
51923	INC HL
51924	LD A,(BC)
51925	XOR (HL)
51926	LD (HL),A
51927	INC BC
51928	EX DE,HL
51929	EXX
51930	LD A,C
51931	EXX
51932	ADD A,(HL)
51933	LD E,A
51934	INC HL
51935	LD D,(HL)
51936	INC HL
51937	EX DE,HL
51938	LD A,(BC)
51939	XOR (HL)
51940	LD (HL),A
51941	INC BC
51942	INC HL
51943	LD A,(BC)
51944	XOR (HL)
51945	LD (HL),A
51946	INC BC
51947	INC HL
51948	LD A,(BC)
51949	XOR (HL)
51950	LD (HL),A
51951	INC BC
51952	EX DE,HL
51953	EXX
51954	LD A,C
51955	EXX
51956	ADD A,(HL)
51957	LD E,A
51958	INC HL
51959	LD D,(HL)
51960	INC HL
51961	EX DE,HL
51962	LD A,(BC)
51963	XOR (HL)
51964	LD (HL),A
51965	INC BC
51966	INC HL
51967	LD A,(BC)
51968	XOR (HL)
51969	LD (HL),A
51970	INC BC
51971	INC HL
51972	LD A,(BC)
51973	XOR (HL)
51974	LD (HL),A
51975	INC BC
51976	EX DE,HL
51977	EXX
51978	LD A,C
51979	EXX
51980	ADD A,(HL)
51981	LD E,A
51982	INC HL
51983	LD D,(HL)
51984	INC HL
51985	EX DE,HL
51986	LD A,(BC)
51987	XOR (HL)
51988	LD (HL),A
51989	INC BC
51990	INC HL
51991	LD A,(BC)
51992	XOR (HL)
51993	LD (HL),A
51994	INC BC
51995	INC HL
51996	LD A,(BC)
51997	XOR (HL)
51998	LD (HL),A
51999	INC BC
52000	EX DE,HL
52001	EXX
52002	LD A,C
52003	EXX
52004	ADD A,(HL)
52005	LD E,A
52006	INC HL
52007	LD D,(HL)
52008	INC HL
52009	EX DE,HL
52010	LD A,(BC)
52011	XOR (HL)
52012	LD (HL),A
52013	INC BC
52014	INC HL
52015	LD A,(BC)
52016	XOR (HL)
52017	LD (HL),A
52018	INC BC
52019	INC HL
52020	LD A,(BC)
52021	XOR (HL)
52022	LD (HL),A
52023	INC BC
52024	EXX
52025	LD A,D
52026	AND A
52027	EXX
52028	RET Z
52029	LD A,H
52030	RRCA
52031	RRCA
52032	RRCA
52033	AND 3
52035	OR 88
52037	LD H,A
52038	EXX
52039	LD A,B
52040	EXX
52041	LD (HL),A
52042	DEC HL
52043	LD (HL),A
52044	DEC HL
52045	LD (HL),A
52046	RET
This entry point is used by the routine at 53488.
52047	LD HL,50388
52050	LD (HL),92
52052	INC HL
52053	LD (HL),125
52055	LD A,26
52057	LD (50483),A
52060	LD A,15
52062	LD (50484),A
52065	LD (50486),A
52068	CALL 54553
52071	LD A,(50483)
52074	AND A
52075	JP NZ,53043
52078	CALL 63171
52081	LD A,C
52082	CALL 52893
52085	LD C,A
52086	LD A,B
52087	CALL 52850
52090	LD B,A
52091	CP 15
52093	JR Z,52098
52095	LD (50456),A
52098	LD A,C
52099	CP 15
52101	JR Z,52106
52103	LD (50455),A
52106	LD A,B
52107	CP 15
52109	JR Z,52179
52111	LD E,A
52112	SLA E
52114	LD D,0
52116	PUSH DE
52117	LD HL,50387
52120	CALL 54832
52123	POP DE
52124	LD HL,50862
52127	ADD HL,DE
52128	EX DE,HL
52129	LD HL,50388
52132	LD A,(DE)
52133	ADD A,(HL)
52134	CP 16
52136	JR C,52143
52138	CP 173
52140	JR NC,52143
52142	LD (HL),A
52143	INC HL
52144	INC DE
52145	LD A,(DE)
52146	ADD A,(HL)
52147	CP 8
52149	JR C,52156
52151	CP 242
52153	JR NC,52156
52155	LD (HL),A
52156	LD A,(50456)
52159	LD E,A
52160	LD D,0
52162	LD HL,54816
52165	ADD HL,DE
52166	EX DE,HL
52167	LD A,(DE)
52168	LD HL,50387
52171	LD (HL),A
52172	EXX
52173	LD B,71
52175	EXX
52176	CALL 54839
52179	LD HL,50383
52182	DEC (HL)
52183	JP NZ,52316
52186	LD (HL),3
52188	LD HL,(50385)
52191	LD DE,54749
52194	LD (HL),E
52195	INC HL
52196	LD (HL),D
52197	INC HL
52198	LD (50394),HL
52201	LD A,(50455)
52204	EX DE,HL
52205	LD C,A
52206	LD B,0
52208	LD HL,54513
52211	ADD HL,BC
52212	EX DE,HL
52213	LD A,(DE)
52214	LD (HL),A
52215	INC HL
52216	LD A,(50455)
52219	LD C,A
52220	SLA C
52222	SLA C
52224	SLA C
52226	LD B,0
52228	EX DE,HL
52229	LD HL,51151
52232	ADD HL,BC
52233	LD A,(50388)
52236	ADD A,(HL)
52237	LD (DE),A
52238	INC HL
52239	INC DE
52240	LD A,(50389)
52243	ADD A,(HL)
52244	LD (DE),A
52245	INC HL
52246	INC DE
52247	LD A,(50388)
52250	ADD A,(HL)
52251	CP 16
52253	JR C,52348
52255	CP 184
52257	JR NC,52348
52259	LD (DE),A
52260	INC HL
52261	INC DE
52262	LD A,(50389)
52265	ADD A,(HL)
52266	CP 8
52268	JR C,52348
52270	CP 248
52272	JR NC,52348
52274	LD (DE),A
52275	INC HL
52276	INC DE
52277	LD BC,4
52280	LDIR
52282	EX DE,HL
52283	LD (HL),255
52285	INC HL
52286	LD (50385),HL
52289	LD E,1
52291	CALL 55748
52294	LD HL,(50394)
52297	EXX
52298	LD B,71
52300	EXX
52301	CALL 51286
52304	LD HL,(50385)
52307	LD DE,52834
52310	LD (HL),E
52311	INC HL
52312	LD (HL),D
52313	INC HL
52314	LD (HL),255
52316	LD HL,24832
52319	CALL 50946
52322	LD HL,(50459)
52325	LD A,H
52326	OR L
52327	JR Z,52333
52329	DEC HL
52330	LD (50459),HL
52333	CALL 50963
52336	CALL 50625
52339	CALL 55776
52342	CALL 50671
52345	JP 52071
52348	LD HL,(50385)
52351	JR 52307
This entry point is used by the routine at 53488.
52353	LD A,(HL)
52354	INC HL
52355	LD E,(HL)
52356	INC HL
52357	LD D,(HL)
52358	INC HL
52359	LD B,H
52360	LD C,L
52361	PUSH BC
52362	ADD A,A
52363	LD C,A
52364	LD B,0
52366	LD HL,50700
52369	ADD HL,BC
52370	POP BC
52371	LD A,(HL)
52372	INC HL
52373	LD H,(HL)
52374	LD L,A
52375	LD A,(DE)
52376	XOR (HL)
52377	LD (DE),A
52378	INC HL
52379	INC D
52380	LD A,(DE)
52381	XOR (HL)
52382	LD (DE),A
52383	INC HL
52384	INC D
52385	LD A,(DE)
52386	XOR (HL)
52387	LD (DE),A
52388	INC HL
52389	INC D
52390	LD A,(DE)
52391	XOR (HL)
52392	LD (DE),A
52393	INC HL
52394	INC D
52395	LD A,(DE)
52396	XOR (HL)
52397	LD (DE),A
52398	INC HL
52399	INC D
52400	LD A,(DE)
52401	XOR (HL)
52402	LD (DE),A
52403	INC HL
52404	INC D
52405	LD A,(DE)
52406	XOR (HL)
52407	LD (DE),A
52408	INC HL
52409	INC D
52410	LD A,(DE)
52411	XOR (HL)
52412	LD (DE),A
52413	LD A,(BC)
52414	INC BC
52415	LD L,A
52416	LD A,(BC)
52417	LD H,A
52418	LD DE,(50405)
52422	DEC DE
52423	LD A,(DE)
52424	LD (HL),A
52425	LD H,B
52426	LD L,C
52427	INC HL
52428	INC HL
52429	RET
52430	EXX
52431	CALL 52504
52434	EXX
52435	JR NC,52457
52437	EXX
52438	LD HL,50388
52441	EXX
52442	CALL 50906
52445	JP NC,53948
52448	INC HL
52449	INC HL
52450	INC HL
52451	INC HL
52452	LD B,H
52453	LD C,L
52454	JP 52413
52457	PUSH HL
52458	INC HL
52459	INC HL
52460	INC HL
52461	INC HL
52462	CALL 52353
52465	POP HL
52466	DEC HL
52467	DEC HL
52468	LD DE,52499
52471	LD (HL),E
52472	INC HL
52473	LD (HL),D
52474	INC HL
52475	EXX
52476	LD DE,6
52479	SBC HL,DE
52481	PUSH HL
52482	CALL 51279
52485	POP HL
52486	LD (50394),HL
52489	CALL 54705
52492	LD HL,50211
52495	DEC (HL)
52496	LD B,71
52498	EXX
This entry point is used by the routine at 54705.
52499	LD DE,10
52502	ADD HL,DE
52503	RET
This entry point is used by the routine at 54832.
52504	LD HL,24576
52507	INC HL
52508	INC HL
52509	LD A,(HL)
52510	CP 255
52512	SCF
52513	RET Z
52514	INC HL
52515	INC HL
52516	INC HL
52517	CALL 50906
52520	EXX
52521	DEC HL
52522	DEC HL
52523	DEC HL
52524	EXX
52525	RET NC
52526	INC HL
52527	INC HL
52528	INC HL
52529	INC HL
52530	JR 52507
This entry point is used by the routine at 54832.
52532	LD B,6
52534	LD H,66
52536	LD A,(50208)
52539	LD L,A
52540	XOR A
52541	LD (HL),A
52542	INC HL
52543	LD (HL),A
52544	INC HL
52545	LD (HL),A
52546	INC HL
52547	LD (HL),A
52548	INC HL
52549	LD (HL),A
52550	INC HL
52551	LD (HL),A
52552	INC HL
52553	LD (HL),A
52554	INC H
52555	DJNZ 52536
52557	JP 50500
52560	LD A,(50483)
52563	AND A
52564	JP NZ,57512
52567	CALL 53695
52570	AND 15
52572	INC A
52573	LD (50422),HL
52576	LD B,A
52577	LD A,(50460)
52580	SUB B
52581	JP NC,52632
52584	INC HL
52585	CALL 54832
52588	LD HL,(50422)
52591	INC HL
52592	INC HL
52593	LD A,(50388)
52596	SUB (HL)
52597	LD A,(50214)
52600	JR NC,52604
52602	NEG
52604	ADD A,(HL)
52605	LD (HL),A
52606	INC HL
52607	LD A,(50389)
52610	SUB (HL)
52611	LD A,(50214)
52614	JR NC,52618
52616	NEG
52618	ADD A,(HL)
52619	LD (HL),A
52620	DEC HL
52621	DEC HL
52622	EXX
52623	LD B,70
52625	EXX
52626	CALL 54839
52629	LD HL,(50422)
52632	INC HL
52633	INC HL
52634	EXX
52635	CALL 52504
52638	JR NC,52653
52640	LD HL,50388
52643	EXX
52644	CALL 50906
52647	JP NC,53948
52650	INC HL
52651	INC HL
52652	RET
52653	LD DE,6
52656	SBC HL,DE
52658	LD (50394),HL
52661	CALL 51279
52664	CALL 54705
52667	LD HL,50204
52670	DEC (HL)
52671	LD HL,50213
52674	DEC (HL)
52675	EXX
52676	DEC HL
52677	DEC HL
52678	LD (HL),2
52680	DEC HL
52681	LD DE,52767
52684	LD (HL),D
52685	DEC HL
52686	LD (HL),E
52687	INC HL
52688	INC HL
52689	INC HL
52690	PUSH HL
52691	CALL 54832
52694	POP HL
52695	INC HL
52696	EXX
52697	LD B,2
52699	EXX
52700	LD A,(HL)
52701	SUB 6
52703	CP 16
52705	JR C,52714
52707	CP 185
52709	JR C,52713
52711	SUB 6
52713	LD (HL),A
52714	DEC HL
52715	PUSH HL
52716	CALL 55188
52719	POP HL
52720	LD DE,6
52723	ADD HL,DE
52724	EXX
52725	LD HL,50182
52728	LD A,(HL)
52729	ADD A,0
52731	DAA
52732	LD (HL),A
52733	LD A,1
52735	DEC HL
52736	JR NC,52739
52738	INC A
52739	ADD A,(HL)
52740	DAA
52741	LD (HL),A
52742	JR NC,52757
52744	DEC HL
52745	LD A,1
52747	ADD A,(HL)
52748	DAA
52749	LD (HL),A
52750	JR NC,52757
52752	DEC HL
52753	LD A,1
52755	DAA
52756	LD (HL),A
52757	CALL 52532
52760	LD E,0
52762	CALL 55748
52765	EXX
52766	RET
52767	LD A,(HL)
52768	EXX
52769	LD B,A
52770	EXX
52771	PUSH HL
52772	INC HL
52773	CALL 55188
52776	POP HL
52777	INC (HL)
52778	LD A,(HL)
52779	CP 15
52781	JR Z,52822
52783	EXX
52784	LD B,A
52785	EXX
52786	INC HL
52787	INC HL
52788	LD A,(HL)
52789	CP 22
52791	JR NC,52801
52793	CP 173
52795	LD A,0
52797	JR NC,52820
52799	JR 52809
52801	CP 176
52803	LD A,250
52805	JR C,52809
52807	LD A,244
52809	ADD A,(HL)
52810	LD (HL),A
52811	DEC HL
52812	PUSH HL
52813	CALL 55188
52816	POP HL
52817	JP 57492
52820	DEC HL
52821	DEC HL
52822	LD DE,57388
52825	DEC HL
52826	LD (HL),D
52827	DEC HL
52828	LD (HL),E
52829	INC HL
52830	INC HL
52831	JP 57388
52834	POP DE
52835	RET
This entry point is used by the routine at 53488.
52836	LD A,(HL)
52837	LD (50222),A
52840	INC HL
52841	PUSH HL
52842	CALL 54640
52845	CALL 50963
52848	POP HL
52849	RET
52850	LD E,A
52851	LD A,(50431)
52854	CP 5
52856	LD A,E
52857	JP NZ,52893
52860	SLA A
52862	SLA A
52864	SLA A
52866	SLA A
52868	RR D
52870	SLA A
52872	RR D
52874	SLA A
52876	RR D
52878	SLA A
52880	RR D
52882	SLA A
52884	RR D
52886	SRL D
52888	SRL D
52890	SRL D
52892	LD A,D
52893	RRA
52894	RRA
52895	RR D
52897	RRA
52898	RR E
52900	RRA
52901	RR D
52903	RRA
52904	RR E
52906	XOR A
52907	RL D
52909	RLA
52910	RL E
52912	RLA
52913	RL D
52915	RLA
52916	RL E
52918	RLA
52919	RET
52920	RET
52921	CALL 54570
52924	LD HL,24832
52927	CALL 50946
52930	LD A,(50483)
52933	DEC A
52934	LD (50483),A
52937	JP Z,52946
52940	CALL 50963
52943	JP 52921
52946	LD HL,50387
52949	EXX
52950	LD B,71
52952	EXX
52953	CALL 54839
52956	JP 52078
52959	INC HL
52960	EX DE,HL
52961	LD HL,(50485)
52964	LD BC,64
52967	ADD HL,BC
52968	LD (50485),HL
52971	EX DE,HL
52972	LD A,D
52973	CP 15
52975	JR Z,53023
52977	JR NC,53038
52979	EXX
52980	LD B,A
52981	INC B
52982	EXX
52983	PUSH HL
52984	CALL 55188
52987	POP HL
52988	INC HL
52989	LD A,(HL)
52990	ADD A,6
52992	LD (HL),A
This entry point is used by the routine at 54832.
52993	DEC HL
This entry point is used by the routine at 54832.
52994	LD A,(50486)
This entry point is used by the routine at 54832.
52997	CP 1
This entry point is used by the routine at 54832.
52999	JR NZ,53030
This entry point is used by the routine at 54832.
53001	EXX
53002	LD B,70
This entry point is used by the routine at 54832.
53004	EXX
53005	PUSH HL
53006	CALL 54839
53009	POP HL
53010	DEC HL
53011	DEC HL
53012	LD DE,52560
53015	LD (HL),D
53016	DEC HL
53017	LD (HL),E
53018	LD DE,9
53021	JR 53041
53023	INC HL
53024	LD A,(HL)
53025	SUB 84
53027	LD (HL),A
53028	DEC HL
53029	LD A,D
53030	EXX
53031	LD B,A
53032	EXX
53033	PUSH HL
53034	CALL 55188
53037	POP HL
53038	LD DE,6
53041	ADD HL,DE
53042	RET
53043	LD A,(50486)
53046	DEC A
53047	JR Z,52921
53049	LD A,(50484)
53052	LD H,A
53053	LD L,0
53055	LD (50485),HL
53058	LD HL,24832
53061	CALL 50946
53064	CALL 50963
53067	LD HL,50484
53070	DEC (HL)
53071	JP 52071
53074	EX DE,HL
53075	LD HL,(50485)
53078	LD BC,64
53081	ADD HL,BC
53082	LD (50485),HL
53085	EX DE,HL
53086	LD A,D
53087	CP 15
53089	JR Z,53136
53091	JR NC,53151
53093	EXX
53094	LD B,A
53095	INC B
53096	EXX
53097	PUSH HL
53098	CALL 55983
53101	POP HL
53102	INC HL
53103	LD A,(HL)
53104	ADD A,8
53106	LD (HL),A
53107	DEC HL
53108	LD A,(50486)
53111	CP 1
53113	JR NZ,53143
53115	EXX
53116	LD B,68
53118	EXX
53119	PUSH HL
53120	CALL 51536
53123	POP HL
53124	DEC HL
53125	LD DE,57782
53128	LD (HL),D
53129	DEC HL
53130	LD (HL),E
53131	LD DE,8
53134	JR 53154
53136	INC HL
53137	LD A,(HL)
53138	SUB 112
53140	LD (HL),A
53141	DEC HL
53142	LD A,D
53143	EXX
53144	LD B,A
53145	EXX
53146	PUSH HL
53147	CALL 55983
53150	POP HL
53151	LD DE,6
53154	ADD HL,DE
53155	RET
This entry point is used by the routine at 54832.
53156	INC HL
53157	LD D,70
53159	LD E,(HL)
53160	INC HL
53161	SLA E
53163	RL D
53165	LD A,(HL)
53166	RRA
53167	RRA
53168	RRA
53169	AND 31
53171	LD C,A
53172	EXX
53173	LD A,B
53174	EXX
53175	LD B,A
53176	LD A,(DE)
53177	ADD A,C
53178	LD L,A
53179	INC DE
53180	LD A,(DE)
53181	LD H,A
53182	INC DE
53183	LD A,H
53184	RRCA
53185	RRCA
53186	RRCA
53187	AND 3
53189	OR 88
53191	LD H,A
53192	LD (HL),B
53193	INC HL
53194	LD (HL),B
53195	INC DE
53196	INC DE
53197	INC DE
53198	INC DE
53199	INC DE
53200	INC DE
53201	INC DE
53202	INC DE
53203	INC DE
53204	INC DE
53205	LD A,(DE)
53206	ADD A,C
53207	LD L,A
53208	INC DE
53209	LD A,(DE)
53210	LD H,A
53211	INC DE
53212	LD A,H
53213	RRCA
53214	RRCA
53215	RRCA
53216	AND 3
53218	OR 88
53220	LD H,A
53221	LD (HL),B
53222	INC HL
53223	LD (HL),B
53224	INC DE
53225	INC DE
53226	INC DE
53227	INC DE
53228	INC DE
53229	INC DE
53230	INC DE
53231	INC DE
53232	INC DE
53233	INC DE
53234	LD A,(DE)
53235	ADD A,C
53236	LD L,A
53237	INC DE
53238	LD A,(DE)
53239	INC DE
53240	RRCA
53241	RRCA
53242	RRCA
53243	AND 3
53245	OR 88
53247	LD H,A
53248	LD (HL),B
53249	INC HL
53250	LD (HL),B
53251	RET
This entry point is used by the routine at 54832.
53252	INC HL
53253	LD D,70
53255	LD E,(HL)
53256	INC HL
53257	SLA E
53259	RL D
53261	LD A,(HL)
53262	RRA
53263	RRA
53264	RRA
53265	AND 31
53267	LD C,A
53268	EXX
53269	LD A,B
53270	EXX
53271	LD B,A
53272	LD A,(DE)
53273	ADD A,C
53274	LD L,A
53275	INC DE
53276	LD A,(DE)
53277	LD H,A
53278	INC DE
53279	LD A,H
53280	RRCA
53281	RRCA
53282	RRCA
53283	AND 3
53285	OR 88
53287	LD H,A
53288	LD (HL),B
53289	INC HL
53290	LD (HL),B
53291	INC HL
53292	LD (HL),B
53293	INC DE
53294	INC DE
53295	INC DE
53296	INC DE
53297	INC DE
53298	INC DE
53299	INC DE
53300	INC DE
53301	INC DE
53302	INC DE
53303	INC DE
53304	INC DE
53305	LD A,(DE)
53306	ADD A,C
53307	LD L,A
53308	INC DE
53309	LD A,(DE)
53310	LD H,A
53311	INC DE
53312	LD A,H
53313	RRCA
53314	RRCA
53315	RRCA
53316	AND 3
53318	OR 88
53320	LD H,A
53321	LD (HL),B
53322	INC HL
53323	LD (HL),B
53324	INC HL
53325	LD (HL),B
53326	INC DE
53327	INC DE
53328	INC DE
53329	INC DE
53330	INC DE
53331	INC DE
53332	INC DE
53333	INC DE
53334	INC DE
53335	INC DE
53336	INC DE
53337	INC DE
53338	INC DE
53339	INC DE
53340	LD A,(DE)
53341	ADD A,C
53342	LD L,A
53343	INC DE
53344	LD A,(DE)
53345	INC DE
53346	RRCA
53347	RRCA
53348	RRCA
53349	AND 3
53351	OR 88
53353	LD H,A
53354	LD (HL),B
53355	INC HL
53356	LD (HL),B
53357	INC HL
53358	LD (HL),B
53359	RET