Harrier Attack: Routine at 6148

6148: Routine at 6148

Used by the routine at 604D.
6148	LD A,($5B37)
614B	OR A
614C	JR NZ,$616B
614E	LD A,($5B35)
6151	AND $F0
6153	RET NZ
6154	LD A,($5B36)
6157	LD DE,$6198
615A	BIT 3,A
615C	JR NZ,$6161
615E	LD DE,$61A8
6161	LD ($5B38),DE
6165	AND $03
6167	LD ($5B37),A
616A	RET
616B	LD H,A
616C	LD L,$1F
616E	LD DE,($5B38)
6172	LD A,(DE)
6173	INC A
6174	JR NZ,$617A
6176	LD ($5B37),A
6179	RET
617A	LD B,$03
617C	LD C,$2F
617E	CALL $6186
6181	LD ($5B38),DE
6185	RET
6186	PUSH BC
6187	LD A,(DE)
6188	OR A
6189	JR Z,$6192
618B	PUSH DE
618C	PUSH HL
618D	CALL $6114
6190	POP HL
6191	POP DE
6192	INC DE
6193	INC H
6194	POP BC
6195	DJNZ $6186
6197	RET
6198	NOP
6199	DEC BC
619A	LD C,$00
619C	INC C
619D	RRCA
619E	NOP
619F	DEC C
61A0	DJNZ $61A2
61A2	LD DE,$0013
61A5	LD (DE),A
61A6	INC D
61A7	RST $38
61A8	NOP
61A9	DEC BC
61AA	LD C,$00
61AC	INC C
61AD	RRCA
61AE	NOP
61AF	DEC C
61B0	DJNZ $61C7
61B2	ADD HL,DE
61B3	DEC DE
61B4	LD D,$09
61B6	INC E
61B7	RLA
61B8	ADD HL,BC
61B9	DEC E
61BA	JR $61D6
61BC	LD E,$11
61BE	INC DE
61BF	NOP
61C0	LD (DE),A
61C1	INC D
61C2	NOP
61C3	RST $38
This entry point is used by the routine at 604D.
61C4	LD HL,($5B2C)
61C7	LD A,($5B00)
61CA	OR A
61CB	JR NZ,$61DE
61CD	LD DE,$0064
61D0	SBC HL,DE
61D2	RET C
61D3	LD HL,$620D
61D6	LD ($5B2A),HL
61D9	INC A
61DA	LD ($5B00),A
61DD	RET
61DE	DEC A
61DF	JR NZ,$6227
61E1	LD DE,($5B2A)
61E5	LD A,(DE)
61E6	INC A
61E7	JR NZ,$61FE
61E9	LD A,($5B00)
61EC	DEC A
61ED	RET NZ
61EE	LD HL,$0E1B
61F1	LD ($5B1E),HL
61F4	LD A,$01
61F6	LD ($5B1D),A
61F9	INC A
61FA	LD ($5B00),A
61FD	RET
61FE	LD HL,$0D1F
6201	LD B,$03
6203	LD C,$2A
6205	CALL $6186
6208	LD ($5B2A),DE
620C	RET
620D	NOP
620E	NOP
620F	LD A,($3800)
6212	DEC SP
6213	NOP
6214	ADD HL,SP
6215	INC A
6216	NOP
6217	NOP
6218	DEC A
6219	RST $38
621A	LD D,L
621B	LD D,(HL)
621C	LD D,A
621D	LD D,L
621E	LD D,(HL)
621F	LD D,A
6220	LD D,L
6221	LD D,(HL)
6222	LD D,A
6223	LD D,L
6224	LD D,(HL)
6225	LD D,A
6226	RST $38
6227	DEC A
6228	JR NZ,$624B
622A	LD DE,$00C8
622D	SBC HL,DE
622F	RET C
6230	LD HL,$0000
6233	LD ($5B2C),HL
6236	LD A,$03
6238	LD ($5B00),A
623B	LD A,$0F
623D	LD ($5B3A),A
6240	LD HL,$0F1F
6243	LD C,$2C
6245	LD A,$01
6247	CALL $6114
624A	RET
624B	DEC A
624C	JP NZ,$6329
624F	LD A,($5B36)
6252	RRA
6253	RRA
6254	AND $03
6256	LD ($5B41),A
6259	JR NZ,$627C
625B	LD A,($5B3A)
625E	LD H,A
625F	LD A,$0A
6261	LD L,$1F
6263	PUSH HL
6264	LD C,$2C
6266	CALL $6114
6269	POP HL
626A	LD A,$0F
626C	SUB H
626D	JR Z,$6279
626F	LD B,A
6270	INC H
6271	LD DE,$634F
6274	LD C,$24
6276	CALL $6186
6279	JP $6306
627C	DEC A
627D	JR NZ,$6296
627F	LD A,R
6281	RRA
6282	AND $06
6284	ADD A,$02
6286	LD HL,($5B39)
6289	LD L,A
628A	LD A,H
628B	CP $0F
628D	JR Z,$625B
628F	INC A
6290	LD ($5B3A),A
6293	LD A,L
6294	JR $6261
6296	DEC A
6297	JR NZ,$62B9
6299	LD A,($5B36)
629C	RRA
629D	AND $06
629F	INC A
62A0	LD HL,($5B39)
62A3	LD L,A
62A4	LD A,($5B27)
62A7	LD D,A
62A8	LD A,$05
62AA	SUB D
62AB	ADD A,$07
62AD	CP H
62AE	LD A,H
62AF	JR Z,$625B
62B1	DEC A
62B2	DEC H
62B3	LD ($5B3A),A
62B6	LD A,L
62B7	JR $6261
62B9	LD A,($5B42)
62BC	AND $01
62BE	JR Z,$62C6
62C0	XOR A
62C1	LD ($5B41),A
62C4	JR $625B
62C6	LD A,$28
62C8	LD C,A
62C9	LD ($5B3D),A
62CC	LD A,R
62CE	RRA
62CF	AND $0C
62D1	LD L,A
62D2	RRA
62D3	RRA
62D4	LD ($5B28),A
62D7	ADD A,L
62D8	LD L,A
62D9	CP $0F
62DB	JR NZ,$62E3
62DD	LD A,$28
62DF	LD C,A
62E0	LD ($5B3D),A
62E3	LD H,$00
62E5	LD DE,$633B
62E8	ADD HL,DE
62E9	EX DE,HL
62EA	LD A,$04
62EC	LD ($5B00),A
62EF	LD HL,($5B39)
62F2	LD L,$1F
62F4	PUSH HL
62F5	DEC H
62F6	DEC H
62F7	LD B,$02
62F9	CALL $6186
62FC	LD ($5B3B),DE
6300	POP HL
6301	LD A,$09
6303	JP $6261
6306	LD A,($5B41)
6309	LD ($5B42),A
630C	LD A,($5B27)
630F	LD L,$00
6311	LD H,A
6312	LD DE,$012C
6315	ADD HL,DE
6316	EX DE,HL
6317	LD HL,($5B2C)
631A	SBC HL,DE
631C	RET C
631D	LD A,$05
631F	LD ($5B00),A
6322	LD HL,$0000
6325	LD ($5B2C),HL
6328	RET
6329	DEC A
632A	JR NZ,$6358
632C	LD DE,($5B3B)
6330	LD A,$03
6332	LD ($5B00),A
6335	LD A,($5B3D)
6338	LD C,A
6339	JR $62EF
633B	NOP
633C	INC HL
633D	NOP
633E	NOP
633F	RST $38
6340	NOP
6341	INC H
6342	NOP
6343	NOP
6344	RST $38
6345	NOP
6346	DEC H
6347	NOP
6348	NOP
6349	RST $38
634A	NOP
634B	LD B,L
634C	NOP
634D	LD B,(HL)
634E	RST $38
634F	ADD HL,BC
6350	ADD HL,BC
6351	ADD HL,BC
6352	ADD HL,BC
6353	ADD HL,BC
6354	ADD HL,BC
6355	ADD HL,BC
6356	ADD HL,BC
6357	ADD HL,BC
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