Sabre Wulf: Routine at 41787

41787: Routine at A33B

Used by the routines at 45524 and 48046.
41787	LD DE,38886
41790	XOR A
41791	LD (DE),A
41792	CALL 41884
41795	LD A,(HL)
41796	AND A
41797	JR Z,41802
41799	CALL 41814
41802	LD DE,38898
41805	XOR A
41806	LD (DE),A
41807	CALL 41884
41810	INC HL
41811	LD A,(HL)
41812	AND A
41813	RET Z
41814	PUSH HL
41815	LD C,A
41816	AND 15
41818	ADD A,128
41820	LD (DE),A
41821	INC DE
41822	LD A,(IX+1)
41825	LD (DE),A
41826	INC DE
41827	INC DE
41828	LD L,A
41829	LD H,0
41831	PUSH DE
41832	LD DE,24678
41835	ADD HL,DE
41836	LD L,(HL)
41837	LD H,0
41839	ADD HL,HL
41840	ADD HL,HL
41841	ADD HL,HL
41842	LD A,C
41843	RLCA
41844	RLCA
41845	RLCA
41846	AND 6
41848	LD E,A
41849	LD D,0
41851	ADD HL,DE
41852	LD DE,56428
41855	ADD HL,DE
41856	POP DE
41857	LD A,(HL)
41858	INC HL
41859	LD (DE),A
41860	INC DE
41861	LD A,(HL)
41862	LD (DE),A
41863	INC DE
41864	LD A,C
41865	AND 15
41867	LD C,A
41868	LD B,0
41870	LD HL,41895
41873	ADD HL,BC
41874	LD A,(HL)
41875	LD (DE),A
41876	INC DE
41877	POP HL
41878	LD A,L
41879	LD (DE),A
41880	INC DE
41881	LD A,H
41882	LD (DE),A
41883	RET	Return.
41884	LD L,(IX+1)
41887	LD H,0
41889	ADD HL,HL
41890	LD BC,56812
41893	ADD HL,BC
41894	RET	Return.