Jason's Gem: Routine at 49029

49029: Routine at BF85

Used by the routine at 51823.
49029	LD HL,22528
49032	LD DE,22529
49035	LD BC,768
49038	LD A,5
49040	LD (HL),A
49041	LDIR
49043	LD HL,22561
49046	LD B,19
49048	PUSH BC
49049	PUSH HL
49050	LD A,15
49052	LD (HL),A
49053	PUSH HL
49054	POP DE
49055	INC DE
49056	LD BC,23
49059	LDIR
49061	POP HL
49062	LD DE,32
49065	ADD HL,DE
49066	POP BC
49067	DJNZ 49048
49069	RET	Return.
This entry point is used by the routine at 51823.
49070	LD HL,16416
49073	LD B,152
49075	PUSH BC
49076	LD A,15
49078	LD (HL),A
49079	LD A,240
49081	PUSH HL
49082	LD DE,25
49085	ADD HL,DE
49086	LD (HL),A
49087	LD DE,6
49090	ADD HL,DE
49091	LD A,15
49093	LD (HL),A
49094	POP HL
49095	CALL 48612
49098	POP BC
49099	DJNZ 49075
49101	LD HL,17408
49104	CALL 49126
49107	LD HL,20608
49110	CALL 49126
49113	CALL 51301
49116	CALL 31400
49119	CALL 52625
49122	CALL 29575
49125	RET
49126	LD B,4
49128	PUSH BC
49129	PUSH HL
49130	LD A,15
49132	LD (HL),A
49133	INC HL
49134	PUSH HL
49135	POP DE
49136	INC DE
49137	LD BC,30
49140	LD A,255
49142	LD (HL),A
49143	LDIR
49145	POP HL
49146	CALL 48612
49149	POP BC
49150	DJNZ 49128
49152	RET
49153	CALL 49029
49156	CALL 49070
49159	LD BC,16417
49162	LD A,255
49164	LD (BC),A
49165	CALL 49296
49168	LD A,127
49170	IN A,(254)
49172	AND 1
49174	RET Z
49175	LD A,239
49177	IN A,(254)
49179	AND 16
49181	CALL Z,49216
49184	LD A,247
49186	IN A,(254)
49188	AND 16
49190	CALL Z,49282
49193	LD A,239
49195	IN A,(254)
49197	AND 8
49199	CALL Z,49249
49202	LD A,239
49204	IN A,(254)
49206	AND 4
49208	CALL Z,49289
49211	HALT
49212	HALT
49213	JP 49162
49216	PUSH BC
49217	POP HL
49218	XOR A
49219	LD (HL),A
49220	CALL 48612
49223	CALL 48612
49226	CALL 48612
49229	CALL 48612
49232	CALL 48612
49235	CALL 48612
49238	CALL 48612
49241	CALL 48612
49244	PUSH HL
49245	POP BC
49246	HALT
49247	HALT
49248	RET
49249	PUSH BC
49250	POP HL
49251	XOR A
49252	LD (HL),A
49253	CALL 48654
49256	CALL 48654
49259	CALL 48654
49262	CALL 48654
49265	CALL 48654
49268	CALL 48654
49271	CALL 48654
49274	CALL 48654
49277	PUSH HL
49278	POP BC
49279	HALT
49280	HALT
49281	RET
49282	XOR A
49283	HALT
49284	HALT
49285	HALT
49286	LD (BC),A
49287	DEC BC
49288	RET
49289	XOR A
49290	HALT
49291	HALT
49292	HALT
49293	LD (BC),A
49294	INC BC
49295	RET
49296	PUSH BC
49297	PUSH BC
49298	LD A,2
49300	CALL 5633
49303	LD A,22
49305	RST 16
49306	LD A,0
49308	RST 16
49309	LD A,0
49311	RST 16
49312	POP BC
49313	CALL 11563
49316	CALL 11747
49319	HALT
49320	POP BC
49321	RET
This entry point is used by the routines at 48244, 50171 and 51823.
49322	LD A,2
49324	CALL 5633
49327	LD A,22
49329	RST 16
49330	LD A,1
49332	RST 16
49333	LD A,1
49335	RST 16
49336	CALL 49029
49339	LD HL,(23407)
49342	PUSH HL
49343	POP DE
49344	LD B,19
49346	PUSH BC
49347	PUSH HL
49348	LD B,3
49350	PUSH BC
49351	LD B,8
49353	LD C,128
49355	LD A,(DE)
49356	AND C
49357	CALL 49391
49360	RRC C
49362	INC HL
49363	CALL 52756
49366	DJNZ 49355
49368	INC DE
49369	POP BC
49370	DJNZ 49350
49372	CALL 49450
49375	POP HL
49376	POP BC
49377	DJNZ 49346
49379	INC DE
49380	LD A,(23423)
49383	AND A
49384	CALL Z,49563
49387	CALL 49070
49390	RET
49391	PUSH HL
49392	PUSH DE
49393	PUSH BC
49394	PUSH AF
49395	LD A,32
49397	JP Z,49430
49400	CALL 52756
49403	LD A,(23409)
49406	LD B,A
49407	LD A,(23410)
49410	LD C,A
49411	LD A,B
49412	LD A,16
49414	RST 16
49415	LD A,C
49416	RST 16
49417	LD A,17
49419	RST 16
49420	LD A,1
49422	RST 16
49423	LD A,B
49424	RST 16
49425	POP AF
49426	POP BC
49427	POP DE
49428	POP HL
49429	RET
49430	LD A,17
49432	RST 16
49433	LD A,1
49435	RST 16
49436	LD A,16
49438	RST 16
49439	LD A,7
49441	RST 16
49442	LD A,32
49444	RST 16
49445	POP AF
49446	POP BC
49447	POP DE
49448	POP HL
49449	RET
49450	PUSH DE
49451	PUSH BC
49452	PUSH AF
49453	LD A,17
49455	RST 16
49456	LD A,0
49458	RST 16
49459	LD A,16
49461	RST 16
49462	LD A,5
49464	RST 16
49465	LD A,23
49467	RST 16
49468	LD A,1
49470	RST 16
49471	LD A,32
49473	RST 16
49474	POP AF
49475	POP BC
49476	POP DE
49477	RET
This entry point is used by the routines at 48612, 50171 and 51823.
49478	LD A,H
49479	AND 24
49481	SRA A
49483	SRA A
49485	SRA A
49487	ADD A,88
49489	LD H,A
49490	RET
This entry point is used by the routine at 48612.
49491	PUSH HL
49492	LD A,1
49494	LD (23412),A
49497	CALL 49478
49500	LD A,(HL)
49501	POP HL
49502	AND 7
49504	CP 3
49506	JP Z,48803
49509	CP 4
49511	JP Z,48803
49514	CP 5
49516	JP Z,48803
49519	XOR A
49520	LD (23412),A
49523	CALL 49801
49526	RET
This entry point is used by the routine at 48612.
49527	PUSH HL
49528	LD A,1
49530	LD (23413),A
49533	CALL 49478
49536	LD A,(HL)
49537	POP HL
49538	AND 7
49540	CP 3
49542	JP Z,48833
49545	CP 4
49547	JP Z,48833
49550	CP 5
49552	JP Z,48833
49555	XOR A
49556	LD (23413),A
49559	CALL 49801
49562	RET
49563	PUSH DE
49564	PUSH DE
49565	LD A,22
49567	RST 16
49568	POP DE
49569	LD A,(DE)
49570	RST 16
49571	LD A,23
49573	RST 16
49574	LD A,16
49576	RST 16
49577	LD A,6
49579	RST 16
49580	LD A,17
49582	RST 16
49583	LD A,2
49585	RST 16
49586	LD A,18
49588	RST 16
49589	LD A,1
49591	RST 16
49592	LD A,32
49594	RST 16
49595	LD A,16
49597	RST 16
49598	LD A,2
49600	RST 16
49601	LD A,17
49603	RST 16
49604	LD A,6
49606	RST 16
49607	LD A,32
49609	RST 16
49610	LD A,19
49612	RST 16
49613	LD A,1
49615	RST 16
49616	LD A,22
49618	RST 16
49619	POP DE
49620	LD A,(DE)
49621	INC A
49622	RST 16
49623	LD A,23
49625	RST 16
49626	LD A,32
49628	RST 16
49629	LD A,17
49631	RST 16
49632	LD A,2
49634	RST 16
49635	LD A,16
49637	RST 16
49638	LD A,6
49640	RST 16
49641	LD A,32
49643	RST 16
49644	LD A,19
49646	RST 16
49647	LD A,0
49649	RST 16
49650	RET
This entry point is used by the routine at 48244.
49651	LD HL,(23400)
49654	XOR A
49655	LD (23414),A
49658	CALL 49478
49661	LD A,(HL)
49662	CP 178
49664	RET NZ
49665	LD A,1
49667	LD (23414),A
49670	RET
This entry point is used by the routine at 48244.
49671	LD HL,23310
49674	LD DE,23311
49677	LD (HL),0
49679	LD BC,85
49682	LDIR
49684	HALT
49685	HALT
49686	CALL 26600
49689	LD A,(23406)
49692	INC A
49693	LD (23406),A
49696	CP 12
49698	JP Z,52290
49701	LD HL,(23407)
49704	LD DE,60
49707	ADD HL,DE
49708	LD (23407),HL
49711	LD A,(23409)
49714	INC A
49715	LD (23409),A
49718	CP 165
49720	CALL Z,49795
49723	LD A,(23410)
49726	INC A
49727	LD (23410),A
49730	CP 6
49732	CALL Z,49889
49735	CALL 26600
49738	HALT
49739	CALL 49963
49742	XOR A
49743	OUT (254),A
49745	CALL 51678
49748	CALL 50027
49751	CALL 49322
49754	CALL 51563
49757	LD HL,(23400)
49760	LD DE,23
49763	SBC HL,DE
49765	LD (23400),HL
49768	LD (23417),HL
49771	LD DE,50
49774	LD HL,(23415)
49777	ADD HL,DE
49778	LD (23415),HL
49781	LD A,0
49783	LD (23395),A
49786	LD (23386),A
49789	CALL 27000
49792	JP 48317
This entry point is used by the routine at 51823.
49795	LD A,152
49797	LD (23409),A
49800	RET
This entry point is used by the routines at 48612 and 51599.
49801	CALL 26600
49804	LD A,1
49806	LD (23419),A
49809	HALT
49810	HALT
49811	HALT
49812	CALL 49845
49815	CALL WhoopsPrint
49818	LD A,(23440)
49821	DEC A
49822	LD (23440),A
49825	RET Z
49826	CALL 49322
49829	CALL 51563
49832	CALL 27000
49835	LD HL,(23417)
49838	LD A,(23462)
49841	LD (23400),HL
49844	RET
This entry point is used by the routines at 50171 and 51823.
49845	PUSH HL
49846	PUSH DE
49847	PUSH BC
49848	PUSH AF
49849	LD A,7
49851	LD (23624),A
49854	LD A,0
49856	OUT (254),A
49858	LD B,5
49860	PUSH BC
49861	LD B,20
49863	PUSH BC
49864	PUSH BC
49865	POP DE
49866	LD E,D
49867	LD D,0
49869	LD HL,200
49872	CALL 949
49875	POP BC
49876	DJNZ 49863
49878	POP BC
49879	DJNZ 49860
49881	CALL 49982
49884	POP AF
49885	POP BC
49886	POP DE
49887	POP AF
49888	RET
This entry point is used by the routine at 51823.
49889	LD A,3
49891	LD (23410),A
49894	RET