path: root/src/engine/home.asm

GLOBAL GrassEnergyCardGfx
GLOBAL TextOffsets

; rst vectors
SECTION "rst00",ROM0[0]
	ret
SECTION "rst08",ROM0[8]
	ret
SECTION "rst10",ROM0[$10]
	ret
SECTION "rst18",ROM0[$18]
	jp RST18
SECTION "rst20",ROM0[$20]
	jp RST20
SECTION "rst28",ROM0[$28]
	jp RST28
SECTION "rst30",ROM0[$30]
	ret
SECTION "rst38",ROM0[$38]
	ret

; interrupts
SECTION "vblank",ROM0[$40]
	jp VBlankHandler
SECTION "lcdc",ROM0[$48]
	call $cacd
	reti
SECTION "timer",ROM0[$50]
	jp TimerHandler
SECTION "serial",ROM0[$58]
	jp SerialHandler
SECTION "joypad",ROM0[$60]
	reti

SECTION "romheader",ROM0[$100]
	nop
	jp Start

SECTION "start",ROM0[$150]
Start: ; 0150 (0:0150)
	di
	ld sp, $fffe
	push af
	xor a
	ld [rIF], a
	ld [rIE], a
	call ZeroRAM
	ld a, $1
	call BankswitchHome
	xor a
	call BankswitchRAM
	call BankswitchVRAM_0
	call DisableLCD
	pop af
	ld [wInitialA], a
	call DetectConsole
	ld a, $20
	ld [wTileMapFill], a
	call SetupVRAM
	call SetupLCD
	call SetupPalettes
	call SetupSound_T
	call SetupTimer
	call ResetSerial
	call CopyDMAFunction
	call SetupExtRAM
	ld a, BANK(Func_4000)
	call BankswitchHome
	ld sp, $e000
	jp Func_4000

VBlankHandler: ; 019b (0:019b)
	push af
	push bc
	push de
	push hl
	ld a, [hBankROM]
	push af
	ld hl, wReentrancyFlag
	bit 0, [hl]
	jr nz, .done
	set 0, [hl]
	ld a, [wVBlankOAMCopyToggle]
	or a
	jr z, .no_oam_copy
	call hDMAFunction    ; DMA-copy $ca00-$ca9f to OAM memory
	xor a
	ld [wVBlankOAMCopyToggle], a
.no_oam_copy
	; flush scaling/windowing parameters
	ld a, [hSCX]
	ld [rSCX], a
	ld a, [hSCY]
	ld [rSCY], a
	ld a, [hWX]
	ld [rWX], a
	ld a, [hWY]
	ld [rWY], a
	; flush LCDC
	ld a, [wLCDC]
	ld [rLCDC], a
	ei
	call $cad0
	call FlushPalettes
	ld hl, wVBlankCtr
	inc [hl]
	ld hl, wReentrancyFlag
	res 0, [hl]
.done
	pop af
	call BankswitchHome
	pop hl
	pop de
	pop bc
	pop af
	reti

TimerHandler: ; 01e6 (0:01e6)
	push af
	push hl
	push de
	push bc
	ei
	call SerialTimerHandler
	; only trigger every fourth interrupt ≈ 60.24 Hz
	ld hl, wCounterCtr
	ld a, [hl]
	inc [hl]
	and $3
	jr nz, .done
	; increment the 60-60-60-255-255 counter
	call IncrementCounter
	; check in-timer flag
	ld hl, wReentrancyFlag
	bit 1, [hl]
	jr nz, .done
	set 1, [hl]
	ld a, [hBankROM]
	push af
	ld a, BANK(SoundTimerHandler_Ext)
	call BankswitchHome
	call SoundTimerHandler_Ext
	pop af
	call BankswitchHome
	; clear in-timer flag
	ld hl, wReentrancyFlag
	res 1, [hl]
.done
	pop bc
	pop de
	pop hl
	pop af
	reti

; increment timer counter by a tick
IncrementCounter: ; 021c (0:021c)
	ld a, [wCounterEnable]
	or a
	ret z
	ld hl, wCounter
	inc [hl]
	ld a, [hl]
	cp 60
	ret c
	ld [hl], $0
	inc hl
	inc [hl]
	ld a, [hl]
	cp 60
	ret c
	ld [hl], $0
	inc hl
	inc [hl]
	ld a, [hl]
	cp 60
	ret c
	ld [hl], $0
	inc hl
	inc [hl]
	ret nz
	inc hl
	inc [hl]
	ret

; setup timer to 16384/68 ≈ 240.94 Hz
SetupTimer: ; 0241 (0:0241)
	ld b, $100 - 68
	; ld b, $bc
	call CheckForCGB
	jr c, .asm_250
	ld a, [rKEY1]
	and $80
	jr z, .asm_250
	ld b, $100 - 2*68
.asm_250
	ld a, b
	ld [rTMA], a
	ld a, rTAC_16384_HZ
	ld [rTAC], a
	ld a, $7
	ld [rTAC], a
	ret

; carry flag: 0 if CGB
CheckForCGB: ; 025c (0:025c)
	ld a, [wConsole]
	cp CONSOLE_CGB
	ret z
	scf
	ret

; wait for vblank
WaitForVBlank: ; 0264 (0:0264)
	push hl
	ld a, [wLCDC]
	bit 7, a
	jr z, .asm_275
	ld hl, wVBlankCtr
	ld a, [hl]
.asm_270
	halt
	cp [hl]
	jr z, .asm_270
.asm_275
	pop hl
	ret

; turn LCD on
EnableLCD: ; 0277 (0:0277)
	ld a, [wLCDC]    ;
	bit 7, a             ;
	ret nz               ; assert that LCD is off
	or $80               ;
	ld [wLCDC], a        ;
	ld [rLCDC], a        ; turn LCD on
	ld a, $c0
	ld [wFlushPaletteFlags], a
	ret

; wait for vblank, then turn LCD off
DisableLCD: ; 028a (0:028a)
	ld a, [rLCDC]        ;
	bit 7, a             ;
	ret z                ; assert that LCD is on
	ld a, [rIE]
	ld [wIE], a
	res 0, a             ;
	ld [rIE], a          ; disable vblank interrupt
.asm_298
	ld a, [rLY]          ;
	cp $91               ;
	jr nz, .asm_298      ; wait for vblank
	ld a, [rLCDC]        ;
	and $7f              ;
	ld [rLCDC], a        ;
	ld a, [wLCDC]        ;
	and $7f              ;
	ld [wLCDC], a        ; turn LCD off
	xor a
	ld [rBGP], a
	ld [rOBP0], a
	ld [rOBP1], a
	ld a, [wIE]
	ld [rIE], a
	ret

; set OBJ size: 8x8
Set_OBJ_8x8: ; 02b9 (0:02b9)
	ld a, [wLCDC]
	and $fb
	ld [wLCDC], a
	ret

; set OBJ size: 8x16
Set_OBJ_8x16: ; 02c2 (0:02c2)
	ld a, [wLCDC]
	or $4
	ld [wLCDC], a
	ret

; set Window Display on
Set_WD_on: ; 02cb (0:02cb)
	ld a, [wLCDC]
	or $20
	ld [wLCDC], a
	ret

; set Window Display off
Set_WD_off: ; 02d4 (0:02d4)
	ld a, [wLCDC]
	and $df
	ld [wLCDC], a
	ret

EnableInt_Timer: ; 02dd (0:02dd)
	ld a, [rIE]
	or $4
	ld [rIE], a
	ret

EnableInt_VBlank: ; 02e4 (0:02e4)
	ld a, [rIE]
	or $1
	ld [rIE], a
	ret

EnableInt_HBlank: ; 02eb (0:02eb)
	ld a, [rSTAT]
	or $8
	ld [rSTAT], a
	xor a
	ld [rIF], a
	ld a, [rIE]
	or $2
	ld [rIE], a
	ret

DisableInt_HBlank: ; 02fb (0:02fb)
	ld a, [rSTAT]
	and $f7
	ld [rSTAT], a
	xor a
	ld [rIF], a
	ld a, [rIE]
	and $fd
	ld [rIE], a
	ret

SetupLCD: ; 030b (0:030b)
	xor a
	ld [rSCY], a
	ld [rSCX], a
	ld [rWY], a
	ld [rWX], a
	ld [$cab0], a
	ld [$cab1], a
	ld [$cab2], a
	ld [hSCX], a
	ld [hSCY], a
	ld [hWX], a
	ld [hWY], a
	xor a
	ld [wReentrancyFlag], a
	ld a, $c3            ; $c3 = jp nn
	ld [$cacd], a
	ld [wVBlankFunctionTrampoline], a
	ld hl, wVBlankFunctionTrampoline + 1
	ld [hl], NopF & $ff  ;
	inc hl               ; load `jp NopF`
	ld [hl], NopF >> $8  ;
	ld a, $47
	ld [wLCDC], a
	ld a, $1
	ld [MBC3LatchClock], a
	ld a, $a
	ld [MBC3SRamEnable], a
NopF: ; 0348 (0:0348)
	ret

DetectConsole: ; 0349 (0:0349)
	ld b, CONSOLE_CGB
	cp GBC
	jr z, .asm_35b
	call DetectSGB
	ld b, CONSOLE_DMG
	jr nc, .asm_35b
	call InitSGB
	ld b, CONSOLE_SGB
.asm_35b
	ld a, b
	ld [wConsole], a
	cp CONSOLE_CGB
	ret nz
	ld a, CONSOLE_SGB
	ld [rSVBK], a
	call Func_07e7
	ret

; initialize the palettes (both monochrome and color)
SetupPalettes: ; 036a (0:036a)
	ld hl, wBGP
	ld a, $e4
	ld [rBGP], a
	ld [hli], a
	ld [rOBP0], a
	ld [rOBP1], a
	ld [hli], a
	ld [hl], a
	xor a
	ld [wFlushPaletteFlags], a
	ld a, [wConsole]
	cp CONSOLE_CGB
	ret nz
	ld de, wBufPalette
	ld c, $10
.asm_387
	ld hl, InitialPalette
	ld b, $8
.asm_38c
	ld a, [hli]
	ld [de], a
	inc de
	dec b
	jr nz, .asm_38c
	dec c
	jr nz, .asm_387
	call FlushBothCGBPalettes
	ret

InitialPalette: ; 0399 (0:0399)
	RGB 28,28,24
	RGB 21,21,16
	RGB 10,10,08
	RGB 00,00,00

SetupVRAM: ; 03a1 (0:03a1)
	call FillTileMap
	call CheckForCGB
	jr c, .asm_3b2
	call BankswitchVRAM_1
	call .asm_3b2
	call BankswitchVRAM_0
.asm_3b2
	ld hl, $8000
	ld bc, $1800
.asm_3b8
	xor a
	ld [hli], a
	dec bc
	ld a, b
	or c
	jr nz, .asm_3b8
	ret

; fill VARM tile map banks with [wTileMapFill]
FillTileMap: ; 03c0 (0:03c0)
	call BankswitchVRAM_0
	ld hl, $9800
	ld bc, $0400
.asm_3c9
	ld a, [wTileMapFill]
	ld [hli], a
	dec bc
	ld a, c
	or b
	jr nz, .asm_3c9
	ld a, [wConsole]
	cp CONSOLE_CGB
	ret nz
	call BankswitchVRAM_1
	ld hl, $9800
	ld bc, $0400
.asm_3e1
	xor a
	ld [hli], a
	dec bc
	ld a, c
	or b
	jr nz, .asm_3e1
	call BankswitchVRAM_0
	ret

; zero work RAM & stack area ($C000-$EFFF, $FF80-$FF7F)
ZeroRAM: ; 03ec (0:03ec)
	ld hl, $c000
	ld bc, $2000
.asm_3f2
	xor a
	ld [hli], a
	dec bc
	ld a, c
	or b
	jr nz, .asm_3f2
	ld c, $80
	ld b, $70
	xor a
.asm_3fe
	ld [$ff00+c], a
	inc c
	dec b
	jr nz, .asm_3fe
	ret

Func_0404: ; 0404 (0:0404)
	ld a, $c0
	jr asm_411

Func_0408: ; 0408 (0:0408)
	or $80
	jr asm_411

Func_040c: ; 040c (0:040c)
	ld [wBGP], a
asm_40f
	ld a, $80
asm_411
	ld [wFlushPaletteFlags], a
	ld a, [wLCDC]
	rla
	ret c
	push hl
	push de
	push bc
	call FlushPalettes
	pop bc
	pop de
	pop hl
	ret

Set_OBP0: ; 0423 (0:0423)
	ld [wOBP0], a
	jr asm_40f

Set_OBP1: ; 0428 (0:0428)
	ld [wOBP1], a
	jr asm_40f

; flushes non-CGB palettes from [wBGP], [wOBP0], [wOBP1] as well as CGB
; palettes from [wBufPalette..wBufPalette+$1f] (BG palette) and
; [wBufPalette+$20..wBufPalette+$3f] (sprite palette).
;   only flushes if [wFlushPaletteFlags] is nonzero, and only flushes sprite
; palette if bit6 of that location is set.
FlushPalettes: ; 042d (0:042d)
	ld a, [wFlushPaletteFlags]
	or a
	ret z
	; flush grayscale (non-CGB) palettes
	ld hl, wBGP
	ld a, [hli]
	ld [rBGP], a
	ld a, [hli]
	ld [rOBP0], a
	ld a, [hl]
	ld [rOBP1], a
	ld a, [wConsole]
	cp CONSOLE_CGB
	jr z, flushPaletteCGB
flushPaletteDone
	xor a
	ld [wFlushPaletteFlags], a
	ret
