Chaos: Routine at 98F1

98F1: routine15

Used by the routines at routine13, trees_castles_spell, routine73 and routine83.
routine15	98F1	LD A,$00
	98F3	LD (unknown79),A
	98F6	LD A,(CURSP)
	98F9	CP $24
	98FB	JP M,routine15_2
	98FE	CP $26
	9900	JP P,routine15_2
	9903	LD HL,SPATAB
	9906	LD (SPADAT),HL
	9909	LD HL,(D_ADD)
	990C	LD (TEMADD),HL
	990F	LD B,$08
routine15_0	9911	PUSH BC
	9912	LD HL,(object_table_entry_pointer)
	9915	LD (D_ADD),HL
	9918	CALL ADSPA
	991B	LD HL,(D_ADD)
	991E	LD A,H
	991F	ADD A,L
	9920	JR Z,routine15_1
	9922	LD A,(HL)
	9923	CP $24
	9925	JP M,routine15_1
	9928	CP $26
	992A	JP P,routine15_1
	992D	LD A,$01
	992F	LD (unknown79),A
This entry point is used by the routine at routine75.
routine15_1	9932	POP BC
	9933	DJNZ routine15_0
	9935	LD HL,(TEMADD)
	9938	LD (D_ADD),HL
This entry point is used by the routine at routine75.
routine15_2	993B	LD A,(unknown79)
	993E	OR A
	993F	RET