Lunar Jetman: Routine at B699

B699: Routine at B699

Used by the routines at B460, B6CF and F641.
B699	LD BC,$000A
B69C	INC B
B69D	SUB C
B69E	JR NC,$B69C
B6A0	ADD A,C
B6A1	DEC B
B6A2	SLA B
B6A4	SLA B
B6A6	SLA B
B6A8	SLA B
B6AA	AND $0F
B6AC	OR B
B6AD	RET