Firered Dive bubble fix

.thumb

.equ gSprites, 0x0202063C
.equ gWeatherBubbleTiles, 0x083C4580

.equ offset, 0x33F4E6

@

.org 0x7DA18, 0xFF
	bx r0

.org 0x7DA64, 0xFF
	.word CreateBubble + 1

@

.org offset, 0xFF
CreateBubble:
	ldr r0, =(gSprites)
	lsl r1, r2, #0x4
	add r1, r2
	lsl r1, #0x2
	add r3, r1, r0
	mov r0, #0x40					@sheetTileStart
	ldrb r0, [r3, r0]
	cmp r0, #0x0
	bne CreateBubble_Ret
	ldr r1, =(0x06010000)			@dst
	ldr r0, [r1]
	cmp r0, #0x0
	bne CreateBubble_Ret
	ldr r0, =(gWeatherBubbleTiles)	@src
	mov r2, #0x20					@size
	swi 0xb
CreateBubble_Ret:
	mov r1, r3
	ldr r0, =(0x0807DA20|1)
	bx r0

.align 2, 0
.pool