Blizzard Pass: Routine at 680C

680C: Action: Inventory

Prints message 10, you are carrying the following, then every carried or worn object. Nothing carried says so. A worn object is marked with message 1E.
ListCarried	680C	LD A,$10	Message 10: you are carrying the following.
	680E	CALL PrintSystemMessage	Message 10: you are carrying the following.
	6811	XOR A	Nothing has been listed yet.
	6812	LD ($5B7A),A	Nothing has been listed yet.
	6815	LD B,$A0	A0 object slots, from the first location byte.
	6817	LD HL,$5DCA	A0 object slots, from the first location byte.
ListCarried_Scan	681A	LD A,($5D89)	A carried object is printed.
	681D	CP (HL)
	681E	CALL Z,ListCarried_One
	6821	LD A,($5D8A)	A worn object is printed.
	6824	CP (HL)
	6825	CALL Z,ListCarried_One
	6828	INC HL	The next object.
	6829	DJNZ ListCarried_Scan	The next object.
	682B	LD A,($5B7A)	An empty list says so.
	682E	OR A
	682F	JR NZ,ListCarried_End
	6831	LD A,$11	Message 11: nothing at all.
	6833	JP PrintSystemMessage	Message 11: nothing at all.
ListCarried_End	6836	LD A,$0C	Two backspaces remove the trailing comma.
	6838	CALL PrintCharacter
	683B	LD A,$0C
	683D	CALL PrintCharacter
	6840	LD A,$2E	A full stop ends the list.
	6842	JP PrintCharacter	A full stop ends the list.
ListCarried_One	6845	LD A,$A0	The object id is A0 minus the countdown.
	6847	SUB B	The object id is A0 minus the countdown.
	6848	CALL PrintObjectName	Call PrintObjectName to print its name.
	684B	LD ($5B7A),A	Remember that something was listed.
	684E	LD A,($5D8A)	Message 1E marks the worn object.
	6851	CP (HL)
	6852	RET NZ
	6853	PUSH BC	Print " (worn),".
	6854	LD A,$1E
	6856	CALL PrintSystemMessage
	6859	POP BC	Restore the countdown from the stack.
	685A	RET	Return.