flushPaletteCGB
	; flush BG palette (BGP)
	; if bit6 of [wFlushPaletteFlags] is set, flush OBP too
	ld a, [wFlushPaletteFlags]
	bit 6, a
	jr nz, FlushBothCGBPalettes
	ld b, $8
	call CopyPalette
	jr flushPaletteDone

FlushBothCGBPalettes: ; 0458 (0:0458)
	xor a
	ld b, $40
	; flush BGP $00-$1f
	call CopyPalette
	ld a, $8
	ld b, $40
	; flush OBP $00-$1f
	call CopyPalette
	jr flushPaletteDone

CopyPalette: ; 0467 (0:0467)
	add a
	add a
	add a
	ld e, a
	ld d, $0
	ld hl, $caf0
	add hl, de
	ld c, $68
	bit 6, a
	jr z, .asm_479
	ld c, $6a
.asm_479
	and $bf
	ld e, a
.asm_47c
	ld a, e
	ld [$ff00+c], a
	inc c
.asm_47f
	ld a, [rSTAT]
	and $2
	jr nz, .asm_47f
	ld a, [hl]
	ld [$ff00+c], a
	ld a, [$ff00+c]
	cp [hl]
	jr nz, .asm_47f
	inc hl
	dec c
	inc e
	dec b
	jr nz, .asm_47c
	ret

Func_0492: ; 0492 (0:0492)
	ld a, [hli]
	ld b, a
	ld a, [hli]
	ld c, a
	call Func_04cf
	jr .asm_49d
.asm_49b
	ld [de], a
	inc de
.asm_49d
	ld a, [hli]
	or a
	jr nz, .asm_49b
	ret

Func_04a2: ; 04a2 (0:04a2)
	call DisableLCD
	call FillTileMap
	xor a
	ld [$cac2], a
	ld a, [wConsole]
	cp CONSOLE_SGB
	ret nz
	call EnableLCD       ;
	ld hl, SGB_04bf      ; send SGB data
	call SendSGB         ;
	call DisableLCD      ;
	ret

SGB_04bf: ; 04bf (0:04bf)
INCBIN "baserom.gbc",$04bf,$04cf - $04bf

Func_04cf: ; 04cf (0:04cf)
	ld l, c
	ld h, $0
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	ld c, b
	ld b, $98
	add hl, bc
	ld e, l
	ld d, h
	ret

; read joypad
ReadJoypad: ; 04de (0:04de)
	ld a, $20
	ld [rJOYP], a
	ld a, [rJOYP]
	ld a, [rJOYP]
	cpl
	and $f
	swap a
	ld b, a
	ld a, $10
	ld [rJOYP], a
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	cpl
	and $f
	or b
	ld c, a              ; joypad data
	cpl
	ld b, a
	ld a, [hButtonsHeld]
	xor c
	and b
	ld [hButtonsReleased], a
	ld a, [hButtonsHeld]
	xor c
	and c
	ld b, a
	ld [hButtonsPressed], a
	ld a, [hButtonsHeld]
	and $f
	cp $f
	jr nz, asm_522       ; handle reset
	call ResetSerial
Reset: ; 051b (0:051b)
	ld a, [wInitialA]
	di
	jp Start
asm_522
	ld a, c
	ld [hButtonsHeld], a
	ld a, $30
	ld [rJOYP], a
	ret

; clear joypad hmem data
ClearJoypad: ; 052a (0:052a)
	push hl
	ld hl, hDPadRepeat
	xor a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	pop hl
	ret

Func_0536: ; 0536 (0:0536)
.loop
	push af
	call Func_053f
	pop af
	dec a
	jr nz, .loop
	ret

Func_053f: ; 053f (0:053f)
	push af
	push hl
	push de
	push bc
	ld hl, $cad3
	call CallIndirect
	call WaitForVBlank
	call ReadJoypad
	call HandleDPadRepeat
	ld a, [$cad5]
	or a
	jr z, .asm_56d
	ld a, [hButtonsPressed]
	and $4
	jr z, .asm_56d
.asm_55e
	call WaitForVBlank
	call ReadJoypad
	call HandleDPadRepeat
	ld a, [hButtonsPressed]
	and $4
	jr z, .asm_55e
.asm_56d
	pop bc
	pop de
	pop hl
	pop af
	ret

; handle D-pad repeatcounter
HandleDPadRepeat: ; 0572 (0:0572)
	ld a, [hButtonsHeld]
	ld [hButtonsPressed2], a
	and $f0
	jr z, .asm_58c
	ld hl, hDPadRepeat
	ld a, [hButtonsPressed]
	and $f0
	jr z, .asm_586
	ld [hl], 24
	ret
.asm_586
	dec [hl]
	jr nz, .asm_58c
	ld [hl], 6
	ret
.asm_58c
	ld a, [hButtonsPressed]
	and $f
	ld [hButtonsPressed2], a
	ret

CopyDMAFunction: ; 0593 (0:0593)
	ld c, $83
	ld b, JumpToFunctionInTable - DMA
	ld hl, DMA
.asm_59a
	ld a, [hli]
	ld [$ff00+c], a
	inc c
	dec b
	jr nz, .asm_59a
	ret

; CopyDMAFunction copies this function to $ff83
DMA: ; 05a1 (0:05a1)
	ld a, $ca
	ld [rDMA], a
	ld a, $28
.asm_5a7
	dec a
	jr nz, .asm_5a7
	ret

; jumps to index a in pointer table hl
JumpToFunctionInTable: ; 05ab (0:05ab)
	add a
	add l
	ld l, a
	ld a, $0
	adc h
	ld h, a
	ld a, [hli]
	ld h, [hl]
	ld l, a
	jp [hl]

; call function at [hl] if non-NULL
CallIndirect: ; 05b6 (0:05b6)
	push af
	ld a, [hli]
	or [hl]
	jr nz, .asm_5bd
	pop af
	ret
.asm_5bd
	ld a, [hld]
	ld l, [hl]
	ld h, a
	pop af
	; fallthrough
CallF: ; 05c1 (0:05c1)
	jp [hl]
; 0x5c2

INCBIN "baserom.gbc",$05c2,$0663 - $05c2

Func_0663: ; 0663 (0:0663)
	push bc
	ld bc, $d8f0
	call Func_0686
	ld bc, $fc18
	call Func_0686
	ld bc, $ff9c
	call Func_0686
	ld bc, $fff6
	call Func_0686
	ld bc, $ffff
	call Func_0686
	xor a
	ld [de], a
	pop bc
	ret

Func_0686: ; 0686 (0:0686)
	ld a, $2f
.asm_688
	inc a
	add hl, bc
	jr c, .asm_688
	ld [de], a
	inc de
	ld a, l
	sub c
	ld l, a
	ld a, h
	sbc b
	ld h, a
	ret
; 0x695

INCBIN "baserom.gbc",$0695,$06c3 - $0695

Func_06c3: ; 06c3 (0:06c3)
	push af
	ld a, [wLCDC]
	rla
	jr c, .asm_6d8
	pop af
	push hl
	push de
	push bc
	push af
	call Func_04cf
	pop af
	ld [de], a
	pop bc
	pop de
	pop hl
	ret
.asm_6d8
	pop af
	push hl
	push de
	push bc
	ld hl, $cac1
	push hl
	ld [hl], a
	call Func_04cf
	pop hl
	ld b, $1
	call MemcpyHLDE_hblank
	pop bc
	pop de
	pop hl
	ret
; 0x6ee

INCBIN "baserom.gbc",$06ee,$0709 - $06ee

Func_0709: ; 0709 (0:0709)
	jp MemcpyHLDE_hblank

CopyGfxData: ; 070c (0:070c)
	ld a, [wLCDC]
	rla
	jr nc, .asm_726
.asm_712
	push bc
	push hl
	push de
	ld b, c
	call Func_0709
	ld b, $0
	pop hl
	add hl, bc
	ld e, l
	ld d, h
	pop hl
	add hl, bc
	pop bc
	dec b
	jr nz, .asm_712
	ret
.asm_726
	push bc
.asm_727
	ld a, [hli]
	ld [de], a
	inc de
	dec c
	jr nz, .asm_727
	pop bc
	dec b
	jr nz, .asm_726
	ret

CopyData_SaveRegisters: ; 0732 (0:0732)
	push hl
	push de
	push bc
	call CopyData
	pop bc
	pop de
	pop hl
	ret

; copies bc bytes from hl to de
CopyData: ; 073c (0:073c)
	ld a, [hli]
	ld [de], a
	inc de
	dec bc
	ld a, c
	or b
	jr nz, CopyData
	ret

; switch to rombank (A + top2 of h shifted down),
; set top2 of H to 01,
; return old rombank id on top-of-stack
BankpushHome: ; 0745 (0:0745)
	push hl
	push bc
	push af
	push de
	ld e, l
	ld d, h
	ld hl, [sp+$9]
	ld b, [hl]
	dec hl
	ld c, [hl]
	dec hl
	ld [hl], b
	dec hl
	ld [hl], c
	ld hl, [sp+$9]
	ld a, [hBankROM]
	ld [hld], a
	ld [hl], $0
	ld a, d
	rlca
	rlca
	and $3
	ld b, a
	res 7, d
	set 6, d
	ld l, e
	ld h, d
	pop de
	pop af
	add b
	call BankswitchHome
	pop bc
	ret
; 0x76f

INCBIN "baserom.gbc",$076f,$078e - $076f

; restore rombank from top-of-stack
BankpopHome: ; 078e (0:078e)
	push hl
	push de
	ld hl, [sp+$7]
	ld a, [hld]
	call BankswitchHome
	dec hl
	ld d, [hl]
	dec hl
	ld e, [hl]
	inc hl
	inc hl
	ld [hl], e
	inc hl
	ld [hl], d
	pop de
	pop hl
	pop af
	ret

; switch ROM bank
BankswitchHome: ; 07a3 (0:07a3)
	ld [hBankROM], a
	ld [MBC3RomBank], a
	ret

; switch RAM bank
BankswitchRAM: ; 07a9 (0:07a9)
	push af
	ld [hBankRAM], a
	ld [MBC3SRamBank], a
	ld a, $a
	ld [MBC3SRamEnable], a
	pop af
	ret

; enable external RAM
EnableExtRAM: ; 07b6 (0:07b6)
	push af
	ld a, $a
	ld [MBC3SRamEnable], a
	pop af
	ret

; disable external RAM
DisableExtRAM: ; 07be (0:07be)
	push af
	xor a
	ld [MBC3SRamEnable], a
	pop af
	ret

; set current dest VRAM bank to 0
BankswitchVRAM_0: ; 07c5 (0:07c5)
	push af
	xor a
	ld [hBankVRAM], a
	ld [rVBK], a
	pop af
	ret

; set current dest VRAM bank to 1
BankswitchVRAM_1: ; 07cd (0:07cd)
	push af
	ld a, $1
	ld [hBankVRAM], a
	ld [rVBK], a
	pop af
	ret

; set current dest VRAM bank
; a: value to write
BankswitchVRAM: ; 07d6 (0:07d6)
	ld [hBankVRAM], a
	ld [rVBK], a
	ret
; 0x7db

INCBIN "baserom.gbc",$07db,$07e7 - $07db

Func_07e7: ; 07e7 (0:07e7)
	call CheckForCGB
	ret c
	ld hl, rKEY1
	bit 7, [hl]
	ret nz
	ld a, [rIE]
	push af
	xor a
	ld [rIE], a
	set 0, [hl]
	xor a
	ld [rIF], a
	ld [rIE], a
	ld a, $30
	ld [rJOYP], a
	stop
	call SetupTimer
	pop af
	ld [rIE], a
	ret

SetupExtRAM: ; 080b (0:080b)
	xor a
	call BankswitchRAM
	ld hl, $a000
	ld bc, $1000
.asm_815
	ld a, [hli]
	cp $41
	jr nz, .asm_82f
	ld a, [hli]
	cp $93
	jr nz, .asm_82f
	dec bc
	ld a, c
	or b
	jr nz, .asm_815
	call Func_084d
	scf
	call Func_4050
	call DisableExtRAM
	ret
.asm_82f
	ld hl, $a000
	ld a, [hli]
	cp $4
	jr nz, .asm_842
	ld a, [hli]
	cp $21
	jr nz, .asm_842
	ld a, [hl]
	cp $5
	jr nz, .asm_842
	ret
.asm_842
	call Func_084d
	or a
	call Func_4050
	call DisableExtRAM
	ret

Func_084d: ; 084d (0:084d)
	ld a, $3
.asm_84f
	call ClearExtRAMBank
	dec a
	cp $ff
	jr nz, .asm_84f
	ld hl, $a000
	ld [hl], $4
	inc hl
	ld [hl], $21
	inc hl
	ld [hl], $5
	ret

ClearExtRAMBank: ; 0863 (0:0863)
	push af
	call BankswitchRAM
	call EnableExtRAM
	ld hl, $a000
	ld bc, $2000
.asm_870
	xor a
	ld [hli], a
	dec bc
	ld a, c
	or b
	jr nz, .asm_870
	pop af
	ret

Func_0879: ; 0879 (0:0879)
	push de
	ld a, h
	ld e, l
	ld d, $0
	ld l, d
	ld h, d
	jr .asm_887
.asm_882
	add hl, de
.asm_883
	sla e
	rl d
.asm_887
	srl a
	jr c, .asm_882
	jr nz, .asm_883
	pop de
	ret
; 0x88f

INCBIN "baserom.gbc",$088f,$089b - $088f

