Sabre Wulf: Routine at A858

A858: Routine at A858


A858	CALL StoreEntity	Call StoreEntity.
A85B	LD A,$20	Write 20 to 96AD.
A85D	LD ($96AD),A	Write 20 to 96AD.
A860	CALL $AC0E	Call AC0E.
A863	CALL $A922	Call A922.
A866	CALL $A8B2	Call A8B2.
This entry point is used by the routine at A964.
A869	CALL $AFE8	Call AFE8.
A86C	LD BC,$171F	BC=171F.
A86F	CALL $B81C	Call B81C.
A872	CALL $AAED	Call AAED.
A875	JR NZ,$A87A
A877	CALL $ADB3	Call ADB3.
A87A	LD (IX+$03),E
A87D	LD (IX+$04),D
This entry point is used by the routine at A8F5.
A880	LD A,($9707)
A883	CP $47
A885	JR NZ,$A8AF
A887	LD A,($9703)
A88A	CP (IX+$01)
A88D	JR NZ,$A8AF
A88F	LD BC,$0F1C
A892	CALL $AB01	Call AB01.
A895	JR NC,$A8AF
A897	LD A,(IX+$00)
A89A	CPL
A89B	RRCA
A89C	RRCA
A89D	AND %00000001	Keep only bit 0.
A89F	INC A
A8A0	LD ($9704),A
A8A3	LD A,($9702)
A8A6	SUB $20
A8A8	CP $10
A8AA	JR C,$A8AF
A8AC	CALL $ADB3	Call ADB3.
A8AF	JP $AD46	Jump to AD46.