Wheelie: Routine at 27070

27070: Routine at 69BE


27070	LD DE,2	HL+=0002.
27073	ADD HL,DE	HL+=0002.
27074	LD A,(HL)	A=*HL.
27075	RLCA	RLCA.
27076	SBC A,A	A-=A.
27077	RET C	Return if {} is lower.
27078	BIT 6,(HL)	Return if bit 6 of *HL is zero.
27080	RET Z	Return if bit 6 of *HL is zero.
27081	INC A	Increment A by one.
27082	RET	Return.
This entry point is used by the routines at 27136 and 27308.
27083	CALL 27070	Call 27070.
27086	LD E,A	E=A.
27087	LD HL,(30766)	HL=*LevelProgressPointer.
27090	ADD A,H	A+=H.
27091	LD H,A	H=A.
27092	ADD HL,BC	HL+=BC.
27093	CP H	Jump to 27101 if A is equal to H.
27094	JR Z,27101	Jump to 27101 if A is equal to H.
27096	LD A,C	A=C.
27097	ADD A,A	A+=A.
27098	ADD A,A	A+=A.
27099	ADD A,H	A+=H.
27100	LD H,A	H=A.
27101	LD A,B	A=B.
27102	AND %00000011	Keep only bits 0-1.
27104	INC A	Increment A by one.
27105	ADD A,E	A+=E.
27106	LD E,A	E=A.
27107	CALL 28514	Call 28514.
27110	ADD A,A	A+=A.
27111	ADD A,E	A+=E.
27112	CALL 27030	Call 27030.
27115	LD (30769),HL	Write HL to *30769.
27118	LD A,(30768)	A=*30768.
27121	RET	Return.