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