The Hobbit: Routine at 9ACD

9ACD: Turn: Report A Character

Used by the routine at Turn_ApplyTheSavedMatch. Prints a line about another character in this place.
TurnReportACharacter	9ACD	CP $FF	Return if the object id is FF.
	9ACF	RET Z	Return if the object id is FF.
	9AD0	AND A	See whether the object id is zero.
	9AD1	RET Z	Return if the result is zero.
	9AD2	LD B,A	Return if the turn phase is 02.
	9AD3	LD A,($980C)
	9AD6	CP $02
	9AD8	RET Z
	9AD9	LD A,B	Use the result again.
	9ADA	CALL ObjectFirstLocation	Call ObjectFirstLocation to get object first location.
	9ADD	LD C,A	Return if the byte at HL equals this object's location.
	9ADE	CP (HL)
	9ADF	RET Z
	9AE0	LD A,($B6F5)	Read *B6F5.
	9AE3	CP C	Return unless *B6F5 matches C.
	9AE4	RET NZ	Return unless *B6F5 matches C.
	9AE5	LD A,($9BDC)	Return if the flag at Object_MoveContents is zero.
	9AE8	AND A
	9AE9	RET Z
	9AEA	LD A,$01	Write 01 (day) to *NightDay.
	9AEC	LD ($B702),A	Write 01 (day) to *NightDay.
	9AEF	PUSH DE	Point HL at the address in DE and take B into A.
	9AF0	POP HL
	9AF1	LD A,B
Find the object's record.
	9AF2	CALL LocateObject	Call LocateObject to locate object.
	9AF5	PUSH DE	Step the pointer on by 08 bytes.
	9AF6	LD DE,$0008
	9AF9	ADD IX,DE
	9AFB	POP DE	Restore DE from the stack, save the name pointer, and call PrintMessage to print the message.
	9AFC	PUSH IX
Print the message at HL.
	9AFE	CALL PrintMessage
	9B01	RET	Return.