The Way Of The Exploding Fist: Routine at 95D4

95D4: Routine at 95D4

Used by the routines at Game_Over and Start_1UP_Game.
95D4	LD HL,$AA16	Call 95E1 using AA16.
95D7	CALL $95E1	Call 95E1 using AA16.
95DA	LD HL,$AA56	Call 95E1 using AA56.
95DD	CALL $95E1	Call 95E1 using AA56.
95E0	RET	Return.
fffff
95E1	LD A,(HL)
95E2	LD ($9743),A
95E5	LD BC,$000A
95E8	XOR A
95E9	SBC HL,BC
95EB	LD A,(HL)
95EC	AND A
95ED	RET Z
95EE	DEC HL
95EF	LD A,(HL)
95F0	AND A
95F1	INC HL
95F2	JP Z,$96CE
95F5	LD BC,$0004
95F8	ADD HL,BC
95F9	LD E,L
95FA	LD D,H
95FB	LD A,($9743)
95FE	AND A
95FF	LD A,(HL)
9600	JR NZ,$961A
9602	AND A
9603	JR Z,$9609
9605	DEC (HL)
9606	JP $9698
9609	DEC HL
960A	DEC HL
960B	LD A,(HL)
960C	AND A
960D	JR Z,$9613
960F	DEC (HL)
9610	JP $962B
9613	DEC HL
9614	LD (HL),$01
9616	DEC HL
9617	LD (HL),$00
9619	RET
961A	INC HL
961B	CP (HL)
961C	DEC HL
961D	JR Z,$9623
961F	INC (HL)
9620	JP $9698
9623	DEC HL
9624	LD A,(HL)
9625	DEC A
9626	DEC HL
9627	CP (HL)
9628	JR Z,$9613
962A	INC (HL)
962B	LD BC,$0005
962E	ADD HL,BC
962F	LD (HL),$00
9631	LD A,($9743)
9634	AND A
9635	INC HL
9636	LD A,(HL)
9637	JR Z,$9642
9639	SUB $04
963B	LD (HL),A
963C	INC HL
963D	JR NC,$9649
963F	DEC (HL)
9640	JR $9649
9642	ADD A,$04
9644	LD (HL),A
9645	INC HL
9646	JR NC,$9649
9648	INC (HL)
9649	PUSH DE
964A	LD C,(HL)
964B	DEC HL
964C	LD L,(HL)
964D	LD H,C
964E	LD A,$01
9650	LD (DE),A
9651	LD A,($9743)
9654	AND A
9655	LD A,(HL)
9656	JR NZ,$965C
9658	LD B,A
9659	DEC A
965A	LD (DE),A
965B	LD A,B
965C	INC DE
965D	LD (DE),A
965E	INC HL
965F	INC DE
9660	LD A,(HL)
9661	LD (DE),A
9662	INC DE
9663	LD (DE),A
9664	LD HL,$0007
9667	ADD HL,DE
9668	EX DE,HL
9669	LD L,A
966A	LD H,$31
966C	LD A,$09
966E	LD ($9744),A
9671	LD B,$39
9673	LD C,(HL)
9674	LD A,(BC)
9675	LD (DE),A
9676	INC DE
9677	INC B
9678	LD A,(BC)
9679	LD (DE),A
967A	INC DE
967B	LD A,($9744)
967E	DEC A
967F	LD ($9744),A
9682	JR Z,$968B
9684	LD BC,$003B
9687	ADD HL,BC
9688	JP $9671
968B	POP HL
968C	PUSH HL
968D	LD BC,$0007
9690	ADD HL,BC
9691	LD A,(HL)
9692	CP $01
9694	CALL Z,$971E
9697	POP HL
9698	LD BC,$0004
969B	ADD HL,BC
969C	LD E,(HL)
969D	INC HL
969E	LD D,(HL)
969F	INC HL
96A0	LD A,(HL)
96A1	INC HL
96A2	XOR (HL)
96A3	LD ($9743),A
96A6	INC HL
96A7	INC DE
96A8	INC DE
96A9	LD A,(DE)
96AA	ADD A,(HL)
96AB	LD (HL),A
96AC	INC HL
96AD	INC DE
96AE	LD A,($9743)
96B1	AND A
96B2	LD A,(DE)
96B3	LD B,A
96B4	LD A,(HL)
96B5	JR Z,$96BA
96B7	SUB B
96B8	JR $96BB
96BA	ADD A,B
96BB	AND A
96BC	JR NC,$96C1
96BE	LD (HL),$00
96C0	RET
96C1	CP $5F
96C3	JR C,$96CC
96C5	CP $C8
96C7	JR NC,$96BE
96C9	LD (HL),$5F
96CB	RET
96CC	LD (HL),A
96CD	RET
96CE	LD C,(HL)
96CF	DEC HL
96D0	LD (HL),C
96D1	INC HL
96D2	INC HL
96D3	LD (HL),$00
96D5	INC HL
96D6	PUSH HL
96D7	LD DE,$0006
96DA	ADD HL,DE
96DB	EX DE,HL
96DC	LD HL,$9368
96DF	ADD HL,BC
96E0	ADD HL,BC
96E1	LD C,(HL)
96E2	INC HL
96E3	LD B,(HL)
96E4	INC HL
96E5	LD A,(HL)
96E6	INC HL
96E7	LD H,(HL)
96E8	LD L,A
96E9	AND A
96EA	SBC HL,BC
96EC	PUSH HL
96ED	LD A,($9743)
96F0	AND A
96F1	JR Z,$96FC
96F3	ADD HL,BC
96F4	LD BC,$0004
96F7	AND A
96F8	SBC HL,BC
96FA	LD C,L
96FB	LD B,H
96FC	LD A,C
96FD	LD (DE),A
96FE	INC DE
96FF	LD A,B
9700	LD (DE),A
9701	POP HL
9702	SRL H
9704	RR L
9706	SRL H
9708	RR L
970A	LD B,L
970B	POP HL
970C	LD (HL),$00
970E	LD A,($9743)
9711	AND A
9712	JR NZ,$9717
9714	LD A,B
9715	DEC A
9716	LD (HL),A
9717	INC HL
9718	LD (HL),B
9719	EX DE,HL
971A	INC DE
971B	JP $9649
971E	INC HL
971F	INC HL
9720	LD A,$03
9722	LD ($9744),A
9725	LD C,$04
9727	INC HL
9728	LD D,H
9729	LD E,L
972A	LD B,$00
972C	ADD HL,BC
972D	LD A,(DE)
972E	LD B,(HL)
972F	LD (HL),A
9730	LD A,B
9731	LD (DE),A
9732	INC HL
9733	INC DE
9734	LD A,(DE)
9735	LD B,(HL)
9736	LD (HL),A
9737	LD A,B
9738	LD (DE),A
9739	LD A,($9744)
973C	DEC A
973D	LD ($9744),A
9740	JR NZ,$9727
9742	RET
9743	DEFB $00
9744	DEFB $00