Harrier Attack: Routine at 24904

24904: Routine at 6148

Used by the routine at 24653.
24904	LD A,(23351)
24907	OR A
24908	JR NZ,24939
24910	LD A,(23349)
24913	AND 240
24915	RET NZ
24916	LD A,(23350)
24919	LD DE,24984
24922	BIT 3,A
24924	JR NZ,24929
24926	LD DE,25000
24929	LD (23352),DE
24933	AND 3
24935	LD (23351),A
24938	RET
24939	LD H,A
24940	LD L,31
24942	LD DE,(23352)
24946	LD A,(DE)
24947	INC A
24948	JR NZ,24954
24950	LD (23351),A
24953	RET
24954	LD B,3
24956	LD C,47
24958	CALL 24966
24961	LD (23352),DE
24965	RET
24966	PUSH BC
24967	LD A,(DE)
24968	OR A
24969	JR Z,24978
24971	PUSH DE
24972	PUSH HL
24973	CALL 24852
24976	POP HL
24977	POP DE
24978	INC DE
24979	INC H
24980	POP BC
24981	DJNZ 24966
24983	RET
24984	NOP
24985	DEC BC
24986	LD C,0
24988	INC C
24989	RRCA
24990	NOP
24991	DEC C
24992	DJNZ 24994
24994	LD DE,19
24997	LD (DE),A
24998	INC D
24999	RST 56
25000	NOP
25001	DEC BC
25002	LD C,0
25004	INC C
25005	RRCA
25006	NOP
25007	DEC C
25008	DJNZ 25031
25010	ADD HL,DE
25011	DEC DE
25012	LD D,9
25014	INC E
25015	RLA
25016	ADD HL,BC
25017	DEC E
25018	JR 25046
25020	LD E,17
25022	INC DE
25023	NOP
25024	LD (DE),A
25025	INC D
25026	NOP
25027	RST 56
This entry point is used by the routine at 24653.
25028	LD HL,(23340)
25031	LD A,(23296)
25034	OR A
25035	JR NZ,25054
25037	LD DE,100
25040	SBC HL,DE
25042	RET C
25043	LD HL,25101
25046	LD (23338),HL
25049	INC A
25050	LD (23296),A
25053	RET
25054	DEC A
25055	JR NZ,25127
25057	LD DE,(23338)
25061	LD A,(DE)
25062	INC A
25063	JR NZ,25086
25065	LD A,(23296)
25068	DEC A
25069	RET NZ
25070	LD HL,3611
25073	LD (23326),HL
25076	LD A,1
25078	LD (23325),A
25081	INC A
25082	LD (23296),A
25085	RET
25086	LD HL,3359
25089	LD B,3
25091	LD C,42
25093	CALL 24966
25096	LD (23338),DE
25100	RET
25101	NOP
25102	NOP
25103	LD A,(14336)
25106	DEC SP
25107	NOP
25108	ADD HL,SP
25109	INC A
25110	NOP
25111	NOP
25112	DEC A
25113	RST 56
25114	LD D,L
25115	LD D,(HL)
25116	LD D,A
25117	LD D,L
25118	LD D,(HL)
25119	LD D,A
25120	LD D,L
25121	LD D,(HL)
25122	LD D,A
25123	LD D,L
25124	LD D,(HL)
25125	LD D,A
25126	RST 56
25127	DEC A
25128	JR NZ,25163
25130	LD DE,200
25133	SBC HL,DE
25135	RET C
25136	LD HL,0
25139	LD (23340),HL
25142	LD A,3
25144	LD (23296),A
25147	LD A,15
25149	LD (23354),A
25152	LD HL,3871
25155	LD C,44
25157	LD A,1
25159	CALL 24852
25162	RET
25163	DEC A
25164	JP NZ,25385
25167	LD A,(23350)
25170	RRA
25171	RRA
25172	AND 3
25174	LD (23361),A
25177	JR NZ,25212
25179	LD A,(23354)
25182	LD H,A
25183	LD A,10
25185	LD L,31
25187	PUSH HL
25188	LD C,44
25190	CALL 24852
25193	POP HL
25194	LD A,15
25196	SUB H
25197	JR Z,25209
25199	LD B,A
25200	INC H
25201	LD DE,25423
25204	LD C,36
25206	CALL 24966
25209	JP 25350
25212	DEC A
25213	JR NZ,25238
25215	LD A,R
25217	RRA
25218	AND 6
25220	ADD A,2
25222	LD HL,(23353)
25225	LD L,A
25226	LD A,H
25227	CP 15
25229	JR Z,25179
25231	INC A
25232	LD (23354),A
25235	LD A,L
25236	JR 25185
25238	DEC A
25239	JR NZ,25273
25241	LD A,(23350)
25244	RRA
25245	AND 6
25247	INC A
25248	LD HL,(23353)
25251	LD L,A
25252	LD A,(23335)
25255	LD D,A
25256	LD A,5
25258	SUB D
25259	ADD A,7
25261	CP H
25262	LD A,H
25263	JR Z,25179
25265	DEC A
25266	DEC H
25267	LD (23354),A
25270	LD A,L
25271	JR 25185
25273	LD A,(23362)
25276	AND 1
25278	JR Z,25286
25280	XOR A
25281	LD (23361),A
25284	JR 25179
25286	LD A,40
25288	LD C,A
25289	LD (23357),A
25292	LD A,R
25294	RRA
25295	AND 12
25297	LD L,A
25298	RRA
25299	RRA
25300	LD (23336),A
25303	ADD A,L
25304	LD L,A
25305	CP 15
25307	JR NZ,25315
25309	LD A,40
25311	LD C,A
25312	LD (23357),A
25315	LD H,0
25317	LD DE,25403
25320	ADD HL,DE
25321	EX DE,HL
25322	LD A,4
25324	LD (23296),A
25327	LD HL,(23353)
25330	LD L,31
25332	PUSH HL
25333	DEC H
25334	DEC H
25335	LD B,2
25337	CALL 24966
25340	LD (23355),DE
25344	POP HL
25345	LD A,9
25347	JP 25185
25350	LD A,(23361)
25353	LD (23362),A
25356	LD A,(23335)
25359	LD L,0
25361	LD H,A
25362	LD DE,300
25365	ADD HL,DE
25366	EX DE,HL
25367	LD HL,(23340)
25370	SBC HL,DE
25372	RET C
25373	LD A,5
25375	LD (23296),A
25378	LD HL,0
25381	LD (23340),HL
25384	RET
25385	DEC A
25386	JR NZ,25432
25388	LD DE,(23355)
25392	LD A,3
25394	LD (23296),A
25397	LD A,(23357)
25400	LD C,A
25401	JR 25327
25403	NOP
25404	INC HL
25405	NOP
25406	NOP
25407	RST 56
25408	NOP
25409	INC H
25410	NOP
25411	NOP
25412	RST 56
25413	NOP
25414	DEC H
25415	NOP
25416	NOP
25417	RST 56
25418	NOP
25419	LD B,L
25420	NOP
25421	LD B,(HL)
25422	RST 56
25423	ADD HL,BC
25424	ADD HL,BC
25425	ADD HL,BC
25426	ADD HL,BC
25427	ADD HL,BC
25428	ADD HL,BC
25429	ADD HL,BC
25430	ADD HL,BC
25431	ADD HL,BC
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