Harrier Attack: Routine at 27172

27172: Routine at 6A24

Used by the routine at 24653.
27172	LD A,(23325)
27175	OR A
27176	RET Z
27177	DEC A
27178	JR NZ,27194
27180	CALL 27217
27183	LD C,41
27185	CALL 24852
27188	LD A,2
27190	LD (23325),A
27193	RET
27194	CALL 27206
27197	CALL 27217
27200	LD C,41
27202	CALL 24852
27205	RET
27206	LD HL,(23326)
27209	DEC L
27210	XOR A
27211	LD C,45
27213	CALL 24852
27216	RET
27217	LD HL,(23326)
27220	DEC L
27221	JR Z,27298
27223	DEC L
27224	JR Z,27298
27226	LD A,(23330)
27229	OR A
27230	JR NZ,27298
27232	LD DE,(23328)
27236	LD A,L
27237	SUB E
27238	LD B,92
27240	JR C,27266
27242	CP 5
27244	JR C,27266
27246	LD A,D
27247	CP H
27248	JR Z,27256
27250	JR C,27255
27252	INC H
27253	JR 27256
27255	DEC H
27256	CP H
27257	JR Z,27266
27259	JR C,27264
27261	DEC B
27262	JR 27266
27264	LD B,90
27266	LD (23326),HL
27269	PUSH DE
27270	CALL 24822
27273	LD A,(DE)
27274	POP DE
27275	LD C,A
27276	LD A,92
27278	CP B
27279	JR NZ,27308
27281	LD A,C
27282	CP 40
27284	JR NZ,27308
27286	LD A,E
27287	CP L
27288	JR NZ,27304
27290	CALL 28112
27293	LD A,1
27295	LD (23330),A
27298	XOR A
27299	LD (23325),A
27302	POP HL
27303	RET
27304	INC A
27305	CP L
27306	JR Z,27290
27308	LD A,C
27309	CP 45
27311	JR Z,27330
27313	CP 47
27315	JR Z,27330
27317	CP 43
27319	JR Z,27330
27321	CP 41
27323	JR Z,27333
27325	CALL 27742
27328	JR 27298
27330	LD A,B
27331	OR A
27332	RET
27333	LD BC,(23298)
27337	OR A
27338	SBC HL,BC
27340	JR NZ,27348
27342	XOR A
27343	LD (23297),A
27346	JR 27330
27348	XOR A
27349	LD (23347),A
27352	JR 27330