Splitting Images: Routine at D9BE

D9BE: Routine at D9BE

Used by the routines at DA0B and F43E.
D9BE	LD A,($E2C7)	A=*Item_ID.
D9C1	LD BC,($E75D)	BC=*E75D.
D9C5	LD HL,$D838	HL=Bomb.
D9C8	CP $15	Jump to D9D9 if A is not equal to 15.
D9CA	JR NZ,$D9D9	Jump to D9D9 if A is not equal to 15.
D9CC	LD ($DA15),BC	Write BC to *DA15.
D9D0	BIT 1,(HL)	Jump to D9D9 if bit 1 of *HL is set.
D9D2	JR NZ,$D9D9	Jump to D9D9 if bit 1 of *HL is set.
D9D4	LD A,$01	Write 01 to *D83B.
D9D6	LD ($D83B),A	Write 01 to *D83B.
D9D9	CP $3D	Jump to D9EA if A is not equal to 3D.
D9DB	JR NZ,$D9EA	Jump to D9EA if A is not equal to 3D.
D9DD	LD ($DA17),BC	Write BC to *DA17.
D9E1	BIT 2,(HL)	Jump to D9EA if bit 2 of *HL is set.
D9E3	JR NZ,$D9EA	Jump to D9EA if bit 2 of *HL is set.
D9E5	LD A,$01	Write 01 to *D83C.
D9E7	LD ($D83C),A	Write 01 to *D83C.
D9EA	CP $3E	Jump to D9FB if A is not equal to 3E.
D9EC	JR NZ,$D9FB	Jump to D9FB if A is not equal to 3E.
D9EE	LD ($DA19),BC	Write BC to *DA19.
D9F2	BIT 3,(HL)	Jump to D9FB if bit 3 of *HL is set.
D9F4	JR NZ,$D9FB	Jump to D9FB if bit 3 of *HL is set.
D9F6	LD A,$01	Write 01 to *D83D.
D9F8	LD ($D83D),A	Write 01 to *D83D.
D9FB	CP $3F	Return if A is not equal to 3F.
D9FD	RET NZ	Return if A is not equal to 3F.
D9FE	LD ($DA1B),BC	Write BC to *DA1B.
DA02	BIT 4,(HL)	Return if bit 4 of *HL is set.
DA04	RET NZ	Return if bit 4 of *HL is set.
DA05	LD A,$01	Write 01 to *D83E.
DA07	LD ($D83E),A	Write 01 to *D83E.
DA0A	RET	Return.