Chaos: Routine at C9D4

C9D4: routine61


routine61	C9D4	LD HL,(BUFPNT)	load BUFPNT into HL
	C9D7	DEC HL	decrement HL twice
	C9D8	DEC HL	decrement HL twice
	C9D9	LD (BUFPNT),HL	store BUFPNT
This entry point is used by the routines at creature_cast_spell, trees_castles_spell, routine18, routine24, routine77, routine83 and routine85.
routine61_0	C9DC	LD HL,(BUFPNT)
	C9DF	DEC HL
	C9E0	LD A,(HL)
	C9E1	CP $FE
	C9E3	JR NZ,routine61_1
	C9E5	LD A,$4B
	C9E7	LD (unknown31),A
	C9EA	RET
routine61_1	C9EB	LD HL,(BUFPNT)
	C9EE	LD A,(HL)
	C9EF	CP $FF
	C9F1	JR Z,routine61
	C9F3	LD HL,map_object_table
	C9F6	LD D,$00
	C9F8	LD E,A
	C9F9	ADD HL,DE
	C9FA	LD (object_table_entry_pointer),HL
	C9FD	CALL routine51
	CA00	JR Z,routine61
	CA02	CALL routine53
	CA05	LD (cursor_coordinates),HL
	CA08	LD HL,(BUFPNT)
	CA0B	DEC HL
	CA0C	DEC HL
	CA0D	LD (BUFPNT),HL
	CA10	LD A,$53
	CA12	LD (unknown31),A
	CA15	RET	}