Sabre Wulf: Routine at A680

A680: Routine at A680


A680	CALL StoreEntity	Call StoreEntity.
A683	LD L,(IX+$06)
A686	LD H,(IX+$07)
A689	LD A,H
A68A	OR L
A68B	JR Z,$A6D4
A68D	LD A,($9702)
A690	SUB $10
A692	CP $20
A694	JR NC,$A69D
A696	LD A,($96B5)
A699	AND A
A69A	JR NZ,$A69D
A69C	DEC HL
This entry point is used by the routine at A70D.
A69D	LD (IX+$06),L
A6A0	LD (IX+$07),H
A6A3	CALL $A737	Call A737.
This entry point is used by the routines at A6D4 and A70D.
A6A6	CALL DisplayEntity	Call DisplayEntity.
A6A9	LD L,(IX+$03)
A6AC	LD H,(IX+$04)
A6AF	CALL AttributeAddress	Call AttributeAddress.
A6B2	LD C,$01	C=01.
A6B4	LD D,$44	D=44.
A6B6	LD B,$02	B=02.
A6B8	CALL $A6C8	Call A6C8.
A6BB	LD A,(IX+$00)
A6BE	AND %00000111	Keep only bits 0-2.
A6C0	RET Z
A6C1	LD C,$01	C=01.
A6C3	LD D,(IX+$05)
A6C6	LD B,$02	B=02.
A6C8	LD A,(IX+$00)
A6CB	CPL
A6CC	AND %00000111	Keep only bits 0-2.
A6CE	JR NZ,$A6D1
A6D0	INC B
A6D1	JP AttrDrawUnchanged	Jump to AttrDrawUnchanged.