Func_089b: ; 089b (0:089b)
	push hl
	push de
	ld hl, $caca
	ld a, [hli]
	ld d, [hl]
	inc hl
	ld e, a
	ld a, d
	rlca
	rlca
	xor e
	rra
	push af
	ld a, d
	xor e
	ld d, a
	ld a, [hl]
	xor e
	ld e, a
	pop af
	rl e
	rl d
	ld a, d
	xor e
	inc [hl]
	dec hl
	ld [hl], d
	dec hl
	ld [hl], e
	pop de
	pop hl
	ret

Func_08bf: ; 08bf (0:08bf)
	ld hl, $cad6
	ld [hl], e
	inc hl
	ld [hl], d
	ld hl, $cad8
	ld [hl], $1
	inc hl
	xor a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hli], a
	ld [hl], b
	inc hl
	ld [hli], a
	ld [hl], $ef
	ld h, b
	ld l, $0
	xor a
.asm_8d9
	ld [hl], a
	inc l
	jr nz, .asm_8d9
	ret

Func_08de: ; 08de (0:08de)
	push hl
	push de
.asm_8e0
	push bc
	call Func_08ef
	ld [de], a
	inc de
	pop bc
	dec bc
	ld a, c
	or b
	jr nz, .asm_8e0
	pop de
	pop hl
	ret

Func_08ef: ; 08ef (0:08ef)
	ld hl, $cadc
	ld a, [hl]
	or a
	jr z, .asm_902
	dec [hl]
	inc hl
.asm_8f8
	ld b, [hl]
	inc hl
	ld c, [hl]
	inc [hl]
	inc hl
	ld a, [bc]
	ld c, [hl]
	inc [hl]
	ld [bc], a
	ret
.asm_902
	ld hl, $cad6
	ld c, [hl]
	inc hl
	ld b, [hl]
	inc hl
	dec [hl]
	inc hl
	jr nz, .asm_914
	dec hl
	ld [hl], $8
	inc hl
	ld a, [bc]
	inc bc
	ld [hl], a
.asm_914
	rl [hl]
	ld a, [bc]
	inc bc
	jr nc, .asm_92a
	ld hl, $cad6
	ld [hl], c
	inc hl
	ld [hl], b
	ld hl, $cadd
	ld b, [hl]
	inc hl
	inc hl
	ld c, [hl]
	inc [hl]
	ld [bc], a
	ret
.asm_92a
	ld [$cade], a
	ld hl, $cada
	bit 0, [hl]
	jr nz, .asm_94a
	set 0, [hl]
	inc hl
	ld a, [bc]
	inc bc
	ld [hli], a
	swap a
.asm_93c
	and $f
	inc a
	ld [hli], a
	push hl
	ld hl, $cad6
	ld [hl], c
	inc hl
	ld [hl], b
	pop hl
	jr .asm_8f8
.asm_94a
	res 0, [hl]
	inc hl
	ld a, [hli]
	jr .asm_93c
; 0x950

INCBIN "baserom.gbc",$0950,$099c - $0950

Func_099c: ; 099c (0:099c)
	xor a
	ld [$cab5], a
	ld hl, $ca00
	ld c, $28
	xor a
.asm_9a6
	ld [hli], a
	ld [hli], a
	inc hl
	inc hl
	dec c
	jr nz, .asm_9a6
	ret

; this function affects the stack so that it returns
; to the pointer following the rst call
; similar to rst 28, except this always loads bank 1
RST18: ; 09ae (0:09ae)
	push hl
	push hl
	push hl
	push hl
	push de
	push af
	ld hl, [sp+$d]
	ld d, [hl]
	dec hl
	ld e, [hl]
	dec hl
	ld [hl], $0
	dec hl
	ld a, [hBankROM]
	ld [hld], a
	ld [hl], $9
	dec hl
	ld [hl], $dc
	dec hl
	inc de
	ld a, [de]
	ld [hld], a
	dec de
	ld a, [de]
	ld [hl], a
	ld a, $1
	; fallthrough
Func_09ce: ; 09ce (0:09ce)
	call BankswitchHome
	ld hl, [sp+$d]
	inc de
	inc de
	ld [hl], d
	dec hl
	ld [hl], e
	pop af
	pop de
	pop hl
	ret
; 0x9dc

INCBIN "baserom.gbc",$09dc,$09e9 - $09dc

; this function affects the stack so that it returns
; to the three byte pointer following the rst call
RST28: ; 09e9 (0:09e9)
	push hl
	push hl
	push hl
	push hl
	push de
	push af
	ld hl, [sp+$d]
	ld d, [hl]
	dec hl
	ld e, [hl]
	dec hl
	ld [hl], $0
	dec hl
	ld a, [hBankROM]
	ld [hld], a
	ld [hl], $9
	dec hl
	ld [hl], $dc
	dec hl
	inc de
	inc de
	ld a, [de]
	ld [hld], a
	dec de
	ld a, [de]
	ld [hl], a
	dec de
	ld a, [de]
	inc de
	jr Func_09ce

; setup SNES memory $810-$867 and palette
InitSGB: ; 0a0d (0:0a0d)
	ld hl, SGB_0ad0
	call SendSGB
	ld hl, SGB_0a50
	call SendSGB
	ld hl, SGB_0a60
	call SendSGB
	ld hl, SGB_0a70
	call SendSGB
	ld hl, SGB_0a80
	call SendSGB
	ld hl, SGB_0a90
	call SendSGB
	ld hl, SGB_0aa0
	call SendSGB
	ld hl, SGB_0ab0
	call SendSGB
	ld hl, SGB_0ac0
	call SendSGB
	ld hl, SGB_0af0
	call SendSGB
	ld hl, SGB_0ae0
	call SendSGB
	ret

SGB_0a50: ; 0a50 (0:0a50)
INCBIN "baserom.gbc",$0a50,$0a60 - $0a50

SGB_0a60: ; 0a60 (0:0a60)
INCBIN "baserom.gbc",$0a60,$0a70 - $0a60

SGB_0a70: ; 0a70 (0:0a70)
INCBIN "baserom.gbc",$0a70,$0a80 - $0a70

SGB_0a80: ; 0a80 (0:0a80)
INCBIN "baserom.gbc",$0a80,$0a90 - $0a80

SGB_0a90: ; 0a90 (0:0a90)
INCBIN "baserom.gbc",$0a90,$0aa0 - $0a90

SGB_0aa0: ; 0aa0 (0:0aa0)
INCBIN "baserom.gbc",$0aa0,$0ab0 - $0aa0

SGB_0ab0: ; 0ab0 (0:0ab0)
INCBIN "baserom.gbc",$0ab0,$0ac0 - $0ab0

SGB_0ac0: ; 0ac0 (0:0ac0)
INCBIN "baserom.gbc",$0ac0,$0ad0 - $0ac0

SGB_0ad0: ; 0ad0 (0:0ad0)
INCBIN "baserom.gbc",$0ad0,$0ae0 - $0ad0

SGB_0ae0: ; 0ae0 (0:0ae0)
INCBIN "baserom.gbc",$0ae0,$0af0 - $0ae0

SGB_0af0: ; 0af0 (0:0af0)
INCBIN "baserom.gbc",$0af0,$0b20 - $0af0

; send SGB command
SendSGB: ; 0b20 (0:0b20)
	ld a, [hl]
	and $7
	ret z
	ld b, a
	ld c, $0
.asm_b27
	push bc
	ld a, $0
	ld [$ff00+c], a
	ld a, $30
	ld [$ff00+c], a
	ld b, $10
.asm_b30
	ld e, $8
	ld a, [hli]
	ld d, a
.asm_b34
	bit 0, d
	ld a, $10
	jr nz, .asm_b3c
	ld a, $20
.asm_b3c
	ld [$ff00+c], a
	ld a, $30
	ld [$ff00+c], a
	rr d
	dec e
	jr nz, .asm_b34
	dec b
	jr nz, .asm_b30
	ld a, $20
	ld [$ff00+c], a
	ld a, $30
	ld [$ff00+c], a
	pop bc
	dec b
	jr nz, .asm_b27
	ld bc, 4
	call Wait
	ret

DetectSGB: ; 0b59 (0:0b59)
	ld bc, 60
	call Wait
	ld hl, SGB_MASK_EN_ON_0bbb
	call SendSGB
	ld a, [rJOYP]
	and $3
	cp $3
	jr nz, .asm_ba3
	ld a, $20
	ld [rJOYP], a
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, $30
	ld [rJOYP], a
	ld a, $10
	ld [rJOYP], a
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, $30
	ld [rJOYP], a
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	ld a, [rJOYP]
	and $3
	cp $3
	jr nz, .asm_ba3
	ld hl, SGB_MASK_EN_OFF_0bab
	call SendSGB
	or a
	ret
.asm_ba3
	ld hl, SGB_MASK_EN_OFF_0bab
	call SendSGB
	scf
	ret

SGB_MASK_EN_OFF_0bab: ; 0bab (0:0bab)
INCBIN "baserom.gbc",$0bab,$0bbb - $0bab

SGB_MASK_EN_ON_0bbb: ; 0bbb (0:0bbb)
INCBIN "baserom.gbc",$0bbb,$0c08 - $0bbb

; loops 63000 * bc cycles (~15 * bc ms)
Wait: ; 0c08 (0:0c08)
	ld de, 1750
.loop
	nop
	nop
	nop
	dec de
	ld a, d
	or e
	jr nz, .loop
	dec bc
	ld a, b
	or c
	jr nz, Wait
	ret

; memcpy(DE, HL, B), but only during hblank
MemcpyHLDE_hblank: ; 0c19 (0:0c19)
	push bc
.loop
	ei
	di
	ld a, [rSTAT]        ;
	and $3               ;
	jr nz, .loop         ; assert hblank
	ld a, [hl]
	ld [de], a
	ld a, [rSTAT]        ;
	and $3               ;
	jr nz, .loop         ; assert still in hblank
	ei
	inc hl
	inc de
	dec b
	jr nz, .loop
	pop bc
	ret

; memcpy(HL, DE, B), but only during hblank
MemcpyDEHL_hblank: ; 0c32 (0:0c32)
	push bc
.asm_c33
	ei
	di
	ld a, [rSTAT]
	and $3
	jr nz, .asm_c33
	ld a, [de]
	ld [hl], a
	ld a, [rSTAT]
	and $3
	jr nz, .asm_c33
	ei
	inc hl
	inc de
	dec c
	jr nz, .asm_c33
	pop bc
	ret
; 0xc4b

INCBIN "baserom.gbc",$0c4b,$0c91 - $0c4b

; called at roughly 240Hz by TimerHandler
SerialTimerHandler: ; 0c91 (0:0c91)
	ld a, [wSerialOp]
	cp $29
	jr z, .begin_transfer
	cp $12
	jr z, .check_for_timeout
	ret
.begin_transfer
	ld a, [rSC]          ;
	add a                ; make sure that no serial transfer is active
	ret c                ;
	ld a, $1
	ld [rSC], a          ; use internal clock
	ld a, $81
	ld [rSC], a          ; use internal clock, set transfer start flag
	ret
.check_for_timeout
	; sets bit7 of [wSerialFlags] if the serial interrupt hasn't triggered
	; within four timer interrupts (60Hz)
	ld a, [wSerialCounter]
	ld hl, wSerialCounter2
	cp [hl]
	ld [hl], a
	ld hl, wSerialTimeoutCounter
	jr nz, .clear_counter
	inc [hl]
	ld a, [hl]
	cp $4
	ret c
	ld hl, wSerialFlags
	set 7, [hl]
	ret
.clear_counter
	ld [hl], $0
	ret
; 0xcc5

INCBIN "baserom.gbc",$0cc5,$0d26 - $0cc5

SerialHandler: ; 0d26 (0:0d26)
	push af
	push hl
	push de
	push bc
	ld a, [$ce63]        ;
	or a                 ;
	jr z, .asm_d35       ; if [$ce63] nonzero:
	call Func_3189       ;   ?
	jr .done             ;   return
.asm_d35
	ld a, [wSerialOp]        ;
	or a                 ;
	jr z, .asm_d55       ; skip ahead if [$cb74] zero
	; send/receive a byte
	ld a, [rSB]
	call SerialHandleRecv
	call SerialHandleSend ; returns byte to actually send
	push af
.wait_for_completion
	ld a, [rSC]
	add a
	jr c, .wait_for_completion
	pop af
	; end send/receive
	ld [rSB], a          ; prepare sending byte (from Func_0dc8?)
	ld a, [wSerialOp]
	cp $29
	jr z, .done          ; if [$cb74] != $29, use external clock
	jr .asm_d6a          ; and prepare for next byte.  either way, return
.asm_d55
	ld a, $1
	ld [wSerialRecvCounter], a
	ld a, [rSB]
	ld [wSerialRecvBuf], a
	ld a, $ac
	ld [rSB], a
	ld a, [wSerialRecvBuf]
	cp $12               ; if [$cba5] != $12, use external clock
	jr z, .done          ; and prepare for next byte.  either way, return
.asm_d6a
	ld a, $80            ;
	ld [rSC], a          ; transfer start, use external clock
.done
	ld hl, wSerialCounter
	inc [hl]
	pop bc
	pop de
	pop hl
	pop af
	reti

; handles a byte read from serial transfer by decoding it and storing it into
; the receive buffer
SerialHandleRecv: ; 0d77 (0:0d77)
	ld hl, wSerialLastReadCA
	ld e, [hl]
	dec e
	jr z, .last_was_ca
	cp $ac
	ret z                ; return if read_data == $ac
	cp $ca
	jr z, .read_ca
	or a
	jr z, .read_00_or_ff
	cp $ff
	jr nz, .read_data
