Sherlock: Routine at 41700

41700: Routine at A2E4

Used by the routine at 51593.
41700	LD A,1	Write 1 to *41642.
41702	LD (41642),A	Write 1 to *41642.
41705	PUSH IY	Stash IY, BC, IX, HL and DE on the stack.
41707	PUSH BC
41708	PUSH IX
41710	PUSH HL
41711	PUSH DE
41712	LD A,(41011)	Write 41011 to 41821.
41715	LD (41821),A	Write 41011 to 41821.
41718	LD HL,(41012)	Write 41012 to 41822.
41721	LD (41822),HL	Write 41012 to 41822.
41724	LD A,(40972)	B=*40972.
41727	LD B,A	B=*40972.
41728	AND A	Set flags.
41729	LD A,1	A=1.
41731	JR Z,41734	Jump to 41734 if ?? is equal to A.
41733	XOR A	Write 0 to *40999.
41734	LD (40999),A	Write 0 to *40999.
41737	CALL 53368	Call 53368.
41740	JR NC,41754	Jump to 41754 if ?? is greater than or equal to A.
41742	LD A,B	A=B.
41743	AND A	Set flags.
41744	JR NZ,41754	Jump to 41754 if ?? is not equal to A.
41746	LD HL,26833	HL=26833.
41749	CALL 42399	Call 42399.
41752	JR 41806	Jump to 41806.
41754	LD A,(41821)	A=*41821.
41757	CALL 41649	Call 41649.
41760	PUSH HL	IX=HL (using the stack).
41761	POP IX	IX=HL (using the stack).
41763	CALL 41661	Call 41661.
41766	LD A,(40989)	A=*40989.
41769	AND %00010000	Keep only bits 4.
41771	JR NZ,41806	Jump to 41806 if ?? is not equal to A.
41773	CP B	Jump to 41782 if A is equal to B.
41774	JR Z,41782	Jump to 41782 if A is equal to B.
41776	CALL 56428	Call 56428.
41779	CALL Z,41634	Call 41634 if B is equal to 0.
41782	CALL 42788	Call 42788.
41785	LD DE,383	DE=383.
41788	XOR A	Jump to 41800 if B is not equal to 0.
41789	CP B
41790	JR NZ,41800
41792	CALL 43143	Call 43143.
41795	CALL 41824	Call 41824.
41798	JR 41803	Jump to 41803.
41800	CALL 41853	Call 41853.
41803	CALL 41634	Call 41634.
41806	XOR A	Write 0 to; 41642 40999
41807	LD (41642),A
41810	LD (40999),A
41813	POP DE	Restore DE, HL, IX, BC and IY from the stack.
41814	POP HL
41815	POP IX
41817	POP BC
41818	POP IY
41820	RET	Return.