Sabre Wulf: Routine at 40337

40337: Routine at 9D91


40337	LD A,(38659)	A=38659.
40340	CP (IX+1)
40343	JP NZ,42131
40346	LD A,23	Write 23 to 40346.
40348	LD (38573),A	Write 23 to 40346.
40351	CALL StoreEntity	Call StoreEntity.
40354	LD A,(38658)	A=ImmortalData.
40357	SUB 16
40359	CP 32
40361	JP NC,42150
40364	DEC (IX+8)
40367	JP Z,42145
40370	DEC (IX+2)
40373	CALL Z,40462
40376	CALL 42059	Call 42059.
40379	BIT 0,B
40381	JR NZ,40452
40383	BIT 1,B
40385	JR NZ,40457
This entry point is used by the routines at 40452 and 40457.
40387	LD BC,5903	BC=5903.
40390	CALL 47132	Call 47132.
40393	CALL 43757	Call 43757.
40396	CALL Z,40462
40399	LD A,(38549)
40402	AND 3
40404	OR 52
40406	LD (IX+0),A
40409	CALL 40548	Call 40548.
40412	LD (IX+5),A
40415	LD (IX+3),E
40418	LD (IX+4),D
40421	LD A,(38663)
40424	CP 71
40426	JR NZ,40446
40428	LD BC,4879	BC=4879.
40431	CALL 43777	Call 43777.
40434	JR NC,40446
40436	LD A,(38661)
40439	RLCA
40440	AND %00000001	Keep only bit 0.
40442	INC A
40443	LD (38660),A
40446	CALL 44381	Call 44381.
40449	JP 48844	Jump to 48844.