.read_00_or_ff
	ld hl, wSerialFlags
	set 6, [hl]
	ret
.read_ca
	inc [hl]             ; inc [wSerialLastReadCA]
	ret
.last_was_ca
	; if last byte read was $ca, flip all bits of data received
	ld [hl], $0
	cpl
	jr .handle_byte
.read_data
	; flip top2 bits of data received
	xor $c0
.handle_byte
	push af
	ld a, [wSerialRecvIndex]
	ld e, a
	ld a, [$cba3]
	dec a
	and $1f
	cp e
	jr z, .set_flag_and_return
	ld d, $0
	; store into receive buffer
	ld hl, wSerialRecvBuf
	add hl, de
	pop af
	ld [hl], a
	; increment buffer index (mod 32)
	ld a, e
	inc a
	and $1f
	ld [$cba4], a
	; increment received bytes counter & clear flags
	ld hl, wSerialRecvCounter
	inc [hl]
	xor a
	ld [wSerialFlags], a
	ret
.set_flag_and_return
	pop af
	ld hl, wSerialFlags
	set 0, [hl]
	ret

; prepares a byte to send over serial transfer, either from the send-save byte
; slot or the send buffer
SerialHandleSend: ; 0dc8 (0:0dc8)
	ld hl, wSerialSendSave
	ld a, [hl]
	or a
	jr nz, .send_saved
	ld hl, wSerialSendBufToggle
	ld a, [hl]
	or a
	jr nz, .send_buf
	; no more data--send $ac to indicate this
	ld a, $ac
	ret
.send_saved
	ld a, [hl]
	ld [hl], $0
	ret
.send_buf
	; grab byte to send from send buffer, increment buffer index
	; and decrement to-send length
	dec [hl]
	ld a, [wSerialSendBufIndex]
	ld e, a
	ld d, $0
	ld hl, wSerialSendBuf
	add hl, de
	inc a
	and $1f
	ld [wSerialSendBufIndex], a
	ld a, [hl]
	; flip top2 bits of sent data
	xor $c0
	cp $ac
	jr z, .send_escaped
	cp $ca
	jr z, .send_escaped
	cp $ff
	jr z, .send_escaped
	or a
	jr z, .send_escaped
	ret
.send_escaped
	; escape tricky data by prefixing it with $ca and flipping all bits
	; instead of just top2
	xor $c0
	cpl
	ld [wSerialSendSave], a
	ld a, $ca
	ret

; store data in sendbuf for sending?
Func_0e0a: ; 0e0a (0:0e0a)
	push hl
	push de
	push bc
	push af
.asm_e0e
	ld a, [$cb80]
	ld e, a
	ld a, [wSerialSendBufIndex]
	dec a
	and $1f
	cp e
	jr z, .asm_e0e
	ld d, $0
	ld a, e
	inc a
	and $1f
	ld [$cb80], a
	ld hl, wSerialSendBuf
	add hl, de
	pop af
	ld [hl], a
	ld hl, wSerialSendBufToggle
	inc [hl]
	pop bc
	pop de
	pop hl
	ret

; sets carry if [wSerialRecvCounter] nonzero
Func_0e32: ; 0e32 (0:0e32)
	ld a, [wSerialRecvCounter]
	or a
	ret z
	scf
	ret

Func_0e39: ; 0e39 (0:0e39)
	push hl
	ld hl, wSerialRecvCounter
	ld a, [hl]
	or a
	jr nz, .asm_e49
	pop hl
	ld a, [wSerialFlags]
	or a
	ret nz
	scf
	ret
.asm_e49
	push de
	dec [hl]
	ld a, [$cba3]
	ld e, a
	ld d, $0
	ld hl, wSerialRecvBuf
	add hl, de
	ld a, [hl]
	push af
	ld a, e
	inc a
	and $1f
	ld [$cba3], a
	pop af
	pop de
	pop hl
	or a
	ret

Func_0e63: ; 0e63 (0:0e63)
	ld b, c
.asm_e64
	ld a, b
	sub c
	jr c, .asm_e6c
	cp $1f
	jr nc, .asm_e75
.asm_e6c
	inc c
	dec c
	jr z, .asm_e75
	ld a, [hli]
	call $0e0a
	dec c
.asm_e75
	inc b
	dec b
	jr z, .asm_e81
	call $0e39
	jr c, .asm_e81
	ld [de], a
	inc de
	dec b
.asm_e81
	ld a, [wSerialFlags]
	or a
	jr nz, .asm_e8c
	ld a, c
	or b
	jr nz, .asm_e64
	ret
.asm_e8c
	scf
	ret

; go into slave mode (external clock) for serial transfer?
Func_0e8e: ; 0e8e (0:0e8e)
	call ClearSerialData
	ld a, $12
	ld [rSB], a          ; send $12
	ld a, $80
	ld [rSC], a          ; use external clock, set transfer start flag
	ld a, [rIF]
	and $f7
	ld [rIF], a          ; clear serial interrupt flag
	ld a, [rIE]
	or $8                ; enable serial interrupt
	ld [rIE], a
	ret

ResetSerial: ; 0ea6 (0:0ea6)
	ld a, [rIE]
	and $f7
	ld [rIE], a
	xor a
	ld [rSB], a
	ld [rSC], a
	; fallthrough
ClearSerialData: ; 0eb1 (0:0eb1)
	ld hl, wSerialOp
	ld bc, $0051
.loop
	xor a
	ld [hli], a
	dec bc
	ld a, c
	or b
	jr nz, .loop
	ret
; 0xebf

INCBIN "baserom.gbc",$0ebf,$1072 - $0ebf

; copies the deck pointed to by de to $c400 or $c480
CopyDeckData: ; 1072 (0:1072)
	ld hl, $c400
	ld a, [$ff97]
	cp $c2
	jr z, .asm_107e
	ld hl, $c480
.asm_107e
	; start by putting a terminator at the end of the deck
	push hl
	ld bc, 59
	add hl, bc
	ld [hl], $0
	pop hl
	push hl
.nextCard
	ld a, [de]
	inc de
	ld b, a
	or a
	jr z, .done
	ld a, [de]
	inc de
	ld c, a
.cardQuantityLoop
	ld [hl], c
	inc hl
	dec b
	jr nz, .cardQuantityLoop
	jr .nextCard
.done
	ld hl, $cce9
	ld a, [de]
	inc de
	ld [hli], a
	ld a, [de]
	ld [hl], a
	pop hl
	ld bc, 59
	add hl, bc
	ld a, [hl]
	or a
	ret nz
	rst $38
	scf
	ret
; 0x10aa

INCBIN "baserom.gbc",$10aa,$160b - $10aa

Func_160b: ; 160b (0:160b)
	ld l, a
	ld a, [$ff97]
	ld h, a
	ld a, [hl]
	ret

Func_1611: ; 1611 (0:1611)
	ld l, a
	ld a, [$ff97]
	ld h, $c3
	cp $c2
	jr z, .asm_161c
	ld h, $c2

.asm_161c
	ld a, [hl]
	ret
; 0x161e

INCBIN "baserom.gbc",$161e,$1c72 - $161e

Func_1c72: ; 1c72 (0:1c72)
	push af
	push hl
	call Func_1611
	ld a, h
	ld [$ff97], a
	pop hl
	pop af
	ret

Func_1c7d: ; 1c7d (0:1c7d)
	call EnableExtRAM
	ld hl, $a010
asm_1c83
	ld a, [hli]
	ld [de], a
	inc de
	or a
	jr nz, asm_1c83
	dec de
	call DisableExtRAM
	ret

Func_1c8e: ; 1c8e (0:1c8e)
	ld hl, $cc16
	ld a, [hli]
	or [hl]
	jr z, .asm_1c9b
	ld a, [hld]
	ld l, [hl]
	ld h, a
	jp Func_2e89
.asm_1c9b
	ld hl, $c500
	ld a, [hl]
	or a
	jr z, .asm_1ca4
	jr asm_1c83
.asm_1ca4
	ld hl, $0092
	jp Func_2e89
; 0x1caa

INCBIN "baserom.gbc",$1caa,$1dca - $1caa

; memcpy(HL, DE, C)
Memcpy: ; 1dca (0:1dca)
	ld a, [$cabb]        ;
	bit 7, a             ;
	jr nz, .asm_1dd8     ; assert that LCD is on
.asm_1dd1
	ld a, [de]
	inc de
	ld [hli], a
	dec c
	jr nz, .asm_1dd1
	ret
.asm_1dd8
	jp MemcpyDEHL_hblank

Func_1ddb: ; 1ddb (0:1ddb)
	ld l, e
	ld h, $0
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	ld a, l
	add d
	ld l, a
	ld a, h
	adc $98
	ld h, a
	ret

Func_1deb: ; 1deb (0:1deb)
	push af
	ld a, [$ff92]
	rra
	rra
	rra
	and $1f
	add d
	ld d, a
	ld a, [$ff93]
	rra
	rra
	rra
	and $1f
	add e
	ld e, a
	pop af
	ret
; 0x1e00

INCBIN "baserom.gbc",$1e00,$1e7c - $1e00

Func_1e7c: ; 1e7c (0:1e7c)
	ld a, [wConsole]
	cp CONSOLE_CGB
	jr z, asm_1ec9
	cp CONSOLE_SGB
	jp z, Func_1f0f
Func_1e88: ; 1e88 (0:1e88)
	call Func_1ddb
	ld a, $1c
	ld de, $1819
	call Func_1ea5
	dec c
	dec c
.asm_1e95
	ld a, $0
	ld de, $1e1f
	call Func_1ea5
	dec c
	jr nz, .asm_1e95
	ld a, $1d
	ld de, $1a1b
Func_1ea5: ; 1ea5 (0:1ea5)
	add sp, $e0
	push hl
	push bc
	ld hl, [sp+$4]
	dec b
	dec b
	push hl
	ld [hl], d
	inc hl
.asm_1eb0
	ld [hli], a
	dec b
	jr nz, .asm_1eb0
	ld [hl], e
	pop de
	pop bc
	pop hl
	push hl
	push bc
	ld c, b
	ld b, $0
	call Memcpy
	pop bc
	pop de
	ld hl, $0020
	add hl, de
	add sp, $20
	ret
asm_1ec9
	call Func_1ddb
	ld a, $1c
	ld de, $1819
	call Func_1efb
	dec c
	dec c
.asm_1ed6
	ld a, $0
	ld de, $1e1f
	push hl
	call Func_1ea5
	pop hl
	call BankswitchVRAM_1
	ld a, [$ccf3]
	ld e, a
	ld d, a
	xor a
	call Func_1ea5
	call BankswitchVRAM_0
	dec c
	jr nz, .asm_1ed6
	ld a, $1d
	ld de, $1a1b
	call Func_1efb
	ret

Func_1efb: ; 1efb (0:1efb)
	push hl
	call Func_1ea5
	pop hl
	call BankswitchVRAM_1
	ld a, [$ccf3]
	ld e, a
	ld d, a
	call Func_1ea5
	call BankswitchVRAM_0
	ret

Func_1f0f: ; 1f0f (0:1f0f)
	push bc
	push de
	call Func_1e88
	pop de
	pop bc
	ld a, [$ccf3]
	or a
	ret z
	push bc
	push de
	ld hl, $cae0
	ld de, Unknown_1f4f
	ld c, $10
.asm_1f25
	ld a, [de]
	inc de
	ld [hli], a
	dec c
	jr nz, .asm_1f25
	pop de
	pop bc
	ld hl, $cae4
	ld [hl], d
	inc hl
	ld [hl], e
	inc hl
	ld a, d
	add b
	dec a
	ld [hli], a
	ld a, e
	add c
	dec a
	ld [hli], a
	ld a, [$ccf3]
	and $80
	jr z, .asm_1f48
	ld a, $2
	ld [$cae2], a
.asm_1f48
	ld hl, $cae0
	call SendSGB
	ret

Unknown_1f4f: ; 1f4f (0:1f4f)
INCBIN "baserom.gbc",$1f4f,$1f5f - $1f4f

Func_1f5f: ; 1f5f (0:1f5f)
	push de
	push af
	push hl
	add sp, $e0
	call Func_1ddb
.asm_1f67
	push hl
	push bc
	ld hl, [sp+$25]
	ld d, [hl]
	ld hl, [sp+$27]
	ld a, [hl]
	ld hl, [sp+$4]
	push hl
.asm_1f72
	ld [hli], a
	add d
	dec b
	jr nz, .asm_1f72
	pop de
	pop bc
	pop hl
	push hl
	push bc
	ld c, b
	ld b, $0
	call Memcpy
	ld hl, [sp+$24]
	ld a, [hl]
	ld hl, [sp+$27]
	add [hl]
	ld [hl], a
	pop bc
	pop de
	ld hl, $0020
	add hl, de
	dec c
	jr nz, .asm_1f67
	add sp, $24
	pop de
	ret
; 0x1f96

INCBIN "baserom.gbc",$1f96,$20b0 - $1f96

Func_20b0: ; 20b0 (0:20b0)
	ld hl, $2fe8
	ld a, [wConsole]
	cp CONSOLE_CGB
	jr nz, .asm_20bd
	ld hl, $37f8
.asm_20bd
	ld de, $8d00
	ld b, $30
	jr asm_2121

Func_20c4: ; 20c4 (0:20c4)
	ld hl, $3028
	ld a, [wConsole]
	cp CONSOLE_CGB
	jr nz, .asm_20d1
	ld hl, $3838
.asm_20d1
	ld de, $8d40
	ld b, $c
	jr asm_2121

Func_20d8: ; 20d8 (0:20d8)
	ld b, $10
	jr asm_20de

