JMP Main : JMP Main : JMP Main : JMP Return : JMP Return : JMP Return : JMP Return


Main:
	REP #$20 ;	Set accumulator to 16-bit
	LDA $0F34 ;	Load Coins
	CMP #$03E8 ;
	BCS Enough	;Branch if enough...
	SEP #$20 ;\
	LDY #$01	;Otherwise solid
	LDA #$30
	STA $1693
	RTL
Enough:

	SEP #$20 ;	set accumulator to 8-bit
	BEQ Return
	REP #$20 ;set accumulator to 16-bit again
	LDA $0F34 ;	Load Coins
	SEC ;\
	SBC #$03E8 ;| Subtract 500 coins and store
	STA $0F34 ;/
	SEP #$20 ;	set accumulator back to 8-bit
	LDY #$00	;Act like 25...
	LDA #$25
	STA $1693

Shatter:
	PHY		;preserve map16 high

	PHB		;need to change bank
	LDA #$02
	PHA
	PLB		;to 02
	LDA #$00	;default shatter
	JSL $028663	;shatter block
	PLB		;restore bank
Vanish:
	LDA #$02	;erase self
	STA $9C
	JSL $00BEB0	;generate blank block

	PLY		;restore map16 high
	RTL
Return:
        RTL