Wheelie: Routine at 6400

6400: Routine at 6400

Used by the routine at 6833.
6400	PUSH HL
6401	LD HL,($781E)
6404	LD A,(HL)
6405	INC L
6406	JR NZ,$640F
6408	INC H
6409	BIT 2,H
640B	JR Z,$640F
640D	LD H,$79
640F	LD ($781E),HL
6412	POP HL
6413	RET
6414	LD HL,($5C78)
6417	LD A,H
6418	AND $03
641A	JR NZ,$641D
641C	INC A
641D	ADD A,$78
641F	LD H,A
6420	LD ($781E),HL
6423	RET
6424	LD C,$05
6426	LD B,$20
6428	LD A,(HL)
6429	INC HL
642A	LD (DE),A
642B	INC E
642C	DJNZ $6428
642E	DEC E
642F	LD A,E
6430	AND $E0
6432	LD E,A
6433	INC D
6434	DEC C
6435	JR NZ,$6426
6437	ADD A,$20
6439	LD E,A
643A	RET Z
643B	LD A,D
643C	SUB $05
643E	LD D,A
643F	RET
6440	LD A,$0A
6442	NOP
6443	LD C,A
6444	INC B
6445	INC C
6446	LD HL,$A01E
6449	PUSH HL
644A	LD DE,$B400
644D	DEC (HL)
644E	JR Z,$6458
6450	LD E,$24
6452	INC H
6453	DEC (HL)
6454	JR Z,$6458
6456	LD E,$48
6458	POP HL
6459	PUSH HL
645A	INC L
645B	INC L
645C	JR NZ,$6462
645E	LD A,H
645F	ADD A,$05
6461	LD H,A
6462	INC L
6463	LD A,(HL)
6464	DEC A
6465	JR Z,$6470
6467	INC H
6468	LD A,(HL)
6469	DEC A
646A	LD A,$0C
646C	JR Z,$6470
646E	LD A,$18
6470	ADD A,E
6471	LD E,A
6472	POP HL
6473	DEC H
6474	LD B,$04
6476	LD A,(DE)
6477	LD (HL),A
6478	INC H
6479	INC E
647A	DJNZ $6476
647C	DEC H
647D	DEC H
647E	DEC H
647F	DEC H
6480	INC L
6481	LD B,$04
6483	LD A,(DE)
6484	LD (HL),A
6485	INC H
6486	INC E
6487	DJNZ $6483
6489	INC H
648A	INC L
648B	JR Z,$6491
648D	LD A,H
648E	SUB $05
6490	LD H,A
6491	LD B,$04
6493	LD A,(DE)
6494	LD (HL),A
6495	INC H
6496	INC E
6497	DJNZ $6493
6499	DEC H
649A	DEC H
649B	DEC H
649C	LD A,L
649D	ADD A,$1E
649F	LD L,A
64A0	DEC C
64A1	JR NZ,$6449
64A3	RET
64A4	NOP
64A5	NOP
64A6	NOP
64A7	NOP
64A8	NOP
64A9	NOP
64AA	LD HL,$9E00
64AD	LD BC,$0A00
64B0	LD A,$32
64B2	CPIR
64B4	LD A,B
64B5	OR C
64B6	RET Z
64B7	PUSH HL
64B8	PUSH BC
64B9	XOR A
64BA	NOP
64BB	NOP
64BC	LD B,$04
64BE	LD E,A
64BF	DEC L
64C0	CALL $6400
64C3	AND $07
64C5	CP E
64C6	JR C,$64F4
64C8	CALL $7088
64CB	AND $07
64CD	ADD A,A
64CE	LD E,A
64CF	ADD A,A
64D0	ADD A,E
64D1	ADD A,$6C
64D3	LD E,A
64D4	LD D,$B4
64D6	LD A,(DE)
64D7	LD (HL),A
64D8	INC E
64D9	INC L
64DA	DJNZ $64D6
64DC	LD A,(DE)
64DD	AND A
64DE	JR Z,$64F9
64E0	DEC L
64E1	DEC L
64E2	DEC L
64E3	INC H
64E4	LD B,$02
64E6	LD A,(HL)
64E7	AND A
64E8	LD A,(DE)
64E9	JR Z,$64ED
64EB	INC A
64EC	INC A
64ED	LD (HL),A
64EE	INC L
64EF	INC E
64F0	DJNZ $64E6
64F2	JR $64F9
64F4	LD (HL),$01
64F6	INC L
64F7	DJNZ $64F4
64F9	POP BC
64FA	POP HL
64FB	JR $64B0
64FD	NOP
64FE	NOP
64FF	NOP
This entry point is used by the routine at 6833.
6500	LD DE,$9E00
6503	LD HL,$8960
6506	CALL $6424
6509	LD HL,$A101
650C	LD B,$0A
650E	LD (HL),$00
6510	DEC H
6511	LD (HL),$00
6513	INC H
6514	INC L
6515	DJNZ $650E
6517	LD (HL),$23
6519	EXX
651A	LD A,$0A
651C	NOP
651D	LD B,A
651E	EXX
651F	CALL $6400
6522	AND $1F
6524	LD B,A
6525	ADD A,A
6526	ADD A,A
6527	ADD A,B
6528	RRCA
6529	RRCA
652A	RRCA
652B	LD L,A
652C	AND $1F
652E	ADD A,$8A
6530	LD H,A
6531	LD A,L
6532	AND $E0
6534	LD L,A
6535	CALL $6424
6538	EXX
6539	DJNZ $651E
653B	EXX
653C	LD HL,$8960
653F	CALL $6424
6542	LD A,E
6543	LD HL,$02F4
6546	AND A
6547	JR NZ,$654B
6549	LD H,$FE
654B	ADD HL,DE
654C	LD (HL),$22
654E	LD B,$0A
6550	INC L
6551	LD (HL),$00
6553	DEC H
6554	LD (HL),$00
6556	INC H
6557	DJNZ $6550
6559	CALL $6440
655C	CALL $64AA
655F	CALL $7200
6562	RET
6563	NOP
6564	ADD A,A
6565	ADD A,A
6566	LD C,A
6567	EXX
6568	LD BC,$05FF
656B	LD DE,$7800
656E	EXX
656F	LD A,(DE)
6570	INC D
6571	RRCA
6572	RRCA
6573	RRCA
6574	LD L,A
6575	AND $1F
6577	ADD A,$80
6579	LD H,A
657A	LD A,L
657B	AND $E0
657D	ADD A,C
657E	LD L,A
657F	PUSH HL
6580	EXX
6581	POP HL
6582	LDI
6584	LDI
6586	LDI
6588	LDI
658A	DJNZ $656E
658C	LD A,(DE)
658D	INC A
658E	LD (DE),A
658F	INC E
6590	LD A,(DE)
6591	EXX
6592	ADD A,B
6593	EXX
6594	LD (DE),A
6595	LD E,$02
6597	LD B,$10
6599	EXX
659A	RET
659B	NOP
This entry point is used by the routine at 6833.
659C	LD HL,($7817)
659F	LD D,H
65A0	LD E,L
65A1	LD A,($7819)
65A4	LD C,A
65A5	INC A
65A6	AND $07
65A8	LD ($7819),A
65AB	JR NZ,$65B7
65AD	INC L
65AE	JR NZ,$65B4
65B0	LD A,H
65B1	ADD A,$05
65B3	LD H,A
65B4	LD ($7817),HL
65B7	LD A,E
65B8	ADD A,$08
65BA	LD E,A
65BB	JR NC,$65C1
65BD	LD A,D
65BE	ADD A,$05
65C0	LD D,A
65C1	LD A,C
65C2	LD B,$01
65C4	CALL $6564
65C7	LD HL,$401F
65CA	LD D,H
65CB	LD E,L
65CC	EXX
65CD	LD A,(DE)
65CE	INC E
65CF	LD L,A
65D0	LD H,$1F
65D2	ADD HL,HL
65D3	ADD HL,HL
65D4	EXX
65D5	LD B,$04
65D7	EXX
65D8	LD A,(HL)
65D9	INC L
65DA	EXX
65DB	RLD
65DD	DEC L
65DE	RLD
65E0	DEC L
65E1	RLD
65E3	DEC L
65E4	RLD
65E6	DEC L
65E7	RLD
65E9	DEC L
65EA	RLD
65EC	DEC L
65ED	RLD
65EF	DEC L
65F0	RLD
65F2	DEC L
65F3	RLD
65F5	DEC L
65F6	RLD
65F8	DEC L
65F9	RLD
65FB	DEC L
65FC	RLD
65FE	DEC L
65FF	RLD
6601	DEC L
6602	RLD
6604	DEC L
6605	RLD
6607	DEC L
6608	RLD
660A	DEC L
660B	RLD
660D	DEC L
660E	RLD
6610	DEC L
6611	RLD
6613	DEC L
6614	RLD
6616	DEC L
6617	RLD
6619	DEC L
661A	RLD
661C	DEC L
661D	RLD
661F	DEC L
6620	RLD
6622	DEC L
6623	RLD
6625	DEC L
6626	RLD
6628	DEC L
6629	RLD
662B	DEC L
662C	RLD
662E	DEC L
662F	RLD
6631	DEC L
6632	RLD
6634	DEC L
6635	RLD
6637	DEC L
6638	RLD
663A	LD L,E
663B	INC H
663C	INC H
663D	DJNZ $65D7
663F	LD A,$20
6641	ADD A,E
6642	LD E,A
6643	LD L,A
6644	JR NC,$6648
6646	LD D,$48
6648	LD H,D
6649	EXX
664A	DJNZ $65CD
664C	EXX
664D	RET
664E	NOP
664F	NOP
This entry point is used by the routine at 6833.
6650	LD HL,($7817)
6653	LD A,($7819)
6656	AND A
6657	JR NZ,$6667
6659	LD A,L
665A	AND A
665B	JR NZ,$6661
665D	LD A,H
665E	SUB $05
6660	LD H,A
6661	DEC L
6662	LD ($7817),HL
6665	LD A,$08
6667	DEC A
6668	LD ($7819),A
666B	LD D,H
666C	LD E,L
666D	LD B,$FF
666F	CALL $6564
6672	LD HL,$4000
6675	LD D,H
6676	LD E,L
6677	EXX
6678	LD A,(DE)
6679	INC E
667A	LD L,A
667B	LD H,$1F
667D	ADD HL,HL
667E	ADD HL,HL
667F	EXX
6680	LD B,$04
6682	EXX
6683	LD A,(HL)
6684	INC L
6685	EXX
6686	RRD
6688	INC L
6689	RRD
668B	INC L
668C	RRD
668E	INC L
668F	RRD
6691	INC L
6692	RRD
6694	INC L
6695	RRD
6697	INC L
6698	RRD
669A	INC L
669B	RRD
669D	INC L
669E	RRD
66A0	INC L
66A1	RRD
66A3	INC L
66A4	RRD
66A6	INC L
66A7	RRD
66A9	INC L
66AA	RRD
66AC	INC L
66AD	RRD
66AF	INC L
66B0	RRD
66B2	INC L
66B3	RRD
66B5	INC L
66B6	RRD
66B8	INC L
66B9	RRD
66BB	INC L
66BC	RRD
66BE	INC L
66BF	RRD
66C1	INC L
66C2	RRD
66C4	INC L
66C5	RRD
66C7	INC L
66C8	RRD
66CA	INC L
66CB	RRD
66CD	INC L
66CE	RRD
66D0	INC L
66D1	RRD
66D3	INC L
66D4	RRD
66D6	INC L
66D7	RRD
66D9	INC L
66DA	RRD
66DC	INC L
66DD	RRD
66DF	INC L
66E0	RRD
66E2	INC L
66E3	RRD
66E5	LD L,E
66E6	INC H
66E7	INC H
66E8	DJNZ $6682
66EA	LD A,$20
66EC	ADD A,E
66ED	LD E,A
66EE	LD L,A
66EF	JR NC,$66F3
66F1	LD D,$48
66F3	LD H,D
66F4	EXX
66F5	DJNZ $6678
66F7	EXX
66F8	RET
66F9	NOP
66FA	NOP
66FB	NOP
66FC	NOP
66FD	NOP
66FE	NOP
66FF	NOP
6700	LD DE,$7802
6703	LD B,$10
6705	LD A,(DE)
6706	INC E
6707	LD C,$04
6709	CP $0F
670B	JR C,$6722
670D	CP $90
670F	JR NC,$6722
6711	INC C
6712	CP $3D
6714	JR C,$6722
6716	INC C
6717	CP $51
6719	JR C,$6722
671B	LD C,$02
671D	CP $6F
671F	JR C,$6722
6721	INC C
6722	LD (HL),C
6723	LD A,$20
6725	ADD A,L
6726	LD L,A
6727	ADC A,H
6728	SUB L
6729	LD H,A
672A	DJNZ $6705
672C	RET
672D	NOP
672E	LD HL,$5801
6731	LD DE,$5800
6734	LD B,$10
6736	LD C,$FF
6738	LDI
673A	LDI
673C	LDI
673E	LDI
6740	LDI
6742	LDI
6744	LDI
6746	LDI
6748	LDI
674A	LDI
674C	LDI
674E	LDI
6750	LDI
6752	LDI
6754	LDI
6756	LDI
6758	LDI
675A	LDI
675C	LDI
675E	LDI
6760	LDI
6762	LDI
6764	LDI
6766	LDI
6768	LDI
676A	LDI
676C	LDI
676E	LDI
6770	LDI
6772	LDI
6774	LDI
6776	INC HL
6777	INC DE
6778	DJNZ $6736
677A	LD HL,$581F
677D	JP $6700
6780	NOP
6781	NOP
6782	NOP
6783	NOP
6784	NOP
6785	NOP
6786	NOP
6787	NOP
6788	NOP
6789	NOP
678A	NOP
678B	NOP
678C	LD HL,$59FE
678F	LD DE,$59FF
6792	LD B,$10
6794	LD C,$FF
6796	LDD
6798	LDD
679A	LDD
679C	LDD
679E	LDD
67A0	LDD
67A2	LDD
67A4	LDD
67A6	LDD
67A8	LDD
67AA	LDD
67AC	LDD
67AE	LDD
67B0	LDD
67B2	LDD
67B4	LDD
67B6	LDD
67B8	LDD
67BA	LDD
67BC	LDD
67BE	LDD
67C0	LDD
67C2	LDD
67C4	LDD
67C6	LDD
67C8	LDD
67CA	LDD
67CC	LDD
67CE	LDD
67D0	LDD
67D2	LDD
67D4	DEC HL
67D5	DEC DE
67D6	DJNZ $6794
67D8	LD HL,$5800
67DB	JP $6700
67DE	NOP
67DF	NOP
67E0	NOP
67E1	NOP
67E2	NOP
67E3	NOP
67E4	NOP
67E5	NOP
67E6	NOP
67E7	NOP
67E8	NOP
This entry point is used by the routine at 6833.
67E9	LD HL,$7814
67EC	LD A,(HL)
67ED	CP $02
67EF	RET NZ
67F0	LD (HL),$00
67F2	INC HL
67F3	LD A,(HL)
67F4	AND A
67F5	RET Z
67F6	LD (HL),$00
67F8	CP $02
67FA	JP Z,$672E
67FD	JP $678C
This entry point is used by the routine at 6833.
6800	LD ($7819),A
6803	LD A,L
6804	SUB $08
6806	LD L,A
6807	JR NC,$680D
6809	LD A,H
680A	SUB $05
680C	LD H,A
680D	LD ($7817),HL
6810	LD HL,$0000
6813	LD ($7814),HL
6816	LD B,$20
6818	PUSH BC
6819	CALL $659C
681C	CALL $659C
681F	CALL $67E9
6822	POP BC
6823	DJNZ $6818
6825	RET
6826	NOP
6827	NOP
This entry point is used by the routines at 6833, 7552 and ED52.
6828	LD DE,$FE00
682B	LD BC,$FEFE
This entry point is used by the routine at 6833.
682E	IN A,(C)
6830	CPL
6831	AND $1F