Lunar Jetman: Routine at B218

B218: Routine at B218


B218	BIT 0,(IX+$10)
B21C	JP NZ,$B20F
B21F	DEC (IX+$08)	Decrease IX+08 by one.
B222	JP Z,$A73C	Jump to A73C if IX+08 is now zero.
B225	LD A,(IX+$05)
B228	AND A
B229	JP P,$B1E9
B22C	ADD A,(IX+$10)
B22F	LD C,A
B230	AND $0F
B232	NEG
B234	AND $FE
B236	LD (IX+$10),A
B239	LD A,C
B23A	NEG
B23C	RRCA
B23D	RRCA
B23E	RRCA
B23F	RRCA
B240	AND $0F
B242	NEG
B244	LD B,$FF
This entry point is used by the routine at B1E9.
B246	ADD A,(IX+$02)
B249	LD (IX+$02),A
B24C	LD A,(IX+$03)
B24F	ADC A,B
B250	AND $1F
B252	LD (IX+$03),A
B255	LD A,(IX+$06)
B258	AND A
B259	JP P,$B1FD
B25C	ADD A,(IX+$11)
B25F	LD C,A
B260	AND $0F
B262	NEG
B264	LD (IX+$11),A
B267	LD A,C
B268	NEG
B26A	RRCA
B26B	RRCA
B26C	RRCA
B26D	RRCA
B26E	AND $0F
B270	NEG
This entry point is used by the routine at B1E9.
B272	ADD A,(IX+$04)
B275	CP $AF
B277	JP NC,$A73C
B27A	CP $30
B27C	JP C,$A73C
B27F	LD (IX+$04),A
B282	LD A,(IX+$00)
B285	AND $FC
B287	LD C,A
B288	LD A,(IX+$00)
B28B	INC A
B28C	AND $03
B28E	OR C
B28F	LD (IX+$00),A
B292	CALL $8B73
B295	CALL $8733
B298	CALL $B2A2
B29B	RET NC
B29C	CALL $B2D7
B29F	JP $A73C
This entry point is used by the routines at 9531, 970E and AD36.
B2A2	LD E,$0E
This entry point is used by the routines at ABA9 and AD36.
B2A4	LD A,($5E67)
B2A7	AND A
B2A8	RET NZ
B2A9	LD A,($6078)
B2AC	CP $11
B2AE	RET NC
B2AF	LD L,(IX+$02)
B2B2	LD H,(IX+$03)
B2B5	LD BC,$0008
B2B8	ADD HL,BC
B2B9	LD BC,($607A)
B2BD	AND A
B2BE	SBC HL,BC
B2C0	LD A,H
B2C1	AND $1F
B2C3	RET NZ
B2C4	LD A,L
B2C5	CP $10
B2C7	RET NC
B2C8	LD A,($607C)
B2CB	SUB $04
B2CD	SUB (IX+$04)
B2D0	JP P,$B2D5
B2D3	NEG
B2D5	CP E
B2D6	RET
This entry point is used by the routines at 9531, 970E, ABA9 and AD36.
B2D7	LD DE,$B9E7
B2DA	CALL $B9BC
B2DD	LD HL,$6078
B2E0	LD (HL),$DC
B2E2	LD HL,$607D
B2E5	LD A,(IX+$01)
B2E8	CP $78
B2EA	JR C,$B339
B2EC	LD (HL),$C0
This entry point is used by the routine at B339.
B2EE	INC HL
B2EF	LD (HL),$01
B2F1	LD HL,$608A
B2F4	LD (HL),$06
B2F6	INC HL
B2F7	LD (HL),$06