Jason's Gem: Routine at 49982

49982: Routine at C33E

Used by the routines at 48200, 49029, 51599 and 51823.
49982	PUSH HL
49983	PUSH DE
49984	PUSH BC
49985	PUSH AF
49986	LD HL,16384
49989	LD DE,16385
49992	LD BC,6143
49995	LD (HL),0
49997	LDIR
49999	LD HL,22528
50002	LD DE,22529
50005	LD BC,767
50008	LD (HL),71
50010	LDIR
50012	POP AF
50013	POP BC
50014	POP DE
50015	POP HL
50016	RET
50017	LD D,12
50019	ADD HL,DE
50020	INC DE
50021	LD BC,16707
50024	LD D,(HL)
50025	LD B,L
50026	JR NZ,50001
50028	PUSH BC
50029	PUSH DE
50030	PUSH AF
50031	CALL 49982
50034	LD A,2
50036	CALL 5633
50039	LD DE,50017
50042	LD BC,10
50045	CALL 8252
50048	LD A,(23406)
50051	DEC A
50052	LD B,0
50054	LD C,A
50055	CALL 11563
50058	CALL 11747
50061	LD B,32
50063	PUSH BC
50064	CALL 49895
50067	POP BC
50068	DJNZ 50063
50070	POP AF
50071	POP DE
50072	POP BC
50073	POP HL
50074	RET
This entry point is used by the routines at 50171 and 51823.
50075	PUSH HL
50076	PUSH DE
50077	PUSH BC
50078	PUSH AF
50079	LD HL,(23458)
50082	PUSH HL
50083	POP DE
50084	LD HL,(23420)
50087	LD A,(23422)
50090	LD C,A
50091	LD A,8
50093	CALL 48567
50096	LD HL,(23458)
50099	LD DE,8
50102	ADD HL,DE
50103	PUSH HL
50104	POP DE
50105	LD HL,(23420)
50108	INC HL
50109	LD A,(23422)
50112	LD C,A
50113	LD A,8
50115	CALL 48567
50118	LD HL,(23458)
50121	LD DE,16
50124	ADD HL,DE
50125	PUSH HL
50126	LD HL,(23420)
50129	LD B,8
50131	CALL 48612
50134	DJNZ 50131
50136	POP DE
50137	PUSH HL
50138	PUSH DE
50139	LD A,(23422)
50142	LD C,A
50143	LD A,8
50145	CALL 48567
50148	POP DE
50149	LD HL,8
50152	ADD HL,DE
50153	PUSH HL
50154	POP DE
50155	POP HL
50156	INC HL
50157	LD A,(23422)
50160	LD C,A
50161	LD A,8
50163	CALL 48567
50166	POP AF
50167	POP BC
50168	POP DE
50169	POP HL
50170	RET