Jason's Gem: Routine at 50171

50171: Routine at C3FB

Used by the routine at 48200.
50171	LD HL,16684
50174	LD (23420),HL
50177	LD (23431),HL
50180	LD A,(23445)
50183	LD (23462),A
50186	LD HL,26070
50189	LD (23458),HL
50192	XOR A
50193	LD (23457),A
50196	LD A,128
50198	LD (23433),A
50201	LD (23422),A
50204	LD HL,31100
50207	LD (23407),HL
50210	LD A,160
50212	LD (23409),A
50215	LD A,3
50217	LD (23410),A
50220	LD A,1
50222	LD (23425),A
50225	LD (23423),A
50228	LD A,50
50230	LD (23436),A
50233	LD (23437),A
50236	XOR A
50237	LD (23424),A
50240	LD (23434),A
50243	LD (23419),A
50246	LD A,5
50248	LD (23441),A
50251	LD HL,65368
50254	LD (23675),HL
50257	CALL 49322
50260	CALL 50075
50263	CALL 52665
50266	LD HL,22106
50269	LD A,(23445)
50272	LD B,A
50273	CALL 51604
50276	LD A,11
50278	LD (23444),A
This entry point is used by the routine at 51823.
50281	JP 50368
50284	CALL 50519
50287	CALL 51019
50290	LD A,(23435)
50293	AND A
50294	JP NZ,51045
50297	HALT
50298	HALT
50299	HALT
50300	HALT
50301	CALL 52698
50304	CALL 52569
50307	LD A,(23434)
50310	AND A
50311	JP NZ,50862
50314	LD A,251
50316	IN A,(254)
50318	AND 1
50320	JP Z,53250
50323	LD A,(23426)
This entry point is used by the routine at 51823.
50326	AND A
50327	CALL NZ,50725
50330	LD A,(23464)
50333	CP 1
50335	JP NZ,53004
50338	LD A,254
50340	IN A,(254)
50342	AND 2
This entry point is used by the routine at 51823.
50344	CALL Z,50601
50347	LD A,254
50349	IN A,(254)
50351	AND 4
50353	CALL Z,50625
50356	LD A,127
50358	IN A,(254)
50360	AND 1
50362	CALL Z,50649
50365	JP 50281
50368	LD HL,(23420)
50371	CALL 48612
50374	LD (23420),HL
50377	LD A,(23424)
50380	INC A
50381	LD (23424),A
50384	CP 135
50386	JP Z,50395
This entry point is used by the routine at 51823.
50389	CALL 50075
50392	JP 50284
50395	LD HL,(23407)
50398	LD DE,60
50401	ADD HL,DE
50402	LD (23407),HL
50405	CALL 52600
50408	XOR A
50409	LD (23426),A
50412	LD A,1
50414	LD (23424),A
50417	LD A,(23441)
50420	ADD A,5
50422	LD (23441),A
50425	CALL BonusPrint
50428	LD A,(23425)
50431	INC A
50432	LD (23425),A
50435	CP 6
50437	RET Z
50438	CALL 49322
50441	LD A,(23425)
50444	CP 5
50446	CALL Z,51005
50449	LD HL,22106
50452	LD A,(23445)
50455	LD B,A
50456	CALL 51604
50459	CALL 52665
50462	LD HL,(23420)
50465	LD B,134
50467	CALL 48654
50470	DJNZ 50467
50472	LD (23420),HL
50475	LD (23431),HL
50478	LD A,(23445)
50481	LD (23462),A
50484	LD A,(23422)
50487	LD (23433),A
50490	LD A,(23436)
50493	LD (23437),A
50496	JP 50281
50499	LD A,H
50500	SBC A,88
50502	SLA A
50504	SLA A
50506	SLA A
50508	ADD A,64
50510	LD H,A
50511	LD B,64
50513	CALL 48612
50516	DJNZ 50513
50518	RET
This entry point is used by the routine at 51823.
50519	LD HL,(23420)
50522	LD B,3
50524	CALL 48612
50527	DJNZ 50524
50529	LD B,14
50531	LD A,(23422)
50534	LD C,A
50535	LD A,(HL)
50536	AND C
50537	JP NZ,50580
50540	CALL 48612
50543	DJNZ 50535
50545	CALL 48654
50548	LD B,15
50550	LD A,(HL)
50551	AND C
50552	JP NZ,50580
50555	RRC C
50557	CALL C,50599
50560	DJNZ 50550
50562	RLC C
50564	CALL C,50597
50567	LD B,14
50569	LD A,(HL)
50570	AND C
50571	JP NZ,50580
50574	CALL 48654
50577	DJNZ 50569
50579	RET
50580	LD A,(23440)
50583	DEC A
50584	LD (23440),A
50587	LD A,1
50589	LD (23434),A
50592	XOR A
50593	LD (23426),A
50596	RET
50597	DEC HL
50598	RET
50599	INC HL
50600	RET
This entry point is used by the routine at 51823.
50601	LD HL,(23420)
50604	LD A,(23422)
50607	RLCA
50608	LD (23422),A
50611	CALL C,50597
50614	LD (23420),HL
50617	LD A,(23436)
50620	DEC A
50621	LD (23436),A
50624	RET
This entry point is used by the routine at 51823.
50625	LD HL,(23420)
50628	LD A,(23422)
50631	RRCA
50632	LD (23422),A
50635	CALL C,50599
50638	LD (23420),HL
50641	LD A,(23436)
50644	INC A
50645	LD (23436),A
50648	RET
This entry point is used by the routine at 51823.
50649	LD A,(23426)
50652	AND A
50653	RET NZ
50654	LD A,(23424)
50657	CP 135
50659	RET NC
50660	CALL 50940
50663	LD HL,(23420)
50666	LD B,20
50668	CALL 48612
50671	DJNZ 50668
50673	LD B,7
50675	LD A,(23422)
50678	RRCA
50679	CALL C,50599
50682	DJNZ 50678
50684	LD (23427),HL
50687	LD (23429),A
50690	LD A,1
50692	LD (23426),A
50695	LD A,(23424)
50698	ADD A,20
50700	LD (23430),A
50703	CALL 50707
50706	RET
50707	LD HL,(23427)
50710	LD A,(23429)
50713	LD C,A
50714	LD B,5
50716	LD A,(HL)
50717	XOR C
50718	LD (HL),A
50719	CALL 48612
50722	DJNZ 50716
50724	RET
50725	LD A,(23430)
50728	INC A
50729	INC A
50730	INC A
50731	INC A
50732	INC A
50733	LD (23430),A
50736	CP 142
50738	PUSH AF
50739	CALL 50707
50742	POP AF
50743	JP NC,50774
50746	LD HL,(23427)
50749	CALL 48612
50752	CALL 48612
50755	CALL 48612
50758	CALL 48612
50761	CALL 48612
50764	LD (23427),HL
50767	CALL 50707
50770	CALL 50779
50773	RET
50774	XOR A
50775	LD (23426),A
50778	RET
50779	LD HL,(23427)
50782	LD B,5
50784	CALL 48612
50787	DJNZ 50784
50789	CALL 49478
50792	LD A,(HL)
50793	AND 7
50795	CP 6
50797	JP C,50815
50800	LD HL,(23427)
50803	CALL 49478
50806	LD A,(HL)
50807	AND 7
50809	CP 6
This entry point is used by the routine at 51823.
50811	JP C,50815
50814	RET
50815	LD A,15
50817	LD (HL),A
50818	CALL 50499
50821	PUSH HL
50822	CALL 50707
50825	POP HL
50826	LD B,8
50828	LD (HL),0
50830	CALL 48612
50833	DJNZ 50828
50835	CALL 50978
50838	LD HL,(23438)
50841	INC HL
50842	INC HL
50843	INC HL
50844	LD (23438),HL
50847	CALL 51301
50850	JP 50774
50853	LD HL,23184
50856	CALL 50499
50859	LD (HL),255
50861	RET
50862	CALL 49845
50865	CALL WhoopsPrint
50868	LD A,(23440)
50871	AND A
50872	JP Z,51744
50875	CALL 49322
50878	LD A,(23462)
50881	LD (23445),A
50884	LD HL,22106
50887	LD A,(23445)
50890	LD B,A
50891	CALL 51604
50894	CALL 52665
50897	CALL 52625
50900	LD A,(23425)
50903	CP 5
50905	CALL Z,51005
50908	LD HL,(23431)
50911	LD (23420),HL
50914	LD A,(23433)
50917	LD (23422),A
50920	XOR A
50921	LD (23434),A
50924	LD (23426),A
50927	INC A
50928	LD (23424),A
50931	LD A,(23437)
50934	LD (23436),A
50937	JP 50281
50940	PUSH HL
50941	PUSH DE
50942	PUSH AF
50943	PUSH BC
50944	LD HL,0
50947	LD B,20
50949	PUSH BC
50950	PUSH HL
50951	LD A,(HL)
50952	OR 1
50954	LD L,A
50955	LD H,0
50957	LD A,B
50958	OR 1
50960	AND 7
50962	LD E,A
50963	LD D,0
50965	CALL 949
50968	POP HL
50969	INC HL
50970	POP BC
50971	DJNZ 50949
50973	POP BC
50974	POP AF
50975	POP DE
50976	POP HL
50977	RET
50978	PUSH HL
50979	PUSH DE
50980	PUSH BC
50981	PUSH AF
50982	LD B,20
50984	PUSH BC
50985	LD A,B
50986	OR 1
50988	LD L,A
50989	LD E,A
50990	LD H,0
50992	LD D,0
50994	CALL 949
50997	POP BC
50998	DJNZ 50984
51000	POP AF
51001	POP BC
51002	POP DE
51003	POP HL
51004	RET
51005	LD HL,23115
51008	LD DE,23116
51011	LD BC,2
51014	LD (HL),150
51016	LDIR
51018	RET
51019	LD HL,(23420)
51022	LD B,17
51024	PUSH BC
51025	CALL 48612
51028	POP BC
51029	DJNZ 51024
51031	INC HL
51032	CALL 49478
51035	LD A,(HL)
51036	CP 150
51038	RET NZ
51039	LD A,1
51041	LD (23435),A
51044	RET
51045	XOR A
51046	LD (23435),A
51049	LD A,(23426)
51052	AND A
51053	CALL NZ,50707
51056	XOR A
51057	LD (23426),A
51060	LD HL,(23420)
51063	INC HL
51064	INC HL
51065	CALL 48612
51068	LD (23400),HL
51071	LD A,(23422)
51074	LD (23402),A
51077	LD A,1
51079	LD (23405),A
51082	LD HL,28000
51085	LD (23403),HL
51088	LD A,(23436)
51091	LD B,A
51092	PUSH BC
51093	CALL 48549
51096	HALT
51097	HALT
51098	LD A,(23402)
51101	RRCA
51102	LD (23402),A
51105	CALL C,51125
51108	CALL 51133
51111	CALL 48549
51114	POP BC
51115	LD A,109
51117	INC B
51118	CP B
51119	JP NZ,51092
51122	JP 51165
51125	LD HL,(23400)
51128	INC HL
51129	LD (23400),HL
51132	RET
51133	LD HL,(23403)
51136	LD DE,16
51139	ADD HL,DE
51140	LD (23403),HL
51143	LD A,(23405)
51146	INC A
51147	LD (23405),A
51150	CP 5
51152	RET NZ
51153	LD HL,28000
51156	LD (23403),HL
51159	LD A,1
51161	LD (23405),A
51164	RET
51165	LD HL,(23400)
51168	LD B,16
51170	CALL 48612
51173	DJNZ 51170
51175	LD B,8
51177	PUSH BC
51178	PUSH HL
51179	LD B,8
51181	PUSH BC
51182	PUSH HL
51183	LD A,(HL)
51184	SRL A
51186	LD (HL),A
51187	PUSH HL
51188	CALL 49478
51191	LD (HL),15
51193	POP HL
51194	INC HL
51195	LD A,(HL)
51196	SRL A
51198	LD (HL),A
51199	CALL 49478
51202	LD (HL),15
51204	POP HL
51205	CALL 48612
51208	POP BC
51209	DJNZ 51181
51211	CALL 51222
51214	POP HL
51215	POP BC
51216	HALT
51217	DJNZ 51177
51219	JP 51243
51222	LD B,15
51224	PUSH BC
51225	LD A,B
51226	OR 1
51228	RLCA
51229	RLCA
51230	LD H,0
51232	LD L,A
51233	LD DE,10
51236	CALL 949
51239	POP BC
51240	DJNZ 51224
51242	RET
51243	LD HL,(23400)
51246	LD B,16
51248	PUSH BC
51249	CALL 48549
51252	HALT
51253	HALT
51254	LD HL,(23400)
51257	CALL 48612
51260	LD (23400),HL
51263	POP BC
51264	DJNZ 51248
51266	CALL BonusPrint
51269	JP 48244
51272	LD (DE),A
51273	NOP
51274	LD DE,5632
51277	LD BC,4122
51280	DEC B
51281	LD D,E
51282	LD B,E
51283	LD C,A
51284	LD D,D
51285	LD B,L
51286	LD D,2
51288	LD A,(DE)
51289	LD D,3
51291	LD A,(DE)
51292	DJNZ 51298
51294	LD B,D
51295	LD B,L
51296	LD D,E
51297	LD D,H
51298	LD D,4
51300	LD A,(DE)
This entry point is used by the routines at 49029, 51599 and 51823.
51301	LD DE,51272
51304	LD BC,17
51307	CALL 8252
51310	LD HL,(23438)
51313	LD A,H
51314	AND A
51315	JP NZ,51323
51318	LD A,L
51319	AND A
51320	JP Z,51331
51323	PUSH HL
51324	POP BC
51325	CALL 11563
51328	CALL 11747
51331	LD A,48
51333	RST 16
51334	LD DE,51289
51337	LD BC,12
51340	CALL 8252
51343	LD HL,(23460)
51346	LD A,H
51347	AND A
51348	JP NZ,51356
51351	LD A,L
51352	AND A
51353	JP Z,51364
51356	PUSH HL
51357	POP BC
51358	CALL 11563
51361	CALL 11747
51364	LD A,48
51366	RST 16
51367	RET