Lunar Jetman: Routine at 8B73

8B73: Routine at 8B73

Used by the routines at 970E, A579, A73C, A7E2 and B218.
8B73	CALL $8B52
8B76	EXX
8B77	CALL $8AF7
8B7A	EXX
8B7B	LD A,($5E56)
8B7E	SUB (IX+$04)
8B81	JP Z,$8A76
8B84	JP M,$8B96
8B87	LD C,A
8B88	LD A,($5E5A)
8B8B	CP C
8B8C	JP C,$8A76
8B8F	SUB C
8B90	LD ($5E5A),A
8B93	JP $8A5C
8B96	EXX
8B97	NEG
8B99	LD C,A
8B9A	LD A,($5E59)
8B9D	CP C
8B9E	JP C,$8A75
8BA1	SUB C
8BA2	JP $8A89