Splitting Images: Routine at DFB2

DFB2: Routine at DFB2

Used by the routines at E2CA and F801.
DFB2	LD ($E2C7),A	Write A to *Item_ID.
DFB5	CP $01	Return if A is lower than 01 (unsigned comparison).
DFB7	RET M	Return if A is lower than 01 (unsigned comparison).
DFB8	CP $15	Compare A with 15.
DFBA	RET P	Return P.
DFBB	LD A,($D837)	A=*D837.
DFBE	CP $00	Jump to DFD4 if A is equal to 00.
DFC0	JR Z,$DFD4	Jump to DFD4 if A is equal to 00.
DFC2	LD HL,$DFEE	HL=DFEE.
DFC5	LD B,$00	B=00.
DFC7	LD C,A	C=A.
DFC8	ADD HL,BC	HL+=BC.
DFC9	LD C,(HL)	C=*HL.
DFCA	LD HL,$5896	HL=5896 (attribute buffer location).
DFCD	ADD HL,BC	HL+=BC.
DFCE	LD A,($E003)	A=*E003.
DFD1	CALL $DFA8	Call DFA8.
DFD4	LD A,($E2C7)	A=*Item_ID.
DFD7	LD ($D837),A	Write A to *D837.
DFDA	LD HL,$DFEE	HL=DFEE.
DFDD	LD B,$00	B=00.
DFDF	LD C,A	C=A.
DFE0	ADD HL,BC	HL+=BC.
DFE1	LD C,(HL)	C=*HL.
DFE2	LD HL,$5896	HL=5896 (attribute buffer location).
DFE5	ADD HL,BC	HL+=BC.
DFE6	LD A,(HL)	Write HL to E003.
DFE7	LD ($E003),A	Write HL to E003.
DFEA	LD A,$78	A=INK: BLACK, PAPER: WHITE (BRIGHT) .
DFEC	JP $DFA8	Jump to DFA8.
DFEF	DEFB $00,$02,$04,$06,$08
DFF4	DEFB $40,$42,$44,$46,$48
DFF9	DEFB $80,$82,$84,$86,$88
DFFE	DEFB $C0,$C2,$C4,$C6,$C8
E003	DEFB $00