Blizzard Pass: Routine at 710E

710E: Paint Shape Bytes

Used by the routine at PlotShape. Copies the expanded shape into the attribute buffer, honouring the FE and FB markers that end or repeat a run.
PaintShape	710E	LD HL,($5BBC)
	7111	INC HL
	7112	PUSH HL
	7113	LD A,($5BC4)
	7116	LD ($5BC6),A
	7119	LD HL,($5BC2)
	711C	LD H,$00
	711E	CALL $0E93
	7121	LD A,($5BC1)
	7124	LD E,A
	7125	LD D,$00
	7127	ADD HL,DE
	7128	LD DE,($5BC9)
	712C	ADD HL,DE
	712D	EX DE,HL
	712E	POP HL
PaintShape_0	712F	PUSH HL
	7130	LD A,(HL)
	7131	CP $FB
	7133	JR NZ,PaintShape_1
	7135	PUSH DE
	7136	CALL FindShape_6
	7139	POP DE
	713A	POP BC
	713B	PUSH HL
PaintShape_1	713C	CP $FE
	713E	JR Z,ScaleShape_25
	7140	CP $FA
	7142	JR NZ,PaintShape_2
	7144	PUSH DE
	7145	CALL FindShape_8
	7148	POP DE
	7149	POP AF
	714A	JR PaintShape_0
PaintShape_2	714C	BIT 7,A
	714E	JR Z,PaintShape_3
	7150	AND $7F
	7152	DEC A
	7153	LD ($5BC0),A
	7156	LD A,($5BCB)
PaintShape_3	7159	LD (DE),A
	715A	LD ($5BCB),A
	715D	INC DE
	715E	LD HL,$5BC6
	7161	DEC (HL)
	7162	JR NZ,PaintShape_4
	7164	PUSH HL
	7165	LD A,($5BC4)
	7168	LD ($5BC6),A
	716B	LD L,A
	716C	LD A,$20
	716E	SUB L
	716F	LD L,A
	7170	LD H,$00
	7172	ADD HL,DE
	7173	EX DE,HL
	7174	POP HL
PaintShape_4	7175	LD A,($5BC0)
	7178	OR A
	7179	JR Z,PaintShape_5
	717B	DEC A
	717C	LD ($5BC0),A
	717F	LD A,($5BCB)
	7182	JR PaintShape_3
PaintShape_5	7184	POP HL
	7185	INC HL
	7186	JR PaintShape_0
	7188	RST $38
	7189	NOP
	718A	NOP