Dump blue field top core logic.

1 files changed, 2311 insertions, 8 deletions

diff --git a/main.asm b/main.asm
index bc87ebb..315e4ff 100755
--- a/main.asm
+++ b/main.asm
@@ -2172,7 +2172,13 @@ Func_1129: ; 0x1129
     ld [$d7fc], a
     ret
 
-INCBIN "baserom.gbc",$1130,$113a - $1130
+Func_1130: ; 0x1130
+    push hl
+    ld a, [$d7fb]
+    ld hl, $d7fc
+    cp [hl]
+    pop hl
+    ret
 
 Func_113a: ; 0x113a
     ld hl, $d7fc
@@ -4851,8 +4857,8 @@ CallTable_2822: ; 0x2822
     db Bank(Func_1806e), $00
 
     ; STAGE_BLUE_FIELD_TOP
-    dw $4715
-    db $07, $00
+    dw Func_1c715
+    db Bank(Func_1c715), $00
 
     ; STAGE_BLUE_FIELD_BOTTOM
     dw $4769
@@ -16759,7 +16765,7 @@ Func_14990: ; 0x14990
     ld [$d4f3], a
     jr .asm_149b6
 .asm_149a2
-    call $1130
+    call Func_1130
     ret nz
     ld a, $14
     ld [$d4f3], a
@@ -16778,7 +16784,7 @@ Func_14990: ; 0x14990
     ld [$d4f5], a
     ret
 .asm_149c6
-    call $1130
+    call Func_1130
     ret nz
     ld a, $14
     ld [$d4f5], a
@@ -20414,7 +20420,42 @@ Func_1c607: ; 0x1c607
     scf
     jp Func_2775
 
-INCBIN "baserom.gbc",$1c611,$1c7c7 - $1c611
+INCBIN "baserom.gbc",$1c611,$1c715 - $1c611
+
+Func_1c715: ; 0x1c715
+    call Func_1c9c1
+    call Func_1ca5f
+    call Func_1e356
+    call Func_1e58c
+    call Func_1e66a
+    call Func_1cfaa
+    call Func_1d0a1
+    call Func_1d216
+    call Func_1d32d
+    call Func_1ea3b
+    call Func_1dbd2
+    call Func_1ef09
+    call Func_1e9c0
+    call Func_1c8b6
+    call Func_1f18a
+    ld [$ff8a], a
+    ld a, Bank(Func_146a9)
+    ld hl, Func_146a9
+    call BankSwitch
+    call Func_1f27b
+    call Func_1df15
+    ld [$ff8a], a
+    ld a, Bank(Func_30188)
+    ld hl, Func_30188
+    call BankSwitch
+    ld a, $0
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ret
+
+INCBIN "baserom.gbc",$1c769,$1c7c7 - $1c769
 
 Func_1c7c7: ; 0x1c7c7
     ld a, $0
@@ -20490,7 +20531,873 @@ BlueStageInitialMaps: ; 0x1c8af
     db ROCK_MOUNTAIN
     db CELADON_CITY
 
