db $37

JMP MarioBelow : JMP MarioAbove : JMP MarioSide
JMP SpriteV : JMP SpriteH
JMP Cape : JMP Fireball
JMP MarioCorner : JMP MarioBody : JMP MarioHead
JMP WallFeet : JMP WallBody

MarioBelow:
MarioAbove:
MarioSide:
RTL

SpriteV:
	REP #$20				; \
	LDA #$0001				; |
	SEP #$20				; | Set the sprite's x position to 1.
	STA !E4,x				; |
	XBA					; |
	STA !14E0,x				; /


SpriteH:
Cape:
RTL

Fireball:
	%create_smoke()				; > Create smoke effect.
	%shatter_block()			; > Shatter the block with normal shards.
	LDA #$85				; \ Spawn sprite #$85 (85 Null)
	CLC					; |
	%spawn_sprite()				; /


MarioCorner:
MarioBody:
MarioHead:
WallFeet:
WallBody:
RTL




print ""