The Way Of The Exploding Fist: Routine at 9ED2

9ED2: Routine at 9ED2

Used by the routine at Game_Over.
9ED2	LD A,($AA44)
9ED5	LD D,A
9ED6	LD HL,$A90D
9ED9	LD A,D
9EDA	ADD A,L
9EDB	LD L,A
9EDC	LD A,(HL)
9EDD	AND A
9EDE	RET Z
9EDF	LD A,($AA53)
9EE2	AND A
9EE3	RET Z
9EE4	LD A,($AA56)
9EE7	AND A
9EE8	RET NZ
9EE9	LD A,($AA49)
9EEC	AND A
9EED	RET NZ
9EEE	LD HL,$A971
9EF1	LD A,D
9EF2	ADD A,L
9EF3	LD L,A
9EF4	LD B,(HL)
9EF5	LD A,($AA52)
9EF8	CP B
9EF9	RET NZ
9EFA	LD A,($AA57)
9EFD	LD HL,$AA17
9F00	CP (HL)
9F01	JR Z,$9F19
9F03	LD A,D
9F04	SLA A
9F06	EXX
9F07	LD HL,$A98A
9F0A	LD B,$00
9F0C	LD C,A
9F0D	ADD HL,BC
9F0E	LD A,(HL)
9F0F	LD ($A06F),A
9F12	INC HL
9F13	LD A,(HL)
9F14	LD ($A070),A
9F17	JR $9F30
9F19	LD A,D
9F1A	SLA A
9F1C	EXX
9F1D	LD HL,$A9BC
9F20	LD B,$00
9F22	LD C,A
9F23	ADD HL,BC
9F24	LD A,(HL)
9F25	LD ($A06F),A
9F28	INC HL
9F29	LD A,(HL)
9F2A	LD ($A070),A
9F2D	JP $9FAF
9F30	LD A,($AA12)
9F33	LD C,A
9F34	LD B,$00
9F36	LD HL,($A06F)
9F39	ADD HL,BC
9F3A	LD A,(HL)
9F3B	EXX
9F3C	CP $80
9F3E	RET Z
9F3F	ADD A,$80
9F41	LD E,A
9F42	LD A,($AA57)
9F45	AND A
9F46	JR NZ,$9F51
9F48	LD A,($A071)
9F4B	LD HL,$A072
9F4E	SUB (HL)
9F4F	JR $9F58
9F51	LD A,($A072)
9F54	LD HL,$A071
9F57	SUB (HL)
9F58	ADD A,$80
9F5A	LD C,A
9F5B	LD HL,$B47E
9F5E	LD A,D
9F5F	ADD A,L
9F60	LD L,A
9F61	LD A,(HL)
9F62	AND A
9F63	JR NZ,$9F83
9F65	LD A,C
9F66	CP E
9F67	JR C,$9F6C
9F69	JR Z,$9F9F
9F6B	RET
9F6C	LD HL,$A93F
9F6F	LD A,D
9F70	ADD A,L
9F71	LD L,A
9F72	LD A,(HL)
9F73	ADD A,C
9F74	CP E
9F75	JR NC,$9F9F
9F77	LD A,D
9F78	LD HL,$A958
9F7B	ADD A,L
9F7C	LD L,A
9F7D	LD A,(HL)
9F7E	ADD A,C
9F7F	CP E
9F80	JR NC,$9FA7
9F82	RET
9F83	LD A,C
9F84	CP E
9F85	JR Z,$9F9F
9F87	RET C
9F88	LD A,D
9F89	LD HL,$A93F
9F8C	ADD A,L
9F8D	LD L,A
9F8E	LD A,C
9F8F	SUB (HL)
9F90	CP E
9F91	JR C,$9F9F
9F93	LD A,D
9F94	LD HL,$A958
9F97	ADD A,L
9F98	LD L,A
9F99	LD A,C
9F9A	SUB (HL)
9F9B	CP E
9F9C	JR C,$9FA7
9F9E	RET
9F9F	LD A,$02
9FA1	LD ($AA48),A
9FA4	JP $A01C
9FA7	LD A,$01
9FA9	LD ($AA48),A
9FAC	JP $A01C
9FAF	LD HL,($A06F)
9FB2	LD A,($AA12)
9FB5	LD C,A
9FB6	LD B,$00
9FB8	ADD HL,BC
9FB9	LD A,(HL)
9FBA	EXX
9FBB	CP $80
9FBD	RET Z
9FBE	ADD A,$80
9FC0	LD E,A
9FC1	LD A,($AA57)
9FC4	AND A
9FC5	JR Z,$9FD0
9FC7	LD A,($A071)
9FCA	LD HL,$A072
9FCD	SUB (HL)
9FCE	JR $9FD7
9FD0	LD A,($A072)
9FD3	LD HL,$A071
9FD6	SUB (HL)
9FD7	ADD A,$80
9FD9	LD C,A
9FDA	LD HL,$B47E
9FDD	LD A,D
9FDE	ADD A,L
9FDF	LD L,A
9FE0	LD A,(HL)
9FE1	AND A
9FE2	JR NZ,$A000
9FE4	LD A,C
9FE5	CP E
9FE6	JR Z,$9F9F
9FE8	RET C
9FE9	LD A,D
9FEA	LD HL,$A93F
9FED	ADD A,L
9FEE	LD L,A
9FEF	LD A,C
9FF0	SUB (HL)
9FF1	CP E
9FF2	JR C,$9F9F
9FF4	LD A,D
9FF5	LD HL,$A958
9FF8	ADD A,L
9FF9	LD L,A
9FFA	LD A,C
9FFB	SUB (HL)
9FFC	CP E
9FFD	JR C,$9FA7
9FFF	RET
A000	LD A,C
A001	CP E
A002	JR Z,$9F9F
A004	RET NC
A005	LD A,D
A006	LD HL,$A93F
A009	ADD A,L
A00A	LD L,A
A00B	LD A,(HL)
A00C	ADD A,C
A00D	CP E
A00E	JR NC,$9F9F
A010	LD A,D
A011	LD HL,$A958
A014	ADD A,L
A015	LD L,A
A016	LD A,(HL)
A017	ADD A,C
A018	CP E
A019	JR NC,$9FA7
A01B	RET
A01C	LD A,D
A01D	LD ($AA3F),A
A020	LD HL,$A073
A023	LD C,A
A024	LD B,$00
A026	ADD HL,BC
A027	LD A,(HL)
A028	LD ($B150),A
A02B	LD A,($AA57)
A02E	LD HL,$AA17
A031	CP (HL)
A032	JR Z,$A062
A034	LD A,D
A035	LD HL,$B47E
A038	ADD A,L
A039	LD L,A
A03A	LD A,(HL)
A03B	AND A
A03C	JR NZ,$A05C
A03E	LD A,D
A03F	CP $18
A041	JR Z,$A04B
A043	CP $07
A045	JR Z,$A04B
A047	CP $0C
A049	JR NZ,$A056
A04B	LD A,$1B
A04D	LD ($AA03),A
A050	LD A,$04
A052	LD ($B150),A
A055	RET
A056	LD A,$16
A058	LD ($AA03),A
A05B	RET
A05C	LD A,$1A
A05E	LD ($AA03),A
A061	RET
A062	LD A,D
A063	LD HL,$B47E
A066	ADD A,L
A067	LD L,A
A068	LD A,(HL)
A069	AND A
A06A	JR Z,$A05C
A06C	JP $A056
A06F	NOP
A070	NOP
A071	NOP
A072	NOP
A073	NOP
A074	NOP
A075	NOP
A076	NOP
A077	NOP
A078	NOP
A079	INC BC
A07A	LD B,$00
A07C	NOP
A07D	LD (BC),A
A07E	LD (BC),A
A07F	LD B,$03
A081	LD (BC),A
A082	LD (BC),A
A083	LD (BC),A
A084	LD B,$00
A086	NOP
A087	NOP
A088	NOP
A089	NOP
A08A	NOP
A08B	NOP
A08C	LD B,$00
A08E	NOP
A08F	NOP
This entry point is used by the routine at Game_Over.
A090	LD A,($A5F4)
A093	AND A
A094	JR Z,$A09A
A096	LD ($A5F6),A
A099	RET
A09A	LD A,($A60A)
A09D	LD ($A5EC),A
A0A0	LD A,($A644)
A0A3	LD ($A5ED),A
A0A6	LD A,($A62E)
A0A9	AND A
A0AA	JR Z,$A0BE
A0AC	LD A,($A5F5)
A0AF	CP $0E
A0B1	JR Z,$A0B8
A0B3	LD HL,$A616
A0B6	DEC (HL)
A0B7	RET NZ
A0B8	LD A,$01
A0BA	LD ($A5F6),A
A0BD	RET
A0BE	LD A,($A618)
A0C1	AND A
A0C2	JP NZ,$A553
A0C5	LD A,($A641)
A0C8	AND A
A0C9	JP NZ,$A1B5
A0CC	LD A,($A62F)
A0CF	LD HL,$A90D
A0D2	ADD A,L
A0D3	LD L,A
A0D4	LD A,(HL)
A0D5	AND A
A0D6	JP Z,$A1B5
A0D9	LD A,($A5F5)
A0DC	CP $13
A0DE	JR Z,$A0E4
A0E0	CP $14
A0E2	JR NZ,$A0FC
A0E4	LD A,($A62F)
A0E7	LD HL,$A926
A0EA	ADD A,L
A0EB	LD L,A
A0EC	LD A,(HL)
A0ED	LD HL,$A5F5
A0F0	CP (HL)
A0F1	JR Z,$A13E
A0F3	LD A,$01
A0F5	LD ($A5F6),A
A0F8	LD ($A5F1),A
A0FB	RET
A0FC	LD A,($A5F5)
A0FF	CP $12
A101	JP Z,$A1B5
A104	CP $01
A106	JR Z,$A145
A108	CP $03
A10A	JR Z,$A145
A10C	CP $02
A10E	JR Z,$A145
A110	LD A,($A5FA)
A113	AND A
A114	JR NZ,$A0F3
A116	LD A,($A607)
A119	AND A
A11A	JR NZ,$A0F3
A11C	LD A,($A62F)
A11F	CP $0A
A121	JR Z,$A127
A123	CP $10
A125	JR NZ,$A13E
A127	LD A,($A5F5)
A12A	CP $0A
A12C	JR Z,$A13E
A12E	CP $10
A130	JR Z,$A13E
A132	CP $04
A134	JR Z,$A13E
A136	CP $07
A138	JR Z,$A13E
A13A	CP $0B
A13C	JR NZ,$A0F3
A13E	LD A,($A5F1)
A141	LD ($A5F6),A
A144	RET
A145	CALL $A583
A148	AND A
A149	JP Z,$A1B5
A14C	LD A,($A61B)
A14F	AND A
A150	JR Z,$A16D
A152	JP P,$A161
A155	CALL Random_Number
A158	LD HL,$A60B
A15B	AND (HL)
A15C	JR Z,$A16D
A15E	LD ($A61B),A
A161	LD HL,$A61B
A164	DEC (HL)
A165	JP NZ,$A1B5
A168	LD A,$80
A16A	LD ($A61B),A
A16D	CALL Random_Number
A170	LD HL,$A646
A173	AND (HL)
A174	JP M,$A2E7
A177	LD B,A
A178	AND $70
A17A	JR NZ,$A1A5
A17C	LD A,B
A17D	AND $0F
A17F	JR NZ,$A195
A181	CALL Random_Number
A184	AND A
A185	JP M,$A18C
A188	LD A,$0B
A18A	JR NZ,$A18E
A18C	LD A,$09
A18E	LD ($A5F1),A
A191	LD ($A5F6),A
A194	RET
A195	LD A,($A62F)
A198	LD HL,$B3BD
A19B	ADD A,L
A19C	LD L,A
A19D	LD A,(HL)
A19E	AND A
A19F	JR Z,$A1A5
A1A1	LD ($A618),A
A1A4	RET
A1A5	LD A,($A62F)
A1A8	LD HL,$A926
A1AB	ADD A,L
A1AC	LD L,A
A1AD	LD A,(HL)
A1AE	LD ($A5F6),A
A1B1	LD ($A5F1),A
A1B4	RET
A1B5	LD A,($A607)
A1B8	AND A
A1B9	JR NZ,$A22A
A1BB	LD A,($A5FA)
A1BE	AND A
A1BF	JR Z,$A21B
A1C1	LD A,($A5F5)
A1C4	CP $04
A1C6	JR Z,$A22A
A1C8	CP $12
A1CA	JR NZ,$A1F4
A1CC	LD A,($A60E)
A1CF	AND A
A1D0	JR Z,$A22A
A1D2	LD A,$01
A1D4	LD ($A5F1),A
A1D7	LD ($A5F6),A
A1DA	LD ($A5F5),A
A1DD	LD ($A5FD),A
A1E0	LD A,($A608)
A1E3	XOR $01
A1E5	LD ($A608),A
A1E8	LD A,$00
A1EA	LD ($A5FA),A
A1ED	LD ($A60E),A
A1F0	LD ($A5FC),A
A1F3	RET
A1F4	LD A,($A61C)
A1F7	AND A
A1F8	JP P,$A207
A1FB	CALL Random_Number
A1FE	LD HL,$A60F
A201	AND (HL)
A202	LD ($A61C),A
A205	JR $A22A
A207	LD HL,$A61C
A20A	DEC (HL)
A20B	JR NZ,$A22A
A20D	LD A,$01
A20F	LD ($A5F1),A
A212	LD ($A5F6),A
A215	LD A,$80
A217	LD ($A61C),A
A21A	RET
A21B	LD A,($A5F5)
A21E	CP $01
A220	JR Z,$A231
This entry point is used by the routine at B2FB.
A222	CP $03
A224	JR Z,$A231
A226	CP $02
A228	JR Z,$A231
A22A	LD A,($A5F1)
A22D	LD ($A5F6),A
A230	RET
A231	LD A,($A608)
A234	LD HL,$A642
A237	CP (HL)
A238	JR Z,$A2A0
A23A	AND A
A23B	JP NZ,$A247
A23E	LD A,($A5ED)
A241	LD HL,$A5EC
A244	SUB (HL)
A245	JR $A24E
A247	LD A,($A5EC)
A24A	LD HL,$A5ED
A24D	SUB (HL)
A24E	LD ($A5EE),A
A251	CP $D5
A253	JR NC,$A2C7
A255	CP $15
A257	JR C,$A2C7
A259	CP $80
A25B	JR NC,$A292
A25D	LD HL,$A610
A260	DEC (HL)
A261	JR NZ,$A22A
A263	LD A,($A5F5)
A266	CP $02
A268	JR NZ,$A27F
A26A	CALL Random_Number
A26D	LD HL,$A61A
A270	AND (HL)
A271	JR Z,$A27F
A273	LD ($A610),A
A276	LD A,$01
A278	LD ($A5F6),A
A27B	LD ($A5F1),A
A27E	RET
A27F	CALL Random_Number
A282	LD HL,$A619
A285	AND (HL)
A286	LD ($A610),A
A289	LD A,$02
A28B	LD ($A5F6),A
A28E	LD ($A5F1),A
A291	RET
A292	LD A,$12
A294	LD ($A5F1),A
A297	LD ($A5F6),A
A29A	LD A,$01
A29C	LD ($A60E),A
A29F	RET
A2A0	LD A,($A608)
A2A3	AND A
A2A4	JR Z,$A2AF
A2A6	LD A,($A5ED)
A2A9	LD HL,$A5EC
A2AC	SUB (HL)
A2AD	JR $A2B6
A2AF	LD A,($A5EC)
A2B2	LD HL,$A5ED
A2B5	SUB (HL)
A2B6	LD ($A5EE),A
A2B9	CP $DF
A2BB	JR NC,$A2C7
A2BD	CP $1F
A2BF	JR C,$A2C7
A2C1	CP $80
A2C3	JR NC,$A25D
A2C5	JR $A292
A2C7	LD A,($A611)
A2CA	AND A
A2CB	JP P,$A2DB
A2CE	CALL Random_Number
A2D1	LD HL,$A617
A2D4	AND (HL)
A2D5	LD ($A611),A
A2D8	JP $A35F
A2DB	LD HL,$A611
A2DE	DEC (HL)
A2DF	JP NZ,$A35F
A2E2	LD A,$80
A2E4	LD ($A611),A
A2E7	LD A,($A608)
A2EA	LD HL,$A642
A2ED	CP (HL)
A2EE	JP Z,$A3AF
A2F1	LD A,($A62F)
A2F4	CP $13
A2F6	JR Z,$A313
A2F8	CP $14
A2FA	JR NZ,$A325
A2FC	CALL Random_Number
A2FF	AND $03
A301	LD HL,$A904
A304	ADD A,L
A305	LD L,A
A306	LD A,(HL)
A307	CP $07
A309	JP Z,$A3A1
A30C	LD ($A5F1),A
A30F	LD ($A5F6),A
A312	RET
A313	CALL Random_Number
A316	AND $03
A318	LD HL,$A900
A31B	ADD A,L
A31C	LD L,A
A31D	LD A,(HL)
A31E	LD ($A5F1),A
A321	LD ($A5F6),A
A324	RET
A325	LD A,($A5EE)
A328	ADD A,$33
A32A	LD ($A613),A
A32D	CALL Random_Number
A330	LD HL,$A612
A333	AND (HL)
A334	LD HL,$A613
A337	ADD A,(HL)
A338	LD HL,$B300
A33B	ADD A,L
A33C	LD L,A
A33D	LD A,(HL)
A33E	CP $0E
A340	JR Z,$A383
A342	CALL $A47C
A345	CP $0A
A347	JR Z,$A390
A349	CP $07
A34B	JP Z,$A3A1
A34E	CP $0F
A350	JP Z,$A3DA
A353	CP $10
A355	JP Z,$A3DA
A358	LD ($A5F1),A
A35B	LD ($A5F6),A
A35E	RET
A35F	LD A,($A641)
A362	AND A
A363	JP NZ,$A22A
A366	LD A,($A634)
A369	AND A
A36A	JP NZ,$A22A
A36D	LD A,($A62F)
A370	LD HL,$A90D
A373	ADD A,L
A374	LD L,A
A375	LD A,(HL)
A376	AND A
A377	JP Z,$A22A
A37A	LD A,$01
A37C	LD ($A5F6),A
A37F	LD ($A5F1),A
A382	RET
A383	LD B,A
A384	LD A,($A614)
A387	CP $07
A389	LD A,B
A38A	JR C,$A358
A38C	LD A,$02
A38E	JR NZ,$A358
A390	LD A,($A614)
A393	CP $02
A395	JR NC,$A398
A397	RET
A398	LD A,$0A
A39A	LD ($A5F1),A
A39D	LD ($A5F6),A
A3A0	RET
A3A1	LD A,$05
A3A3	LD ($A618),A
A3A6	LD A,$04
A3A8	LD ($A5F6),A
A3AB	LD ($A5F1),A
A3AE	RET
A3AF	LD A,($A5EE)
A3B2	ADD A,$29
A3B4	LD ($A613),A
A3B7	CALL Random_Number
A3BA	LD HL,$A612
A3BD	AND (HL)
A3BE	LD HL,$A613
A3C1	ADD A,(HL)
A3C2	LD HL,$B352
A3C5	ADD A,L
A3C6	LD L,A
A3C7	LD A,(HL)
A3C8	CALL $A47C
A3CB	CP $0F
A3CD	JR Z,$A3DA
A3CF	CP $10
A3D1	JR Z,$A3DA
A3D3	LD ($A5F1),A
A3D6	LD ($A5F6),A
A3D9	RET
A3DA	LD B,A
A3DB	CALL Random_Number
A3DE	LD HL,$A615
A3E1	AND (HL)
A3E2	JP M,$A292
A3E5	CP $40
A3E7	JR NC,$A3F7
A3E9	CP $20
A3EB	JR C,$A3EF
A3ED	LD B,$08
A3EF	LD A,B
A3F0	LD ($A5F6),A
A3F3	LD ($A5F1),A
A3F6	RET
A3F7	LD A,$03
A3F9	LD ($A5F6),A
A3FC	LD ($A5F1),A