Sherlock: Routine at B6FD

B6FD: Routine at B6FD

Used by the routines at B6DA and B6F0.
B6FD	XOR A	Write 00 to *B77E.
B6FE	LD ($B77E),A	Write 00 to *B77E.
B701	LD ($B6D8),HL	Write HL to *B6D8.
B704	CALL $D33C	Call D33C.
B707	LD L,(IX+$07)	L=*IX+07.
B70A	LD H,(IX+$08)	H=*IX+08.
B70D	LD A,H	Return if HL is zero.
B70E	OR L
B70F	RET Z
B710	PUSH HL	IX=HL (using the stack).
B711	POP IX	IX=HL (using the stack).
B713	LD HL,$0000	Write 0000 to *B6D6.
B716	LD ($B6D6),HL	Write 0000 to *B6D6.
B719	LD IY,$AAAC	IY=AAAC.
B71D	LD HL,$AAAC	HL=AAAC.
B720	LD B,$06	B=06.
B722	CALL $A2AB	Call A2AB.
B725	CALL $B77F	Call B77F.
B728	RET Z	Return if the zero flag is set.
B729	CALL $B772	Call B772.
B72C	CP $50	Jump to B75A if A is equal to 50.
B72E	JR Z,$B75A	Jump to B75A if A is equal to 50.
B730	CP $60	Jump to B725 if A is not equal to 60.
B732	JR NZ,$B725	Jump to B725 if A is not equal to 60.
B734	LD (IY+$02),E	Write E to *IY+02.
B737	LD (IY+$03),D	Write D to *IY+03.
B73A	CALL $B77F	Call B77F.
B73D	RET Z	Return if the zero flag is set.
B73E	CALL $B772	Call B772.
B741	CP $50	Jump to B75A if A is equal to 50.
B743	JR Z,$B75A	Jump to B75A if A is equal to 50.
B745	CP $60	Jump to B71D if A is not equal to 60.
B747	JR NZ,$B71D	Jump to B71D if A is not equal to 60.
B749	LD (IY+$04),E	Write E to *IY+04.
B74C	LD (IY+$05),D	Write D to *IY+05.
B74F	CALL $B77F	Call B77F.
B752	RET Z	Return if the zero flag is set.
B753	CALL $B772	Call B772.
B756	CP $50	Jump to B71D if A is not equal to 50.
B758	JR NZ,$B71D	Jump to B71D if A is not equal to 50.
B75A	LD (IY+$00),E	Write E to *IY+00.
B75D	LD (IY+$01),D	Write D to *IY+01.
B760	LD HL,($B6D8)	HL=*B6D8.
B763	CALL $A4E0	Call A4E0.
B766	JR NZ,$B71D	Jump to B71D if the zero flag is not set.
B768	LD IX,($B6D6)	IX=*B6D6.
B76C	CALL $A1AF	Call A1AF.
B76F	OR %00000001	Set bit 0.
B771	RET	Return.