Func_20dc: ; 20dc (0:20dc)
	ld b, $24
asm_20de
	ld hl, $32e8
	ld a, [wConsole]
	cp CONSOLE_CGB
	jr nz, .asm_20eb
	ld hl, $3af8
.asm_20eb
	ld de, $8d00
	jr asm_2121

Func_20f0: ; 20f0 (0:20f0)
	ld hl, $4008
	ld de, $8a00
	ld b, $d
	call asm_2121
	ld hl, $3528
	ld a, [wConsole]
	cp CONSOLE_CGB
	jr nz, .asm_2108
	ld hl, $3d38
.asm_2108
	ld de, $8d00
	ld b, $30
	jr asm_2121

Func_210f: ; 210f (0:210f)
	ld hl, $40d8
	ld de, $9300
	ld b, $8
	jr asm_2121

Func_2119: ; 2119 (0:2119)
	ld hl, DuelGraphics - Fonts
	ld de, $9000 ; destination
	ld b, $38 ; number of tiles
asm_2121
	ld a, BANK(Fonts)
	call BankpushHome
	ld c, $10
	call CopyGfxData
	call BankpopHome
	ret
; 0x212f

INCBIN "baserom.gbc",$212f,$21c5 - $212f

Func_21c5: ; 21c5 (0:21c5)
	push de
	push bc
	call Func_2298
	jr .asm_21e8
.asm_21cc
	cp $5
	jr c, .asm_21d9
	cp $10
	jr nc, .asm_21d9
	call Func_21f2
	jr .asm_21e8
.asm_21d9
	ld e, a
	ld d, [hl]
	call Func_2546
	jr nc, .asm_21e1
	inc hl
.asm_21e1
	call Func_22ca
	xor a
	call Func_21f2
.asm_21e8
	ld a, [hli]
	or a
	jr nz, .asm_21cc
	call Func_230f
	pop bc
	pop de
	ret

Func_21f2: ; 21f2 (0:21f2)
	or a
	jr z, .asm_2241
	cp $e
	jr z, .asm_2221
	cp $f
	jr z, .asm_2221
	cp $a
	jr z, .asm_224d
	cp $5
	jr z, .asm_2225
	cp $6
	jr z, .asm_220f
	cp $7
	jr z, .asm_2215
	scf
	ret
.asm_220f
	ld a, $1
	ld [$cd0a], a
	ret
.asm_2215
	call Func_230f
	xor a
	ld [$cd0a], a
	ld a, $f
	ld [$ffaf], a
	ret
.asm_2221
	ld [$ffaf], a
	xor a
	ret
.asm_2225
	ld a, [$cd0a]
	push af
	ld a, $1
	ld [$cd0a], a
	call Func_230f
	pop af
	ld [$cd0a], a
	ld a, [$ffb0]
	or a
	jr nz, .asm_2240
	ld a, [hl]
	push hl
	call Func_22f2
	pop hl
.asm_2240
	inc hl
.asm_2241
	ld a, [$ffae]
	or a
	ret z
	ld b, a
	ld a, [$ffac]
	cp b
	jr z, .asm_224d
	xor a
	ret
.asm_224d
	call Func_230f
	ld a, [$cd08]
	or a
	call z, .asm_2257
.asm_2257
	xor a
	ld [$ffac], a
	ld a, [$ffad]
	add $20
	ld b, a
	ld a, [$ffaa]
	and $e0
	add b
	ld [$ffaa], a
	ld a, [$ffab]
	adc $0
	ld [$ffab], a
	ld a, [$cd09]
	inc a
	ld [$cd09], a
	xor a
	ret

Func_2275: ; 2275 (0:2275)
	ld a, d
	dec a
	ld [$cd04], a
	ld a, e
	ld [$ffa8], a
	call Func_2298
	xor a
	ld [$ffb0], a
	ld [$ffa9], a
	ld a, $88
	ld [$cd06], a
	ld a, $80
	ld [$cd07], a
	ld hl, $c600
.asm_2292
	xor a
	ld [hl], a
	inc l
	jr nz, .asm_2292
	ret

Func_2298: ; 2298 (0:2298)
	xor a
	ld [$cd0a], a
	ld [$ffac], a
	ld [$cd0b], a
	ld a, $f
	ld [$ffaf], a
	ret

Func_22a6: ; 22a6 (0:22a6)
	push af
	call Func_22ae
	pop af
	ld [$ffae], a
	ret

Func_22ae: ; 22ae (0:22ae)
	push hl
	ld a, d
	ld [$ffad], a
	xor a
	ld [$ffae], a
	ld [$cd09], a
	call Func_1ddb
	ld a, l
	ld [$ffaa], a
	ld a, h
	ld [$ffab], a
	call Func_2298
	xor a
	ld [$cd0b], a
	pop hl
	ret

Func_22ca: ; 22ca (0:22ca)
	push hl
	push de
	push bc
	ld a, [$ffb0]
	and $1
	jr nz, .asm_22ed
	call Func_2325
	jr c, .asm_22de
	or a
	jr nz, .asm_22e9
	call Func_24ac
.asm_22de
	ld a, [$ffb0]
	and $2
	jr nz, .asm_22e9
	ld a, [$ffa9]
	call Func_22f2
.asm_22e9
	pop bc
	pop de
	pop hl
	ret
.asm_22ed
	call Func_235e
	jr .asm_22e9

Func_22f2: ; 22f2 (0:22f2)
	ld [$cd05], a
	ld hl, $ffaa
	ld e, [hl]
	inc hl
	ld d, [hl]
	inc de
	ld [hl], d
	dec hl
	ld [hl], e
	dec de
	ld l, e
	ld h, d
	ld de, $cd05
	ld c, $1
	call Memcpy
	ld hl, $ffac
	inc [hl]
	ret

Func_230f: ; 230f (0:230f)
	ld a, [$cd0a]
	or a
	ret z
	ld a, [$cd0b]
	or a
	ret z
	push hl
	push de
	push bc
	ld e, $20
	call Func_22ca
	pop bc
	pop de
	pop hl
	ret

Func_2325: ; 2325 (0:2325)
	call Func_235e
	ret c
	or a
	ret nz
	ld a, [$ffa8]
	ld hl, $cd04
	cp [hl]
	jr nz, .asm_2345
	ld a, [$ffa9]
	ld h, $c8
.asm_2337
	ld l, a
	ld a, [hl]
	or a
	jr nz, .asm_2337
	ld h, $c9
	ld c, [hl]
	ld b, $c8
	xor a
	ld [bc], a
	jr .asm_234a
.asm_2345
	inc [hl]
	jr nz, .asm_2349
	inc [hl]
.asm_2349
	ld l, [hl]
.asm_234a
	ld a, [$ffa9]
	ld c, a
	ld b, $c9
	ld a, l
	ld [$ffa9], a
	ld [bc], a
	ld h, $c8
	ld [hl], c
	ld h, $c6
	ld [hl], e
	inc h
	ld [hl], d
	ld b, l
	xor a
	ret

; search linked-list for letters e/d (regisers), if found hoist the result to
; head of list and return it.  carry flag denotes success.
Func_235e: ; 235e (0:235e)
	ld a, [$cd0a]        ;
	or a                 ;
	jr z, .asm_2376      ; if [$cd0a] nonzero:
	call Uppercase       ;   uppercase e
	ld a, [$cd0b]
	ld d, a
	or a
	jr nz, .asm_2376     ;   if [$cd0b] is zero:
	ld a, e              ;
	ld [$cd0b], a        ;     [$cd0b] ← e
	ld a, $1             ;
	or a                 ;     return a = 1
	ret
.asm_2376
	xor a
	ld [$cd0b], a        ; [$cd0b] ← 0
	ld a, [$ffa9]
	ld l, a              ; l ← [$ffa9]; index to to linked-list head
.asm_237d
	ld h, $c6                                     ;
	ld a, [hl]           ; a ← key1[l]            ;
	or a                                          ;
	ret z                ; if NULL, return a = 0  ;
	cp e                                          ; loop for e/d key in
	jr nz, .asm_238a     ;                        ; linked list
	inc h                ;                        ;
	ld a, [hl]           ; if key1[l] == e and    ;
	cp d                 ;    key2[l] == d:       ;
	jr z, .asm_238f      ;   break                ;
.asm_238a                                             ;
	ld h, $c8            ;                        ;
	ld l, [hl]           ; l ← next[l]            ;
	jr .asm_237d
.asm_238f
	ld a, [$ffa9]
	cp l
	jr z, .asm_23af      ; assert at least one iteration
	ld c, a
	ld b, $c9
	ld a, l
	ld [bc], a           ; prev[i0] ← i
	ld [$ffa9], a        ; [$ffa9] ← i  (update linked-list head)
	ld h, $c9
	ld b, [hl]
	ld [hl], $0          ; prev[i] ← 0
	ld h, $c8
	ld a, c
	ld c, [hl]
	ld [hl], a           ; next[i] ← i0
	ld l, b
	ld [hl], c           ; next[prev[i]] ← next[i]
	ld h, $c9
	inc c
	dec c
	jr z, .asm_23af      ; if next[i] != NULL:
	ld l, c              ;   l ← next[i]
	ld [hl], b           ;   prev[next[i]] ← prev[i]
.asm_23af
	scf                  ; set carry to indicate success
	ret                  ; (return new linked-list head in a)

; uppercases e if [wUppercaseFlag] is nonzero
Uppercase: ; 23b1 (0:23b1)
	ld a, [wUppercaseFlag]
	or a
	ret z
	ld a, e
	cp $60
	ret c
	cp $7b
	ret nc
	sub $20
	ld e, a
	ret

Func_23c1: ; 23c1 (0:23c1)
	ld a, [hl]
	cp $6
	jr nz, .asm_23cf
	call Func_23d3
	inc b
	srl b
	xor a
	sub b
	ret
.asm_23cf
	xor a
	ld [$cd0a], a
Func_23d3: ; 23d3 (0:23d3)
	push hl
	push de
	ld bc, $0000
.asm_23d8
	ld a, [hli]
	or a
	jr z, .asm_23f8
	inc c
	cp $5
	jr c, .asm_23ec
	cp $10
	jr nc, .asm_23ec
	cp $5
	jr nz, .asm_23d8
	inc b
	jr .asm_23f4
.asm_23ec
	ld e, a
	ld d, [hl]
	inc b
	call Func_2546
	jr nc, .asm_23d8
.asm_23f4
	inc c
	inc hl
	jr .asm_23d8
.asm_23f8
	xor a
	sub b
	pop de
	pop hl
	ret
; 0x23fd

INCBIN "baserom.gbc",$23fd,$245d - $23fd

Func_245d: ; 245d (0:245d)
	push de
	push bc
	ld de, $caa0
	push de
	ld bc, $d8f0
	call Func_2499
	ld bc, $fc18
	call Func_2499
	ld bc, $ff9c
	call Func_2499
	ld bc, $fff6
	call Func_2499
	ld bc, $ffff
	call Func_2499
	xor a
	ld [de], a
	pop hl
	ld e, $5
.asm_2486
	inc hl
	ld a, [hl]
	cp $20
	jr nz, .asm_2495
	ld [hl], $0
	inc hl
	dec e
	jr nz, .asm_2486
	dec hl
	ld [hl], $20
.asm_2495
	dec hl
	pop bc
	pop de
	ret

Func_2499: ; 2499 (0:2499)
	ld a, $5
	ld [de], a
	inc de
	ld a, $1f
.asm_249f
	inc a
	add hl, bc
	jr c, .asm_249f
	ld [de], a
	inc de
	ld a, l
	sub c
	ld l, a
	ld a, h
	sbc b
	ld h, a
	ret

Func_24ac: ; 24ac (0:24ac)
	push hl
	push de
	push bc
	ld a, [$cd0a]
	or a
	jr nz, .asm_24bf
	call Func_2510
	call Memcpy
.asm_24bb
	pop bc
	pop de
	pop hl
	ret
.asm_24bf
	call Func_24ca
	call Func_2518
	call Memcpy
	jr .asm_24bb

Func_24ca: ; 24ca (0:24ca)
	push bc
	ld a, [hBankROM]
	push af
	ld a, BANK(VWF)
	call BankswitchHome
	push de
	ld a, e
	ld de, $ccf4
	call Func_24fa
	pop de
	ld a, d
	ld de, $ccf5
	call Func_24fa
	ld hl, $ccf4
	ld b, $8
.asm_24e8
	ld a, [hli]
	swap a
	or [hl]
	dec hl
	ld [hli], a
	ld [hli], a
	dec b
	jr nz, .asm_24e8
	call BankpopHome
	pop bc
	ld de, $ccf4
	ret

Func_24fa: ; 24fa (0:24fa)
	sub $20
	ld l, a
	ld h, $0
	add hl, hl
	add hl, hl
	add hl, hl
	ld bc, VWF
	add hl, bc
	ld b, $8
.asm_2508
	ld a, [hli]
	ld [de], a
	inc de
	inc de
	dec b
	jr nz, .asm_2508
	ret

Func_2510: ; 2510 (0:2510)
	push bc
	call Func_256d
	call Func_252e
	pop bc
Func_2518: ; 2518 (0:2518)
	ld hl, $cd07
	ld a, b
	xor [hl]
	ld h, $0
	ld l, a
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	ld a, [$cd06]
	ld b, a
	ld c, $0
	add hl, bc
	ld c, $10
	ret

Func_252e: ; 252e (0:252e)
	ld a, $1d
	call BankpushHome
	ld de, $ccf4
	push de
	ld c, $8
