SHOOTFIRE:
PHY
JSR SUB_HORZ_POS
TYA
STA $157C,x
PLY
LDA #$01
STA $C2,x

	STZ $1534,x
	LDY #$01	; number of projectiles to spawn
-	TYA		; \
	STA $00		; / get number within loop
	PHY
	JSR .spawnfireball	; spawn fireball
	PLY
	DEY
	BPL -
	RTS

.spawnfireball
	LDY #$07	; number of slots to check for (#$07 = 8 slots; leaves the last 2 slots for Mario's fireballs)
-	LDA $170B,y
	BEQ Extra1
	DEY
	BPL -
	RTS
Extra1:
	LDA #$02
	STA $170B,y

	LDA $E4,x
	STA $171F,y
	LDA $14E0,x
	STA $1733,y
	LDA $D8,x
	STA $1715,y
	LDA $14D4,x
	STA $1729,y

	PHY
	LDY $157C,x
	LDA .fireball_xspeed,y
	PLY
	STA $1747,y
	PHY
	LDY $00
	LDA .fireball_yspeed,y
	PLY
	STA $173D,y

	LDA #$06
	STA $1DFC
	LDA #$FF
	STA $176F,y
	RTS
.fireball_xspeed
	db $16,$EA
.fireball_yspeed
	db $00,$FB