The Way Of The Exploding Fist: Routine at BF13

BF13: Routine at BF13

Used by the routines at Game_Over and Start_1UP_Game.
BF13	LD A,($AA52)
BF16	LD L,A
BF17	LD H,$00
BF19	LD ($C425),HL
BF1C	LD A,($AA59)
BF1F	LD ($C41D),A
BF22	LD A,($AA58)
BF25	LD ($C41E),A
BF28	LD A,($AA57)
BF2B	LD ($C420),A
BF2E	LD A,($AA12)
BF31	LD L,A
BF32	LD H,$00
BF34	LD ($C423),HL
BF37	LD A,($AA19)
BF3A	LD ($C41B),A
BF3D	LD A,($AA18)
BF40	LD ($C41C),A
BF43	LD A,($AA17)
BF46	LD ($C41F),A
BF49	LD HL,($C423)
BF4C	SLA L
BF4E	RL H
BF50	LD DE,$C440
BF53	ADD HL,DE
BF54	LD E,(HL)
BF55	INC HL
BF56	LD D,(HL)
BF57	LD HL,$44CC
BF5A	ADD HL,DE
BF5B	LD ($C428),HL
BF5E	LD HL,($C425)
BF61	SLA L
BF63	RL H
BF65	LD DE,$C440
BF68	ADD HL,DE
BF69	LD E,(HL)
BF6A	INC HL
BF6B	LD D,(HL)
BF6C	LD HL,$44CC
BF6F	ADD HL,DE
BF70	LD ($C42A),HL
BF73	LD A,($C41B)
BF76	LD D,A
BF77	LD A,($C42C)
BF7A	LD E,A
BF7B	CALL $C1F6
BF7E	LD A,D
BF7F	LD ($C434),A
BF82	LD IX,($C428)
BF86	LD D,(IX+$01)
BF89	LD A,($C41B)
BF8C	ADD A,D
BF8D	LD E,A
BF8E	LD A,($C42D)
BF91	LD D,A
BF92	CALL $C1F6
BF95	LD A,E
BF96	LD ($C435),A
BF99	LD A,($C41C)
BF9C	LD D,A
BF9D	LD A,($C42E)
BFA0	LD E,A
BFA1	CALL $C1F6
BFA4	LD A,D
BFA5	LD ($C436),A
BFA8	LD D,(IX+$02)
BFAB	LD A,($C41C)
BFAE	ADD A,D
BFAF	LD E,A
BFB0	LD A,($C42F)
BFB3	LD D,A
BFB4	CALL $C1F6
BFB7	LD A,E
BFB8	LD A,$BE
BFBA	LD ($C437),A
BFBD	LD A,($C41D)
BFC0	LD D,A
BFC1	LD A,($C430)
BFC4	LD E,A
BFC5	CALL $C1F6
BFC8	LD A,D
BFC9	LD ($C438),A
BFCC	LD IY,($C42A)
BFD0	LD D,(IY+$01)
BFD3	LD A,($C41D)
BFD6	ADD A,D
BFD7	LD E,A
BFD8	LD A,($C431)
BFDB	LD D,A
BFDC	CALL $C1F6
BFDF	LD A,E
BFE0	LD ($C439),A
BFE3	LD A,($C41E)
BFE6	LD D,A
BFE7	LD A,($C432)
BFEA	LD E,A
BFEB	CALL $C1F6
BFEE	LD A,D
BFEF	LD ($C43A),A
BFF2	LD D,(IY+$02)
BFF5	LD A,($C41E)
BFF8	ADD A,D
BFF9	LD E,A
BFFA	LD A,($C433)
BFFD	LD D,A
BFFE	CALL $C1F6
C001	LD A,E
C002	LD A,$BE
C004	LD ($C43B),A
This entry point is used by the routine at B2FB.
C007	LD A,($C41B)
C00A	LD ($C42C),A
C00D	LD D,(IX+$01)
C010	ADD A,D
C011	LD ($C42D),A
C014	LD A,($C41C)
C017	LD ($C42E),A
C01A	LD D,(IX+$02)
C01D	ADD A,D
C01E	LD ($C42F),A
C021	LD A,($C41D)
C024	LD ($C430),A
C027	LD D,(IY+$01)
C02A	ADD A,D
C02B	LD ($C431),A
C02E	LD A,($C41E)
C031	LD ($C432),A
C034	LD D,(IY+$02)
C037	ADD A,D
C038	LD ($C433),A
C03B	LD A,($C434)
C03E	LD B,A
C03F	LD A,($C439)
C042	ADD A,$0B
C044	CP B
C045	JP C,$C101
C048	LD A,($C438)
C04B	LD B,A
C04C	LD A,($C435)
C04F	ADD A,$0B
C051	CP B
C052	JP C,$C101
C055	LD A,($C434)
C058	LD D,A
C059	LD A,($C438)
C05C	LD E,A
C05D	CALL $C1F6
C060	LD A,D
C061	LD ($C434),A
C064	LD A,($C435)
C067	LD D,A
C068	LD A,($C439)
C06B	LD E,A
C06C	CALL $C1F6
C06F	LD A,E
C070	LD ($C435),A
C073	LD A,($C436)
C076	LD D,A
C077	LD A,($C43A)
C07A	LD E,A
C07B	CALL $C1F6
C07E	LD A,D
C07F	LD ($C436),A
C082	LD A,($C437)
C085	LD D,A
C086	LD A,($C43B)
C089	LD E,A
C08A	CALL $C1F6
C08D	LD A,E
C08E	LD ($C437),A
C091	LD A,($C434)
C094	LD D,A
C095	LD A,($C435)
C098	SUB D
C099	SRL A
C09B	SRL A
C09D	ADD A,$02
C09F	LD H,A
C0A0	LD ($C40A),A
C0A3	LD ($C40F),A
C0A6	LD A,($C436)
C0A9	LD D,A
C0AA	LD A,($C437)
C0AD	SUB D
C0AE	LD L,A
C0AF	LD ($C409),A
C0B2	LD A,($C434)
C0B5	AND $FC
C0B7	LD B,A
C0B8	LD A,($C436)
C0BB	LD C,A
C0BC	LD ($C41A),A
C0BF	LD C,$48
C0C1	SUB C
C0C2	LD C,A
C0C3	CALL $C234
C0C6	LD A,($C434)
C0C9	LD ($C438),A
C0CC	LD A,($C436)
C0CF	LD ($C43A),A
C0D2	LD A,($C427)
C0D5	AND A
C0D6	JP Z,$C0E2
C0D9	CALL $C1A2
C0DC	CALL $C1CC
C0DF	JP $C0E8
C0E2	CALL $C1CC
C0E5	CALL $C1A2
C0E8	LD A,($C436)
C0EB	CALL Screen_Calc
C0EE	LD A,($C434)
C0F1	SRL A
C0F3	SRL A
C0F5	LD E,A
C0F6	LD D,$00
C0F8	ADD HL,DE
C0F9	EX DE,HL
C0FA	LD HL,$F730
C0FD	CALL $C3E4
C100	RET	Return.