.asm_2539
	ld a, [hli]
	ld [de], a
	inc de
	ld [de], a
	inc de
	dec c
	jr nz, .asm_2539
	pop de
	call BankpopHome
	ret

Func_2546: ; 2546 (0:2546)
	ld a, [$cd0a]
	or a
	jr nz, .asm_255f
	ld a, e
	cp $10
	jr c, .asm_2561
	cp $60
	jr nc, .asm_2565
	ld a, [$ffaf]
	cp $f
	jr nz, .asm_2565
	ld d, $f
	or a
	ret
.asm_255f
	or a
	ret
.asm_2561
	cp $5
	jr c, .asm_2569
.asm_2565
	ld d, $0
	or a
	ret
.asm_2569
	ld e, d
	ld d, a
	scf
	ret

Func_256d: ; 256d (0:256d)
	ld bc, $0280
	ld a, d
	cp $e
	jr z, .asm_2580
	cp $f
	jr nz, .asm_2582
	ld bc, $0000
	ld a, e
	sub $10
	ld e, a
.asm_2580
	ld d, $0
.asm_2582
	ld l, e
	ld h, d
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, bc
	ret
; 0x2589

INCBIN "baserom.gbc",$2589,$2636 - $2589

Func_2636: ; 2636 (0:2636)
	ld [$cd10], a
	ld [$ffb1], a
	ld de, $cd11
	ld b, $8
.asm_2640
	ld a, [hli]
	ld [de], a
	inc de
	dec b
	jr nz, .asm_2640
	xor a
	ld [$cd0f], a
	ret

Func_264b: ; 264b (0:264b)
	xor a
	ld [$cd99], a
	ld a, [hButtonsPressed2]
	or a
	jr z, .asm_2685
	ld b, a
	ld a, [$cd14]
	ld c, a
	ld a, [$cd10]
	bit 6, b
	jr z, .asm_266b
	dec a
	bit 7, a
	jr z, .asm_2674
	ld a, [$cd14]
	dec a
	jr .asm_2674
.asm_266b
	bit 7, b
	jr z, .asm_2685
	inc a
	cp c
	jr c, .asm_2674
	xor a
.asm_2674
	push af
	ld a, $1
	ld [$cd99], a
	call Func_26e9
	pop af
	ld [$cd10], a
	xor a
	ld [$cd0f], a
.asm_2685
	ld a, [$cd10]
	ld [$ffb1], a
	ld hl, $cd17
	ld a, [hli]
	or [hl]
	jr z, .asm_26a9
	ld a, [hld]
	ld l, [hl]
	ld h, a
	ld a, [$ffb1]
	call CallF
	jr nc, asm_26d1
.asm_269b
	call Func_270b
	call Func_26c0
	ld a, [$cd10]
	ld e, a
	ld a, [$ffb1]
	scf
	ret
.asm_26a9
	ld a, [hButtonsPressed]
	and $3
	jr z, asm_26d1
	and $1
	jr nz, .asm_269b
	ld a, [$cd10]
	ld e, a
	ld a, $ff
	ld [$ffb1], a
	call Func_26c0
	scf
	ret

Func_26c0: ; 26c0 (0:26c0)
	push af
	ld a, [$ffb1]
	inc a
	jr z, .asm_26ca
	ld a, $2
	jr .asm_26cc
.asm_26ca
	ld a, $3
.asm_26cc
	call Func_3796
	pop af
	ret
asm_26d1
	ld a, [$cd99]
	or a
	jr z, Func_26da
	call Func_3796

Func_26da: ; 26da (0:26da)
	ld hl, $cd0f
	ld a, [hl]
	inc [hl]
	and $f
	ret nz
	ld a, [$cd15]
	bit 4, [hl]
	jr z, asm_26ec
Func_26e9: ; 26e9 (0:26e9)
	ld a, [$cd16]
asm_26ec
	ld c, a
	ld a, [$cd13]
	ld l, a
	ld a, [$cd10]
	ld h, a
	call Func_0879
	ld a, l
	ld hl, $cd11
	ld d, [hl]
	inc hl
	add [hl]
	ld e, a
	call Func_1deb
	ld a, c
	ld c, e
	ld b, d
	call Func_06c3
	or a
	ret

Func_270b: ; 270b (0:270b)
	ld a, [$cd15]
	jr asm_26ec
; 0x2710

INCBIN "baserom.gbc",$2710,$2a1a - $2710

Func_2a1a: ; 2a1a (0:2a1a)
	xor a
	ld hl, $cd10
	ld [hli], a
	ld [hl], d
	inc hl
	ld [hl], e
	inc hl
	ld [hl], $0
	inc hl
	ld [hl], $1
	inc hl
	ld [hl], b
	inc hl
	ld [hl], c
	ld [$cd0f], a
	ret
; 0x2a30

INCBIN "baserom.gbc",$2a30,$2a3e - $2a30

Func_2a3e: ; 2a3e (0:2a3e)
	push hl
	call Func_2a6f
	ld a, $b
	ld de, $010e
	call Func_1deb
	call Func_22a6
	pop hl
	ld a, l
	or h
	jp nz, Func_2e76
	ld hl, $c590
	jp Func_21c5

Func_2a59: ; 2a59 (0:2a59)
	push hl
	call Func_2a9e
	ld a, $13
	ld de, $010e
	call Func_1deb
	call Func_22a6
	call EnableLCD
	pop hl
	jp Func_2e41

Func_2a6f: ; 2a6f (0:2a6f)
	ld de, $000c
	ld bc, $0c06
	call Func_1deb
	call Func_1e7c
	ret
; 0x2a7c

INCBIN "baserom.gbc",$2a7c,$2a9e - $2a7c

Func_2a9e: ; 2a9e (0:2a9e)
	ld de, $000c
	ld bc, $1406
	call Func_1deb
	call Func_1e7c
	ret

Func_2aab: ; 2aab (0:2aab)
	call Func_2a59
	xor a
	ld hl, Unknown_2ac8
	call Func_2636
	call EnableLCD
.asm_2ab8
	call Func_053f
	call Func_26da
	ld a, [hButtonsPressed]
	and $3
	jr z, .asm_2ab8
	call Func_26e9
	ret

Unknown_2ac8: ; 2ac8 (0:2ac8)
INCBIN "baserom.gbc",$2ac8,$2af0 - $2ac8

Func_2af0: ; 2af0 (0:2af0)
	call Func_2a59
	ld de, $0710
	call Func_2b66
	ld de, $0610
	jr .asm_2b0a
	call Func_2a3e
	ld de, $0310
	call Func_2b66
	ld de, $0210
.asm_2b0a
	ld a, d
	ld [$cd98], a
	ld bc, $0f00
	call Func_2a1a
	ld a, [$cd9a]
	ld [$cd10], a
	call EnableLCD
	jr .asm_2b39
.asm_2b1f
	call Func_053f
	call Func_26da
	ld a, [hButtonsPressed]
	bit 0, a
	jr nz, .asm_2b50
	ld a, [hButtonsPressed2]
	and $30
	jr z, .asm_2b1f
	ld a, $1
	call Func_3796
	call Func_26e9
.asm_2b39
	ld a, [$cd98]
	ld c, a
	ld hl, $cd10
	ld a, [hl]
	xor $1
	ld [hl], a
	add a
	add a
	add c
	ld [$cd11], a
	xor a
	ld [$cd0f], a
	jr .asm_2b1f
.asm_2b50
	ld a, [$cd10]
	ld [$ffb1], a
	or a
	jr nz, .asm_2b5c
	ld [$cd9a], a
	ret
.asm_2b5c
	xor a
	ld [$cd9a], a
	ld a, $1
	ld [$ffb1], a
	scf
	ret

Func_2b66: ; 2b66 (0:2b66)
	call Func_1deb
	ld hl, $002f
	call Func_2c1b
	ret
; 0x2b70

INCBIN "baserom.gbc",$2b70,$2b78 - $2b70

Duel_LoadDecks: ; 2b78 (0:2b78)
	xor a
	ld [wIsPracticeDuel], a
	ld a, [wOpponentDeck]
	cp SAMS_NORMAL_DECK - 2
	jr z, .normalSamDuel
	or a ; cp SAMS_PRACTICE_DECK - 2
	jr nz, .notPracticeDuel

; only practice duels will display help messages, but
; any duel with Sam will force the PRACTICE_PLAYER_DECK
;.practiceSamDuel
	inc a
	ld [wIsPracticeDuel], a

.normalSamDuel
	xor a
	ld [wOpponentDeck], a
	call Func_1c72
	ld a, PRACTICE_PLAYER_DECK
	call LoadDeck
	call Func_1c72
	ld hl, $caca
	ld a, $57
	ld [hli], a
	ld [hli], a
	ld [hl], a
	xor a

.notPracticeDuel
	inc a
	inc a
	call LoadDeck
	ld a, [wOpponentDeck]
	cp NUMBER_OF_DECKS
	jr c, .validDeck
	ld a, PRACTICE_PLAYER_DECK - 2
	ld [wOpponentDeck], a

.validDeck
	ld a, $f1
	call Func_160b
	ld a, [wOpponentDeck]
	or $80
	ld [hl], a
	ret
; 0x2bbf

INCBIN "baserom.gbc",$2bbf,$2c08 - $2bbf

Func_2c08: ; 2c08 (0:2c08)
	ld d, [hl]
	inc hl
	bit 7, d
	ret nz
	ld e, [hl]
	inc hl
	call Func_22ae
	push hl
	call Func_2c23
	pop hl
	inc hl
	inc hl
	jr Func_2c08

Func_2c1b: ; 2c1b (0:2c1b)
	call Func_22ae
	jr Func_2c29

Func_2c20: ; 2c20 (0:2c20)
	call Func_22ae
Func_2c23: ; 2c23 (0:2c23)
	ld a, [hli]
	or [hl]
	ret z
	ld a, [hld]
	ld l, [hl]
	ld h, a
Func_2c29: ; 2c29 (0:2c29)
	ld a, [hBankROM]
	push af
	call ReadTextOffset
	call Func_21c5
	pop af
	call BankswitchHome
	ret
; 0x2c37

INCBIN "baserom.gbc",$2c37,$2cc8 - $2c37

Func_2cc8: ; 2cc8 (0:2cc8)
	xor a
	ld [$ce48], a
	ld [$ce49], a
	ld [$ce4a], a
	ld a, $f
	;ld [$ffaf], a
	db $ea, $af, $ff
Func_2cd7: ; 2cd7 (0:2cd7)
	push hl
	call Func_2d06
	pop bc
	;ld a, [$ffaf]
	db $fa, $af, $ff
	ld [hli], a
	ld a, [$cd0a]
	ld [hli], a
	ld a, [hBankROM]
	ld [hli], a
	ld [hl], c
	inc hl
	ld [hl], b
	ret

Func_2ceb: ; 2ceb (0:2ceb)
	call Func_2cd7
	ld hl, $ce48
	inc [hl]
	ret

Func_2cf3: ; 2cf3 (0:2cf3)
	call Func_2d06
	ld a, [hli]
	;ld [$ffaf], a
	db $ea, $af, $ff
	ld a, [hli]
	ld [$cd0a], a
	ld a, [hli]
	call BankswitchHome
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ret

Func_2d06: ; 2d06 (0:2d06)
	ld a, [$ce48]
	ld e, a
	add a
	add a
	add e
	ld e, a
	ld d, $0
	ld hl, $ce2b
	add hl, de
	ret
; 0x2d15

INCBIN "baserom.gbc",$2d15,$2d43 - $2d15

Func_2d43: ; 2d43 (0:2d43)
	call Func_2cf3
	ld a, [hli]
	or a
	jr z, .asm_2d79
	cp $5
	jr c, .asm_2d65
	cp $10
	jr nc, .asm_2d65
	call Func_21f2
	jr nc, .asm_2d74
	cp $9
	jr z, .asm_2dc8
	cp $b
	jr z, .asm_2d8a
	cp $c
	jr z, .asm_2db3
	jr .asm_2d74
.asm_2d65
	ld e, a
	ld d, [hl]
	call Func_2546
	jr nc, .asm_2d6d
	inc hl
.asm_2d6d
	call Func_22ca
	xor a
	call Func_21f2
.asm_2d74
	call Func_2cd7
	or a
	ret
.asm_2d79
	ld a, [$ce48]
	or a
	jr z, .asm_2d85
	dec a
	ld [$ce48], a
	jr Func_2d43
.asm_2d85
	call Func_230f
	scf
	ret
.asm_2d8a
	call Func_2ceb
	ld a, $f
	;ld [$ffaf], a
	db $ea, $af, $ff
	xor a
	ld [$cd0a], a
	ld de, $ce3f
	ld hl, $ce49
	call Func_2de0
	ld a, l
	or h
	jr z, .asm_2dab
	call ReadTextOffset
	call Func_2cd7
	jr Func_2d43
.asm_2dab
	ld hl, $c590
	call Func_2cd7
	jr Func_2d43
.asm_2db3
	call Func_2ceb
	ld de, $ce43
	ld hl, $ce4a
	call Func_2de0
	call Func_2e12
	call Func_2cd7
	jp Func_2d43
.asm_2dc8
	call Func_2ceb
	call Func_2e2c
	ld a, [$caa0]
	cp $6
	jr z, .asm_2dda
	ld a, $7
	call Func_21f2
.asm_2dda
	call Func_2cd7
	jp Func_2d43

Func_2de0: ; 2de0 (0:2de0)
	push de
	ld a, [hl]
	inc [hl]
	add a
	ld e, a
	ld d, $0
	pop hl
	add hl, de
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ret

