db $42
JMP MarioBelow : JMP Ret : JMP Ret
JMP SpriteV : JMP SpriteH : JMP MarioCape : JMP Ret
JMP Ret : JMP Ret : JMP Ret

MarioBelow:
    %coin_check()
    LDA $19
    BNE .break
    PHY
    LDA #$01
    LDY #$00
    LDX #$00
    %spawn_bounce_sprite()
    PLY
    RTL
MarioCape:
    %coin_check()
.break
    %shatter_block()
    %kill_sprite()
    %give_points()
    RTL

SpriteV:
    %coin_check()
    LDA.w $1686,x
    AND.b #%00000100
    BNE Ret
    LDA.w $14C8,x
    CMP.b #$09
    BCC Ret
    CMP.b #$0B
    BCS Ret
    LDA.b $0F
    CMP.b #$02
    BEQ Ret
SprMain:
    REP #$20
    LDA.b $0A
    STA.b $9A
    LDA.b $0C
    STA.b $98
    LDA.b $0F
    PHA
    SEP #$20
    LDA.b $03
    PHA
    %shatter_block()
    PLA
    STA.b $03
    PLA
    STA.b $0F
    PLA
    STA.b $10
    %kill_sprite()
    %give_points()
Ret:
    RTL

SpriteH:
    %coin_check()
    LDA.w $14C8,x
    CMP.b #$0A
    BEQ SprMain
    RTL