Begin disassembly of Pikachu minigame (auto-generated)

3 files changed, 1335 insertions, 2 deletions

diff --git a/engine/games/pikachu_minigame.asm b/engine/games/pikachu_minigame.asm
new file mode 100644
index 0000000..c186320
--- /dev/null
+++ b/engine/games/pikachu_minigame.asm
@@ -0,0 +1,1334 @@
+INCLUDE "constants.asm"
+
+SECTION "engine/games/pikachu_minigame.asm@Pikachu Minigame", ROMX
+
+PikachuMiniGame::
+	ld a, HIGH(vBGMap1)
+	ldh [hBGMapAddress + 1], a
+	call .Init
+	call DelayFrame
+.loop
+	call PikachuMiniGame_RunFrame
+	jr nc, .loop
+
+	ld a, HIGH(vBGMap0)
+	ldh [hBGMapAddress + 1], a
+	ld de, MUSIC_NONE
+	call PlayMusic
+	ret
+
+
+.Init:
+	call DisableLCD
+	ld b, SGB_BETA_PIKACHU_MINIGAME
+	call GetSGBLayout
+
+	callab InitEffectObject
+
+	call PikachuMiniGame_ClearBothTilemaps
+	ld hl, $5def
+	ld de, vChars2
+	ld bc, $0800
+	ld a, $39
+	call FarCopyData
+	ld hl, $626f
+	ld de, vChars0
+
+Jump_038_4041:
+	ld bc, $0900
+	ld a, $39
+	call FarCopyData
+	ld a, $42
+	ld [$c625], a
+	ld a, $48
+	ld [$c626], a
+	ld hl, vBGMap0
+	ld a, l
+	ld [$c621], a
+	ld a, h
+	ld [$c622], a
+	ld de, $47b2
+	ld a, e
+	ld [$c623], a
+	ld a, d
+	ld [$c624], a
+	call Call_038_4197
+	ld hl, wSpriteAnimDict
+	ld a, $22
+	ld [hli], a
+	ld a, $00
+	ld [hli], a
+	call Call_038_4126
+	xor a
+	ldh [hSCY], a
+	ld [wc4c7], a
+	ldh [hSCX], a
+	ld [wc4c8], a
+	ld [$c620], a
+	ld [$c617], a
+	ld [$c609], a
+	ld [$c60a], a
+	ld [$c60b], a
+	ld [$c60c], a
+	ld [$c611], a
+	ld [$c612], a
+	ld [$c613], a
+	ld [$c614], a
+	ld [$c608], a
+	ld [$c60d], a
+	ld [$c60e], a
+	ld [$c615], a
+	ld [$c618], a
+	ld [$c619], a
+	ld [$c61a], a
+	ld [$c61d], a
+	ld [$c61e], a
+	ld a, $9e
+	ld [$c61b], a
+	ld a, $47
+	ld [$c61c], a
+	ld a, $7c
+	ldh [hWY], a
+	ld a, $e3
+	ldh [rLCDC], a
+	ld a, [wSGB]
+	and a
+	jr nz, jr_038_40de
+
+	ld a, $94
+	ldh [rBGP], a
+	ld a, $e4
+	ldh [rOBP0], a
+	jr jr_038_40e4
+
+jr_038_40de:
+	ld a, $e4
+	ldh [rBGP], a
+	ldh [rOBP0], a
+
+jr_038_40e4:
+	ld de, $7058
+	ld a, $2f
+	call InitSpriteAnimStruct
+	ld a, c
+	ld [wLYOverrides], a
+	ld a, b
+	ld [$c601], a
+	ld de, $7058
+	ld a, $30
+	call InitSpriteAnimStruct
+	ld a, c
+	ld [$c602], a
+	ld a, b
+	ld [$c603], a
+	ret
+
+
+PikachuMiniGame_ClearBothTilemaps:
+	ld hl, vBGMap1
+	ld bc, $0280
+
+jr_038_410b:
+	ld [hl], $00
+	inc hl
+	dec bc
+	ld a, b
+	or c
+	jr nz, jr_038_410b
+
+	ld hl, wVirtualOAMEnd
+	ld bc, VBlank.return
+
+jr_038_4119:
+	ld [hl], $00
+	inc hl
+	dec bc
+	ld a, b
+	or c
+	jr nz, jr_038_4119
+
+	ld a, $07
+	ldh [hWX], a
+	ret
+
+
+Call_038_4126:
+	ld hl, $4362
+	ld de, $8900
+	ld bc, $0380
+	ld a, $3e
+	call FarCopyDataDouble
+	ld hl, $46f2
+	ld de, $9320
+	ld bc, $0080
+	ld a, $3e
+	call FarCopyDataDouble
+	ret
+
+
+Call_038_4143:
+	ldh a, [hSCX]
+	ld d, a
+	and $7f
+	ret nz
+
+	bit 7, d
+	jr nz, jr_038_4160
+
+	xor a
+	ld hl, $c2a5
+	ld [hl], a
+	ld hl, $c2ad
+	ld [hl], a
+	ld hl, $c2b5
+	ld c, $0f
+
+jr_038_415b:
+	ld [hli], a
+	dec c
+	jr nz, jr_038_415b
+
+	ret
+
+
+jr_038_4160:
+	ld de, $c2b5
+	ld hl, $417b
+
+jr_038_4166:
+	ld a, [hli]
+	and a
+	jr z, jr_038_4170
+
+	add $10
+	ld [de], a
+	inc de
+	jr jr_038_4166
+
+jr_038_4170:
+	ld a, $f5
+	ld hl, $c2a5
+	ld [hl], a
+	ld hl, $c2ad
+	ld [hl], a
+	ret
+
+
+	db $8c, $8f, $e3, $93, $9c, $8f, $ab, $ed, $8f, $81, $93, $a6, $b6, $d2, $de, $00
+
+	ld bc, $0800
+
+jr_038_418e:
+	ld a, [de]
+	inc de
+	ld [hli], a
+	dec bc
+	ld a, c
+	or b
+	jr nz, jr_038_418e
+
+	ret
+
+
+Call_038_4197:
+	ld b, $10
+
+jr_038_4199:
+	push hl
+	ld c, $10
+
+jr_038_419c:
+	call Call_038_41ad
+	dec c
+	jr nz, jr_038_419c
+
+	pop hl
+	push bc
+	ld bc, $0040
+	add hl, bc
+	pop bc
+	dec b
+	jr nz, jr_038_4199
+
+	ret
+
+
+Call_038_41ad:
+	push bc
+	push de
+	push hl
+	push hl
+	push hl
+	ld a, [de]
+	ld l, a
+	ld h, $00
+	ld a, [$c625]
+	ld e, a
+	ld a, [$c626]
+	ld d, a
+	add hl, hl
+	add hl, hl
+	add hl, de
+	ld e, l
+	ld d, h
+	pop hl
+	ld a, [de]
+	inc de
+	ld [hli], a
+	ld a, [de]
+	inc de
+	ld [hli], a
+	pop hl
+	ld bc, $0020
+	add hl, bc
+	ld a, [de]
+	inc de
+	ld [hli], a
+	ld a, [de]
+	inc de
+	ld [hli], a
+	pop hl
+	inc hl
+	inc hl
+	pop de
+	inc de
+	pop bc
+	ret
+
+
+PikachuMiniGame_RunFrame:
+	call GetJoypad
+	ld hl, hJoyState
+	ld a, [hl]
+	and $08
+	jr nz, jr_038_4224
+
+	ld a, [$c620]
+	bit 7, a
+	jr nz, jr_038_4224
+
+	ld a, [$c610]
+	and a
+	jr z, jr_038_41fe
+
+	xor a
+	ld [$c610], a
+	ld de, $0030
+	call PlaySFX
+
+jr_038_41fe:
+	call Call_038_42ee
+
+Jump_038_4201:
+	ld a, $23
+	ld hl, $4d13
+	call FarCall_hl
+	ld a, $01
+	ldh [hBGMapMode], a
+	call Call_038_4616
+	call Call_038_4262
+	ld de, $c2c6
+	ld hl, $c609
+	call Call_038_4293
+	call Call_038_4143
+	call DelayFrame
+	and a
+	ret
+
+
+jr_038_4224:
+	ld hl, $4cfd
+	ld a, $23
+	call FarCall_hl
+	ld hl, wVirtualOAM
+	ld c, $a0
+	xor a
+
+jr_038_4232:
+	ld [hli], a
+	dec c
+	jr nz, jr_038_4232
+
+	call DelayFrame
+	xor a
+	ldh [hSCX], a
+	ldh [hSCY], a
+	ld a, $90
+	ldh [hWY], a
+	scf
+	ret
+
+
+Call_038_4244:
+	ld hl, $c611
+	ld a, [hl]
+	add $01
+	daa
+	ld [hl], a
+	cp $60
+	ret c
+
+	ld [hl], $00
+	ld hl, $c612
+	ld a, [hl]
+	add $01
+	daa
+	ld [hl], a
+	cp $60
+	ret c
+
+	ld a, $02
+	ld [$c620], a
+	ret
+
+
+Call_038_4262:
+	ldh a, [hSCX]
+	ld e, a
+	and $07
+	ret nz
+
+	ld a, $48
+	add e
+	and $f8
+	ld e, a
+	srl e
+	srl e
+	srl e
+	ld d, $00
+	ld hl, $9900
+	add hl, de
+	ld de, $c627
+	ld a, e
+	ld [wVBCopyDst], a
+	ld a, d
+	ld [$cb66], a
+	ld a, l
+	ld [wVBCopySrc], a
+	ld a, h
+	ld [$cb64], a
+	ld a, $01
+	ld [wVBCopySize], a
+	ret
+
+
+Call_038_4293:
+	push hl
+	push de
+	push bc
+	ld c, [hl]
+	inc hl
+	ld b, [hl]
+	ld l, e
+	ld h, d
+	ld a, b
+	swap a
+	and $0f
+	jr nz, jr_038_42d0
+
+	ld a, b
+	and $0f
+	jr nz, jr_038_42c0
+
+	ld a, c
+	swap a
+	and $0f
+	jr nz, jr_038_42b4
+
+	ld a, c
+	call Call_038_42e8
+	jr jr_038_42e4
+
+jr_038_42b4:
+	ld a, c
+	call Call_038_42e8
+	ld a, c
+	swap a
+	call Call_038_42e8
+	jr jr_038_42e4
+
+jr_038_42c0:
+	ld a, c
+	call Call_038_42e8
+	ld a, c
+	swap a
+	call Call_038_42e8
+	ld a, b
+	call Call_038_42e8
+	jr jr_038_42e4
+
+jr_038_42d0:
+	ld a, c
+	call Call_038_42e8
+	ld a, c
+	swap a
+	call Call_038_42e8
+	ld a, b
+	call Call_038_42e8
+	ld a, b
+	swap a
+	call Call_038_42e8
+
+jr_038_42e4:
+	pop bc
+	pop de
+	pop hl
+	ret
+
+
+Call_038_42e8:
+	and $0f
+	add $36
+	ld [hld], a
+	ret
+
+
+Call_038_42ee:
+	ld a, [$c620]
+	ld e, a
+	ld d, $00
+	ld hl, $42fd
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+
+	db $09, $43, $89, $43, $18, $43, $21, $43
+
+	ld l, $43
+
+	db $3e, $43
+
+	ld a, $04
+	ld [$c617], a
+	ld a, $31
+	ld [$c605], a
+	ld hl, $c620
+	inc [hl]
+	ret
+
+
+	ld a, $40
+	ld [$c61f], a
+	ld hl, $c620
+	inc [hl]
+	ld hl, $c61f
+	ld a, [hl]
+	and a
+	jr z, jr_038_432a
+
+	dec [hl]
+	ret
+
+
+jr_038_432a:
+	ld hl, $c620
+	inc [hl]
+	ld de, $70c0
+	ld a, $32
+	call InitSpriteAnimStruct
+	xor a
+	ld [$c61f], a
+	ld hl, $c620
+	inc [hl]
+	ld a, [$c617]
+	and a
+	ret nz
+
+	ld a, [$c61f]
+	srl a
+	srl a
+	srl a
+	srl a
+	ld e, a
+	ld d, $00
+	ld hl, $4377
+	add hl, de
+	ld a, [hl]
+	cp $ff
+	jr z, jr_038_4371
+
+	ldh [rBGP], a
+	ld hl, $4380
+	add hl, de
+	ld a, [wSGB]
+	and a
+	jr z, jr_038_4369
+
+	ld a, [hl]
+	ldh [rBGP], a
+
+jr_038_4369:
+	ld a, [hl]
+	ldh [rOBP0], a
+	ld hl, $c61f
+	inc [hl]
+	ret
+
+
+jr_038_4371:
+	ld hl, $c620
+	set 7, [hl]
+	ret
+
+
+	db $94, $94, $94, $94, $94, $50, $40, $00, $ff, $e4, $e4, $e4, $e4, $e4, $90, $40
+	db $00
+
+	rst $38
+
+	call Call_038_4244
+	ldh a, [hSCX]
+	and $20
+	ld hl, $c608
+	cp [hl]
+	jr nz, jr_038_4397
+
+	ret
+
+
+jr_038_4397:
+	ld a, [hl]
+	xor $20
+	ld [hl], a
+	call Call_038_43d0
+	jr c, jr_038_43cb
+
+	call Call_038_43f4
+	ret c
+
+	ldh a, [hSCX]
+	and $1f
+	ld e, a
+	ld a, $00
+	sub e
+	ld e, a
+	ld a, $03
+	ld [$c4bc], a
+	ld a, $31
+	call InitSpriteAnimStruct
+	ld hl, $c60b
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld a, $01
+	add e
+	daa
+	ld e, a
+	ld a, d
+	adc $00
+	daa
+	ld d, a
+	ld [hl], d
+	dec hl
+	ld [hl], e
+	ret
+
+
+jr_038_43cb:
+	ld hl, $c620
+	inc [hl]
+	ret
+
+
+Call_038_43d0:
+	ld a, [$c60d]
+	ld l, a
+	ld h, $00
+	ld de, $43e5
+	add hl, de
+	ld a, [hl]
+	cp $ff
+	jr nz, jr_038_43e3
+
+	xor a
+	ld [$c60d], a
+
+jr_038_43e3:
+	and a
+	ret
+
+
+	db $00, $01, $02, $03, $04, $05, $06, $00, $01, $02, $03, $04, $05, $06, $ff
+
+Call_038_43f4:
+	ld l, a
+	ld h, $00
+	add hl, hl
+	add hl, hl
+	add hl, hl
+	ld de, $441f
+	add hl, de
+	ld a, [$c60e]
+	and $07
+	ld e, a
+	inc a
+	cp $08
+	jr c, jr_038_440f
+
+	push hl
+	ld hl, $c60d
+	inc [hl]
+	pop hl
+
+jr_038_440f:
+	ld [$c60e], a
+	ld d, $00
+	add hl, de
+	ld a, [hl]
+	cp $ff
+	jr z, jr_038_441d
+
+	ld d, a
+	and a
+	ret
+
+
+jr_038_441d:
+	scf
+	ret
+
+
+	db $70, $60, $50, $48, $48, $48, $48, $38, $28, $20, $28, $ff, $ff, $ff, $48, $48
+	db $70, $70, $ff, $58, $ff, $ff, $48, $38, $28, $20, $28, $38, $48, $ff, $ff, $ff
+	db $70, $70, $70, $70, $60, $50, $48, $38, $ff, $28, $30, $38, $48, $48, $48, $48
+	db $ff, $ff, $ff, $ff, $ff, $ff, $ff, $ff
+
+	ld a, [wLYOverrides]
+	ld c, a
+	ld a, [$c601]
+	ld b, a
+	call Call_038_459c
+	call Call_038_44df
+	ld hl, $000b
+	add hl, bc
+	ld e, [hl]
+	ld d, $00
+	ld hl, $4475
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+
+	db $7d, $44, $89, $44, $b4, $44, $d6, $44
+
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $01
+	ld a, $02
+	ld [$c604], a
+	ret
+
+
+	ldh a, [hJoyState]
+	ld hl, $c605
+	and [hl]
+	ld d, a
+	and $01
+	jr nz, jr_038_449f
+
+	ld a, [$c617]
+	and a
+	ret nz
+
+	ld a, $01
+	ld [$c604], a
+	ret
+
+
+jr_038_449f:
+	ld hl, $000b
+	add hl, bc
+	inc [hl]
+	ld a, $40
+	ld [$c607], a
+	ld a, $03
+	ld [$c604], a
+	ld a, $10
+	ld [$c606], a
+	ret
+
+
+	ld hl, $c607
+	ld a, [hl]
+	cp $20
+	jr c, jr_038_44cf
+
+	dec [hl]
+	ld d, $30
+	ld e, a
+	ld a, $33
+	ld hl, $625d
+	call FarCall_hl
+	ld a, e
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	ret
+
+
+jr_038_44cf:
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $03
+	ret
+
+
+	ld hl, $0005
+	add hl, bc
+	inc [hl]
+	inc [hl]
+	inc [hl]
+	inc [hl]
+	ret
+
+
+Call_038_44df:
+	xor a
+	ld [$c60f], a
+	ld hl, $0005
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	add [hl]
+	add $10
+	ld e, a
+	sub $20
+	ld d, a
+	push bc
+	ld bc, $c41c
+	ld a, $0a
+
+jr_038_44f9:
+	push af
+	push de
+	ld hl, $0000
+	add hl, bc
+
+Jump_038_44ff:
+	ld a, [hl]
+	and a
+	jr z, jr_038_450f
+
+	ld hl, $0001
+	add hl, bc
+	ld a, [hl]
+	cp $07
+	jr nz, jr_038_450f
+
+	call Call_038_451f
+
+jr_038_450f:
+	ld hl, $0010
+	add hl, bc
+	ld c, l
+	ld b, h
+	pop de
+	pop af
+	dec a
+	jr nz, jr_038_44f9
+
+	pop bc
+	call Call_038_4544
+	ret
+
+
+Call_038_451f:
+	ld a, $48
+	ld hl, $0004
+	add hl, bc
+	cp [hl]
+	ret nc
+
+	ld a, $68
+	cp [hl]
+	ret c
+
+	ld a, d
+	ld hl, $0005
+	add hl, bc
+	cp [hl]
+	ret nc
+
+	ld a, e
+	cp [hl]
+	ret c
+
+	ld a, $01
+	ld [$c610], a
+	ld hl, $000b
+	add hl, bc
+	inc [hl]
+	ld hl, $c60f
+	inc [hl]
+	ret
+
+
+Call_038_4544:
+	ld hl, $c609
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld a, [$c60f]
+	add e
+	daa
+	ld e, a
+	ld a, d
+	adc $00
+	daa
+	ld d, a
+	ld [hl], d
+	dec hl
+	ld [hl], e
+	ret
+
+
+	ld a, [wLYOverrides]
+	ld e, a
+	ld a, [$c601]
+	ld d, a
+	ld a, [$c602]
+	ld c, a
+	ld a, [$c603]
+	ld b, a
+	ld hl, $0009
+	add hl, de
+	ld a, [hl]
+	ld hl, $0009
+	add hl, bc
+	ld [hl], a
+	ld hl, $0005
+	add hl, de
+	ld a, [hl]
+	ld hl, $0005
+	add hl, bc
+	ld [hl], a
+	ld hl, $0007
+	add hl, de
+	ld a, [hl]
+	ld hl, $0007
+	add hl, bc
+	ld [hl], a
+	ld hl, $0004
+	add hl, de
+	ld a, [hl]
+	ld hl, $0004
+	add hl, bc
+	ld [hl], a
+	ld hl, $0006
+	add hl, de
+	ld a, [hl]
+	ld hl, $0006
+	add hl, bc
+	ld [hl], a
+	ret
+
+
+Call_038_459c:
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	ld hl, $0005
+	add hl, bc
+	add [hl]
+	ld d, a
+	ld hl, $000b
+	add hl, bc
+	ld a, [hl]
+	cp $02
+	jr z, jr_038_45c3
+
+	cp $03
+	jr z, jr_038_45e3
+
+	ld a, d
+	cp $70
+	ret z
+
+	call Call_038_4602
+	ret nz
+
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $03
+	ret
+
+
+jr_038_45c3:
+	ld a, [$c607]
+	cp $3e
+	ret nc
+
+	call Call_038_4602
+	ret z
+
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	ld [hl], $00
+	ld hl, $0005
+	add hl, bc
+	add [hl]
+	and $f8
+	ld [hl], a
+	ret
+
+
+jr_038_45e3:
+	ld a, d
+	cp $70
+	jr z, jr_038_45ec
+
+	call Call_038_4602
+	ret z
+
+jr_038_45ec:
+	ld hl, $000b
+	add hl, bc
+	ld [hl], $00
+	ld hl, $0007
+	add hl, bc
+	ld a, [hl]
+	ld [hl], $00
+	ld hl, $0005
+	add hl, bc
+	add [hl]
+	and $f8
+	ld [hl], a
+	ret
+
+
+Call_038_4602:
+	ld a, d
+	cp $40
+	jr z, jr_038_4609
+
+	xor a
+	ret
+
+
+jr_038_4609:
+	ld hl, $c627
+	ld a, $16
+	cp [hl]
+	ret nz
+
+	inc hl
+	cp [hl]
+	ret nz
+
+	inc hl
+	cp [hl]
+	ret
+
+
+Call_038_4616:
+	ld hl, $c617
+	ldh a, [hSCX]
+	sub [hl]
+	ldh [hSCX], a
+	and $10
+	ld hl, $c615
+	cp [hl]
+	jr nz, jr_038_4627
+
+	ret
+
+
+jr_038_4627:
+	ld a, [hl]
+	xor $10
+	ld [hl], a
+	xor a
+	ldh [hBGMapMode], a
+	call Call_038_464d
+	ldh a, [hSCX]
+	and $f0
+	srl a
+	srl a
+	srl a
+	ld e, a
+	ld d, $00
+	ld hl, vBGMap0
+	add hl, de
+	ld a, l
+	ldh [hRedrawRowOrColumnDest], a
+	ld a, h
+	ldh [$ffe7], a
+	ld a, $01
+	ldh [hRedrawRowOrColumnMode], a
+	ret
+
+
+Call_038_464d:
+	call Call_038_46b4
+	ret nc
+
+	ld l, a
+	ld h, $00
+	add hl, hl
+	add hl, hl
+	add hl, hl
+	ld de, $4661
+	add hl, de
+	ld e, l
+	ld d, h
+	call Call_038_4681
+	ret
+
+
+	db $05, $0d, $02, $09, $14, $14, $14, $0b, $04, $0c, $02, $08, $14, $14, $14, $0b
+	db $05, $0d, $02, $09, $15, $14, $14, $0b, $04, $0c, $02, $08, $15, $14, $14, $0b
+
+Call_038_4681:
+	push de
+	ld hl, wRedrawFlashlightDst0
+	ld c, $08
+
+jr_038_4687:
+	ld a, [de]
+	call Call_038_4691
+	inc de
+	dec c
+	jr nz, jr_038_4687
+
+	pop de
+	ret
+
+
+Call_038_4691:
+	push bc
+	push de
+	push hl
+	ld l, a
+	ld h, $00
+	ld a, [$c625]
+	ld e, a
+	ld a, [$c626]
+	ld d, a
+	add hl, hl
+	add hl, hl
+	add hl, de
+	ld e, l
+	ld d, h
+	pop hl
+	ld a, [de]
+	inc de
+	ld [hli], a
+	ld a, [de]
+	inc de
+	ld [hli], a
+	ld a, [de]
+	inc de
+	ld [hli], a
+	ld a, [de]
+	inc de
+	ld [hli], a
+	pop de
+	pop bc
+	ret
+
+
+Call_038_46b4:
+jr_038_46b4:
+	call Call_038_478e
+	cp $f0
+	ret c
+
+	call Call_038_46bf
+	jr jr_038_46b4
+
+Call_038_46bf:
+	sub $f0
+	ld e, a
+	ld d, $00
+	ld hl, $46cd
+	add hl, de
+	add hl, de
+	ld a, [hli]
+	ld h, [hl]
+	ld l, a
+	jp hl
+
+
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	db $ed
+	ld b, [hl]
+	ld e, h
+	ld b, a
+	ld h, e
+	ld b, a
+	ld l, b
+	ld b, a
+
+	db $1e, $47
+
+	dec hl
+	ld b, a
+	nop
+	ld b, a
+	xor $46
+	ret
+
+
+	ld hl, $c618
+	res 0, [hl]
+	ld hl, $c619
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld hl, $c61b
+	ld [hl], e
+	inc hl
+	ld [hl], d
+	ret
+
+
+	call Call_038_478e
+	ld e, a
+	call Call_038_478e
+	ld hl, $c61b
+	ld c, [hl]
+	inc hl
+	ld b, [hl]
+	ld hl, $c619
+	ld [hl], c
+	inc hl
+	ld [hl], b
+	ld hl, $c61c
+	ld [hld], a
+	ld [hl], e
+	ld hl, $c618
+	set 0, [hl]
+	ret
+
+
+	call Call_038_478e
+	ld e, a
+	call Call_038_478e
+	ld hl, $c61c
+	ld [hld], a
+	ld [hl], e
+	ret
+
+
+	call Call_038_478e
+	ld hl, $c618
+	bit 1, [hl]
+	jr nz, jr_038_473e
+
+	and a
+	jr z, jr_038_4746
+
+	dec a
+	ld [$c61d], a
+	set 1, [hl]
+
+jr_038_473e:
+	ld hl, $c61d
+	ld a, [hl]
+	and a
+	jr z, jr_038_4753
+
+	dec [hl]
+
+jr_038_4746:
+	call Call_038_478e
+	ld e, a
+	call Call_038_478e
+	ld hl, $c61c
+	ld [hld], a
+	ld [hl], e
+	ret
+
+
+jr_038_4753:
+	ld hl, $c618
+	res 2, [hl]
+	call Call_038_4782
+	ret
+
+
+
+	call Call_038_478e
+	ld [$c61e], a
+	ret
+
+
+	ld hl, $c61e
+	inc [hl]
+	ret
+
+
+	call Call_038_478e
+	ld hl, $c61e
+	cp [hl]
+	jr z, jr_038_4775
+
+	call Call_038_4782
+	ret
+
+
+jr_038_4775:
+	call Call_038_478e
+	ld e, a
+	call Call_038_478e
+	ld hl, $c61c
+	ld [hld], a
+	ld [hl], e
+	ret
+
+
+Call_038_4782:
+	ld hl, $c61b
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	inc de
+	inc de
+	ld [hl], d
+	dec hl
+	ld [hl], e
+	ret
+
+
+Call_038_478e:
+	push hl
+	push de
+	ld hl, $c61b
+	ld e, [hl]
+	inc hl
+	ld d, [hl]
+	ld a, [de]
+	inc de
+	ld [hl], d
+	dec hl
+	ld [hl], e
+	pop de
+	pop hl
+	ret
diff --git a/layout.link b/layout.link
index 0a298c0..d2bf1f1 100644
--- a/layout.link
+++ b/layout.link
@@ -884,6 +884,7 @@ ROMX $37
 
 ROMX $38
 	org $4000
+	"engine/games/pikachu_minigame.asm@Pikachu Minigame"
 	org $5403
 	"gfx.asm@Poker GFX"
 	org $5f93
diff --git a/shim.sym b/shim.sym
index 237f5e3..63e4f3f 100755
--- a/shim.sym
+++ b/shim.sym
@@ -151,8 +151,6 @@
 33:625D BattleAnim_Sine_e
 33:6263 BattleAnim_Cosine_e
 
-38:4000 PikachuMiniGame
-
 3A:441D Functione841d
 3A:45D8 Functione85d8
 3A:47F9 Functione87f9