-INCBIN "baserom.gbc",$1c8b6,$1d65f - $1c8b6
+Func_1c8b6: ; 0x1c8b6
+    ld a, [$d64c]
+    inc a
+    cp $3c
+    jr z, .asm_1c8c2
+    ld [$d64c], a
+    ret
+.asm_1c8c2
+    xor a
+    ld [$d64c], a
+    ld hl, $d64d
+    inc [hl]
+    ld a, [hl]
+    cp $5
+    ret nz
+    ld a, [$d644]
+    and a
+    jr nz, .asm_1c8e1
+    ld a, [$d643]
+    and a
+    jr nz, .asm_1c8e5
+    ld a, [$d545]
+    cp $2
+    jr nc, .asm_1c8e5
+.asm_1c8e1
+    xor a
+    ld [$d64b], a
+.asm_1c8e5
+    ld a, [$d644]
+    and a
+    jr nz, .asm_1c8f8
+    ld a, [$d643]
+    and a
+    jr nz, .asm_1c8fc
+    ld a, [$d543]
+    cp $3
+    jr z, .asm_1c8fc
+.asm_1c8f8
+    xor a
+    ld [$d64b], a
+.asm_1c8fc
+    xor a
+    ld [$d64d], a
+    xor a
+    ld [$d64a], a
+    ld [$d649], a
+    ld [$d648], a
+    ld a, [$d63e]
+    cp $1
+    jr z, .asm_1c97f
+    cp $3
+    jr z, .asm_1c97f
+.asm_1c915
+    ld a, [$d644]
+    cp $0
+    jr z, .asm_1c925
+    ld a, [$d55a]
+    cp $0
+    jr nz, .asm_1c933
+    jr .asm_1c947
+.asm_1c925
+    ld a, [$d643]
+    cp $0
+    jr nz, .asm_1c933
+    ld a, [$d545]
+    cp $2
+    jr c, .asm_1c947
+.asm_1c933
+    ld a, [$d64b]
+    cp $1
+    jr z, .asm_1c947
+    ld a, $1
+    ld [$d63e], a
+    ld [$d64b], a
+    ld [$d640], a
+    jr .asm_1c99e
+.asm_1c947
+    ld a, [$d644]
+    cp $0
+    jr z, .asm_1c955
+    ld a, [$d55a]
+    cp $0
+    jr z, .asm_1c969
+.asm_1c955
+    ld a, [$d643]
+    cp $0
+    jr nz, .asm_1c969
+    ld a, [$d543]
+    cp $3
+    jr nz, .asm_1c97f
+    ld a, [$d54b]
+    and a
+    jr nz, .asm_1c97f
+.asm_1c969
+    ld a, [$d64b]
+    cp $3
+    jr z, .asm_1c915
+    ld a, $3
+    ld [$d63e], a
+    ld [$d64b], a
+    ld a, $1
+    ld [$d640], a
+    jr .asm_1c99e
+.asm_1c97f
+    ld a, [$d641]
+    and a
+    jr nz, .asm_1c993
+    xor a
+    ld [$d63e], a
+    ld a, $1
+    ld [$d640], a
+    ld [$d64a], a
+    jr .asm_1c99e
+.asm_1c993
+    ld a, $2
+    ld [$d63e], a
+    ld a, $1
+    ld [$d640], a
+    ret
+.asm_1c99e
+    ld a, [$d63e]
+    cp $0
+    jr nz, .asm_1c9ac
+    ld a, $1
+    ld [$d64a], a
+    jr .asm_1c9c0
+.asm_1c9ac
+    cp $1
+    jr nz, .asm_1c9b7
+    ld a, $1
+    ld [$d649], a
+    jr .asm_1c9c0
+.asm_1c9b7
+    cp $3
+    jr nz, .asm_1c9c0
+    ld a, $1
+    ld [$d648], a
+.asm_1c9c0
+    ret
+
+Func_1c9c1: ; 0x1c9c1
+    ld a, [$d4cb]
+    and a
+    jr z, .asm_1ca19
+    xor a
+    ld [$d4cb], a
+    call Func_1ca29
+    ld a, [$d641]
+    and a
+    jr nz, .asm_1c9f2
+    ld a, $1
+    ld [$d641], a
+    ld a, [$d63e]
+    cp $0
+    jr nz, .asm_1c9f2
+    ld a, $2
+    ld [$d63e], a
+    ld a, $1
+    ld [$d640], a
+    ld a, $3
+    ld [$d64c], a
+    ld [$d64d], a
+.asm_1c9f2
+    ld a, $10
+    ld [$d4d6], a
+    ld a, [$d4cc]
+    sub $3
+    ld [$d4d7], a
+    ld a, $4
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ld bc, $34be
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ret
+.asm_1ca19
+    ld a, [$d4d6]
+    and a
+    ret z
+    dec a
+    ld [$d4d6], a
+    ret nz
+    ld a, $ff
+    ld [$d4d7], a
+    ret
+
+Func_1ca29: ; 0x1ca29
+    ld a, $ff
+    ld [$d803], a
+    ld a, $3
+    ld [$d804], a
+    ld hl, $0200
+    ld a, l
+    ld [$d7bc], a
+    ld a, h
+    ld [$d7bd], a
+    ld a, $80
+    ld [wFlipperCollision], a
+    ld de, $000e
+    call PlaySoundEffect
+    ret
+
+INCBIN "baserom.gbc",$1ca4a,$1ca5f - $1ca4a
+
+Func_1ca5f: ; 0x1ca5f
+    ld a, [$d507]
+    and a
+    jr z, .asm_1ca85
+    xor a
+    ld [$d507], a
+    ld a, [wBallYVelocity]
+    ld c, a
+    ld a, [wBallYVelocity + 1]
+    ld b, a
+    ld a, c
+    ld [$d50b], a
+    ld a, b
+    ld [$d50c], a
+    ld a, $c
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+.asm_1ca85
+    ld hl, $d50b
+    ld a, [hli]
+    or [hl]
+    ret z
+    ld a, [$d50b]
+    ld c, a
+    ld a, [$d50c]
+    ld b, a
+    bit 7, b
+    jr nz, .asm_1caa3
+    ld a, c
+    sub $7
+    ld c, a
+    ld a, b
+    sbc $0
+    ld b, a
+    jr nc, .asm_1cab0
+    jr .asm_1caad
+.asm_1caa3
+    ld a, c
+    add $7
+    ld c, a
+    ld a, b
+    adc $0
+    ld b, a
+    jr nc, .asm_1cab0
+.asm_1caad
+    ld bc, $0000
+.asm_1cab0
+    ld a, c
+    ld [$d50b], a
+    ld a, b
+    ld [$d50c], a
+    ld hl, $d50b
+    ld a, [$d509]
+    add [hl]
+    ld [$d509], a
+    inc hl
+    ld a, [$d50a]
+    adc [hl]
+    bit 7, a
+    ld c, $0
+    jr z, .asm_1cad3
+    add $18
+    ld c, $1
+    jr .asm_1cadb
+.asm_1cad3
+    cp $18
+    jr c, .asm_1cadb
+    sub $18
+    ld c, $1
+.asm_1cadb
+    ld [$d50a], a
+    ld a, c
+    and a
+    ret z
+    ld bc, $34ac
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld hl, $d62d
+    call Func_e4a
+    ld a, [$d517]
+    cp $f
+    jr nz, .asm_1caff
+    call Func_1cb1c
+    ret
+.asm_1caff
+    inc a
+    ld [$d517], a
+    call Func_1cb1c
+    ld a, [$d517]
+    cp $f
+    jr nz, .asm_1cb12
+    ld a, $64
+    ld [$d51e], a
+.asm_1cb12
+    ld a, [wCurrentStage]
+    bit 0, a
+    ret nz
+    call Func_1cb43
+    ret
+
+Func_1cb1c: ; 0x1cb1c
+    ld a, [$d51e]
+    and a
+    ret nz
+    ld a, [$d517]
+    ld c, a
+    ld b, $0
+    ld hl, $4b33 ; todo
+    add hl, bc
+    ld a, [hl]
+    ld e, a
+    ld d, $0
+    call PlaySoundEffect
+    ret
+
+INCBIN "baserom.gbc",$1cb33,$1cb43 - $1cb33
+
+Func_1cb43: ; 0x1cb43
+    ld a, [$d517]
+    ld c, a
+    sla c
+    ld b, $0
+    ld hl, $4b60 ; todo
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1cb56
+    ld hl, $4d10 ; todo
+.asm_1cb56
+    add hl, bc
+    ld a, [hli]
+    ld h, [hl]
+    ld l, a
+    ld a, $7
+    call Func_10aa
+    ret
+
+INCBIN "baserom.gbc",$1cb60,$1cfaa - $1cb60
+
+Func_1cfaa: ; 0x1cfaa
+    ld a, [$d51f]
+    and a
+    ret z
+    xor a
+    ld [$d51f], a
+    ld bc, $34a6
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld a, [$d4af]
+    cp $0
+    jr nz, .asm_1cfe5
+    ld a, $1
+    ld [$d4af], a
+    ld [$ff8a], a
+    ld a, Bank(Func_e578)
+    ld hl, Func_e578
+    call BankSwitch
+    ld a, $1
+    ld [$d580], a
+    ld [$ff8a], a
+    ld a, Bank(Func_1404a)
+    ld hl, Func_1404a
+    call BankSwitch
+.asm_1cfe5
+    ld a, [$d520]
+    sub $7
+    ld c, a
+    ld b, $0
+    ld hl, $d521
+    add hl, bc
+    ld [hl], $1
+    ld a, [$d521]
+    and a
+    call nz, Func_1d010
+    ld a, [$d522]
+    and a
+    call nz, Func_1d047
+    ld a, [$d523]
+    and a
+    call nz, Func_1d080
+    ld a, [$d524]
+    and a
+    call nz, Func_1d091
+    ret
+
+Func_1d010: ; 0x1d010
+    xor a
+    ld [$d521], a
+    ld a, [$d542]
+    and a
+    ret z
+    xor a
+    ld [$d542], a
+    ld a, $1
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ret c
+    ld a, [$d543]
+    cp $3
+    ret z
+    inc a
+    ld [$d543], a
+    cp $3
+    jr z, .asm_1d03e
+    set 7, a
+    ld [$d52f], a
+    ret
+.asm_1d03e
+    ld [$d52f], a
+    ld a, $80
+    ld [$d531], a
+    ret
+
+Func_1d047: ; 0x1d047
+    xor a
+    ld [$d522], a
+    ld a, [$d544]
+    and a
+    ret z
+    xor a
+    ld [$d544], a
+    ld a, $2
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ret c
+    ld a, [$d545]
+    cp $3
+    ret z
+    inc a
+    ld [$d545], a
+    cp $3
+    jr z, .asm_1d071
+    set 7, a
+.asm_1d071
+    ld [$d530], a
+    ld a, [$d545]
+    cp $2
+    ret c
+    ld a, $80
+    ld [$d532], a
+    ret
+
+Func_1d080: ; 0x1d080
+    xor a
+    ld [$d523], a
+    ld [$d544], a
+    ld [$d546], a
+    ld a, $1
+    ld [$d542], a
+    ret c
+    ret
+
+Func_1d091: ; 0x1d091
+    xor a
+    ld [$d524], a
+    ld [$d542], a
+    ld [$d546], a
+    ld a, $1
+    ld [$d544], a
+    ret
+
+Func_1d0a1: ; 0x1d0a1
+    ld a, [$d515]
+    and a
+    jr z, .asm_1d110
+    xor a
+    ld [$d515], a
+    ld a, [$d51c]
+    and a
+    jr nz, .asm_1d110
+    ld a, [$d51d]
+    and a
+    jr nz, .asm_1d0c9
+    ld a, [$d516]
+    sub $d
+    ld hl, $d518
+    cp [hl]
+    jr nz, .asm_1d110
+    ld a, [$d517]
+    cp $f
+    jr nz, .asm_1d0fc
+.asm_1d0c9
+    ld hl, $51d1 ; todo
+    ld de, $d519
+    call Func_28a0
+    ld a, [$d51d]
+    and a
+    jr nz, .asm_1d0dc
+    xor a
+    ld [$d517], a
+.asm_1d0dc
+    ld a, $1
+    ld [$d51c], a
+    xor a
+    ld [wBallXVelocity], a
+    ld [wBallXVelocity + 1], a
+    ld [wBallYVelocity], a
+    ld [wBallYVelocity + 1], a
+    ld [wBallSpin], a
+    ld [wBallRotation], a
+    ld [$d549], a
+    call Func_30e8
+    jr .asm_1d110
+.asm_1d0fc
+    ld hl, $51f6 ; todo
+    ld de, $d519
+    call Func_28a0
+    ld a, $2
+    ld [$d51c], a
+    ld de, $003b
+    call PlaySoundEffect
+.asm_1d110
+    ld a, [$d51c]
+    and a
+    call z, Func_1d1fb
+    call Func_1d133
+    ld a, [$d517]
+    cp $f
+    ret nz
+    ld a, [$d51e]
+    and a
+    ret z
+    dec a
+    ld [$d51e], a
+    cp $5a
+    ret nz
+    ld de, $0f22
+    call PlaySoundEffect
+    ret
+
+Func_1d133: ; 0x1d133
+    ld a, [$d51c]
+    cp $1
+    jr nz, .asm_1d1ae
+    ld hl, $51d1 ; todo
+    ld de, $d519
+    call Func_28a9
+    ret nc
+    ld a, [$d51b]
+    cp $1
+    jr nz, .asm_1d18c
+    xor a
+    ld [$d85d], a
+    call Func_310a
+    rst $10
+    ld a, $1
+    ld [$ff8a], a
+    ld a, Bank(Func_50000)
+    ld hl, Func_50000
+    call BankSwitch
+    ld a, $1
+    ld [$d85d], a
+    ld a, $ff
+    ld [$d803], a
+    ld a, $60
+    ld [$d804], a
+    ld hl, $d62e
+    call Func_e4a
+    jr nc, .asm_1d185
+    ld c, $a
+    call Func_e55
+    ld [$ff8a], a
+    ld a, Bank(Func_30164)
+    ld hl, Func_30164
+    call z, BankSwitch
+.asm_1d185
+    ld de, $1610
+    call PlaySoundEffect
+    ret
+.asm_1d18c
+    ld a, [$d51b]
+    cp $11
+    ret nz
+    ld a, $fc
+    ld [$d4be], a
+    ld a, $1
+    ld [$d549], a
+    ld bc, $34ca
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    xor a
+    ld [$d51c], a
+    ret
+.asm_1d1ae
+    cp $2
+    jr nz, .asm_1d1c7
+    ld hl, $51f6 ; todo
+    ld de, $d519
+    call Func_28a9
+    ret nc
+    ld a, [$d51b]
+    cp $1
+    ret nz
+    xor a
+    ld [$d51c], a
+    ret
+.asm_1d1c7
+    ld a, [$ffb3]
+    swap a
+    and $1
+    ld [$d51a], a
+    ret
+
+INCBIN "baserom.gbc",$1d1d1,$1d1fb - $1d1d1
+
+Func_1d1fb: ; 0x1d1fb
+    ld hl, wKeyConfigLeftFlipper
+    call IsKeyPressed2
+    jr z, .asm_1d209
+    ld hl, $d518
+    ld [hl], $0
+    ret
+.asm_1d209
+    ld hl, wKeyConfigRightFlipper
+    call IsKeyPressed2
+    ret z
+    ld hl, $d518
+    ld [hl], $1
+    ret
+
+Func_1d216: ; 0x1d216
+    ld a, [$d630]
+    and a
+    jr z, .asm_1d253
+    xor a
+    ld [$d630], a
+    ld bc, $34d0
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld de, $0005
+    call PlaySoundEffect
+    ld hl, $5312 ; todo
+    ld de, $d632
+    call Func_28a0
+    xor a
+    ld [wBallXVelocity], a
+    ld [wBallXVelocity + 1], a
+    ld [wBallYVelocity], a
+    ld [wBallYVelocity + 1], a
+    ld [wBallXPos], a
+    ld [wBallYPos], a
+    xor a
+    ld [$d549], a
+.asm_1d253
+    ld hl, $5312 ; todo
+    ld de, $d632
+    call Func_28a9
+    push af
+    ld a, [$d632]
+    and a
+    jr nz, .asm_1d271
+    ld a, $19
+    ld [$d632], a
+    xor a
+    ld [$d633], a
+    ld a, $6
+    ld [$d634], a
+.asm_1d271
+    pop af
+    ret nc
+    ld a, [$d634]
+    cp $1
+    jr nz, .asm_1d2b6
+    xor a
+    ld [$d548], a
+    ld a, [$d543]
+    cp $3
+    jr nz, .asm_1d299
+    ld [$ff8a], a
+    ld a, Bank(Func_10ab3)
+    ld hl, Func_10ab3
+    call BankSwitch
+    ld a, [$d643]
+    and a
+    ret z
+    ld a, $1
+    ld [$d642], a
+.asm_1d299
+    ld hl, $d63a
+    call Func_e4a
+    ld hl, $d62a
+    call Func_e4a
+    ret nc
+    ld c, $19
+    call Func_e55
+    ld [$ff8a], a
+    ld a, Bank(Func_30164)
+    ld hl, Func_30164
+    call z, BankSwitch
+    ret
+.asm_1d2b6
+    ld a, [$d634]
+    cp $4
+    jr nz, .asm_1d2c3
+    ld a, $1
+    ld [$d548], a
+    ret
+.asm_1d2c3
+    ld a, [$d634]
+    cp $5
+    ret nz
+    ld a, $1
+    ld [$d549], a
+    ld a, $b0
+    ld [wBallXVelocity], a
+    ld a, $0
+    ld [wBallXVelocity + 1], a
+    xor a
+    ld [wBallYVelocity], a
+    ld [wBallYVelocity + 1], a
+    ld de, $0006
+    call PlaySoundEffect
+    ld a, [$d642]
+    cp $0
+    jr nz, .asm_1d2f8
+    ld a, $f
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+.asm_1d2f8
+    xor a
+    ld [$d642], a
+    ld [$d64c], a
+    ld [$d64d], a
+    ld a, $1
+    ld [$d641], a
+    ld a, $2
+    ld [$d63e], a
+    ld a, $1
+    ld [$d640], a
+    ret
+
+INCBIN "baserom.gbc",$1d312,$1d32d - $1d312
+
+Func_1d32d: ; 0x1d32d
+    ld a, [$d635]
+    and a
+    jr z, .asm_1d36a
+    xor a
+    ld [$d635], a
+    ld bc, $34d0
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld de, $0005
+    call PlaySoundEffect
+    ld hl, $541d
+    ld de, $d637
+    call Func_28a0
+    xor a
+    ld [wBallXVelocity], a
+    ld [wBallXVelocity + 1], a
+    ld [wBallYVelocity], a
+    ld [wBallYVelocity + 1], a
+    ld [wBallXPos], a
+    ld [wBallYPos], a
+    xor a
+    ld [$d549], a
+.asm_1d36a
+    ld hl, $541d
+    ld de, $d637
+    call Func_28a9
+    push af
+    ld a, [$d637]
+    and a
+    jr nz, .asm_1d388
+    ld a, $19
+    ld [$d637], a
+    xor a
+    ld [$d638], a
+    ld a, $6
+    ld [$d639], a
+.asm_1d388
+    pop af
+    ret nc
+    ld a, [$d639]
+    cp $1
+    jr nz, .asm_1d3cb
+    xor a
+    ld [$d548], a
+    ld a, [$d545]
+    cp $2
+    jr c, .asm_1d3ae
+    ld a, $8
+    jr nz, .asm_1d3a1
+    xor a
+.asm_1d3a1
+    ld [$d55b], a
+    ld [$ff8a], a
+    ld a, Bank(StartCatchEmMode)
+    ld hl, StartCatchEmMode
+    call BankSwitch
+.asm_1d3ae
+    ld hl, $d63b
+    call Func_e4a
+    ld hl, $d62a
+    call Func_e4a
+    ret nc
+    ld c, $19
+    call Func_e55
+    ld [$ff8a], a
+    ld a, Bank(Func_30164)
+    ld hl, Func_30164
+    call z, BankSwitch
+    ret
+.asm_1d3cb
+    ld a, [$d639]
+    cp $4
+    jr nz, .asm_1d3d8
+    ld a, $1
+    ld [$d548], a
+    ret
+.asm_1d3d8
+    ld a, [$d639]
+    cp $5
+    ret nz
+    ld a, $1
+    ld [$d549], a
+    ld a, $4f
+    ld [wBallXVelocity], a
+    ld a, $ff
+    ld [wBallXVelocity + 1], a
+    xor a
+    ld [wBallYVelocity], a
+    ld [wBallYVelocity + 1], a
+    ld de, $0006
+    call PlaySoundEffect
+    ld a, $e
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    xor a
+    ld [$d64c], a
+    ld [$d64d], a
+    ld a, $1
+    ld [$d641], a
+    ld a, $2
+    ld [$d63e], a
+    ld a, $1
+    ld [$d640], a
+    ret
+
+INCBIN "baserom.gbc",$1d41d,$1d65f - $1d41d
 
 Func_1d65f: ; 0x1d65f
     ld a, [$d482]
