GenExtra:
    LDY #$07
ExtraLoop:
    LDA $170B,y
    BEQ Extra1
    DEY
    BPL ExtraLoop
    RTS
Extra1:
    STY $00
    LDA #$05
    STA $170B,y
    LDA #$01
    STA $0F5E,y
    LDA #$30
    STA $173D,y
    LDY $157C,x
    LDA FireSpeeds,y
    LDY $00
    STA $1747,y
    LDY $157C,x
    LDA $E4,x
    CLC
    ADC FirePos,y
    LDY $00
    STA $171F,y
    LDA $14E0,x
    ADC #$00
    STA $1733,y
    LDA $D8,x
    CLC
    ADC #$08
    STA $1715,y
    LDA $14D4,x
    ADC #$00
    STA $1729,y
    LDA #$FF
    STA $176F,y
    RTS

FirePos:
    db $08,$00
FireSpeeds:
    db $03,$FD