;"Perfect" Breakable Brick
;Original patch by BMF54123
;Disassembly by Ersanio

HEADER
LOROM

ORG $00ED02
autoclean JSL Main2

ORG $0195D2
autoclean JSL Main

ORG $0199C9
autoclean JSL Main

ORG $028875
LDA.b #$06

ORG $02962C
autoclean JSL Main

freedata ; this one doesn't change the data bank register, so it uses the RAM mirrors from another bank, so I might as well toss it into banks 40+

Main:		CMP #$1E
		BEQ SUB_06C96D
		JML $00F160

SUB_06C96D:	PHY		;Push Y
		PHA		;Push A
		LDA $7D		;Mario Y-speed > A
		PHA		;Push A
		LDA #$21	;\
		LDY #$03	; |This... Breaks the block I suppose
		JSL $00F17F	;/
		PLA		;Stack > A, Mario Yspeed recovered
		STA $7D		;Store Y speed back... This is more like redunant?
		PLY		;Pull Y
		PLA		;Pull A
		RTL		;Return

Main2:		CMP #$1E
		BEQ SUB_06C989
SUB_06C984:	JSL $00F127	;Make the block bounce?
		RTL		;Return
SUB_06C989:	PHA		;Push A
		LDA $19		;Load powerup status
		BNE SUB_06C991	;If you are not small mario, break the block?
		PLA		;Pull A
		BRA SUB_06C984	;Otherwise make the block bounce?

SUB_06C991:	PHY		;Push Y
		LDA $7D		;Mario Y-speed > A
		PHA		;Push A
		LDA #$21	;\
		LDY #$03	; |This... Breaks the block I suppose
		JSL $00F17F	;/
		PLA		;Stack > A, Mario Yspeed recovered
		STA $7D		;Store Y speed back... This is more like redunant?
		PLY		;Pull Y
		PLA		;Pull A
		RTL		;Return