@@ -20522,7 +21429,1403 @@ Func_1d65f: ; 0x1d65f
     ld [$d60d], a
     ret
 
-INCBIN "baserom.gbc",$1d68b,$20000 - $1d68b
+INCBIN "baserom.gbc",$1d68b,$1dbd2 - $1d68b
+
+Func_1dbd2: ; 0x1dbd2
+    ld a, [$d4ed]
+    and a
+    jp z, Func_1dc8e
+    cp $2
+    jr z, .asm_1dc33
+    xor a
+    ld [$d4ed], a
+    ld hl, $d4f0
+    ld a, [hl]
+    cp $3
+    jp z, Func_1dc8e
+    inc a
+    ld [hl], a
+    ld hl, $d4f7
+    ld a, $e0
+    ld [hli], a
+    ld a, $1
+    ld [hl], a
+    ld a, [wCurrentStage]
+    bit 0, a
+    jr z, .asm_1dc06
+    ld a, $54
+    ld [$c7e3], a
+    ld a, $55
+    ld [$c803], a
+.asm_1dc06
+    ld a, $1
+    call Func_1de4b
+    ld a, [$d4f0]
+    call Func_1de6f
+    ld a, [$d4f0]
+    cp $3
+    ld a, $7
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ld a, $2
+    ld [$d646], a
+    ld a, $78
+    ld [$d4f3], a
+    ld a, $14
+    ld [$d4f4], a
+    jr .asm_1dc8a
+.asm_1dc33
+    xor a
+    ld [$d4ed], a
+    ld hl, $d4f2
+    ld a, [hl]
+    cp $3
+    jp z, Func_1dc8e
+    inc a
+    ld [hl], a
+    ld hl, $d4f9
+    ld a, $e0
+    ld [hli], a
+    ld a, $1
+    ld [hl], a
+    ld a, [wCurrentStage]
+    bit 0, a
+    jr z, .asm_1dc5c
+    ld a, $52
+    ld [$c7f0], a
+    ld a, $53
+    ld [$c810], a
+.asm_1dc5c
+    ld a, $3
+    call Func_1de4b
+    ld a, [$d4f2]
+    cp $3
+    ld a, $8
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ld a, [$d4f2]
+    cp $3
+    ccf
+    call z, Func_1ddf4
+    ld a, $2
+    ld [$d645], a
+    ld a, $28
+    ld [$d4f5], a
+    ld a, $78
+    ld [$d4f6], a
+.asm_1dc8a
+    call Func_1de22
+    ret
+
+Func_1dc8e: ; 0x1dc8e
+    call Func_1dc95
+    call Func_1dd2e
+    ret
+
+Func_1dc95: ; 0x1dc95
+    ld a, [$d646]
+    cp $0
+    ret z
+    ld a, [$d4f3]
+    and a
+    jr z, .asm_1dceb
+    dec a
+    ld [$d4f3], a
+    ld a, [$d644]
+    and a
+    ret nz
+    ld a, [$d4f4]
+    cp $1
+    jr z, .asm_1dcb9
+    cp $0
+    ret z
+    dec a
+    ld [$d4f4], a
+    ret
+.asm_1dcb9
+    ld a, [$d646]
+    cp $2
+    ret nz
+    call Func_1130
+    ret nz
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1dcd7
+    ld a, [$d4f0]
+    cp $0
+    jr z, .asm_1dcd4
+    ld b, $7
+    add b
+    jr .asm_1dcd9
+.asm_1dcd4
+    xor a
+    jr .asm_1dcd9
+.asm_1dcd7
+    ld a, $8
+.asm_1dcd9
+    call Func_1de6f
+    ld a, [$d4f0]
+    cp $3
+    ccf
+    call z, Func_1ddc7
+    ld a, $1
+    ld [$d646], a
+    ret
+.asm_1dceb
+    ld a, [$d646]
+    cp $1
+    ret nz
+    ld a, [$d4f3]
+    and a
+    ret nz
+    ld a, $0
+    call Func_1de4b
+    ld a, [wCurrentStage]
+    bit 0, a
+    jr z, .asm_1dd0c
+    ld a, $5e
+    ld [$c7e3], a
+    ld a, $5f
+    ld [$c803], a
+.asm_1dd0c
+    ld a, $0
+    ld [$d646], a
+    ld a, [$d4f0]
+    sub $3
+    ret nz
+    ld a, [$d4f0]
+    sub $3
+    ld [$d4f0], a
+    call Func_1de6f
+    ld a, $0
+    call Func_1de4b
+    ld a, $0
+    ld [$d646], a
+    ret
+
+INCBIN "baserom.gbc",$1dd2d,$1dd2e - $1dd2d
+
+Func_1dd2e: ; 0x1dd2e
+    ld a, [$d645]
+    cp $0
+    ret z
+    cp $1
+    jr z, .asm_1dd53
+    cp $3
+    jr z, .asm_1dd69
+    ld a, [$d4f5]
+    cp $0
+    jr z, .asm_1dd48
+    dec a
+    ld [$d4f5], a
+    ret
+.asm_1dd48
+    ld a, $2
+    call Func_1de4b
+    ld a, $1
+    ld [$d645], a
+    ret
+.asm_1dd53
+    ld a, [$d4f2]
+    add $4
+    call Func_1de6f
+    ld a, [$d4f2]
+    add $3
+    call Func_1de4b
+    ld a, $3
+    ld [$d645], a
+    ret
+.asm_1dd69
+    ld a, [$d4f6]
+    and a
+    jr z, .asm_1dd74
+    dec a
+    ld [$d4f6], a
+    ret
+.asm_1dd74
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1dd89
+    ld a, [$d4f2]
+    cp $0
+    jr z, .asm_1dd85
+    ld b, $a
+    add b
+    jr .asm_1dd8b
+.asm_1dd85
+    ld a, $4
+    jr .asm_1dd8b
+.asm_1dd89
+    ld a, $9
+.asm_1dd8b
+    call Func_1de6f
+    ld a, $2
+    call Func_1de4b
+    ld a, [wCurrentStage]
+    bit 0, a
+    jr z, .asm_1dda9
+    ld a, $24
+    ld [$c7f0], a
+    ld a, $25
+    ld [$c810], a
+    ld a, $0
+    ld [$d645], a
+.asm_1dda9
+    ld a, [$d4f2]
+    sub $3
+    ret nz
+    ld a, [$d4f2]
+    sub $3
+    ld [$d4f2], a
+    ld a, $4
+    call Func_1de6f
+    ld a, $2
+    call Func_1de4b
+    ld a, $0
+    ld [$d645], a
+    ret
+
+Func_1ddc7: ; 0x1ddc7
+    ld hl, $d63d
+    call Func_e4a
+    ld hl, $d62b
+    call Func_e4a
+    jr nc, .asm_1dde4
+    ld c, $a
+    call Func_e55
+    ld [$ff8a], a
+    ld a, Bank(Func_30164)
+    ld hl, Func_30164
+    call z, BankSwitch
+.asm_1dde4
+    xor a
+    ld [$d55a], a
+    ld [$ff8a], a
+    ld a, Bank(Func_301ec)
+    ld hl, Func_301ec
+    call BankSwitch
+    scf
+    ret
+
+Func_1ddf4: ; 0x1ddf4
+    ld hl, $d63c
+    call Func_e4a
+    ld hl, $d62b
+    call Func_e4a
+    jr nc, .asm_1de11
+    ld c, $a
+    call Func_e55
+    ld [$ff8a], a
+    ld a, Bank(Func_30164)
+    ld hl, Func_30164
+    call z, BankSwitch
+.asm_1de11
+    ld a, $1
+    ld [$d55a], a
+    ld [$ff8a], a
+    ld a, Bank(Func_301ec)
+    ld hl, Func_301ec
+    call BankSwitch
+    scf
+    ret
+
+Func_1de22: ; 0x1de22
+    ld a, [wCurrentStage]
+    bit 0, a
+    ret z
+    ld a, $55
+    ld [$d803], a
+    ld a, $4
+    ld [$d804], a
+    ld a, $2
+    ld [$d7eb], a
+    ld bc, $34be
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld de, $000f
+    call PlaySoundEffect
+    ret
+
+Func_1de4b: ; 0x1de4b
+    ld b, a
+    ld a, [wCurrentStage]
+    bit 0, a
+    ret z
+    ld a, b
+    sla a
+    ld c, a
+    ld b, $0
+    ld hl, $5f66
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1de63
+    ld hl, $600f
+.asm_1de63
+    add hl, bc
+    ld a, [hli]
+    ld h, [hl]
+    ld l, a
+    or h
+    ret z
+    ld a, $7
+    call Func_10aa
+    ret
+
+Func_1de6f: ; 0x1de6f
+    ld b, a
+    ld a, [wCurrentStage]
+    bit 0, a
+    ret z
+    ld a, b
+    sla a
+    ld c, a
+    ld b, $0
+    ld hl, $60a4
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1de87
+    ld hl, $61d6
+.asm_1de87
+    add hl, bc
+    ld a, [hli]
+    ld h, [hl]
+    ld l, a
+    or h
+    ret z
+    ld a, $7
+    call Func_10aa
+    ret
+
+INCBIN "baserom.gbc",$1de93,$1df15 - $1de93
+
+Func_1df15: ; 0x1df15
+    ld b, $0
+    ld hl, $d4f8
+    ld a, [hld]
+    or [hl]
+    jr z, .asm_1df3e
+    dec [hl]
+    ld a, [hli]
+    cp $ff
+    jr nz, .asm_1df3e
+    dec [hl]
+    ld a, [hld]
+    cp $ff
+    jr nz, .asm_1df3e
+    ld a, $e0
+    ld [hli], a
+    ld a, $1
+    ld [hl], a
+    ld a, [$d4f0]
+    and a
+    jr z, .asm_1df3e
+    cp $3
+    jr z, .asm_1df3e
+    dec a
+    ld [$d4f0], a
+.asm_1df3e
+    ld hl, $d4fa
+    ld a, [hld]
+    or [hl]
+    jr z, .asm_1df65
+    dec [hl]
+    ld a, [hli]
+    cp $ff
+    jr nz, .asm_1df65
+    dec [hl]
+    ld a, [hld]
+    cp $ff
+    jr nz, .asm_1df65
+    ld a, $e0
+    ld [hli], a
+    ld a, $1
+    ld [hl], a
+    ld a, [$d4f2]
+    and a
+    jr z, .asm_1df65
+    cp $3
+    jr z, .asm_1df65
+    dec a
+    ld [$d4f2], a
+.asm_1df65
+    ret
+
+INCBIN "baserom.gbc",$1df66,$1e356 - $1df66
+
+Func_1e356: ; 0x1e356
+    ld a, [$d5f7]
+    and a
+    jp z, Func_1e471
+    xor a
+    ld [$d5f7], a
+    ld a, [$d4af]
+    cp $0
+    jr nz, .asm_1e386
+    ld a, $1
+    ld [$d4af], a
+    ld [$ff8a], a
+    ld a, Bank(Func_e578)
+    ld hl, Func_e578
+    call BankSwitch
+    ld a, $1
+    ld [$d580], a
+    ld [$ff8a], a
+    ld a, Bank(Func_1404a)
+    ld hl, Func_1404a
+    call BankSwitch
+.asm_1e386
+    ld a, [$d4af]
+    bit 0, a
+    jp z, Func_1e471
+    ld a, [$d5fc]
+    and a
+    jp nz, Func_1e471
+    xor a
+    ld [$d544], a
+    ld [$d542], a
+    ld [$d546], a
+    ld a, $b
+    ld [$ff8a], a
+    ld a, Bank(Func_10000)
+    ld hl, Func_10000
+    call BankSwitch
+    ld a, [$d5f8]
+    sub $13
+    ld c, a
+    ld b, $0
+    ld hl, $d5f9
+    add hl, bc
+    ld a, [hl]
+    ld [hl], $1
+    and a
+    jr z, .asm_1e3bf
+    ld [hl], $0
+.asm_1e3bf
+    ld bc, $34b2
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld hl, $d5f9
+    ld a, [hli]
+    and [hl]
+    inc hl
+    and [hl]
+    jr nz, .asm_1e3de
+    ld de, $0009
+    call PlaySoundEffect
+    jp asm_1e475
+.asm_1e3de
+    ld a, $1
+    ld [$d5fc], a
+    ld a, $80
+    ld [$d5fd], a
+    ld a, $10
+    ld [$d47f], a
+    ld a, $e
+    ld [$d480], a
+    ld bc, $34b8
+    ld [$ff8a], a
+    ld a, Bank(Func_8576)
+    ld hl, Func_8576
+    call BankSwitch
+    ld a, [$d47e]
+    cp $5
+    jr z, .asm_1e430
+    ld de, $063a
+    call PlaySoundEffect
+    call Func_30e8
+    call Func_30db
+    ld hl, $d5cc
+    ld de, $2907
+    call Func_32aa
+    ld a, [$d47e]
+    ld c, a
+    ld b, $0
+    ld hl, $6514 ; todo
+    add hl, bc
+    ld a, [hl]
+    ld [$d47e], a
+    add $30
+    ld [$c512], a
+    jr .asm_1e465
+.asm_1e430
+    ld de, $0f4d
+    call PlaySoundEffect
+    ld bc, $34e8
+    ld [$ff8a], a
+    ld a, Bank(Func_8588)
+    ld hl, Func_8588
+    call BankSwitch
+    ld bc, $0100
+    ld de, $0000
+    push bc
+    push de
+    call Func_30e8
+    call Func_30db
+    ld hl, $d5d4
+    ld de, $2948
+    call Func_32cc
+    pop de
+    pop bc
+    ld hl, $d5cc
+    ld de, $2922
+    call Func_32aa
+.asm_1e465
+    ld [$ff8a], a
+    ld a, Bank(Func_155a7)
+    ld hl, Func_155a7
+    call BankSwitch
+    jr asm_1e475
+
+Func_1e471: ; 0x1e471
+    call $64b8
+    ret z
+asm_1e475: ; 0x1e475
+    ld hl, $d5fb
+    ld b, $3
+.asm_1e47a
+    ld a, [hld]
+    push hl
+    call Func_1e484
+    pop hl
+    dec b
+    jr nz, .asm_1e47a
+    ret
+
+Func_1e484: ; 0x1e484
+    and a
+    jr z, .asm_1e496
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr nz, .asm_1e491
+    ld hl, $6520
+    jr .asm_1e4a3
+.asm_1e491
+    ld hl, $6556
+    jr .asm_1e4a3
+.asm_1e496
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr nz, .asm_1e4a0
+    ld hl, $6526
+    jr .asm_1e4a3
+.asm_1e4a0
+    ld hl, $655c
+.asm_1e4a3
+    push bc
+    dec b
+    sla b
+    ld e, b
+    ld d, $0
+    add hl, de
+    ld c, [hl]
+    inc hl
+    ld b, [hl]
+    ld a, $7
+    ld de, $117b
+    call Func_10c5
+    pop bc
+    ret
+
+INCBIN "baserom.gbc",$1e4b8,$1e58c - $1e4b8
+
+Func_1e58c: ; 0x1e58c
+    ld a, [$d5f3]
+    and a
+    ret nz
+    ld hl, $d47f
+    ld a, [hli]
+    ld c, a
+    ld b, [hl]
+    or b
+    ret z
+    dec bc
+    ld a, b
+    ld [hld], a
+    ld [hl], c
+    or c
+    ret nz
+    ld a, [$d47e]
+    ld c, a
+    ld b, $0
+    ld hl, $651a ; todo
+    add hl, bc
+    ld a, [hl]
+    ld [$d47e], a
+    and a
+    jr z, .asm_1e5ba
+    ld a, $10
+    ld [$d47f], a
+    ld a, $e
+    ld [$d480], a
+.asm_1e5ba
+    ld [$ff8a], a
+    ld a, Bank(Func_155a7)
+    ld hl, Func_155a7
+    call BankSwitch
+    ret
+
+INCBIN "baserom.gbc",$1e5c5,$1e66a - $1e5c5
+
+Func_1e66a: ; 0x1e66a
+    ld a, [$d513]
+    and a
+    jr z, .asm_1e6a0
+    ld a, [$d514]
+    dec a
+    ld [$d514], a
+    jr nz, .asm_1e687
+    ld [$d513], a
+    ld a, $1
+    ld [$d608], a
+    ld a, $3
+    ld [$d607], a
+    xor a
+.asm_1e687
+    and $7
+    ret nz
+    ld a, [$d514]
+    srl a
+    srl a
+    srl a
+    and $1
+    ld hl, $d50f
+    ld [hli], a
+    ld [hli], a
+    ld [hli], a
+    ld [hl], a
+    ld a, $1
+    and a
+    ret
+.asm_1e6a0
+    ld hl, wKeyConfigLeftFlipper
+    call IsKeyPressed
+    jr z, .asm_1e6bc
+    ld hl, $d50f
+    ld a, [hli]
+    ld c, a
+    ld a, [hli]
+    ld b, a
+    ld a, [hli]
+    ld e, a
+    ld a, [hl]
+    ld d, a
+    ld a, c
+    ld [hld], a
+    ld a, d
+    ld [hld], a
+    ld a, e
+    ld [hld], a
+    ld a, b
+    ld [hl], a
+    ret
+.asm_1e6bc
+    ld hl, wKeyConfigRightFlipper
+    call IsKeyPressed
+    ret z
+    ld hl, $d50f
+    ld a, [hli]
+    ld c, a
+    ld a, [hli]
+    ld b, a
+    ld a, [hli]
+    ld e, a
+    ld a, [hl]
+    ld d, a
+    ld a, e
+    ld [hld], a
+    ld a, b
+    ld [hld], a
+    ld a, c
+    ld [hld], a
+    ld a, d
+    ld [hl], a
+    ret
+
+INCBIN "baserom.gbc",$1e6d7,$1e8f6 - $1e6d7
+
+Func_1e8f6: ; 0x1e8f6
+    ld a, [wCurrentStage]
+    and $1
+    sla a
+    ld c, a
+    ld a, [$d604]
+    add c
+    sla a
+    ld c, a
+    ld b, $0
+    ld hl, $691e
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1e912
+    ld hl, $6970
+.asm_1e912
+    add hl, bc
+    ld a, [hli]
+    ld h, [hl]
+    ld l, a
+    or h
+    ret z
+    ld a, $7
+    call Func_10aa
+    ret
+
+INCBIN "baserom.gbc",$1e91e,$1e9c0 - $1e91e
+
+Func_1e9c0: ; 0x1e9c0
+    ld a, [$d607]
+    and a
+    ret z
+    dec a
+    ld [$d607], a
+    ret nz
+    ld a, [$d54b]
+    and a
+    ret nz
+    ld a, [$d609]
+    and a
+    jr z, .asm_1e9dc
+    ld a, [$d498]
+    add $15
+    jr .asm_1e9e3
+.asm_1e9dc
+    ld a, [$d608]
+    and a
+    ret z
+    ld a, $1a
+.asm_1e9e3
+    ld hl, wCurrentStage
+    bit 0, [hl]
+    ld [$ff8a], a
+    ld a, Bank(Func_30256)
+    ld hl, Func_30256
+    call nz, BankSwitch
+    ld a, [$d604]
+    and a
+    ret nz
+    ld a, $1
+    ld [$d604], a
+    ld a, $80
+    ld [$d533], a
+    ld a, [wCurrentStage]
+    bit 0, a
+    call nz, Func_1e8f6
+    ret
+
+INCBIN "baserom.gbc",$1ea0a,$1ea3b - $1ea0a
+
+Func_1ea3b: ; 0x1ea3b
+    ld a, [$d604]
+    and a
+    ret z
+    ld a, [$d4b6]
+    sub $86
+    cp $30
+    ret nc
+    ld c, $0
+    ld b, a
+    ld h, b
+    ld l, c
+    srl b
+    rr c
+    srl b
+    rr c
+    srl h
+    rr l
+    add hl, bc
+    ld a, [$d4b4]
+    sub $38
+    cp $30
+    ret nc
+    ld c, a
+    ld b, $0
+    sla c
+    sla c
+    add hl, bc
+    ld bc, $4000
+    add hl, bc
+    ld de, wBallXVelocity
+    ld a, $3c
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3c
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc de
+    inc hl
+    push bc
+    ld a, $3c
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3c
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc de
+    inc hl
+    bit 7, b
+    jr z, .asm_1eaa9
+    ld a, c
+    cpl
+    ld c, a
+    ld a, b
+    cpl
+    ld b, a
+    inc bc
+.asm_1eaa9
+    pop hl
+    bit 7, h
+    jr z, .asm_1eab5
+    ld a, l
+    cpl
+    ld l, a
+    ld a, h
+    cpl
+    ld h, a
+    inc hl
+.asm_1eab5
+    add hl, bc
+    sla l
+    rl h
+    ld a, h
+    cp $2
+    ret c
+    ld a, [$d804]
+    and a
+    ret nz
+    ld a, $5
+    ld [$d803], a
+    ld a, $8
+    ld [$d804], a
+    ld de, $0004
+    call PlaySoundEffect
+    ret
+
+INCBIN "baserom.gbc",$1ead4,$1ef09 - $1ead4
+
+Func_1ef09: ; 0x1ef09
+    ld a, [$d63e]
+    cp $0
+    jp z, Func_1ef20
+    cp $1
+    jp z, Func_1ef4d
+    cp $2
+    jp z, Func_1ef7e
+    cp $3
+    jp z, Func_1efae
+
+Func_1ef20: ; 0x1ef20
+    ld a, [$d4b6]
+    sub $60
+    cp $30
+    ret nc
+    ld c, $0
+    ld b, a
+    ld h, b
+    ld l, c
+    srl b
+    rr c
+    srl b
+    rr c
+    srl h
+    rr l
+    add hl, bc
+    ld a, [$d4b4]
+    sub $38
+    cp $30
+    ret nc
+    ld c, a
+    ld b, $0
+    sla c
+    sla c
+    add hl, bc
+    jp Func_1efdc
+
+Func_1ef4d: ; 0x1ef4d
+    ld a, [$d4b4]
+    sub $38
+    cp $30
+    ret nc
+    ld c, a
+    ld a, $30
+    sub c
+    ld c, $0
+    ld b, a
+    ld h, b
+    ld l, c
+    srl b
+    rr c
+    srl b
+    rr c
+    srl h
+    rr l
+    add hl, bc
+    ld a, [$d4b6]
+    sub $60
+    cp $30
+    ret nc
+    ld c, a
+    ld b, $0
+    sla c
+    sla c
+    add hl, bc
+    jp Func_1efdc
+
+Func_1ef7e: ; 0x1ef7e
+    ld a, [$d4b6]
+    sub $60
+    cp $30
+    ret nc
+    ld c, a
+    ld a, $30
+    sub c
+    ld c, $0
+    ld b, a
+    ld h, b
+    ld l, c
+    srl b
+    rr c
+    srl b
+    rr c
+    srl h
+    rr l
+    add hl, bc
+    ld a, [$d4b4]
+    sub $38
+    cp $30
+    ret nc
+    ld c, a
+    ld b, $0
+    sla c
+    sla c
+    add hl, bc
+    jr Func_1efdc
+
+Func_1efae: ; 0x1efae
+    ld a, [$d4b4]
+    sub $38
+    cp $30
+    ret nc
+    ld c, $0
+    ld b, a
+    ld h, b
+    ld l, c
+    srl b
+    rr c
+    srl b
+    rr c
+    srl h
+    rr l
+    add hl, bc
+    ld a, [$d4b6]
+    sub $60
+    cp $30
+    ret nc
+    ld c, a
+    ld a, $30
+    sub c
+    ld c, a
+    ld b, $0
+    sla c
+    sla c
+    add hl, bc
+    ; fall through
+Func_1efdc: ; 0x1efdc
+    ld a, [$d63e]
+    cp $0
+    jp z, Func_1eff3
+    cp $1
+    jp z, Func_1f0be
+    cp $2
+    jp z, Func_1f057
+    cp $3
+    jp z, Func_1f124
+    ; fall through
+Func_1eff3:  ; 0x1eff3
+    ld bc, $4000
+    add hl, bc
+    ld de, wBallXVelocity
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc de
+    inc hl
+    push bc
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc de
+    inc hl
+    bit 7, b
+    jr z, .asm_1f032
+    ld a, c
+    cpl
+    ld c, a
+    ld a, b
+    cpl
+    ld b, a
+    inc bc
+.asm_1f032
+    pop hl
+    bit 7, h
+    jr z, .asm_1f03e
+    ld a, l
+    cpl
+    ld l, a
+    ld a, h
+    cpl
+    ld h, a
+    inc hl
+.asm_1f03e
+    add hl, bc
+    sla l
+    rl h
+    ld a, h
+    cp $2
+    ret c
+    ld a, [$d804]
+    and a
+    ret nz
+    ld a, $5
+    ld [$d803], a
+    ld a, $8
+    ld [$d804], a
+    ret
+
+Func_1f057: ; 0x1f057
+    ld bc, $4000
+    add hl, bc
+    ld de, wBallXVelocity
+    bit 2, l
+    ret nz
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc de
+    inc hl
+    push bc
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    sub c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    sbc b
+    ld [de], a
+    inc de
+    inc hl
+    bit 7, b
+    jr z, .asm_1f099
+    ld a, c
+    cpl
+    ld c, a
+    ld a, b
+    cpl
+    ld b, a
+    inc bc
+.asm_1f099
+    pop hl
+    bit 7, h
+    jr z, .asm_1f0a5
+    ld a, l
+    cpl
+    ld l, a
+    ld a, h
+    cpl
+    ld h, a
+    inc hl
+.asm_1f0a5
+    add hl, bc
+    sla l
+    rl h
+    ld a, h
+    cp $2
+    ret c
+    ld a, [$d804]
+    and a
+    ret nz
+    ld a, $5
+    ld [$d803], a
+    ld a, $8
+    ld [$d804], a
+    ret
+
+Func_1f0be: ; 0x1f0be
+    ld bc, $4000
+    add hl, bc
+    ld de, wBallYVelocity
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc hl
+    push bc
+    dec de
+    dec de
+    dec de
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    sub c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    sbc b
+    ld [de], a
+    inc de
+    inc hl
+    bit 7, b
+    jr z, .asm_1f0ff
+    ld a, c
+    cpl
+    ld c, a
+    ld a, b
+    cpl
+    ld b, a
+    inc bc
+.asm_1f0ff
+    pop hl
+    bit 7, h
+    jr z, .asm_1f10b
+    ld a, l
+    cpl
+    ld l, a
+    ld a, h
+    cpl
+    ld h, a
+    inc hl
+.asm_1f10b
+    add hl, bc
+    sla l
+    rl h
+    ld a, h
+    cp $2
+    ret c
+    ld a, [$d804]
+    and a
+    ret nz
+    ld a, $5
+    ld [$d803], a
+    ld a, $8
+    ld [$d804], a
+    ret
+
+Func_1f124: ; 0x1f124
+    ld bc, $4000
+    add hl, bc
+    ld de, wBallYVelocity
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    sub c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    sbc b
+    ld [de], a
+    inc hl
+    push bc
+    dec de
+    dec de
+    dec de
+    ld a, $3b
+    call Func_68f
+    ld c, a
+    ld a, [de]
+    add c
+    ld [de], a
+    inc de
+    inc hl
+    ld a, $3b
+    call Func_68f
+    ld b, a
+    ld a, [de]
+    adc b
+    ld [de], a
+    inc de
+    inc hl
+    bit 7, b
+    jr z, .asm_1f165
+    ld a, c
+    cpl
+    ld c, a
+    ld a, b
+    cpl
+    ld b, a
+    inc bc
+.asm_1f165
+    pop hl
+    bit 7, h
+    jr z, .asm_1f171
+    ld a, l
+    cpl
+    ld l, a
+    ld a, h
+    cpl
+    ld h, a
+    inc hl
+.asm_1f171
+    add hl, bc
+    sla l
+    rl h
+    ld a, h
+    cp $2
+    ret c
+    ld a, [$d804]
+    and a
+    ret nz
+    ld a, $5
+    ld [$d803], a
+    ld a, $8
+    ld [$d804], a
+    ret
+
+Func_1f18a: ; 0x1f18a
+    ld a, [$d640]
+    cp $0
+    jr z, .asm_1f1b4
+    ld a, [$d63e]
+    sla a
+    ld c, a
+    ld b, $0
+    ld hl, $71b5
+    ld a, [hGameBoyColorFlag]
+    and a
+    jr z, .asm_1f1a4
+    ld hl, $7201
+.asm_1f1a4
+    add hl, bc
+    ld a, [hli]
+    ld h, [hl]
+    ld l, a
+    or h
+    ret z
+    ld a, $7
+    call Func_10aa
+    ld a, $0
+    ld [$d640], a
+.asm_1f1b4
+    ret
+
+INCBIN "baserom.gbc",$1f1b5,$1f27b - $1f1b5
+
+Func_1f27b: ; 0x1f27b
+    ld a, [$d624]
+    ld hl, $d625
+    cp [hl]
+    ret z
+    ld a, [$d626]
+    dec a
+    ld [$d626], a
+    jr nz, .asm_1f2a5
+    ld a, [$d625]
+    ld [$d624], a
+    cp $3
+    jr c, .asm_1f2a0
+    ld a, $1
+    ld [$d609], a
+    ld a, $3
+    ld [$d607], a
+.asm_1f2a0
+    ld a, [$d624]
+    scf
+    ret
+.asm_1f2a5
+    and $7
+    ret nz
+    ld a, [$d626]
+    bit 3, a
+    jr nz, .asm_1f2b4
+    ld a, [$d624]
+    scf
+    ret
+.asm_1f2b4
+    ld a, [$d625]
+    scf
+    ret
+
+INCBIN "baserom.gbc",$1f2b9,$20000 - $1f2b9
 
 
 SECTION "bank8", ROMX, BANK[$8]