Harrier Attack: Routine at 6358

6358: Routine at 6358

Used by the routine at 6227.
6358	DEC A
6359	JR NZ,$636C
635B	LD A,($5B3A)
635E	CP $0F
6360	JP NZ,$627F
6363	CALL $625B
6366	LD A,$06
6368	LD ($5B00),A
636B	RET
636C	DEC A
636D	JR NZ,$63A1
636F	LD HL,($5B2C)
6372	LD DE,$00C8
6375	SBC HL,DE
6377	JP NC,$646D
637A	LD A,R
637C	RRA
637D	RRA
637E	AND $07
6380	ADD A,A
6381	LD HL,$63D5
6384	ADD A,L
6385	LD L,A
6386	JR NC,$6389
6388	INC H
6389	LD E,(HL)
638A	INC HL
638B	LD D,(HL)
638C	LD HL,$5B3D
638F	EX DE,HL
6390	LD BC,$0004
6393	LDIR
6395	LD ($5B43),HL
6398	CALL $625B
639B	LD A,$07
639D	LD ($5B00),A
63A0	RET
63A1	DEC A
63A2	JP NZ,$64E2
63A5	LD HL,$5B3D
63A8	PUSH HL
63A9	LD B,$04
63AB	LD HL,$0C1F
63AE	LD DE,($5B43)
63B2	EX (SP),HL
63B3	LD C,(HL)
63B4	INC HL
63B5	EX (SP),HL
63B6	PUSH BC
63B7	LD A,(DE)
63B8	OR A
63B9	JR Z,$63C2
63BB	PUSH DE
63BC	PUSH HL
63BD	CALL $6114
63C0	POP HL
63C1	POP DE
63C2	INC DE
63C3	INC H
63C4	POP BC
63C5	DJNZ $63B2
63C7	LD A,(DE)
63C8	POP HL
63C9	LD ($5B43),DE
63CD	INC A
63CE	RET NZ
63CF	LD A,$06
63D1	LD ($5B00),A
63D4	RET
63D5	PUSH HL
63D6	LD H,E
63D7	JP M,$0363
63DA	LD H,H
63DB	DJNZ $6441
63DD	LD HL,$3264
63E0	LD H,H
63E1	DEC SP
63E2	LD H,H
63E3	LD D,B
63E4	LD H,H
63E5	JR Z,$6407
63E7	JR NZ,$640D
63E9	INC HL
63EA	LD B,B
63EB	LD B,B
63EC	ADD HL,BC
63ED	LD B,C
63EE	LD B,B
63EF	CCF
63F0	ADD HL,BC
63F1	LD B,D
63F2	LD B,B
63F3	LD B,B
63F4	ADD HL,BC
63F5	INC HL
63F6	LD B,B
63F7	LD B,B
63F8	ADD HL,BC
63F9	RST $38
63FA	NOP
63FB	NOP
63FC	LD ($0024),A
63FF	NOP
6400	LD H,$09
6402	RST $38
6403	NOP
6404	NOP
6405	JR Z,$642B
6407	NOP
6408	NOP
6409	DAA
640A	ADD HL,BC
640B	NOP
640C	NOP
640D	ADD HL,HL
640E	ADD HL,BC
640F	RST $38
6410	JR Z,$6442
6412	JR NC,$6438
6414	INC H
6415	LD B,B
6416	LD B,B
6417	ADD HL,BC
6418	NOP
6419	LD B,B
641A	CCF
641B	ADD HL,BC
641C	DEC H
641D	LD B,B
641E	LD B,B
641F	ADD HL,BC
6420	RST $38
6421	JR Z,$644B
6423	JR Z,$6449
6425	NOP
6426	INC HL
6427	LD D,L
6428	ADD HL,BC
6429	NOP
642A	NOP
642B	LD D,(HL)
642C	ADD HL,BC
642D	LD B,H
642E	LD D,H
642F	LD D,A
6430	ADD HL,BC
6431	RST $38
6432	NOP
6433	NOP
6434	JR Z,$645A
6436	NOP
6437	NOP
6438	LD D,E
6439	ADD HL,BC
643A	RST $38
643B	NOP
643C	LD L,$1C
643E	INC H
643F	NOP
6440	LD B,C
6441	LD B,B
6442	ADD HL,BC
6443	NOP
6444	LD B,E
6445	CCF
6446	ADD HL,BC
6447	NOP
6448	LD B,D
6449	LD B,B
644A	ADD HL,BC
644B	NOP
644C	LD B,H
644D	CCF
644E	ADD HL,BC
644F	RST $38
6450	JR Z,$64A2
6452	LD D,B
6453	INC H
6454	LD B,H
6455	LD B,B
6456	LD B,B
6457	ADD HL,BC
6458	LD B,C
6459	LD B,B
645A	LD B,B
645B	ADD HL,BC
645C	LD B,E
645D	LD B,B
645E	CCF
645F	ADD HL,BC
6460	LD B,E
6461	LD B,B
6462	CCF
6463	ADD HL,BC
6464	LD B,D
6465	LD B,B
6466	LD B,B
6467	ADD HL,BC
6468	LD B,H
6469	LD B,B
646A	LD B,B
646B	ADD HL,BC
646C	RST $38
646D	LD HL,$0F1F
6470	LD C,$24
6472	LD A,$09
6474	CALL $6114
6477	LD A,$08
6479	LD ($5B00),A
647C	LD HL,$621A
647F	LD ($5B2A),HL
6482	RET
6483	DEC A
6484	JR NZ,$64A0
6486	LD DE,$00FA
6489	SBC HL,DE
648B	RET C
648C	LD A,($5B34)
648F	OR A
6490	LD A,$0B
6492	JR Z,$6496
6494	LD A,$0E
6496	LD ($5B00),A
6499	LD HL,$64BD
649C	LD ($5B2A),HL
649F	RET
64A0	DEC A
64A1	JR NZ,$64AF
64A3	CALL $61E1
64A6	LD A,(DE)
64A7	INC A
64A8	RET NZ
64A9	LD A,$0C
64AB	LD ($5B00),A
64AE	RET
64AF	DEC A
64B0	RET NZ
64B1	LD DE,$010E
64B4	SBC HL,DE
64B6	RET C
64B7	LD A,$0D
64B9	LD ($5B00),A
64BC	RET
64BD	NOP
64BE	NOP
64BF	LD SP,$0000
64C2	ADD HL,BC
64C3	NOP
64C4	NOP
64C5	ADD HL,BC
64C6	NOP
64C7	NOP
64C8	ADD HL,BC
64C9	NOP
64CA	NOP
64CB	ADD HL,BC
64CC	NOP
64CD	INC SP
64CE	ADD HL,BC
64CF	LD (HL),$34
64D1	ADD HL,BC
64D2	SCF
64D3	DEC (HL)
64D4	ADD HL,BC
64D5	NOP
64D6	NOP
64D7	ADD HL,BC
64D8	NOP
64D9	CPL
64DA	ADD HL,BC
64DB	NOP
64DC	JR NC,$64E7
64DE	NOP
64DF	NOP
64E0	LD ($3DFF),A
64E3	JR NZ,$6508
64E5	LD DE,($5B2A)
64E9	LD A,(DE)
64EA	INC DE
64EB	LD ($5B2A),DE
64EF	CP $FF
64F1	JR Z,$64FC
64F3	LD C,$28
64F5	LD HL,$0F1F
64F8	CALL $6114
64FB	RET
64FC	LD A,$09
64FE	LD ($5B00),A
6501	LD HL,$620D
6504	LD ($5B2A),HL
6507	RET
6508	DEC A
6509	JP NZ,$6483
650C	LD DE,($5B2A)
6510	LD A,(DE)
6511	INC A
6512	JR Z,$6523
6514	LD HL,$0D1F
6517	LD B,$03
6519	LD C,$2A
651B	CALL $6186
651E	LD ($5B2A),DE
6522	RET
6523	LD A,$0A
6525	LD ($5B00),A
6528	LD A,($5B1D)
652B	OR A
652C	RET NZ
652D	LD HL,$0E1B
6530	LD ($5B1E),HL
6533	INC A
6534	LD ($5B1D),A
6537	RET
6538	LD HL,$59FE
653B	LD DE,$59FF
653E	LD BC,$00FF
6541	LDDR
6543	LD HL,$4FFE
6546	LD DE,$4FFF
6549	LD BC,$07FF
654C	LDDR
654E	RET
This entry point is used by the routine at 7162.
654F	DEC A
6550	JR NZ,$656F
6552	CALL $6538
6555	LD DE,($5B2A)
6559	LD A,(DE)
655A	INC A
655B	JR NZ,$6568
655D	LD A,$02
655F	LD ($5B00),A
6562	LD A,$06
6564	LD ($5B3D),A
6567	RET
6568	LD HL,$0D00
656B	CALL $6201
656E	RET
656F	DEC A
6570	JR NZ,$657F
6572	CALL $6538
6575	LD HL,$5B3D
6578	DEC (HL)
6579	RET NZ
657A	LD A,$03
657C	LD ($5B00),A
657F	RET