Sherlock: Routine at 46845

46845: Routine at B6FD

Used by the routines at 46810 and 46832.
46845	XOR A	Write 0 to *46974.
46846	LD (46974),A	Write 0 to *46974.
46849	LD (46808),HL	Write HL to *46808.
46852	CALL 54076	Call 54076.
46855	LD L,(IX+7)	L=*IX+7.
46858	LD H,(IX+8)	H=*IX+8.
46861	LD A,H	Return if HL is zero.
46862	OR L
46863	RET Z
46864	PUSH HL	IX=HL (using the stack).
46865	POP IX	IX=HL (using the stack).
46867	LD HL,0	Write 0000 to *46806.
46870	LD (46806),HL	Write 0000 to *46806.
46873	LD IY,43692	IY=43692.
46877	LD HL,43692	HL=43692.
46880	LD B,6	B=6.
46882	CALL 41643	Call 41643.
46885	CALL 46975	Call 46975.
46888	RET Z	Return if the zero flag is set.
46889	CALL 46962	Call 46962.
46892	CP 80	Jump to 46938 if A is equal to 80.
46894	JR Z,46938	Jump to 46938 if A is equal to 80.
46896	CP 96	Jump to 46885 if A is not equal to 96.
46898	JR NZ,46885	Jump to 46885 if A is not equal to 96.
46900	LD (IY+2),E	Write E to *IY+2.
46903	LD (IY+3),D	Write D to *IY+3.
46906	CALL 46975	Call 46975.
46909	RET Z	Return if the zero flag is set.
46910	CALL 46962	Call 46962.
46913	CP 80	Jump to 46938 if A is equal to 80.
46915	JR Z,46938	Jump to 46938 if A is equal to 80.
46917	CP 96	Jump to 46877 if A is not equal to 96.
46919	JR NZ,46877	Jump to 46877 if A is not equal to 96.
46921	LD (IY+4),E	Write E to *IY+4.
46924	LD (IY+5),D	Write D to *IY+5.
46927	CALL 46975	Call 46975.
46930	RET Z	Return if the zero flag is set.
46931	CALL 46962	Call 46962.
46934	CP 80	Jump to 46877 if A is not equal to 80.
46936	JR NZ,46877	Jump to 46877 if A is not equal to 80.
46938	LD (IY+0),E	Write E to *IY+0.
46941	LD (IY+1),D	Write D to *IY+1.
46944	LD HL,(46808)	HL=*46808.
46947	CALL 42208	Call 42208.
46950	JR NZ,46877	Jump to 46877 if the zero flag is not set.
46952	LD IX,(46806)	IX=*46806.
46956	CALL 41391	Call 41391.
46959	OR %00000001	Set bit 0.
46961	RET	Return.