summaryrefslogtreecommitdiff
path: root/src/engine/home.asm
diff options
context:
space:
mode:
Diffstat (limited to 'src/engine/home.asm')
-rwxr-xr-xsrc/engine/home.asm4851
1 files changed, 4851 insertions, 0 deletions
diff --git a/src/engine/home.asm b/src/engine/home.asm
new file mode 100755
index 0000000..dd06781
--- /dev/null
+++ b/src/engine/home.asm
@@ -0,0 +1,4851 @@
+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
generated by cgit v1.2.3 (git 2.25.1) at 2025-05-05 22:32:15 +0000