The Way Of The Exploding Fist: Routine at 9CA6

9CA6: Routine at 9CA6


9CA6	DEC C
9CA7	NOP
This entry point is used by the routine at AE26.
9CA8	LD A,R
9CAA	LD ($A645),A
9CAD	XOR A	Write 00 to; 9C2B 9CA7 AA4D AA0D AA03 AA43 AA16 AA56 AA17 AA0B AA4B AA09 AA49 9C28
9CAE	LD ($9C2B),A
9CB1	LD ($9CA7),A
9CB4	LD ($AA4D),A
9CB7	LD ($AA0D),A
9CBA	LD ($AA03),A
9CBD	LD ($AA43),A
9CC0	LD ($AA16),A
9CC3	LD ($AA56),A
9CC6	LD ($AA17),A
9CC9	LD ($AA0B),A
9CCC	LD ($AA4B),A
9CCF	LD ($AA09),A
9CD2	LD ($AA49),A
9CD5	LD ($9C28),A
9CD8	LD A,$20	Write 20 to; AA19
9CDA	LD ($AA19),A	Write 20 to; AA19
9CDD	LD A,$3C	Write 3C to; AA59
9CDF	LD ($AA59),A	Write 3C to; AA59
9CE2	LD A,$7A	Write 7A to; AA18 AA58
9CE4	LD ($AA18),A
9CE7	LD ($AA58),A
9CEA	LD A,$17	Write 17 to; AA0C AA4C AA05 AA45 AA04 AA44
9CEC	LD ($AA0C),A
9CEF	LD ($AA4C),A
9CF2	LD ($AA05),A
9CF5	LD ($AA45),A
9CF8	LD ($AA04),A
9CFB	LD ($AA44),A
9CFE	LD A,$01	Write 01 to; AA0A AA4A
9D00	LD ($AA0A),A
9D03	LD ($AA4A),A
9D06	LD A,$01	Write 01 to AA57.
9D08	LD ($AA57),A	Write 01 to AA57.
9D0B	CALL $AADC	Call AADC.
9D0E	CALL $AB0A	Call AB0A.
9D11	CALL $A402	Call A402.
9D14	CALL $AAF3	Call AAF3.
9D17	CALL $AB16	Call AB16.
9D1A	CALL $AB22	Call AB22.
9D1D	CALL $AB50	Call AB50.
9D20	CALL $A402	Call A402.
9D23	CALL $AB39	Call AB39.
9D26	CALL $AB5C	Call AB5C.
This entry point is used by the routine at Game_Over.
9D29	LD A,($AA19)
9D2C	LD ($A071),A
9D2F	LD A,($AA59)
9D32	LD ($A072),A
9D35	LD A,($AA04)
9D38	LD D,A
9D39	LD HL,$A90D
9D3C	LD A,D
9D3D	ADD A,L
9D3E	LD L,A
9D3F	LD A,(HL)
9D40	AND A
9D41	RET Z
9D42	LD A,($AA13)
9D45	AND A
9D46	RET Z
9D47	LD A,($AA16)
9D4A	AND A
9D4B	RET NZ
9D4C	LD A,($AA09)
9D4F	AND A
9D50	RET NZ
9D51	LD HL,$A971
9D54	LD A,D
9D55	ADD A,L
9D56	LD L,A
9D57	LD B,(HL)
9D58	LD A,($AA12)
9D5B	CP B
9D5C	RET NZ
9D5D	LD A,($AA17)
9D60	LD HL,$AA57
9D63	CP (HL)
9D64	JR Z,$9D7C
9D66	LD A,D
9D67	SLA A
9D69	EXX
9D6A	LD HL,$A98A
9D6D	LD B,$00
9D6F	LD C,A
9D70	ADD HL,BC
9D71	LD A,(HL)
9D72	LD ($A06F),A
9D75	INC HL
9D76	LD A,(HL)
9D77	LD ($A070),A
9D7A	JR $9D93
9D7C	LD A,D
9D7D	SLA A
9D7F	EXX
9D80	LD HL,$A9BC
9D83	LD B,$00
9D85	LD C,A
9D86	ADD HL,BC
9D87	LD A,(HL)
9D88	LD ($A06F),A
9D8B	INC HL
9D8C	LD A,(HL)
9D8D	LD ($A070),A
9D90	JP $9E12
9D93	LD A,($AA52)
9D96	LD C,A
9D97	LD B,$00
9D99	LD HL,($A06F)
9D9C	ADD HL,BC
9D9D	LD A,(HL)
9D9E	EXX
9D9F	CP $80
9DA1	RET Z
9DA2	ADD A,$80
9DA4	LD E,A
9DA5	LD A,($AA17)
9DA8	AND A
9DA9	JR NZ,$9DB4
9DAB	LD A,($A072)
9DAE	LD HL,$A071
9DB1	SUB (HL)
9DB2	JR $9DBB
9DB4	LD A,($A071)
9DB7	LD HL,$A072
9DBA	SUB (HL)
9DBB	ADD A,$80
9DBD	LD C,A
9DBE	LD HL,$B47E
9DC1	LD A,D
9DC2	ADD A,L
9DC3	LD L,A
9DC4	LD A,(HL)
9DC5	AND A
9DC6	JR NZ,$9DE6
9DC8	LD A,C
9DC9	CP E
9DCA	JR C,$9DCF
9DCC	JR Z,$9E02
9DCE	RET
9DCF	LD HL,$A93F
9DD2	LD A,D
9DD3	ADD A,L
9DD4	LD L,A
9DD5	LD A,(HL)
9DD6	ADD A,C
9DD7	CP E
9DD8	JR NC,$9E02
9DDA	LD A,D
9DDB	LD HL,$A958
9DDE	ADD A,L
9DDF	LD L,A
9DE0	LD A,(HL)
9DE1	ADD A,C
9DE2	CP E
9DE3	JR NC,$9E0A
9DE5	RET
9DE6	LD A,C
9DE7	CP E
9DE8	JR Z,$9E02
9DEA	RET C
9DEB	LD A,D
9DEC	LD HL,$A93F
9DEF	ADD A,L
9DF0	LD L,A
9DF1	LD A,C
9DF2	SUB (HL)
9DF3	CP E
9DF4	JR C,$9E02
9DF6	LD A,D
9DF7	LD HL,$A958
9DFA	ADD A,L
9DFB	LD L,A
9DFC	LD A,C
9DFD	SUB (HL)
9DFE	CP E
9DFF	JR C,$9E0A
9E01	RET
9E02	LD A,$02
9E04	LD ($AA08),A
9E07	JP $9E7F
9E0A	LD A,$01
9E0C	LD ($AA08),A
9E0F	JP $9E7F
9E12	LD HL,($A06F)
9E15	LD A,($AA52)
9E18	LD C,A
9E19	LD B,$00
9E1B	ADD HL,BC
9E1C	LD A,(HL)
9E1D	EXX
9E1E	CP $80
9E20	RET Z
9E21	ADD A,$80
9E23	LD E,A
9E24	LD A,($AA17)
9E27	AND A
9E28	JR Z,$9E33
9E2A	LD A,($A072)
9E2D	LD HL,$A071
9E30	SUB (HL)
9E31	JR $9E3A
9E33	LD A,($A071)
9E36	LD HL,$A072
9E39	SUB (HL)
9E3A	ADD A,$80
9E3C	LD C,A
9E3D	LD HL,$B47E
9E40	LD A,D
9E41	ADD A,L
9E42	LD L,A
9E43	LD A,(HL)
9E44	AND A
9E45	JR NZ,$9E63
9E47	LD A,C
9E48	CP E
9E49	JR Z,$9E02
9E4B	RET C
9E4C	LD A,D
9E4D	LD HL,$A93F
9E50	ADD A,L
9E51	LD L,A
9E52	LD A,C
9E53	SUB (HL)
9E54	CP E
9E55	JR C,$9E02
9E57	LD A,D
9E58	LD HL,$A958
9E5B	ADD A,L
9E5C	LD L,A
9E5D	LD A,C
9E5E	SUB (HL)
9E5F	CP E
9E60	JR C,$9E0A
9E62	RET
9E63	LD A,C
9E64	CP E
9E65	JR Z,$9E02
9E67	RET NC
9E68	LD A,D
9E69	LD HL,$A93F
9E6C	ADD A,L
9E6D	LD L,A
9E6E	LD A,(HL)
9E6F	ADD A,C
9E70	CP E
9E71	JR NC,$9E02
9E73	LD A,D
9E74	LD HL,$A958
9E77	ADD A,L
9E78	LD L,A
9E79	LD A,(HL)
9E7A	ADD A,C
9E7B	CP E
9E7C	JR NC,$9E0A
9E7E	RET
9E7F	LD A,D
9E80	LD ($AA3F),A
9E83	LD HL,$A073
9E86	LD C,A
9E87	LD B,$00
9E89	ADD HL,BC
9E8A	LD A,(HL)
9E8B	LD ($B150),A
9E8E	LD A,($AA17)
9E91	LD HL,$AA57
9E94	CP (HL)
9E95	JR Z,$9EC5
9E97	LD A,D
9E98	LD HL,$B47E
9E9B	ADD A,L
9E9C	LD L,A
9E9D	LD A,(HL)
9E9E	AND A
9E9F	JR NZ,$9EBF
9EA1	LD A,D
9EA2	CP $18
9EA4	JR Z,$9EAE
9EA6	CP $07
9EA8	JR Z,$9EAE
9EAA	CP $0C
9EAC	JR NZ,$9EB9
9EAE	LD A,$1B
9EB0	LD ($AA43),A
9EB3	LD A,$04
9EB5	LD ($B150),A
9EB8	RET
9EB9	LD A,$16
9EBB	LD ($AA43),A
9EBE	RET
9EBF	LD A,$1A
9EC1	LD ($AA43),A
9EC4	RET
9EC5	LD A,D
9EC6	LD HL,$B47E
9EC9	ADD A,L
9ECA	LD L,A
9ECB	LD A,(HL)
9ECC	AND A
9ECD	JR Z,$9EBF
9ECF	JP $9EB9