Sabre Wulf: Routine at 9D91

9D91: Routine at 9D91


9D91	LD A,($9703)	A=9703.
9D94	CP (IX+$01)
9D97	JP NZ,$A493
9D9A	LD A,$17	Write 17 to 9D9A.
9D9C	LD ($96AD),A	Write 17 to 9D9A.
9D9F	CALL StoreEntity	Call StoreEntity.
9DA2	LD A,($9702)	A=ImmortalData.
9DA5	SUB $10
9DA7	CP $20
9DA9	JP NC,$A4A6
9DAC	DEC (IX+$08)
9DAF	JP Z,$A4A1
9DB2	DEC (IX+$02)
9DB5	CALL Z,$9E0E
9DB8	CALL $A44B	Call A44B.
9DBB	BIT 0,B
9DBD	JR NZ,$9E04
9DBF	BIT 1,B
9DC1	JR NZ,$9E09
This entry point is used by the routines at 9E04 and 9E09.
9DC3	LD BC,$170F	BC=170F.
9DC6	CALL $B81C	Call B81C.
9DC9	CALL $AAED	Call AAED.
9DCC	CALL Z,$9E0E
9DCF	LD A,($9695)
9DD2	AND $03
9DD4	OR $34
9DD6	LD (IX+$00),A
9DD9	CALL $9E64	Call 9E64.
9DDC	LD (IX+$05),A
9DDF	LD (IX+$03),E
9DE2	LD (IX+$04),D
9DE5	LD A,($9707)
9DE8	CP $47
9DEA	JR NZ,$9DFE
9DEC	LD BC,$130F	BC=130F.
9DEF	CALL $AB01	Call AB01.
9DF2	JR NC,$9DFE
9DF4	LD A,($9705)
9DF7	RLCA
9DF8	AND %00000001	Keep only bit 0.
9DFA	INC A
9DFB	LD ($9704),A
9DFE	CALL $AD5D	Call AD5D.
9E01	JP $BECC	Jump to BECC.