Travel With Trashman: Routine at 97D7

97D7: Routine at 97D7

Used by the routines at Handler_Bull, B7A9, Handler_Moscow, Handler_Moscow2, CA09 and Handler_Kanyu.
97D7	LD L,(IX+$04)
97DA	LD H,(IX+$05)
97DD	ADD HL,HL
97DE	ADD HL,HL
97DF	LD D,H
97E0	LD HL,($7204)
97E3	ADD HL,HL
97E4	ADD HL,HL
97E5	LD A,(IX+$04)
97E8	AND $3E
97EA	RRCA
97EB	LD E,A
97EC	LD A,($7204)
97EF	AND $3E
97F1	RRCA
97F2	SUB E
97F3	LD L,A
97F4	LD A,H
97F5	SUB D
97F6	LD H,A
97F7	LD BC,$0800
97FA	BIT 7,L
97FC	JR Z,$9804
97FE	LD A,L
97FF	NEG
9801	LD L,A
9802	LD C,$10
9804	BIT 7,H
9806	RET Z
9807	LD A,H
9808	NEG
980A	LD H,A
980B	LD B,$18
980D	RET
This entry point is used by the routines at B6A7, HongKong_Initialise, Handler_Moscow2, Handler_Samoa and Handler_Kanyu.
980E	LD HL,($99E7)
9811	LD A,$00
9813	CP (HL)
9814	JR NZ,$9827
9816	LD A,($99AB)
9819	CP $50
981B	JR Z,$986D
981D	LD IX,($99E7)
9821	DEC (IX+$07)
9824	RET Z
9825	JR $986D
9827	DEC (HL)
9828	DEC (HL)
9829	CALL $9439
982C	LD IX,($99E7)
9830	LD A,(IX+$00)
9833	AND $07
9835	JR NZ,$986F
9837	LD BC,($99E9)
983B	CALL $9403
983E	LD IX,($99E7)
9842	LD A,(IX+$04)
9845	ADD A,$40
9847	LD (IX+$04),A
984A	JR NC,$984F
984C	INC (IX+$05)
984F	LD A,$00
9851	CP (IX+$00)
9854	JR NZ,$985B
9856	CALL $9762
9859	POP HL
985A	RET
This entry point is used by the routine at 98F2.
985B	LD IX,($99E9)
985F	CALL $95C6
9862	LD IX,($99E7)
9866	LD BC,($99E9)
986A	CALL $941E
986D	POP HL
986E	RET
986F	LD IX,($99E9)
9873	LD B,(IX+$03)
9876	LD IX,($99E7)
987A	LD DE,$000A
987D	ADD IX,DE
987F	LD E,$08
9881	LD L,(IX+$00)
9884	LD H,(IX+$01)
9887	DEC HL
9888	DEC HL
9889	LD (IX+$00),L
988C	LD (IX+$01),H
988F	ADD IX,DE
9891	DJNZ $9881
9893	LD IX,($99E7)
9897	LD L,(IX+$04)
989A	LD H,(IX+$05)
989D	PUSH HL
989E	CALL $9914
98A1	POP HL
98A2	LD DE,$0040
98A5	ADD HL,DE
98A6	CALL $9914
98A9	JR $986D
This entry point is used by the routines at B6A7, Handler_Moscow2, Handler_Samoa and Handler_Kanyu.
98AB	LD A,($99AC)
98AE	CP $00
98B0	JR Z,$98F0
98B2	CALL $9619
98B5	LD L,A
98B6	LD H,$00
98B8	ADD HL,HL
98B9	LD DE,($99EB)
98BD	ADD HL,DE
98BE	LD A,$7D
98C0	CP H
98C1	JR C,$98AB
98C3	LD A,(HL)
98C4	INC HL
98C5	LD E,(HL)
98C6	LD D,A
98C7	LD A,(DE)
98C8	AND $11
98CA	JR NZ,$98AB
98CC	DEC HL
98CD	PUSH HL
98CE	LD DE,$8800
98D1	ADD HL,DE
98D2	LD E,L
98D3	LD D,H
98D4	ADD HL,HL
98D5	ADD HL,DE
98D6	LD DE,$6001
98D9	ADD HL,DE
98DA	LD A,$00
98DC	CP (HL)
98DD	POP HL
98DE	JR NZ,$98AB
98E0	PUSH HL
98E1	LD A,L
98E2	AND $3E
98E4	LD C,A
98E5	LD DE,$8740
98E8	ADD HL,DE
98E9	ADD HL,HL
98EA	ADD HL,HL
98EB	LD A,H
98EC	RLCA
98ED	RLCA
98EE	RLCA
98EF	LD E,A
98F0	POP HL
98F1	RET