;;;;;;;;;;;;;;;;;;;ripped from the bin file, which was already ripped (and edited a bit) from $028818;;;;;;;
iwannabounce:
	LDX #$00
	LDY #$03	; used for indexing
LDA $8789,x
	STA $1901,y	; YXPPCCCT data of bounce sprite that is being shown
TXA
INC A			; LDA #$01 ?
	STA $1699,y	; Block Bounce Sprite Image Table
LDA #$01		;seems useless
	STA $169D,y	; Block Bounce Sprite ? Table
LDA $9A
STA $16A5,y	; Block Bounce Sprite Xpos Low Byte Table 
LDA $9B
STA $16AD,y	; Block Bounce Sprite Xpos High Byte Table
LDA $98
STA $16A1,y	; Block Bounce Sprite Ypos Low Byte Table
LDA $99
STA $16A9,y	; Block Bounce Sprite Ypos High Byte Table
LDA #$08
STA $16C5,y	; Block Bounce Sprite Bouncing Flag Table
LDA #$00
STA $16C1,y	; Block Bounce Sprite Turns Into Table

LDA $1933
LSR A
ROR A
STA $08
LDX #$00
LDA $873A,x
STA $16B1,y	; Block Bounce Sprite YSpeed Table
LDA $873E,x
STA $16B5,y	; Block Bounce Sprite XSpeed Table
TXA
ORA $08		; seems useless too
STA $16C9,y	; Block Bounce Sprite ? Table
JSR SpriteBlockInteract
RTS


SpriteBlockInteract:
	LDY #$03
ALoop1:
	LDA $16CD,y	; Block Bounce Sprite Exists Flag Table
	BEQ Missing4bytes
	DEY
	BPL ALoop1
	INY	; equal to LDY #$00
Missing4bytes:
LDA $9A
STA $16D1,y
LDA $9B
STA $16D5,y
LDA $98
STA $16D9,y
LDA $99
STA $16DD,y
LDA $1933
BEQ Missing1Ebytes
LDA $9A
SEC
SBC $26
STA $16D1,y
LDA $9B
SBC $27
STA $16D5,y
LDA $98
SEC
SBC $28
STA $16D9,y
LDA $99
SBC $29
STA $16DD,y
Missing1Ebytes:
LDA #$01
STA $16CD,y	; Block Bounce Sprite Exists Flag Table
LDA #$06
STA $18F8,y	; unknown!
RTS

Points:
LDA $0DB3
ASL A
ADC $0DB3
TAX
LDA $0F34,x
CLC
ADC #$01
STA $0F34,x
LDA $0F35,x
ADC #$00
STA $0F35,x
LDA $0F36,x
ADC #$00
STA $0F36,x
RTS