Marsport: Routine at 91AC

91AC: Display a locker message in the terminal.

Used by the routine at _939a.
Locker_DisplayMsg	91AC	PUSH IX
	91AE	PUSH HL
	91AF	LD A,(IX+$0E)	Check for a 'Factor' type locker.
	91B2	AND $7F
	91B4	CP $04
	91B6	JR NZ,Locker_DisplayMsg_0
Locker (not Factor)
	91B8	LD HL,(Locker_Ptr)	Get object index from locker.
	91BB	LD L,(HL)
	91BC	LD H,$00
	91BE	ADD HL,HL	Offset to message pointer. See Reponse_PtrTable (String 0 does not exist)
	91BF	LD DE,$7C09
	91C2	ADD HL,DE
	91C3	LD E,(HL)	Get response message address.
	91C4	INC HL
	91C5	LD D,(HL)
	91C6	EX DE,HL
	91C7	CALL Message_ClearIfNoPlans
	91CA	JR Locker_DisplayMsg_3
Factor type messages
Locker_DisplayMsg_0	91CC	LD E,(IX+$02)	Get Index of locker from data
	91CF	LD D,$00	Get Index of locker from data
	91D1	LD HL,(Handle_Lockers)	Offset to get address of 'factor' locker
	91D4	ADD HL,DE	Offset to get address of 'factor' locker
	91D5	LD A,(HL)	See if anything is in the factor.
	91D6	RLC A
	91D8	JR NZ,Locker_DisplayMsg_1
	91DA	CALL Print_FactorMessage	If there isn't, then nothing happening.
	91DD	DEFM "no assembly in progress",$5E
	91F5	JR Locker_DisplayMsg_3
Locker_DisplayMsg_1	91F7	JR C,Locker_DisplayMsg_2	Check upper bit for assembly complete.
	91F9	CALL Print_FactorMessage	Assembly is happening.
	91FC	DEFM "assembly in progress",$5E
	9211	JR Locker_DisplayMsg_3
Locker_DisplayMsg_2	9213	CALL Print_FactorMessage	Complete.
	9216	DEFM "assembly complete",$5E
Locker_DisplayMsg_3	9228	POP HL
	9229	POP IX
	922B	RET