Deathchase: Routine at 6A33

6A33: Display an exploding bike

Used by the routine at 69E3.
6A33	LD HL,$5940	Start of row to display explosion. The column is dependent where the bike is
6A36	LD A,($5DE1)	Get position of bike
6A39	DEC A	Convert this to an on-screen attribute address
6A3A	ADD A,L
6A3B	LD L,A
6A3C	PUSH HL
6A3D	LD DE,$001E
6A40	LD B,$03	3 rows
6A42	LD A,($5DE0)	Get current explosion attribute colour
6A45	LD C,A
6A46	LD A,(HL)
6A47	AND $F8	Clear INK colour
6A49	OR C
6A4A	LD (HL),A	Copy the attributes
6A4B	INC HL
6A4C	LD (HL),A
6A4D	INC HL
6A4E	LD (HL),A
6A4F	ADD HL,DE	Move to next row
6A50	DJNZ $6A42	Repeat until done
Put the explosion graphic on screen
6A52	POP HL
6A53	LD H,$48	Convert from attribute to display file
6A55	LD DE,$6A7A	6A7A - Location of explosion graphic
6A58	LD B,$03	3 rows
6A5A	PUSH BC
6A5B	PUSH HL
6A5C	LD B,$03	3 columns
6A5E	PUSH BC
6A5F	PUSH HL
6A60	LD B,$08
6A62	LD A,(DE)
6A63	OR (HL)
6A64	LD (HL),A
6A65	INC H
6A66	INC DE
6A67	DJNZ $6A62
6A69	POP HL
6A6A	LD BC,$0020
6A6D	ADD HL,BC
6A6E	POP BC
6A6F	DJNZ $6A5E
6A71	POP HL
6A72	INC HL
6A73	POP BC
6A74	DJNZ $6A5A
6A76	CALL $6478	Play an explosion sound
6A79	RET