; uses the two byte text id in hl to read the three byte text offset
; loads the correct bank for the specific text and returns the pointer in hl
ReadTextOffset: ; 2ded (0:2ded)
	push de
	ld e, l
	ld d, h
	add hl, hl
	add hl, de
	set 6, h ; hl = (hl * 3) + $4000
	ld a, BANK(TextOffsets)
	call BankswitchHome
	ld e, [hl]
	inc hl
	ld d, [hl]
	inc hl
	ld a, [hl]
	ld h, d
	rl h
	rla
	rl h
	rla
	add BANK(TextOffsets)
	call BankswitchHome
	res 7, d
	set 6, d ; $4000 ≤ de ≤ $7fff
	ld l, e
	ld h, d
	pop de
	ret

Func_2e12: ; 2e12 (0:2e12)
	ld a, [$cd0a]
	or a
	jp z, Func_245d
	ld de, $caa0
	push de
	call Func_0663
	pop hl
	ld c, $4
.asm_2e23
	ld a, [hl]
	cp $30
	ret nz
	inc hl
	dec c
	jr nz, .asm_2e23
	ret

Func_2e2c: ; 2e2c (0:2e2c)
	ld de, $caa0
	push de
	ld a, [$ff97]
	cp $c3
	jp z, .asm_2e3c
	call Func_1c7d
	pop hl
	ret
.asm_2e3c
	call Func_1c8e
	pop hl
	ret

Func_2e41: ; 2e41 (0:2e41)
	ld a, l
	or h
	jr z, .asm_2e53
	ld a, [hBankROM]
	push af
	call ReadTextOffset
	call .asm_2e56
	pop af
	call BankswitchHome
	ret
.asm_2e53
	ld hl, $c590
.asm_2e56
	call Func_2cc8
.asm_2e59
	ld a, [$ff90]
	ld b, a
	ld a, [$ce47]
	inc a
	cp $3
	jr nc, .asm_2e6d
	bit 1, b
	jr nz, .asm_2e70
	jr .asm_2e6d
.asm_2e6a
	call Func_053f
.asm_2e6d
	dec a
	jr nz, .asm_2e6a
.asm_2e70
	call Func_2d43
	jr nc, .asm_2e59
	ret

Func_2e76: ; 2e76 (0:2e76)
	ld a, [hBankROM]
	push af
	call ReadTextOffset
	call Func_2cc8
.asm_2e7f
	call Func_2d43
	jr nc, .asm_2e7f
	pop af
	call BankswitchHome
	ret

Func_2e89: ; 2e89 (0:2e89)
	ld a, l
	or h
	jr z, .asm_2e9f
	ld a, [hBankROM]
	push af
	call ReadTextOffset
.asm_2e93
	ld a, [hli]
	ld [de], a
	inc de
	or a
	jr nz, .asm_2e93
	pop af
	call BankswitchHome
	dec de
	ret
.asm_2e9f
	ld a, [$ff97]
	cp $c3
	jp z, Func_1c8e
	jp Func_1c7d
; 0x2ea9

INCBIN "baserom.gbc",$2ea9,$2fa0 - $2ea9

LoadCardGfx: ; 2fa0 (0:2fa0)
	ld a, [hBankROM]
	push af
	push hl
	srl h
	srl h
	srl h
	ld a, BANK(GrassEnergyCardGfx)
	add h
	call BankswitchHome
	pop hl
	add hl, hl
	add hl, hl
	add hl, hl
	res 7, h
	set 6, h
	call CopyGfxData
	ld b, $8 ; length of palette
	ld de, $ce23
.copyCardPalette
	ld a, [hli]
	ld [de], a
	inc de
	dec b
	jr nz, .copyCardPalette
	pop af
	call BankswitchHome
	ret
; 0x2fcb

INCBIN "baserom.gbc",$2fcb,$302c - $2fcb

; loads the deck id in a from DeckPointers
; sets carry flag if an invalid deck id is used
LoadDeck: ; 302c (0:302c)
	push hl
	ld l, a
	ld h, $0
	ld a, [hBankROM]
	push af
	ld a, BANK(DeckPointers)
	call BankswitchHome
	add hl, hl
	ld de, DeckPointers
	add hl, de
	ld e, [hl]
	inc hl
	ld d, [hl]
	ld a, d
	or e
	jr z, .nullPointer
	call CopyDeckData
	pop af
	call BankswitchHome
	pop hl
	or a
	ret
.nullPointer
	pop af
	call BankswitchHome
	pop hl
	scf
	ret
; 0x3055

Func_3055: ; 3055 (0:3055)
	push hl
	ld hl, $ccb9
	add [hl]
	ld [hli], a
	ld a, $0
	adc [hl]
	ld [hl], a
	pop hl
	ret

Func_3061: ; 3061 (0:3061)
	push de
	push hl
	ld e, a
	ld hl, $ccb9
	ld a, [hl]
	sub e
	ld [hli], a
	ld a, [hl]
	sbc $0
	ld [hl], a
	pop hl
	pop de
	ret

Func_3071: ; 3071 (0:3071)
	push hl
	ld hl, $ce4e
	ld [hl], e
	inc hl
	ld [hl], d
	rst $18
	xor l
	ld [hl], c
	pop hl
	ret

Func_307d: ; 307d (0:307d)
	push hl
	ld hl, $ce4e
	ld [hl], e
	inc hl
	ld [hl], d
	ld a, $1
	rst $18
	xor l
	ld [hl], c
	ld hl, $cac2
	ld [hl], $0
	pop hl
	ret

Func_3090: ; 3090 (0:3090)
	ld a, d
	cp b
	ret nz
	ld a, e
	cp c
	ret

Func_3096: ; 3096 (0:3096)
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $4000
	pop af
	call BankswitchHome
	ret

Func_30a6: ; 30a6 (0:30a6)
	ld a, [hBankROM]
	push af
	ld a, $6
	call BankswitchHome
	ld a, $1
	ld [$ce60], a
	call $40d5
	pop bc
	ld a, b
	call BankswitchHome
	ret

Func_30bc: ; 30bc (0:30bc)
	ld a, h
	ld [$ce50], a
	ld a, l
	ld [$ce51], a
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $4211
	call Func_2a9e
	pop af
	call BankswitchHome
	ret

Func_30d7: ; 30d7 (0:30d7)
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $433c
	pop af
	call BankswitchHome
	ret

Func_30e7: ; 30e7 (0:30e7)
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $4764
	ld b, a
	pop af
	call BankswitchHome
	ld a, b
	ret

Func_30f9: ; 30f9 (0:30f9)
	ld b, a
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $4932
	pop af
	call BankswitchHome
	ret

Func_310a: ; 310a (0:310a)
	ld [$ce59], a
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $4aaa
	pop af
	call BankswitchHome
	ret

Func_311d: ; 311d (0:311d)
	ld a, [hBankROM]
	push af
	ld a, $2
	call BankswitchHome
	call $4b85
	pop af
	call BankswitchHome
	ret

Func_312d: ; 312d (0:312d)   ; serial transfer-related
	push hl
	ld hl, $ce64
	ld a, $88
	ld [hli], a          ; [$ce64] ← $88
	ld a, $33
	ld [hli], a          ; [$ce65] ← $33
	ld [hl], d           ; [$ce66] ← d
	inc hl
	ld [hl], e           ; [$ce67] ← e
	inc hl
	ld [hl], c           ; [$ce68] ← c
	inc hl
	ld [hl], b           ; [$ce69] ← b
	inc hl
	pop de
	ld [hl], e           ; [$ce6a] ← l
	inc hl
	ld [hl], d           ; [$ce6b] ← h
	inc hl
	ld de, $ff45
	ld [hl], e           ; [$ce6c] ← $45
	inc hl
	ld [hl], d           ; [$ce6d] ← $ff
	ld hl, $ce70
	ld [hl], $64         ; [$ce70] ← $64
	inc hl
	ld [hl], $ce         ; [$ce71] ← $ce
	call Func_0e8e
	ld a, $1
	ld [$ce63], a        ; [$ce63] ← 1
	call Func_31fc
.asm_315d
	call Func_053f
	ld a, [$ce63]
	or a
	jr nz, .asm_315d
	call ResetSerial
	ld bc, $05dc
.asm_316c
	dec bc
	ld a, b
	or c
	jr nz, .asm_316c
	ld a, [$ce6e]
	cp $81
	jr nz, .asm_3182
	ld a, [$ce6f]
	ld l, a
	and $f1
	ld a, l
	ret z
	scf
	ret
.asm_3182
	ld a, $ff
	ld [$ce6f], a
	scf
	ret

Func_3189: ; 3189 (0:3189)
	ld hl, PointerTable_3190
	dec a
	jp JumpToFunctionInTable

PointerTable_3190: ; 3190 (0:3190)
	dw Func_31a8
	dw Func_31a8
	dw Func_31a8
	dw Func_31a8
	dw Func_31a8
	dw Func_31b0
	dw Func_31ca
	dw Func_31dd
	dw Func_31e5
	dw Func_31ef
	dw Func_31ea
	dw Func_31f2

Func_31a8: ; 31a8 (0:31a8)
	call Func_31fc
Func_31ab: ; 31ab (0:31ab)
	ld hl, $ce63
	inc [hl]
	ret

Func_31b0: ; 31b0 (0:31b0)
	call Func_31ab
	ld hl, $ce68
	ld a, [hli]
	or [hl]
	jr nz, .asm_31bf
	call Func_31ab
	jr Func_31dd
.asm_31bf
	ld hl, $ce6a
	ld de, $ce70
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hl]
	ld [de], a

Func_31ca: ; 31ca (0:31ca)
	call Func_31fc
	ld hl, $ce68
	ld a, [hl]
	dec [hl]
	or a
	jr nz, .asm_31d8
	inc hl
	dec [hl]
	dec hl
.asm_31d8
	ld a, [hli]
	or [hl]
	jr z, Func_31ab
	ret

Func_31dd: ; 31dd (0:31dd)
	ld a, [$ce6c]
Func_31e0: ; 31e0 (0:31e0)
	call Func_3212
	jr Func_31ab

Func_31e5: ; 31e5 (0:31e5)
	ld a, [$ce6d]
	jr Func_31e0

Func_31ea: ; 31ea (0:31ea)
	ld a, [rSB]
	ld [$ce6e], a
Func_31ef: ; 31ef (0:31ef)
	xor a
	jr Func_31e0

Func_31f2: ; 31f2 (0:31f2)
	ld a, [rSB]
	ld [$ce6f], a
	xor a
	ld [$ce63], a
	ret

Func_31fc: ; 31fc (0:31fc)
	ld hl, $ce70
	ld e, [hl]
	inc hl
	ld d, [hl]
	ld a, [de]
	inc de
	ld [hl], d
	dec hl
	ld [hl], e
	ld e, a
	ld hl, $ce6c
	add [hl]
	ld [hli], a
	ld a, $0
	adc [hl]
	ld [hl], a
	ld a, e
	; fallthrough
Func_3212: ; 3212 (0:3212)
	ld [rSB], a
	ld a, $1
	ld [rSC], a
	ld a, $81
	ld [rSC], a
	ret
; 0x321d

INCBIN "baserom.gbc",$321d,$377f - $321d

SetupSound_T: ; 377f (0:377f)
	farcall SetupSound_Ext
	ret

Func_3784: ; 3784 (0:3784)
	xor a
PlaySong: ; 3785 (0:3785)
	farcall Func_f4006
	ret

Func_378a: ; 378a (0:378a)
	farcall Func_f400f
	ret

Func_378f: ; 378f (0:378f)
	farcall Func_f4012
	ret

Func_3794: ; 3794 (0:3794)
	ld a, $04
Func_3796: ; 3796 (0:3796)
	farcall Func_f4009
	ret

Func_379b: ; 379b (0:379b)
	farcall Func_f401b
	ret

Func_37a0: ; 37a0 (0:37a0)
	farcall Func_f401e
	ret
; 0x37a5

INCBIN "baserom.gbc",$37a5,$380e - $37a5

Func_380e: ; 380e (0:380e)
	ld a, [$d0c1]
	bit 7, a
	ret nz
	ld a, [hBankROM]
	push af
	ld a, BANK(Func_c484)
	call BankswitchHome
	call Func_c484
	call Func_c554
	ld a, BANK(Func_1c610)
	call BankswitchHome
	call Func_1c610
	call Func_3cb4
	ld a, BANK(Func_804d8)
	call BankswitchHome
	call Func_804d8
	call Func_089b
	pop af
	call BankswitchHome
	ret

Func_383d: ; 383d (0:383d)
	ld a, $1
	ld [wCounterEnable], a
	ld a, [hBankROM]
	push af
.asm_3845
	call Func_3855
	jr nc, .asm_3850
	farcall LoadMap
	jr .asm_3845
.asm_3850
	pop af
	call BankswitchHome
	ret

Func_3855: ; 3855 (0:3855)
	ld a, [$d0b5]
	cp $7
	jr c, .asm_385e
	ld a, $6
.asm_385e
	ld hl, PointerTable_3864
	jp JumpToFunctionInTable

PointerTable_3864: ; 3864 (0:3864)
	dw Func_3874
	dw Func_38c0
	dw Func_38a3
	dw Func_3876
	dw Credits_3911
	dw Func_38fb
	dw Func_38db
	dw Func_3874

Func_3874: ; 3874 (0:3874)
	scf
	ret

Func_3876: ; 3876 (0:3876)
	ld a, [hBankROM]
	push af
	call Func_379b
	ld a, MUSIC_CARDPOP
	call PlaySong
	ld a, $3
	ld [$d0c2], a
	ld a, [$d10e]
	or $10
	ld [$d10e], a
	farcall Func_b177
	ld a, [$d10e]
	and $ef
	ld [$d10e], a
	call Func_37a0
	pop af
	call BankswitchHome
	scf
	ret

