Sabre Wulf: Routine at A33B

A33B: Routine at A33B

Used by the routines at B1D4 and BBAE.
A33B	LD DE,$97E6
A33E	XOR A
A33F	LD (DE),A
A340	CALL $A39C
A343	LD A,(HL)
A344	AND A
A345	JR Z,$A34A
A347	CALL $A356
A34A	LD DE,$97F2
A34D	XOR A
A34E	LD (DE),A
A34F	CALL $A39C
A352	INC HL
A353	LD A,(HL)
A354	AND A
A355	RET Z
A356	PUSH HL
A357	LD C,A
A358	AND $0F
A35A	ADD A,$80
A35C	LD (DE),A
A35D	INC DE
A35E	LD A,(IX+$01)
A361	LD (DE),A
A362	INC DE
A363	INC DE
A364	LD L,A
A365	LD H,$00
A367	PUSH DE
A368	LD DE,$6066
A36B	ADD HL,DE
A36C	LD L,(HL)
A36D	LD H,$00
A36F	ADD HL,HL
A370	ADD HL,HL
A371	ADD HL,HL
A372	LD A,C
A373	RLCA
A374	RLCA
A375	RLCA
A376	AND $06
A378	LD E,A
A379	LD D,$00
A37B	ADD HL,DE
A37C	LD DE,$DC6C
A37F	ADD HL,DE
A380	POP DE
A381	LD A,(HL)
A382	INC HL
A383	LD (DE),A
A384	INC DE
A385	LD A,(HL)
A386	LD (DE),A
A387	INC DE
A388	LD A,C
A389	AND $0F
A38B	LD C,A
A38C	LD B,$00
A38E	LD HL,$A3A7
A391	ADD HL,BC
A392	LD A,(HL)
A393	LD (DE),A
A394	INC DE
A395	POP HL
A396	LD A,L
A397	LD (DE),A
A398	INC DE
A399	LD A,H
A39A	LD (DE),A
A39B	RET	Return.
A39C	LD L,(IX+$01)
A39F	LD H,$00
A3A1	ADD HL,HL
A3A2	LD BC,$DDEC
A3A5	ADD HL,BC
A3A6	RET	Return.