Blizzard Pass: Routine at 28942

28942: Paint Shape Bytes

Used by the routine at PlotShape. Copies the expanded shape into the attribute buffer, honouring the 254 and 251 markers that end or repeat a run.
PaintShape	28942	LD HL,(23484)
	28945	INC HL
	28946	PUSH HL
	28947	LD A,(23492)
	28950	LD (23494),A
	28953	LD HL,(23490)
	28956	LD H,0
	28958	CALL 3731
	28961	LD A,(23489)
	28964	LD E,A
	28965	LD D,0
	28967	ADD HL,DE
	28968	LD DE,(23497)
	28972	ADD HL,DE
	28973	EX DE,HL
	28974	POP HL
PaintShape_0	28975	PUSH HL
	28976	LD A,(HL)
	28977	CP 251
	28979	JR NZ,PaintShape_1
	28981	PUSH DE
	28982	CALL FindShape_6
	28985	POP DE
	28986	POP BC
	28987	PUSH HL
PaintShape_1	28988	CP 254
	28990	JR Z,ScaleShape_25
	28992	CP 250
	28994	JR NZ,PaintShape_2
	28996	PUSH DE
	28997	CALL FindShape_8
	29000	POP DE
	29001	POP AF
	29002	JR PaintShape_0
PaintShape_2	29004	BIT 7,A
	29006	JR Z,PaintShape_3
	29008	AND 127
	29010	DEC A
	29011	LD (23488),A
	29014	LD A,(23499)
PaintShape_3	29017	LD (DE),A
	29018	LD (23499),A
	29021	INC DE
	29022	LD HL,23494
	29025	DEC (HL)
	29026	JR NZ,PaintShape_4
	29028	PUSH HL
	29029	LD A,(23492)
	29032	LD (23494),A
	29035	LD L,A
	29036	LD A,32
	29038	SUB L
	29039	LD L,A
	29040	LD H,0
	29042	ADD HL,DE
	29043	EX DE,HL
	29044	POP HL
PaintShape_4	29045	LD A,(23488)
	29048	OR A
	29049	JR Z,PaintShape_5
	29051	DEC A
	29052	LD (23488),A
	29055	LD A,(23499)
	29058	JR PaintShape_3
PaintShape_5	29060	POP HL
	29061	INC HL
	29062	JR PaintShape_0
	29064	RST 56
	29065	NOP
	29066	NOP