The Way Of The Exploding Fist: Routine at C101

C101: Routine at C101

Used by the routine at BF13.
C101	LD A,($C434)
C104	LD D,A
C105	LD A,($C435)
C108	SUB D
C109	SRL A
C10B	SRL A
C10D	ADD A,$02
C10F	LD H,A
C110	LD ($C40A),A
C113	LD ($C40F),A
C116	LD A,($C436)
C119	LD D,A
C11A	LD A,($C437)
C11D	SUB D
C11E	LD L,A
C11F	LD ($C409),A
C122	LD A,($C434)
C125	AND $FC
C127	LD B,A
C128	LD A,($C436)
C12B	LD C,A
C12C	LD ($C41A),A
C12F	LD C,$48
C131	SUB C
C132	LD C,A
C133	CALL $C234
C136	CALL $C1A2
C139	LD A,($C436)
C13C	CALL Screen_Calc
C13F	LD A,($C434)
C142	SRL A
C144	SRL A
C146	LD E,A
C147	LD D,$00
C149	ADD HL,DE
C14A	EX DE,HL
C14B	LD HL,$F730
C14E	CALL $C3E4
C151	LD A,($C438)
C154	LD D,A
C155	LD A,($C439)
C158	SUB D
C159	SRL A
C15B	SRL A
C15D	ADD A,$02
C15F	LD H,A
C160	LD ($C40A),A
C163	LD ($C40F),A
C166	LD A,($C43A)
C169	LD D,A
C16A	LD A,($C43B)
C16D	SUB D
C16E	LD L,A
C16F	LD ($C409),A
C172	LD A,($C438)
C175	AND $FC
C177	LD B,A
C178	LD A,($C43A)
C17B	LD C,A
C17C	LD ($C41A),A
C17F	LD C,$48
C181	SUB C
C182	LD C,A
C183	CALL $C234
C186	CALL $C1CC
C189	LD A,($C43A)
C18C	CALL Screen_Calc
C18F	LD A,($C438)
C192	SRL A
C194	SRL A
C196	LD E,A
C197	LD D,$00
C199	ADD HL,DE
C19A	EX DE,HL
C19B	LD HL,$F730
C19E	CALL $C3E4
C1A1	RET