Wheelie: Routine at 29379

29379: Routine at 72C3

Used by the routine at 27648.
29379	LD A,(30784)	Jump to 29410 if *30784 is zero.
29382	AND A
29383	JR Z,29410
29385	LD HL,30787	HL=30787.
29388	DEC (HL)	Decrease *HL by one.
29389	JR NZ,29410	Jump to 29410 if *HL is not zero.
29391	LD (HL),3	Write 3 to *HL.
29393	LD HL,(30785)	HL=*30785.
29396	DEC HL	Decrease HL by one.
29397	LD (30785),HL	Write HL to *30785.
29400	LD A,H	Jump to 29410 if H is not zero.
29401	AND A
29402	JR NZ,29410
29404	LD A,L	Call 30688 if L is equal to 128.
29405	CP 128
29407	CALL Z,30688
29410	LD HL,(30743)	HL=*30743.
29413	LD A,H	A=H.
29414	SUB 153	A-=153.
29416	LD B,254	B=254.
29418	INC B	Increment B by two.
29419	INC B	Increment B by two.
29420	SUB 5	A-=5.
29422	JR NZ,29418	Jump to 29418 if A is not zero.
29424	LD A,L	A=L.
29425	AND %11100000	Keep only bits 5-7.
29427	ADD A,A	A+=A.
29428	LD L,A	L=A.
29429	ADC A,B	A+=B.
29430	SUB L	A-=L.
29431	ADD A,250	A+=250.
29433	LD H,A	H=A.
29434	CALL 59469	Call 59469.
29437	LD B,8	B=8.
29439	PUSH HL	Stash HL and BC on the stack.
29440	PUSH BC	Stash HL and BC on the stack.
29441	CALL 28829	Call 28829.
29444	POP BC	Restore BC and HL from the stack.
29445	POP HL	Restore BC and HL from the stack.
29446	LD DE,8	DE=0008.
29449	ADD HL,DE	HL+=DE.
29450	DJNZ 29439	Decrease counter by one and loop back to 29439 until counter is zero.
29452	RET	Return.