The Hobbit: Routine at A138

A138: Display Exits

Used by the routine at YouSeeEntry.
DisplayExits	A138	PUSH IX	Stash IX, IY, DE and BC on the stack.
	A13A	PUSH IY
	A13C	PUSH DE
	A13D	PUSH BC
	A13E	CALL $A0AE	Call A0AE.
	A141	CALL $A124	Call A124.
	A144	JR Z,DisplayExits_1	Jump to DisplayExits_1 if there are no exits.
	A146	LD HL,$B020	HL="visible exits are:[0x16]"
	A149	CALL PrintMsg	Call PrintMsg.
DisplayExits_0	A14C	LD A,(IX+$00)
	A14F	CALL $A0BA	Call A0BA.
	A152	CALL PrintToken	Call PrintToken.
	A155	CALL $A124	Call DisplayExits_0.
	A158	JR NZ,DisplayExits_0
	A15A	CALL $8583	Call 8583.
DisplayExits_1	A15D	POP BC	Restore BC, DE, IY and IX from the stack.
	A15E	POP DE
	A15F	POP IY
	A161	POP IX
	A163	RET	Return.
This entry point is used by the routines at Action_Attack and Action_Examine.
DisplayExits_2	A164	LD L,(IY+$08)
	A167	LD H,(IY+$09)
	A16A	JR DisplayExits_4
This entry point is used by the routines at Action_Dir, Action_Shoot, 910E, Action_Attack, Action_Examine and ActionClimbOut.
DisplayExits_3	A16C	LD L,(IX+$08)
	A16F	LD H,(IX+$09)
DisplayExits_4	A172	PUSH DE
	A173	PUSH HL
	A174	LD HL,$A224
	A177	BIT 7,A
	A179	JR Z,DisplayExits_5
	A17B	LD HL,$A234
DisplayExits_5	A17E	CALL $A0BD
	A181	POP HL
	A182	PUSH DE
	A183	PUSH HL
	A184	LD HL,$AFBB	HL="[0x04] is[0x01][0x15]"
	A187	CALL PrintMsg	Call PrintMsg.
	A18A	POP DE
	A18B	RET	Return.
This entry point is used by the routines at Action_Attack, 96B3 and ActionClimbOut.
DisplayExits_6	A18C	PUSH IX
	A18E	CALL LocateObject
	A191	LD (IX+$0C),$00
	A195	LD (IX+$0D),$00
	A199	LD DE,$00CD
	A19C	BIT 6,(IX+$07)
	A1A0	JR Z,DisplayExits_7
	A1A2	LD DE,$0192
DisplayExits_7	A1A5	LD (IX+$0A),E
	A1A8	LD (IX+$0B),D
	A1AB	POP IX
	A1AD	RET	Return.
	A1AE	PUSH IY
	A1B0	PUSH IX
	A1B2	LD IX,$C060
DisplayExits_8	A1B6	CALL Step3ByteTable_Next
	A1B9	JR Z,DisplayExits_9
	A1BB	CP (IY+$01)
	A1BE	JR NZ,DisplayExits_8
DisplayExits_9	A1C0	LD A,(IX+$00)
	A1C3	POP IX
	A1C5	POP IY
	A1C7	RET	Return.
This entry point is used by the routine at Action_Shoot.
DisplayExits_10	A1C8	LD A,(IX+$07)
	A1CB	AND $48
	A1CD	CP $40
	A1CF	RET	Return.
This entry point is used by the routine at Action_Examine.
DisplayExits_11	A1D0	PUSH HL
	A1D1	PUSH BC
	A1D2	LD B,$05
	A1D4	LD HL,$A20B
	A1D7	LD A,($B6E7)
DisplayExits_12	A1DA	CP (HL)
	A1DB	JR Z,DisplayExits_13
	A1DD	INC HL
	A1DE	DJNZ DisplayExits_12
DisplayExits_13	A1E0	POP BC
	A1E1	POP HL
	A1E2	RET	Return.
This entry point is used by the routines at ActionCapture and ActionClimbOut.
DisplayExits_14	A1E3	PUSH HL	Stash HL on the stack.
	A1E4	LD HL,$B009	HL="You say "[0x16]"
	A1E7	CALL PrintMsg	Call PrintMsg.
	A1EA	POP HL	Restore HL from the stack.
	A1EB	LD A,$01	Write $01 to B704.
	A1ED	LD ($B704),A	Write $01 to B704.
	A1F0	CALL PrintMsg	Call PrintMsg.
	A1F3	LD HL,$B00F	HL=" ".[0x14]"
	A1F6	JP PrintMsg	Jump to PrintMsg.
This entry point is used by the routines at 910E and Action_Examine.
DisplayExits_15	A1F9	LD IX,($B708)
	A1FD	BIT 0,(IX+$07)
	A201	LD A,$80
	A203	RET NZ
This entry point is used by the routine at Action_Examine.
DisplayExits_16	A204	BIT 5,(IX+$07)
	A208	LD A,$85
	A20A	RET	Return.
	A20B	DEFB $0E,$11,$12,$14,$2C,$80,$04,$07
	A213	DEFB $06,$FE,$01,$79,$07,$85,$04,$8E
	A21B	DEFB $04,$0C,$06,$15,$06,$25,$07,$C4
	A223	DEFB $01,$18,$07,$00,$00,$28,$02,$00
	A22B	DEFB $00,$9F,$04,$39,$01,$92,$01,$00
	A233	DEFB $00,$F6,$03,$00,$00,$B9,$02,$CD
	A23B	DEFB $00,$AA,$04,$B4,$04,$D4,$07,$00
	A243	DEFB $00,$CD,$44,$9D,$C9