Marsport: Routine at A80E

A80E: Routine at A80E


A80E	DJNZ $A810
A810	NOP
A811	LD DE,$000A
A814	LD B,B
A815	NOP
A816	ADD HL,HL
A817	NOP
A818	JR NZ,$A81A
A81A	ADD HL,BC
A81B	NOP
A81C	LD (BC),A
A81D	NOP
A81E	JR Z,$A820
A820	ADD HL,BC
A821	NOP
A822	EX AF,AF'
A823	NOP
A824	LD (BC),A
A825	NOP
A826	RLCA
A827	NOP
A828	LD B,B
A829	NOP
A82A	ADD A,(HL)
A82B	RLCA
A82C	INC B
A82D	NOP
A82E	LD H,$00
A830	ADD A,C
A831	NOP
A832	LD B,$00
A834	LD (BC),A
A835	NOP
A836	ADD A,L
A837	RLCA
A838	INC B
A839	NOP
A83A	LD H,L
A83B	NOP
A83C	LD DE,$2504
A83F	NOP
A840	LD DE,$0502
A843	NOP
A844	LD (BC),A
A845	NOP
A846	ADD A,H
A847	RLCA
A848	INC B
A849	NOP
A84A	INC H
A84B	NOP
A84C	LD DE,$0400
A84F	NOP
A850	LD (BC),A
A851	NOP
A852	ADD A,E
A853	RLCA
A854	INC B
A855	NOP
A856	INC HL
A857	NOP
A858	LD DE,$0300
A85B	NOP
A85C	LD (BC),A
A85D	NOP
A85E	ADD A,D
A85F	RLCA
A860	INC B
A861	NOP
A862	LD ($1100),HL
A865	NOP
A866	LD (BC),A
A867	NOP
A868	LD (BC),A
A869	NOP
A86A	LD B,C
A86B	NOP
A86C	LD BC,$0102
A86F	NOP
A870	LD BC,$1104
A873	ADC A,$C3
A875	LD A,(DE)
A876	AND A
A877	RET Z
A878	LD IX,$C3CE
A87C	LD BC,$0000
A87F	AND $0F
A881	LD C,A
A882	INC DE
A883	INC DE
A884	LD A,(DE)
A885	AND A
A886	JR Z,$A88A
A888	SET 4,C
A88A	INC DE
A88B	LD A,(DE)
A88C	AND A
A88D	JR NZ,$A891
A88F	SET 5,C
A891	INC DE
A892	LD A,(DE)
A893	CP $01
A895	JR NZ,$A899
A897	SET 6,C
A899	LD A,($C3CF)
A89C	BIT 0,A
A89E	JR Z,$A8A9
A8A0	LD HL,(Position_NS)
A8A3	LD DE,($C3D3)
A8A7	JR $A8B0
A8A9	LD HL,(Position_EW)
A8AC	LD DE,($C3D5)
A8B0	AND A
A8B1	SBC HL,DE
A8B3	JR NZ,$A8B7
A8B5	SET 7,C
A8B7	BIT 0,A
A8B9	JR Z,$A8C4
A8BB	LD HL,(Position_EW)
A8BE	LD DE,($C3D5)
A8C2	JR $A8CB
A8C4	LD HL,(Position_NS)
A8C7	LD DE,($C3D3)
A8CB	CALL abs_hl_de
A8CE	LD A,($C3CF)
A8D1	JP M,$A8D6
A8D4	XOR $02
A8D6	AND A
A8D7	JR Z,$A8DD
A8D9	CP $03
A8DB	JR NZ,$A8DF
A8DD	SET 0,B
A8DF	LD DE,$0006
A8E2	AND A
A8E3	SBC HL,DE
A8E5	JR NC,$A8ED
A8E7	ADD HL,DE
A8E8	LD ($C588),HL
A8EB	SET 1,B
A8ED	LD A,(Hero_ThroughDoor)
A8F0	AND A
A8F1	JR NZ,$A901
A8F3	CALL Player_IsCarryingSpecial
A8F6	JR Z,$A8FF
A8F8	LD A,($C3DB)
A8FB	CP $37
A8FD	JR NZ,$A901
A8FF	SET 2,B
A901	LD HL,$A80E
A904	LD A,C
A905	AND (HL)
A906	CP (HL)
A907	INC HL
A908	JR NZ,$A90F
A90A	LD A,B
A90B	AND (HL)
A90C	CP (HL)
A90D	JR Z,$A914
A90F	INC HL
A910	INC HL
A911	INC HL
A912	JR $A904
A914	INC HL
A915	LD C,(HL)
A916	INC HL
A917	LD B,(HL)
A918	BIT 0,C
A91A	JR Z,$A91F
A91C	INC (IX+$00)
A91F	BIT 1,C
A921	JR Z,$A949
A923	DEC (IX+$03)
A926	LD A,($C3CF)
A929	BIT 0,A
A92B	JR NZ,$A93C
A92D	LD HL,($C3D3)
A930	DEC HL
A931	CP $00
A933	JR Z,$A937
A935	INC HL
A936	INC HL
A937	LD ($C3D3),HL
A93A	JR $A949
A93C	LD HL,($C3D5)
A93F	DEC HL
A940	CP $03
A942	JR Z,$A946
A944	INC HL
A945	INC HL
A946	LD ($C3D5),HL
A949	BIT 2,C
A94B	JR Z,$A95C
A94D	LD (IX+$00),$68
A951	LD A,($C588)
A954	LD ($C3D1),A
A957	LD A,$01
A959	LD (Stat_ResetGame),A
A95C	BIT 3,C
A95E	JR Z,$A976
A960	LD (IX+$03),$05
A964	LD A,(Stage_Compass)
A967	XOR (IX+$01)
A96A	AND $01
A96C	JR NZ,$A976
A96E	LD A,($C3CF)
A971	XOR $01
A973	LD ($C3CF),A
A976	BIT 4,C
A978	JR Z,$A989
A97A	LD (IX+$03),$58
A97E	LD A,($C3CF)
A981	ADD A,(IX+$04)
A984	AND $03
A986	LD ($C3CF),A
A989	BIT 5,C
A98B	JR Z,$A999
A98D	LD (IX+$03),$0A
A991	LD A,($C3CF)
A994	XOR $02
A996	LD ($C3CF),A
A999	BIT 6,C
A99B	JR Z,$A9AD
A99D	LD (IX+$00),$00
A9A1	LD HL,(Handle_Lockers)
A9A4	INC HL
A9A5	LD (HL),$02
A9A7	LD A,($C3D9)
A9AA	LD ($C41D),A
A9AD	BIT 7,C
A9AF	JR Z,$A9B5
A9B1	LD (IX+$02),$0C
A9B5	BIT 0,B
A9B7	JR Z,$A9BC
A9B9	DEC (IX+$02)
A9BC	LD HL,(Handle_Lockers)
A9BF	INC HL
A9C0	BIT 1,B
A9C2	JR Z,$A9CA
A9C4	LD (IX+$03),$42
A9C8	LD (HL),$00
A9CA	BIT 2,B
A9CC	JR Z,$A9D4
A9CE	LD (IX+$03),$16
A9D2	LD (HL),$00
A9D4	BIT 3,B
A9D6	JR Z,$A9DD
A9D8	LD A,$01
A9DA	LD (Stat_ResetGame),A
A9DD	BIT 4,B
A9DF	JR Z,$A9E6
A9E1	LD A,$01
A9E3	LD ($C3DD),A
A9E6	CALL Player_IsCarryingSpecial
A9E9	JR Z,$A9F2
A9EB	LD A,($C3DB)
A9EE	CP $37
A9F0	JR NZ,$AA14
A9F2	LD A,($C3DD)
A9F5	AND A
A9F6	LD A,($C3D7)
A9F9	JR NZ,$AA0B
A9FB	ADD A,$02
A9FD	CP $29
A9FF	JR C,$AA11
AA01	LD A,($C3DD)
AA04	XOR $01
AA06	LD ($C3DD),A
AA09	JR $AA14
AA0B	SUB $02
AA0D	CP $18
AA0F	JR C,$AA01
AA11	LD ($C3D7),A
AA14	LD A,($C3CE)
AA17	CP $61
AA19	RET Z
AA1A	AND A
AA1B	JR Z,$AA2C
AA1D	LD A,($C3D9)
AA20	INC A
AA21	CP (IX+$0E)
AA24	JR C,$AA29
AA26	LD A,($C3DB)
AA29	LD ($C3D9),A
AA2C	LD A,(Level_Char)
AA2F	CP (IX+$0A)
AA32	RET NZ
AA33	LD A,(Stage_Compass)
AA36	XOR (IX+$01)
AA39	RRCA
AA3A	RET NC
AA3B	LD A,(Stage_Compass)
AA3E	BIT 0,A
AA40	JR Z,$AA56
AA42	LD HL,(Position_EW)
AA45	LD DE,($C3D5)
AA49	AND A
AA4A	SBC HL,DE
AA4C	RET NZ
AA4D	LD HL,(Position_NS)
AA50	LD DE,($C3D3)
AA54	JR $AA68
AA56	LD HL,(Position_NS)
AA59	LD DE,($C3D3)
AA5D	AND A
AA5E	SBC HL,DE
AA60	RET NZ
AA61	LD HL,(Position_EW)
AA64	LD DE,($C3D5)
AA68	CALL abs_hl_de
AA6B	LD DE,$0021
AA6E	AND A
AA6F	SBC HL,DE
AA71	RET NC
AA72	LD A,$02
AA74	JP $B288
AA77	DEC DE
AA78	LD A,(DE)
AA79	DEC DE
AA7A	RLA
AA7B	LD A,(DE)
AA7C	INC E
AA7D	LD A,(DE)
AA7E	DEC DE
AA7F	LD A,(DE)
AA80	INC E
AA81	LD A,(DE)
AA82	INC E
AA83	LD A,(DE)
AA84	LD A,(DE)
AA85	LD E,$1D
AA87	LD E,$18
AA89	RLA
AA8A	ADD HL,DE
AA8B	RLA
AA8C	ADD HL,DE
AA8D	RLA
AA8E	JR $AAA7
AA90	JR $AAA9
AA92	ADD HL,DE
AA93	RLA
AA94	LD A,(DE)
AA95	DEC DE
AA96	INC L
AA97	LD A,(DE)
AA98	INC E
AA99	LD A,(DE)
AA9A	DEC DE
AA9B	RLA
AA9C	LD A,(DE)
AA9D	DEC E
AA9E	LD E,$1D
AAA0	INC L
AAA1	DEC DE
AAA2	LD A,(DE)
AAA3	INC E
AAA4	LD A,(DE)
AAA5	LD E,$1D
AAA7	LD E,$17
AAA9	DEC DE
AAAA	LD A,(DE)
AAAB	DEC DE
AAAC	LD A,(DE)
AAAD	INC E
AAAE	LD A,(DE)
AAAF	JR $AAC8
AAB1	ADD HL,DE
AAB2	RLA
AAB3	DEC E
AAB4	LD E,$1D
AAB6	JR $AACF
AAB8	ADD HL,DE
AAB9	RLA
AABA	ADD HL,DE
AABB	RLA
AABC	DEC L
AABD	INC E
AABE	LD A,(DE)
AABF	DEC DE
AAC0	LD A,(DE)
AAC1	INC E
AAC2	LD A,(DE)
AAC3	RLA
AAC4	JR $AADD
AAC6	ADD HL,DE
AAC7	RLA
AAC8	DEC L
AAC9	RST $38
AACA	DEC E
AACB	NOP
AACC	LD E,$00
AACE	LD A,C
AACF	NOP
AAD0	LD A,D
AAD1	LD BC,$027B
AAD4	LD A,H
AAD5	INC BC
AAD6	LD A,L
AAD7	INC B
AAD8	LD A,(HL)
AAD9	DEC B
AADA	LD A,(HL)
AADB	DEC B
AADC	LD A,L
AADD	INC B
AADE	LD A,H
AADF	INC BC
AAE0	LD A,E
AAE1	LD (BC),A
AAE2	LD A,D
AAE3	LD BC,$0079
AAE6	LD E,$00
AAE8	DEC E
AAE9	NOP
AAEA	RST $38
AAEB	SUB A
AAEC	SBC A,D
AAED	SBC A,L
AAEE	SUB A
AAEF	SBC A,D
AAF0	SBC A,L
AAF1	SUB A
AAF2	ADD A,B
AAF3	SBC A,L
AAF4	ADD A,B
AAF5	SUB A
AAF6	SBC A,L
AAF7	ADD A,B
AAF8	SUB A
AAF9	SBC A,L
AAFA	ADD A,B
AAFB	SUB A
AAFC	SBC A,L
AAFD	RST $38
This entry point is used by the routine at AFFA.
AAFE	LD IX,$C3DE
AB02	LD A,($C3DE)
AB05	AND A
AB06	RET Z
AB07	CP $01
AB09	JR NZ,$AB5F
AB0B	LD A,(Level_Char)
AB0E	SUB $61
AB10	LD B,A
AB11	ADD A,A
AB12	ADD A,A
AB13	ADD A,B
AB14	ADD A,A
AB15	LD E,A
AB16	LD D,$00
AB18	LD HL,_bda5
AB1B	ADD HL,DE
AB1C	BIT 7,(HL)
AB1E	JR Z,$AB25
This entry point is used by the routines at AB25 and AB5F.
AB20	LD (IX+$00),$00
AB24	RET