Harrier Attack: Routine at 25432

25432: Routine at 6358

Used by the routine at 25127.
25432	DEC A
25433	JR NZ,25452
25435	LD A,(23354)
25438	CP 15
25440	JP NZ,25215
25443	CALL 25179
25446	LD A,6
25448	LD (23296),A
25451	RET
25452	DEC A
25453	JR NZ,25505
25455	LD HL,(23340)
25458	LD DE,200
25461	SBC HL,DE
25463	JP NC,25709
25466	LD A,R
25468	RRA
25469	RRA
25470	AND 7
25472	ADD A,A
25473	LD HL,25557
25476	ADD A,L
25477	LD L,A
25478	JR NC,25481
25480	INC H
25481	LD E,(HL)
25482	INC HL
25483	LD D,(HL)
25484	LD HL,23357
25487	EX DE,HL
25488	LD BC,4
25491	LDIR
25493	LD (23363),HL
25496	CALL 25179
25499	LD A,7
25501	LD (23296),A
25504	RET
25505	DEC A
25506	JP NZ,25826
25509	LD HL,23357
25512	PUSH HL
25513	LD B,4
25515	LD HL,3103
25518	LD DE,(23363)
25522	EX (SP),HL
25523	LD C,(HL)
25524	INC HL
25525	EX (SP),HL
25526	PUSH BC
25527	LD A,(DE)
25528	OR A
25529	JR Z,25538
25531	PUSH DE
25532	PUSH HL
25533	CALL 24852
25536	POP HL
25537	POP DE
25538	INC DE
25539	INC H
25540	POP BC
25541	DJNZ 25522
25543	LD A,(DE)
25544	POP HL
25545	LD (23363),DE
25549	INC A
25550	RET NZ
25551	LD A,6
25553	LD (23296),A
25556	RET
25557	PUSH HL
25558	LD H,E
25559	JP M,867
25562	LD H,H
25563	DJNZ 25665
25565	LD HL,12900
25568	LD H,H
25569	DEC SP
25570	LD H,H
25571	LD D,B
25572	LD H,H
25573	JR Z,25607
25575	JR NZ,25613
25577	INC HL
25578	LD B,B
25579	LD B,B
25580	ADD HL,BC
25581	LD B,C
25582	LD B,B
25583	CCF
25584	ADD HL,BC
25585	LD B,D
25586	LD B,B
25587	LD B,B
25588	ADD HL,BC
25589	INC HL
25590	LD B,B
25591	LD B,B
25592	ADD HL,BC
25593	RST 56
25594	NOP
25595	NOP
25596	LD (36),A
25599	NOP
25600	LD H,9
25602	RST 56
25603	NOP
25604	NOP
25605	JR Z,25643
25607	NOP
25608	NOP
25609	DAA
25610	ADD HL,BC
25611	NOP
25612	NOP
25613	ADD HL,HL
25614	ADD HL,BC
25615	RST 56
25616	JR Z,25666
25618	JR NC,25656
25620	INC H
25621	LD B,B
25622	LD B,B
25623	ADD HL,BC
25624	NOP
25625	LD B,B
25626	CCF
25627	ADD HL,BC
25628	DEC H
25629	LD B,B
25630	LD B,B
25631	ADD HL,BC
25632	RST 56
25633	JR Z,25675
25635	JR Z,25673
25637	NOP
25638	INC HL
25639	LD D,L
25640	ADD HL,BC
25641	NOP
25642	NOP
25643	LD D,(HL)
25644	ADD HL,BC
25645	LD B,H
25646	LD D,H
25647	LD D,A
25648	ADD HL,BC
25649	RST 56
25650	NOP
25651	NOP
25652	JR Z,25690
25654	NOP
25655	NOP
25656	LD D,E
25657	ADD HL,BC
25658	RST 56
25659	NOP
25660	LD L,28
25662	INC H
25663	NOP
25664	LD B,C
25665	LD B,B
25666	ADD HL,BC
25667	NOP
25668	LD B,E
25669	CCF
25670	ADD HL,BC
25671	NOP
25672	LD B,D
25673	LD B,B
25674	ADD HL,BC
25675	NOP
25676	LD B,H
25677	CCF
25678	ADD HL,BC
25679	RST 56
25680	JR Z,25762
25682	LD D,B
25683	INC H
25684	LD B,H
25685	LD B,B
25686	LD B,B
25687	ADD HL,BC
25688	LD B,C
25689	LD B,B
25690	LD B,B
25691	ADD HL,BC
25692	LD B,E
25693	LD B,B
25694	CCF
25695	ADD HL,BC
25696	LD B,E
25697	LD B,B
25698	CCF
25699	ADD HL,BC
25700	LD B,D
25701	LD B,B
25702	LD B,B
25703	ADD HL,BC
25704	LD B,H
25705	LD B,B
25706	LD B,B
25707	ADD HL,BC
25708	RST 56
25709	LD HL,3871
25712	LD C,36
25714	LD A,9
25716	CALL 24852
25719	LD A,8
25721	LD (23296),A
25724	LD HL,25114
25727	LD (23338),HL
25730	RET
25731	DEC A
25732	JR NZ,25760
25734	LD DE,250
25737	SBC HL,DE
25739	RET C
25740	LD A,(23348)
25743	OR A
25744	LD A,11
25746	JR Z,25750
25748	LD A,14
25750	LD (23296),A
25753	LD HL,25789
25756	LD (23338),HL
25759	RET
25760	DEC A
25761	JR NZ,25775
25763	CALL 25057
25766	LD A,(DE)
25767	INC A
25768	RET NZ
25769	LD A,12
25771	LD (23296),A
25774	RET
25775	DEC A
25776	RET NZ
25777	LD DE,270
25780	SBC HL,DE
25782	RET C
25783	LD A,13
25785	LD (23296),A
25788	RET
25789	NOP
25790	NOP
25791	LD SP,0
25794	ADD HL,BC
25795	NOP
25796	NOP
25797	ADD HL,BC
25798	NOP
25799	NOP
25800	ADD HL,BC
25801	NOP
25802	NOP
25803	ADD HL,BC
25804	NOP
25805	INC SP
25806	ADD HL,BC
25807	LD (HL),52
25809	ADD HL,BC
25810	SCF
25811	DEC (HL)
25812	ADD HL,BC
25813	NOP
25814	NOP
25815	ADD HL,BC
25816	NOP
25817	CPL
25818	ADD HL,BC
25819	NOP
25820	JR NC,25831
25822	NOP
25823	NOP
25824	LD (15871),A
25827	JR NZ,25864
25829	LD DE,(23338)
25833	LD A,(DE)
25834	INC DE
25835	LD (23338),DE
25839	CP 255
25841	JR Z,25852
25843	LD C,40
25845	LD HL,3871
25848	CALL 24852
25851	RET
25852	LD A,9
25854	LD (23296),A
25857	LD HL,25101
25860	LD (23338),HL
25863	RET
25864	DEC A
25865	JP NZ,25731
25868	LD DE,(23338)
25872	LD A,(DE)
25873	INC A
25874	JR Z,25891
25876	LD HL,3359
25879	LD B,3
25881	LD C,42
25883	CALL 24966
25886	LD (23338),DE
25890	RET
25891	LD A,10
25893	LD (23296),A
25896	LD A,(23325)
25899	OR A
25900	RET NZ
25901	LD HL,3611
25904	LD (23326),HL
25907	INC A
25908	LD (23325),A
25911	RET
25912	LD HL,23038
25915	LD DE,23039
25918	LD BC,255
25921	LDDR
25923	LD HL,20478
25926	LD DE,20479
25929	LD BC,2047
25932	LDDR
25934	RET
This entry point is used by the routine at 29026.
25935	DEC A
25936	JR NZ,25967
25938	CALL 25912
25941	LD DE,(23338)
25945	LD A,(DE)
25946	INC A
25947	JR NZ,25960
25949	LD A,2
25951	LD (23296),A
25954	LD A,6
25956	LD (23357),A
25959	RET
25960	LD HL,3328
25963	CALL 25089
25966	RET
25967	DEC A
25968	JR NZ,25983
25970	CALL 25912
25973	LD HL,23357
25976	DEC (HL)
25977	RET NZ
25978	LD A,3
25980	LD (23296),A
25983	RET