Lunar Jetman: Routine at B731

B731: Routine at B731

Used by the routine at 824A.
B731	LD DE,$6198
B734	LD A,(DE)
B735	AND A
B736	RET NZ
B737	LD HL,$B76D
B73A	LD BC,$0018
B73D	LDIR
B73F	LD A,($6090)
B742	SUB $1A
B744	CP $10
B746	JR C,$B763
B748	LD HL,($607A)
B74B	PUSH HL
B74C	LD HL,($6092)
B74F	LD BC,($6182)
B753	CALL $AD3F
B756	JR NC,$B768
B758	LD BC,$0030
B75B	POP HL
B75C	CALL $A002
B75F	LD ($619A),HL
B762	RET
B763	LD HL,($6092)
B766	JR $B74B
B768	LD BC,$FFD0
B76B	JR $B75B
B76D	DEFB $EC,$00,$00,$00,$AF,$00,$01,$44
B775	DEFB $00,$00,$00,$00,$00,$00,$00,$00
B77D	DEFB $00,$06,$06,$00,$00,$00,$00,$00
B785	CALL $945C
B788	JR NZ,$B78E
B78A	RES 7,(IX+$08)
B78E	CALL $A4E7
B791	JR NC,$B7A2
B793	LD (IX+$08),$81
B797	LD A,($6080)
B79A	OR $01
B79C	LD ($6080),A
B79F	CALL $B8BD
B7A2	CALL $B7A8
B7A5	JP $ABB4
This entry point is used by the routine at B6CF.
B7A8	LD A,(IX+$00)
B7AB	INC A
B7AC	AND $03
B7AE	ADD A,$EC
B7B0	LD (IX+$00),A
B7B3	LD A,(IX+$07)
B7B6	XOR $01
B7B8	LD (IX+$07),A
B7BB	RET
B7BC	CALL $945C
B7BF	JR NZ,$B7DE
B7C1	RES 7,(IX+$08)
B7C5	LD HL,($607A)
B7C8	LD (IX+$02),L
B7CB	LD (IX+$03),H
B7CE	LD A,($607C)
B7D1	ADD A,$10
B7D3	CP $AF
B7D5	JR C,$B7D9
B7D7	LD A,$AF
B7D9	LD (IX+$04),A
B7DC	JR $B7A2
B7DE	BIT 7,(IX+$08)
B7E2	JR NZ,$B7C5
B7E4	LD A,(IX+$04)
B7E7	CP $AF
B7E9	JR Z,$B80A
B7EB	LD (IX+$08),$82
B7EF	LD A,($607D)
B7F2	SRA A
B7F4	SRA A
B7F6	SRA A
B7F8	SRA A
B7FA	LD (IX+$05),A
B7FD	LD A,($6080)
B800	AND $FE
B802	LD ($6080),A
B805	CALL $B8C3
B808	JR $B7A2
B80A	LD (IX+$08),$80
B80E	JR $B7FD
B810	CALL $B89A
B813	LD A,($5EA3)
B816	AND A
B817	JR NZ,$B81E
B819	CALL $A4BA
B81C	JR C,$B848
B81E	CALL $B6AE
B821	CP $AF
B823	JR NC,$B83C
B825	LD (IX+$04),A
B828	CALL $B854
B82B	JP NC,$B7A2
B82E	CALL $B16F
B831	LD A,$01
B833	LD ($6195),A
B836	LD BC,$3000
B839	CALL $899C
B83C	LD (IX+$04),$AF
B840	CALL $ABB4
B843	LD (IX+$00),$C0
B847	RET
B848	SET 2,(IX+$08)
B84C	LD A,$01
B84E	LD ($5EA3),A
B851	JP $ABB4
B854	LD E,$18
B856	LD L,(IX+$02)
B859	LD H,(IX+$03)
B85C	LD BC,$0018
B85F	ADD HL,BC
B860	LD BC,($6182)
B864	AND A
B865	SBC HL,BC
B867	LD A,H
B868	AND $1F
B86A	RET NZ
B86B	LD A,L
B86C	CP $20
B86E	RET NC
B86F	LD A,($6184)
B872	SUB $04
B874	SUB (IX+$04)
B877	JP P,$B87C
B87A	NEG
B87C	CP E
B87D	RET
This entry point is used by the routine at 91E2.
B87E	LD A,($6078)
B881	CP $16
B883	LD HL,$BCA9
B886	JR C,$B891
B888	LD A,$57
B88A	LD (HL),A
B88B	INC HL
B88C	LD (HL),A
B88D	INC HL
B88E	LD (HL),$47
B890	RET
B891	LD A,$57
B893	LD (HL),$47
B895	INC HL
B896	LD (HL),A
B897	INC HL
B898	LD (HL),A
B899	RET
This entry point is used by the routine at A0F8.
B89A	DEC (IX+$11)
B89D	RET NZ
B89E	LD A,(IX+$12)
B8A1	LD (IX+$11),A
B8A4	INC (IX+$06)
B8A7	RET