Robotron: 2084: Routine at 53488

53488: Routine at D0F0


53488	LD B,(HL)
53489	LD A,B
53490	LD (50211),A
53493	INC HL
53494	LD A,(HL)
53495	LD (50212),A
53498	INC HL
53499	PUSH HL
53500	LD HL,(50441)
53503	LD A,B
53504	AND A
53505	JP Z,53654
53508	PUSH BC
53509	LD DE,52430
53512	LD (HL),E
53513	INC HL
53514	LD (HL),D
53515	INC HL
53516	CALL 53695
53519	AND 31
53521	JR Z,53516
53523	CP 31
53525	JR Z,53516
53527	LD B,A
53528	CALL 53695
53531	AND 31
53533	CP 2
53535	JR C,53528
53537	CP 23
53539	JR NC,53528
53541	SLA A
53543	SLA A
53545	SLA A
53547	SLA B
53549	SLA B
53551	SLA B
53553	LD (HL),A
53554	LD (50419),A
53557	INC HL
53558	LD (HL),B
53559	LD A,B
53560	LD (50420),A
53563	INC HL
53564	LD (HL),7
53566	INC HL
53567	LD (HL),7
53569	DEC HL
53570	DEC HL
53571	DEC HL
53572	EXX
53573	LD HL,53703
53576	EXX
53577	CALL 50906
53580	DEC HL
53581	DEC HL
53582	DEC HL
53583	JR NC,53516
53585	INC HL
53586	INC HL
53587	INC HL
53588	INC HL
53589	LD A,(50212)
53592	LD (HL),A
53593	INC HL
53594	EX DE,HL
53595	LD HL,50419
53598	LD A,(HL)
53599	INC HL
53600	LD C,(HL)
53601	LD L,A
53602	LD B,69
53604	SLA C
53606	RL B
53608	LD H,70
53610	SLA L
53612	RL H
53614	LD A,(HL)
53615	INC HL
53616	LD H,(HL)
53617	LD L,A
53618	LD A,(BC)
53619	OR L
53620	LD L,A
53621	EX DE,HL
53622	LD (HL),E
53623	INC HL
53624	LD (HL),D
53625	INC HL
53626	LD A,D
53627	RRCA
53628	RRCA
53629	RRCA
53630	AND 3
53632	OR 88
53634	LD D,A
53635	LD (HL),E
53636	INC HL
53637	LD (HL),D
53638	DEC HL
53639	DEC HL
53640	DEC HL
53641	DEC HL
53642	CALL 52353
53645	DEC HL
53646	LD (HL),255
53648	INC HL
53649	POP BC
53650	DEC B
53651	JP NZ,53508
53654	LD DE,53668
53657	LD (50441),HL
53660	LD (HL),E
53661	INC HL
53662	LD (HL),D
53663	INC HL
53664	LD (HL),255
53666	POP HL
53667	RET
53668	LD HL,24576
53671	RET
This entry point is used by the routine at 54832.
53672	LD HL,(50396)
53675	PUSH BC
53676	ADD HL,HL
53677	ADD HL,HL
53678	ADD HL,HL
53679	ADD HL,HL
53680	ADD HL,HL
53681	LD BC,(50396)
53685	ADD HL,BC
53686	LD BC,41
53689	ADD HL,BC
53690	LD (50396),HL
53693	POP BC
53694	RET
This entry point is used by the routines at 51279 and 54832.
53695	PUSH HL
53696	CALL 53672
53699	LD A,L
53700	XOR H
53701	POP HL
53702	RET
53703	LD D,B
53704	LD (HL),C
53705	INC HL
53706	RRA
53707	LD A,(HL)
53708	LD (50213),A
53711	LD B,A
53712	LD A,(50204)
53715	ADD A,B
53716	LD (50204),A
53719	INC HL
53720	LD A,(HL)
53721	LD (50214),A
53724	INC HL
53725	LD D,(HL)
53726	LD A,D
53727	LD (50215),A
53730	LD E,254
53732	LD (50459),DE
53736	INC HL
53737	PUSH HL
53738	LD HL,(50441)
53741	LD A,B
53742	AND A
53743	JP Z,53822
53746	PUSH BC
53747	LD DE,52959
53750	LD (HL),E
53751	INC HL
53752	LD (HL),D
53753	INC HL
53754	CALL 53695
53757	AND 3
53759	JR Z,53754
53761	LD (HL),A
53762	INC HL
53763	LD (HL),4
53765	INC HL
53766	CALL 53695
53769	CP 24
53771	JR C,53766
53773	CP 164
53775	JR NC,53766
53777	LD (HL),A
53778	INC HL
53779	CALL 53695
53782	CP 8
53784	JR C,53779
53786	CP 239
53788	JR NC,53779
53790	LD (HL),A
53791	INC HL
53792	LD (HL),12
53794	INC HL
53795	LD (HL),9
53797	DEC HL
53798	DEC HL
53799	DEC HL
53800	EXX
53801	LD HL,53703
53804	EXX
53805	CALL 50906
53808	JR C,53815
53810	DEC HL
53811	DEC HL
53812	DEC HL
53813	JR 53766
53815	INC HL
53816	LD (HL),255
53818	INC HL
53819	POP BC
53820	DJNZ 53746
53822	LD DE,53668
53825	LD (50441),HL
53828	LD (HL),E
53829	INC HL
53830	LD (HL),D
53831	INC HL
53832	LD (HL),255
53834	POP HL
53835	RET
This entry point is used by the routines at 50500 and PlayerDeath.
53836	LD HL,24832
53839	LD (50441),HL
53842	LD DE,53668
53845	LD (HL),E
53846	INC HL
53847	LD (HL),D
53848	INC HL
53849	LD (HL),255
53851	LD A,(50204)
53854	AND A
53855	JR NZ,53913
53857	LD HL,50211
53860	LD DE,50212
53863	LD (HL),0
53865	LD BC,12
53868	LDIR
53870	LD HL,(50185)
53873	LD A,(HL)
53874	LD (50184),A
53877	CALL 54028
53880	LD HL,(50185)
53883	INC HL
53884	CALL 50946
53887	LD (50185),HL
53890	LD HL,24576
53893	LD DE,52834
53896	LD (50385),HL
53899	LD (HL),E
53900	INC HL
53901	LD (HL),D
53902	INC HL
53903	LD (HL),255
53905	LD HL,50398
53908	LD (HL),1
53910	JP 52047
53913	XOR A
53914	LD (50204),A
53917	CALL RenderHUD
53920	LD HL,50211
53923	CALL 53488
53926	CALL 53707
53929	CALL 57634
53932	CALL 58000
53935	CALL 59491
53938	CALL 52836
53941	CALL 59692
53944	XOR A
53945	JP 53890
This entry point is used by the routines at 51279 and 54832.
53948	LD HL,22528
53951	LD B,7
53953	LD A,(HL)
53954	AND B
53955	LD (HL),A
53956	INC HL
53957	LD A,H
53958	CP 91
53960	JP NZ,53953
53963	CALL 53969
53966	POP DE
53967	POP DE
53968	RET
53969	LD B,20
53971	LD HL,0
53974	PUSH HL
53975	LD DE,16384
53978	LD A,(DE)
53979	AND (HL)
53980	LD (DE),A
53981	INC DE
53982	INC HL
53983	LD A,E
53984	AND A
53985	JR NZ,53978
53987	LD A,0
53989	OUT (254),A
53991	LD A,B
53992	SLA A
53994	SLA A
53996	DEC A
53997	JR NZ,53996
53999	LD A,24
54001	AND 24
54003	OUT (254),A
54005	LD A,B
54006	SLA A
54008	SLA A
54010	DEC A
54011	JR NZ,54010
54013	LD A,D
54014	CP 88
54016	JR NZ,53978
54018	POP HL
54019	INC H
54020	DJNZ 53974
54022	RET
54023	LD A,7
54025	OUT (254),A
54027	RET