Anyone? Help?

db $42
JMP Main : JMP Main : JMP Main : JMP Return : JMP Return : JMP Return : JMP Return
JMP Main : JMP Main : JMP Main

MakeSolid:
LDY #$01
LDA #$30
STA $1693
RTL

Main:
LDA $14AD
BNE MakeSolid
LDA #$1C
STA $1DF9	;Play the SFX of a Yoshi Coin

;this is so that a glitter effect is played when collecting
;the coin

	LDA $7F
        ORA $81
        BNE Return
        LDY #$03
LoopStart:
        LDA $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
		LDY #$00

		INC $1422
		JSL $00F377

		LDA $0DBF
		CMP #$63
		BEQ Live
		INC $0DBF

PHY		;preserve map16 high
LDA #$02	;erase self
STA $9C
JSL $00BEB0	;generate blank block
PLY		;restore map16 high
INC $0DBF

Return:
RTL

Live:
STZ $0DBF
LDA #$01
STA $18E4
DEC $0DBF
RTL