JMP Mario : JMP Mario : JMP Mario : JMP Return : JMP Return : JMP Return : JMP Return Mario: LDA $0DBF CMP #$00 BEQ ERASE_COIN2 LDA #$06 STA $1DFC DEC $0DBF LDA $7F ORA $81 BNE Return LDY.B #$03 LoopStart: LDA.W $17C0,Y BEQ CreateGlitter DEY BPL LoopStart CreateGlitter: LDA #$05 STA $17C0,Y LDA $9A AND #$F0 STA $17C8,Y LDA $98 AND #$F0 STA $17C4,Y LDA $1933 BEQ ADDR_00FD97 LDA $9A SEC SBC $26 AND #$F0 STA $17C8,Y LDA $98 SEC SBC $28 AND #$F0 STA $17C4,Y ADDR_00FD97: LDA #$10 STA $17CC,Y ERASE_COIN: PHY ;preserve map16 high LDA #$02 ;erase self STA $9C JSL $00BEB0 ;generate blank block PLY ;restore map16 high RTL ERASE_COIN2: LDA #$06 STA $1DFC LDA $7F ORA $81 BNE Return LDY.B #$03 LoopStart2: LDA.W $17C0,Y BEQ CreateGlitter2 DEY BPL LoopStart2 CreateGlitter2: LDA #$05 STA $17C0,Y LDA $9A AND #$F0 STA $17C8,Y LDA $98 AND #$F0 STA $17C4,Y LDA $1933 BEQ ADDR_00FD97 LDA $9A SEC SBC $26 AND #$F0 STA $17C8,Y LDA $98 SEC SBC $28 AND #$F0 STA $17C4,Y ADDR_00FD97: LDA #$10 STA $17CC,Y ERASE_COIN3: PHY ;preserve map16 high LDA #$02 ;erase self STA $9C JSL $00BEB0 ;generate blank block PLY ;restore map16 high RTL Return: RTL