Func_38a3: ; 38a3 (0:38a3)
	ld a, $2
	ld [$d0c2], a
	xor a
	ld [$d112], a
	ld a, $ff
	ld [$d0c3], a
	ld a, $2
	ld [$cc1a], a
	ld a, MUSIC_CARDPOP
	call PlaySong
	bank1call Func_758f
	scf
	ret

Func_38c0: ; 38c0 (0:38c0)
	ld a, $1
	ld [$d0c2], a
	xor a
	ld [$d112], a
	call EnableExtRAM
	xor a
	ld [$ba44], a
	call DisableExtRAM
	call Func_3a3b
	bank1call Duel_Start
	scf
	ret

Func_38db: ; 38db (0:38db)
	ld a, $6
	ld [$d111], a
	call Func_39fc
	call EnableExtRAM
	xor a
	ld [$ba44], a
	call DisableExtRAM
asm_38ed
	farcall Func_131d3
	ld a, $9
	ld [$d111], a
	call Func_39fc
	scf
	ret

Func_38fb: ; 38fb (0:38fb)
	xor a
	ld [$d112], a
	bank1call Func_406f
	call EnableExtRAM
	ld a, [$ba44]
	call DisableExtRAM
	cp $ff
	jr z, asm_38ed
	scf
	ret

Credits_3911: ; 3911 (0:3911)
	farcall Credits_1d6ad
	or a
	ret
; 0x3917

INCBIN "baserom.gbc",$3917,$3927 - $3917

Func_3927: ; 3927 (0:3927)
	push hl
	call Func_3946
	ld a, [hl]
	pop hl
	ret
; 0x392e

INCBIN "baserom.gbc",$392e,$3946 - $392e

Func_3946: ; 3946 (0:3946)
	push bc
	srl b
	srl c
	swap c
	ld a, c
	and $f0
	or b
	ld c, a
	ld b, $0
	ld hl, $d133
	add hl, bc
	pop bc
	ret

Func_395a: ; 395a (0:395a)
	ld a, [hBankROM]
	push af
	ld a, [$d4c6]
	call BankswitchHome
	call CopyGfxData
	pop af
	call BankswitchHome
	ret

Unknown_396b: ; 396b (0:396b)
INCBIN "baserom.gbc",$396b,$3973 - $396b

Unknown_3973: ; 3973 (0:3973)
INCBIN "baserom.gbc",$3973,$397b - $3973

Unknown_397b: ; 397b (0:397b)
INCBIN "baserom.gbc",$397b,$3997 - $397b

Func_3997: ; 3997 (0:3997)
	ld a, [hBankROM]
	push af
	ld a, BANK(Func_1c056)
	call BankswitchHome
	call Func_1c056
	pop af
	call BankswitchHome
	ret
; 0x39a7

INCBIN "baserom.gbc",$39a7,$39ad - $39a7

Func_39ad: ; 39ad (0:39ad)
	push bc
	cp $8
	jr c, .asm_39b4
	rst $38
	xor a
.asm_39b4
	add a
	add a
	ld h, a
	add a
	add h
	add l
	ld l, a
	ld h, $0
	ld bc, $d34a
	add hl, bc
	pop bc
	ret

Func_39c3: ; 39c3 (0:39c3)
	push hl
	push bc
	push de
	xor a
	ld [$d3aa], a
	ld b, a
	ld c, $8
	ld de, $000c
	ld hl, $d34a
	ld a, [$d3ab]
.asm_39d6
	cp [hl]
	jr z, .asm_39e1
	add hl, de
	inc b
	dec c
	jr nz, .asm_39d6
	scf
	jr z, .asm_39e6
.asm_39e1
	ld a, b
	ld [$d3aa], a
	or a
.asm_39e6
	pop de
	pop bc
	pop hl
	ret
; 0x39ea

INCBIN "baserom.gbc",$39ea,$39fc - $39ea

Func_39fc: ; 39fc (0:39fc)
	push hl
	push bc
	call Func_378a
	or a
	push af
	call Func_3a1f
	ld c, a
	pop af
	jr z, .asm_3a11
	ld a, c
	ld hl, $d112
	cp [hl]
	jr z, .asm_3a1c
.asm_3a11
	ld a, c
	cp $1f
	jr nc, .asm_3a1c
	ld [$d112], a
	call PlaySong
.asm_3a1c
	pop bc
	pop hl
	ret

Func_3a1f: ; 3a1f (0:3a1f)
	ld a, [$d3b8]
	or a
	jr z, .asm_3a37
	ld a, [$d32e]
	cp $2
	jr z, .asm_3a37
	cp $b
	jr z, .asm_3a37
	cp $c
	jr z, .asm_3a37
	ld a, MUSIC_RONALD
	ret
.asm_3a37
	ld a, [$d111]
	ret

Func_3a3b: ; 3a3b (0:3a3b)
	farcall Func_1124d
	ret

Func_3a40: ; 3a40 (0:3a40)
	farcall Func_11430
	ret
; 0x3a45

INCBIN "baserom.gbc",$3a45,$3a5e - $3a45

Func_3a5e: ; 3a5e (0:3a5e)
	ld a, [hBankROM]
	push af
	ld l, $4
	call Func_3abd
	jr nc, .asm_3ab3
	ld a, BANK(Func_c653)
	call BankswitchHome
	call Func_c653
	ld a, $4
	call BankswitchHome
	ld a, [$d334]
	ld d, a
.asm_3a79
	ld a, [hli]
	bit 7, a
	jr nz, .asm_3ab3
	push bc
	push hl
	cp d
	jr nz, .asm_3aab
	ld a, [hli]
	cp b
	jr nz, .asm_3aab
	ld a, [hli]
	cp c
	jr nz, .asm_3aab
	ld a, [hli]
	ld [$d0c6], a
	ld a, [hli]
	ld [$d0c7], a
	ld a, [hli]
	ld [$d0ca], a
	ld a, [hli]
	ld [$d0cb], a
	ld a, [hli]
	ld [$d0c8], a
	ld a, [hli]
	ld [$d0c9], a
	pop hl
	pop bc
	pop af
	call BankswitchHome
	scf
	ret
.asm_3aab
	pop hl
	ld bc, $0008
	add hl, bc
	pop bc
	jr .asm_3a79
.asm_3ab3
	pop af
	call BankswitchHome
	ld l, $6
	call $49c2
	ret

Func_3abd: ; 3abd (0:3abd)
	push bc
	push hl
	ld a, [wCurMap]
	ld l, a
	ld h, $0
	add hl, hl
	add hl, hl
	add hl, hl
	add hl, hl
	ld bc, MapScripts
	add hl, bc
	pop bc
	ld b, $0
	add hl, bc
	ld a, [hBankROM]
	push af
	ld a, BANK(MapScripts)
	call BankswitchHome
	ld a, [hli]
	ld h, [hl]
	ld l, a
	pop af
	call BankswitchHome
	ld a, l
	or h
	jr nz, .asm_3ae5
	scf
.asm_3ae5
	ccf
	pop bc
	ret
; 0x3ae8

INCBIN "baserom.gbc",$3ae8,$3aed - $3ae8

Func_3aed: ; 3aed (0:3aed)
	ld hl, $d413
	ld a, [hli]
	ld h, [hl]
	ld l, a
	ld a, [hli]
	ld c, [hl]
	inc hl
	ld b, [hl]
	push bc
	rlca
	ld c, a
	ld b, $0
	ld hl, Unknown_1217b
	add hl, bc
	ld a, [hBankROM]
	push af
	ld a, BANK(Unknown_1217b)
	call BankswitchHome
	ld a, [hli]
	ld h, [hl]
	ld l, a
	pop af
	call BankswitchHome
	pop bc
	jp [hl]
; 0x3b11

INCBIN "baserom.gbc",$3b11,$3bd2 - $3b11

Func_3bd2: ; 3bd2 (0:3bd2)
	ld a, l
	ld [$cad3], a
	ld a, h
	ld [$cad4], a
	ret

Func_3bdb: ; 3bdb (0:3bdb)
	push hl
	ld hl, $0000
	call Func_3bd2
	pop hl
	ret
; 0x3be4

INCBIN "baserom.gbc",$3be4,$3bf5 - $3be4

Func_3bf5: ; 3bf5 (0:3bf5)
	ld a, [hBankROM]
	push af
	push hl
	ld a, [$d4c6]
	call BankswitchHome
	ld a, [$d4c4]
	ld l, a
	ld a, [$d4c5]
	ld h, a
	call CopyData_SaveRegisters
	pop hl
	pop af
	call BankswitchHome
	ret
; 0x3c10

INCBIN "baserom.gbc",$3c10,$3c45 - $3c10

Func_3c45: ; 3c45 (0:3c45)
	jp [hl]
; 0x3c46

INCBIN "baserom.gbc",$3c46,$3c48 - $3c46

Func_3c48: ; 3c48 (0:3c48)
	push af
	ld a, [rLCDC]
	bit 7, a
	jr z, .asm_3c58
	push bc
	push de
	push hl
	call Func_053f
	pop hl
	pop de
	pop bc
.asm_3c58
	pop af
	ret

Func_3c5a: ; 3c5a (0:3c5a)
	ld hl, $0000
	rl c
	rl b
	ld a, $10
.asm_3c63
	ld [$ffb6], a
	rl l
	rl h
	push hl
	ld a, l
	sub e
	ld l, a
	ld a, h
	sbc d
	ccf
	jr nc, .asm_3c78
	ld h, a
	add sp, $2
	scf
	jr .asm_3c79
.asm_3c78
	pop hl
.asm_3c79
	rl c
	rl b
	ld a, [$ffb6]
	dec a
	jr nz, .asm_3c63
	ret
; 0x3c83

INCBIN "baserom.gbc",$3c83,$3ca0 - $3c83

Func_3ca0: ; 3ca0 (0:3ca0)
	xor a
	ld [$d5d7], a
	ld a, [hBankROM]
	push af
	ld a, BANK(Func_1296e)
	call BankswitchHome
	call Func_1296e
	pop af
	call BankswitchHome
	ret

Func_3cb4: ; 3cb4 (0:3cb4)
	ld a, [hBankROM]
	push af
	ld a, BANK(Func_12a21)
	call BankswitchHome
	call Func_12a21
	pop af
	call BankswitchHome
	ret
; 0x3cc4

INCBIN "baserom.gbc",$3cc4,$3d72 - $3cc4

Func_3d72: ; 3d72 (0:3d72)
	ld a, [hBankROM]
	push af
	push hl
	push hl
	ld a, [$d4ca]
	cp $ff
	jr nz, .asm_3d84
	ld de, Unknown_80e5a
	xor a
	jr .asm_3da1
.asm_3d84
	ld a, [$d4c4]
	ld l, a
	ld a, [$d4c5]
	ld h, a
	ld a, [$d4c6]
	call BankswitchHome
	ld a, [hli]
	push af
	ld a, [$d4ca]
	rlca
	ld e, [hl]
	add e
	ld e, a
	inc hl
	ld a, [hl]
	adc $0
	ld d, a
	pop af
.asm_3da1
	add BANK(Unknown_80e5a)
	pop hl
	ld bc, $000b
	add hl, bc
	ld [hli], a
	call BankswitchHome
	ld a, [de]
	ld [hli], a
	inc de
	ld a, [de]
	ld [hl], a
	pop hl
	pop af
	call BankswitchHome
	ret

Func_3db7: ; 3db7 (0:3db7)
	push bc
	ld c, $0
	call Func_3dbf
	pop bc
	ret

Func_3dbf: ; 3dbf (0:3dbf)
	ld a, [$d4cf]
	cp $10
	jr c, .asm_3dc9
	rst $38
	ld a, $f
.asm_3dc9
	push bc
	swap a
	push af
	and $f
	ld b, a
	pop af
	and $f0
	or c
	ld c, a
	ld hl, $d4d0
	add hl, bc
	pop bc
	ret
; 0x3ddb

INCBIN "baserom.gbc",$3ddb,$3df3 - $3ddb

Func_3df3: ; 3df3 (0:3df3)
	push af
	ld a, [hBankROM]
	push af
	push hl
	ld a, BANK(Func_12c7f)
	call BankswitchHome
	ld hl, [sp+$5]
	ld a, [hl]
	call Func_12c7f
	call Func_0404
	pop hl
	pop af
	call BankswitchHome
	pop af
	ld a, [$d61b]
	ret
; 0x3e10

INCBIN "baserom.gbc",$3e10,$3e17 - $3e10

Func_3e17: ; 3e17 (0:3e17)
	ld [$d131], a
	ld a, [hBankROM]
	push af
	ld a, $4
	call BankswitchHome
	call $6fc6
	pop af
	call BankswitchHome
	ret

Func_3e2a: ; 3e2a (0:3e2a)
	ld [$d61e], a
	ld a, $63
	jr Func_3e17
; 0x3e31

INCBIN "baserom.gbc",$3e31,$3fe0 - $3e31

; jumps to 3f:hl
Bankswitch3dTo3f:: ; 3fe0 (0:3fe0)
	push af
	ld a, $3f
	ld [hBankROM], a
	ld [MBC3RomBank], a
	pop af
	ld bc, Bankswitch3d
	push bc
	jp [hl]

Bankswitch3d: ; 3fe0 (0:3fe0)
	ld a, $3d
	ld [hBankROM], a
	ld [MBC3RomBank], a
	ret

rept $a
db $ff
endr