Routines
Prev: A1AA Up: Map Next: A272
A253: Fill Pickup Debris
Fill the 10 debris particles at Debris_Particles from the template at AA1B, using Debris_Y as the starting Y of the burst.
FillPickupDebris A253 LD DE,$AA1B DE=AA1B.
A256 LD HL,$AA4B HL=Debris_Particles.
A259 LD B,$10 Set a particle counter in B for 10 loops.
Fill each debris particle with a flag, the burst Y and template bytes.
FillPickupDebris_Loop A25B LD (HL),$80 Write 80 as the particle flag.
A25D INC HL Move onto the particle Y.
A25E LD A,($5E6A) Fetch Debris_Y.
A261 LD (HL),A Write it.
A262 INC HL Move onto the next field.
A263 LD A,(DE) Copy the next template byte.
A264 INC DE
A265 LD (HL),A Write it and move on.
A266 INC HL
A267 LD A,(DE) Copy the next template byte.
A268 INC DE
A269 LD (HL),A Write it and move on.
A26A INC HL
A26B LD A,(DE) Copy the next template byte.
A26C INC DE
A26D LD (HL),A Write it and move on.
A26E INC HL
A26F DJNZ FillPickupDebris_Loop Decrease the particle counter by one and loop back to FillPickupDebris_Loop until all 10 are filled.
A271 RET Return.
Prev: A1AA Up: Map Next: A272