expblock.asm

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:
SpriteV:
SpriteH:
Cape:
Fireball:
MarioCorner:
MarioBody:
RTL

MarioHead:
    REP #$20                ; \
    LDA $9A                 ; |
    PHA                 ; |
    LDA #$0005              ; |
    CLC                 ; |
    ADC $9A                 ; |
    STA $9A                 ; |
    SEP #$20                ; |
    PHX                 ; | Change the block at (x+5, y+0) to #$0132.
    REP #$10                ; |
    LDX #$0132              ; |
    %change_map16()             ; |
    SEP #$10                ; |
    PLX                 ; |
    REP #$20                ; |
    PLA                 ; |
    STA $9A                 ; |
    SEP #$20                ; /

    REP #$20                ; \
    LDA $9A                 ; |
    PHA                 ; |
    LDA #$0004              ; |
    CLC                 ; |
    ADC $9A                 ; |
    STA $9A                 ; |
    SEP #$20                ; |
    PHX                 ; | Change the block at (x+4, y+0) to #$0132.
    REP #$10                ; |
    LDX #$0132              ; |
    %change_map16()             ; |
    SEP #$10                ; |
    PLX                 ; |
    REP #$20                ; |
    PLA                 ; |
    STA $9A                 ; |
    SEP #$20                ; /

    REP #$20                ; \
    LDA $9A                 ; |
    PHA                 ; |
    LDA #$0003              ; |
    CLC                 ; |
    ADC $9A                 ; |
    STA $9A                 ; |
    SEP #$20                ; |
    PHX                 ; | Change the block at (x+3, y+0) to #$0132.
    REP #$10                ; |
    LDX #$0132              ; |
    %change_map16()             ; |
    SEP #$10                ; |
    PLX                 ; |
    REP #$20                ; |
    PLA                 ; |
    STA $9A                 ; |
    SEP #$20                ; /

    REP #$20                ; \
    LDA $9A                 ; |
    PHA                 ; |
    LDA #$0002              ; |
    CLC                 ; |
    ADC $9A                 ; |
    STA $9A                 ; |
    SEP #$20                ; |
    PHX                 ; | Change the block at (x+2, y+0) to #$0132.
    REP #$10                ; |
    LDX #$0132              ; |
    %change_map16()             ; |
    SEP #$10                ; |
    PLX                 ; |
    REP #$20                ; |
    PLA                 ; |
    STA $9A                 ; |
    SEP #$20                ; /

    REP #$20                ; \
    LDA $9A                 ; |
    PHA                 ; |
    LDA #$0001              ; |
    CLC                 ; |
    ADC $9A                 ; |
    STA $9A                 ; |
    SEP #$20                ; |
    PHX                 ; | Change the block at (x+1, y+0) to #$0132.
    REP #$10                ; |
    LDX #$0132              ; |
    %change_map16()             ; |
    SEP #$10                ; |
    PLX                 ; |
    REP #$20                ; |
    PLA                 ; |
    STA $9A                 ; |
    SEP #$20                ; /

    PHX                 ; \
    REP #$10                ; |
    LDX #$0132              ; | Change this block into Map16 tile #$0132.
    %change_map16()             ; |
    SEP #$10                ; |
    PLX                 ; /


WallFeet:
WallBody:
RTL



print "5-Blocks"