The Way Of The Exploding Fist: Routine at 45402

45402: Routine at B15A

Used by the routine at Game_Over.
45402	AND A
45403	RET Z
45404	LD C,A
45405	LD A,(45818)
45408	AND A
45409	LD A,C
45410	RET Z
45411	DEC A
45412	ADD A,A
45413	LD C,A
45414	LD B,0
45416	LD HL,45380
45419	ADD HL,BC
45420	LD E,(HL)
45421	INC HL
45422	LD D,(HL)
45423	EX DE,HL
45424	CALL 45432
45427	XOR A
45428	LD (45392),A
45431	RET
45432	JP (HL)
45433	LD A,127
45435	LD DE,10
45438	LD HL,1024
45441	CALL 45659
45444	RET
45445	LD A,63
45447	LD DE,10
45450	LD HL,768
45453	CALL 45719
45456	RET
45457	LD A,63
45459	LD DE,192
45462	LD HL,256
45465	CALL 45719
45468	RET
45469	LD DE,776
45472	PUSH DE
45473	CALL 45613
45476	LD B,0
45478	DEC BC
45479	LD A,B
45480	OR C
45481	JR NZ,45478
45483	CALL 45636
45486	LD B,0
45488	DEC BC
45489	LD A,B
45490	OR C
45491	JR NZ,45488
45493	DEC E
45494	JR NZ,45473
45496	POP DE
45497	DEC D
45498	JR NZ,45472
45500	LD DE,520
45503	PUSH DE
45504	CALL 45613
45507	DEC BC
45508	NOP
45509	LD A,B
45510	OR C
45511	JR NZ,45507
45513	CALL 45636
45516	DEC BC
45517	NOP
45518	LD A,B
45519	OR C
45520	JR NZ,45516
45522	DEC E
45523	JR NZ,45504
45525	POP DE
45526	DEC D
45527	JR NZ,45503
45529	LD DE,520
45532	PUSH DE
45533	CALL 45613
45536	DEC BC
45537	NOP
45538	NOP
45539	NOP
45540	LD A,B
45541	OR C
45542	JR NZ,45536
45544	CALL 45636
45547	DEC BC
45548	NOP
45549	NOP
45550	NOP
45551	LD A,B
45552	OR C
45553	JR NZ,45547
45555	DEC E
45556	JR NZ,45533
45558	POP DE
45559	DEC D
45560	JR NZ,45532
45562	RET
45563	LD A,255
45565	LD DE,224
45568	LD HL,288
45571	CALL 45719
45574	LD HL,8192
45577	LD (45393),HL
45580	CALL 45808
45583	LD HL,65535
45586	LD (45393),HL
45589	LD A,255
45591	LD DE,960
45594	LD HL,1024
45597	CALL 45719
45600	RET
45601	LD A,63
45603	LD DE,128
45606	LD HL,256
45609	CALL 45719
45612	RET
45613	LD A,(45401)
45616	AND 31
This entry point is used by the routine at 45819.
45618	OUT (254),A
45620	CALL 45783
45623	LD A,(45395)
45626	LD C,A
45627	LD A,(45396)
45630	OR C
45631	LD C,A
45632	AND 1
45634	LD B,A
45635	RET
45636	LD A,(45401)
45639	AND 7
45641	OUT (254),A
45643	CALL 45783
45646	LD A,(45395)
45649	LD C,A
45650	LD A,(45396)
45653	OR C
45654	LD C,A
45655	AND 1
45657	LD B,A
45658	RET
45659	LD (45398),HL
45662	LD (45400),A
45665	LD A,(45400)
45668	LD H,A
45669	LD A,(DE)
45670	INC DE
45671	AND H
45672	JR NZ,45675
45674	INC A
45675	LD B,A
45676	LD A,(45401)
45679	AND 31
45681	OUT (254),A
45683	NOP
45684	NOP
45685	NOP
45686	NOP
45687	DJNZ 45683
45689	LD A,(DE)
45690	INC DE
45691	AND H
45692	JR NZ,45695
45694	INC A
45695	LD B,A
45696	LD A,(45401)
45699	AND 7
45701	OUT (254),A
45703	NOP
45704	NOP
45705	NOP
45706	NOP
45707	DJNZ 45703
45709	LD HL,(45398)
45712	AND A
45713	SBC HL,DE
45715	RET Z
45716	JR NC,45665
45718	RET
45719	LD (45398),HL
45722	LD (45400),A
45725	LD A,(45400)
45728	LD H,A
45729	LD A,(DE)
45730	INC DE
45731	AND H
45732	JR NZ,45735
45734	INC A
45735	LD B,A
45736	LD A,(45401)
45739	AND 31
45741	OUT (254),A
45743	NOP
45744	NOP
45745	NOP
45746	NOP
45747	NOP
45748	NOP
45749	DJNZ 45743
45751	LD A,(DE)
45752	INC DE
45753	AND H
45754	JR NZ,45757
45756	INC A
45757	LD B,A
45758	LD A,(45401)
45761	AND 7
45763	OUT (254),A
45765	NOP
45766	NOP
45767	NOP
45768	NOP
45769	NOP
45770	NOP
45771	DJNZ 45765
45773	LD HL,(45398)
45776	AND A
45777	SBC HL,DE
45779	RET Z
45780	JR NC,45725
45782	RET
45783	PUSH HL
45784	LD A,(45396)
45787	RLA
45788	LD L,A
45789	LD A,(45397)
45792	XOR L
45793	RLA
45794	RLA
45795	LD HL,45395
45798	RR (HL)
45800	INC HL
45801	RR (HL)
45803	INC HL
45804	RR (HL)
45806	POP HL
45807	RET
45808	LD BC,(45393)
45812	DEC BC
45813	LD A,B
45814	OR C
45815	JR NZ,45812
45817	RET