pokecrystal/mobile/mobile_5b.asm

Function16c000: ; unreferenced
	; Only for CGB
	ldh a, [hCGB]
	and a
	ret z
	; Only do this once per boot cycle
	ldh a, [hSystemBooted]
	and a
	ret z
	; Disable the joypad during mobile setup
	ld a, [wJoypadDisable]
	push af
	set JOYPAD_DISABLE_SGB_TRANSFER_F, a
	ld [wJoypadDisable], a
	; Do stuff
	call MobileSystemSplashScreen_InitGFX ; Load GFX
	farcall SetRAMStateForMobile
	farcall EnableMobile
	call .RunJumptable
	farcall DisableMobile
	; Prevent this routine from running again
	; until the next time the system is turned on
	xor a
	ldh [hSystemBooted], a
	; Restore the flag state
	pop af
	ld [wJoypadDisable], a
	ret

.RunJumptable:
	xor a
	ld [wJumptableIndex], a
	ld [wcf64], a
	ld [wd002], a
	ld [wd003], a
.loop
	call DelayFrame
	farcall Function10635c
	ld a, [wd002]
	ld hl, .Jumptable
	rst JumpTable
	call Function16cb2e
	call Function16cbae
	ld a, [wd002]
	cp $ff
	jr nz, .loop
	ret

.Jumptable:
	dw .init
	dw Function16c0ba
	dw Function16c089
	dw Function16c09e
	dw Function16c0a8
	dw Function16c0dc
	dw Function16c0ec
	dw Function16c0ba
	dw Function16c0ca
	dw Function16c0dc
	dw Function16c0ec
	dw .quit

.init
	ld a, [wcf64]
	and a
	ret z
	ld [wd002], a
	xor a
	ld [wd003], a
	ret

.quit
	push af
	ld a, $ff
	ld [wd002], a
	pop af
	ret

Function16c089:
	ld a, $1
	ld [wd1eb], a
	ld [wd1f1], a
	xor a
	ldh [hWY], a
	call Function16c0fa
	ld a, [wd002]
	ld [wcf64], a
	ret

Function16c09e:
	ld a, [wcf64]
	cp $4
	ret nz
	call Function16c0fa
	ret

Function16c0a8:
	xor a
	ld [wd1eb], a
	ld [wd1f1], a
	call ClearSprites
	ld a, $90
	ldh [hWY], a
	call Function16c0fa
	ret

Function16c0ba:
	call Function16c943
	push af
	ld a, [wd003]
	inc a
	ld [wd003], a
	pop af
	call c, Function16c0fa
	ret

Function16c0ca:
	ld a, [wd003]
	cp $28
	push af
	ld a, [wd003]
	inc a
	ld [wd003], a
	pop af
	call z, Function16c0fa
	ret

Function16c0dc:
	call Function16ca11
	push af
	ld a, [wd003]
	inc a
	ld [wd003], a
	pop af
	call c, Function16c0fa
	ret

Function16c0ec:
	call ClearBGPalettes
	call ClearScreen
	push af
	ld a, $ff
	ld [wd002], a
	pop af
	ret

Function16c0fa:
	push af
	ld a, [wd002]
	inc a
	ld [wd002], a
	xor a
	ld [wd003], a
	pop af
	ret

MobileSystemSplashScreen_InitGFX:
	call DisableLCD
	ld hl, vTiles2
	ld de, .Tiles
	lb bc, BANK(.Tiles), 104
	call Get2bpp
	call .LoadPals
	call .LoadTilemap
	call .LoadAttrmap
	hlbgcoord 0, 0
	call Function16cc73
	call Function16cc02
	xor a
	ldh [hBGMapMode], a
	call EnableLCD
	ret

.LoadPals:
	ld de, wBGPals1
	ld hl, MobileSplashScreenPalettes
	ld bc, 8
	ld a, $5
	call FarCopyWRAM
	farcall ApplyPals
	ret

.LoadTilemap:
	hlcoord 0, 0
	ld bc, 20
	xor a
	call ByteFill
	ld hl, .Tilemap
	decoord 0, 1
	ld bc, $0154
	call CopyBytes
	ret

.LoadAttrmap:
	hlcoord 0, 0, wAttrmap
	ld bc, SCREEN_WIDTH
	xor a
	call ByteFill
	ld hl, .Attrmap
	decoord 0, 1, wAttrmap
	ld bc, 17 * SCREEN_WIDTH
	call CopyBytes
	ret

.Tiles:
INCBIN "gfx/mobile/mobile_splash.2bpp"

.Tilemap:
INCBIN "gfx/mobile/mobile_splash.tilemap"

.Attrmap:
INCBIN "gfx/mobile/mobile_splash.attrmap"

MobileSplashScreenPalettes:
INCLUDE "gfx/mobile/mobile_splash.pal"

Function16c943:
	ld a, [wd003]
	and a
	jr nz, .asm_16c95e
	ldh a, [rSVBK]
	push af
	ld a, $5
	ldh [rSVBK], a
	ld a, $ff
	ld bc, 1 palettes
	ld hl, wBGPals1
	call ByteFill
	pop af
	ldh [rSVBK], a

.asm_16c95e
	ldh a, [rSVBK]
	push af
	ld a, $5
	ldh [rSVBK], a
	ld e, $0
	ld a, $0
.asm_16c969
	ld hl, MobileSplashScreenPalettes
	call Function16cab6
	call Function16cabb
	ld d, a
	ld hl, wBGPals1
	call Function16cab6
	call Function16cabb
	cp d
	jr z, .asm_16c991
	ld b, $1
.asm_16c981
	dec a
	cp d
	jr z, .asm_16c988
	dec b
	jr nz, .asm_16c981

.asm_16c988
	ld hl, wBGPals1
	call Function16cab6
	call Function16cadc

.asm_16c991
	ld hl, MobileSplashScreenPalettes
	call Function16cab6
	call Function16cad8
	ld d, a
	ld hl, wBGPals1
	call Function16cab6
	call Function16cad8
	cp d
	jr z, .asm_16c9b9
	ld b, $1
.asm_16c9a9
	dec a
	cp d
	jr z, .asm_16c9b0
	dec b
	jr nz, .asm_16c9a9

.asm_16c9b0
	ld hl, wBGPals1
	call Function16cab6
	call Function16cb08

.asm_16c9b9
	ld hl, MobileSplashScreenPalettes
	call Function16cab6
	call Function16cac4
	ld d, a
	ld hl, wBGPals1
	call Function16cab6
	call Function16cac4
	cp d
	jr z, .asm_16c9e1
	ld b, $1
.asm_16c9d1
	dec a
	cp d
	jr z, .asm_16c9d8
	dec b
	jr nz, .asm_16c9d1

.asm_16c9d8
	ld hl, wBGPals1
	call Function16cab6
	call Function16cae8

.asm_16c9e1
	inc e
	inc e
	ld a, e
	cp $8
	jr nz, .asm_16c969
	farcall ApplyPals
	call SetPalettes
	ldh a, [rSVBK]
	push af
	ld a, $1
	ldh [rSVBK], a
	ld a, [wd003]
	cp $1f
	jr z, .asm_16ca09
	pop af
	ldh [rSVBK], a
	ld e, $0
	pop af
	ldh [rSVBK], a
	and a
	ret

.asm_16ca09
	pop af
	ldh [rSVBK], a
	pop af
	ldh [rSVBK], a
	scf
	ret

Function16ca11:
	ld a, [wd003]
	and a
	jr nz, .asm_16ca1d
	farcall ApplyPals

.asm_16ca1d
	ldh a, [rSVBK]
	push af
	ld a, $5
	ldh [rSVBK], a
	ld e, $0
	ld a, $0
.asm_16ca28
	ld hl, wBGPals1
	call Function16cab6
	call Function16cabb
	cp $1f
	jr z, .asm_16ca48
	ld b, $1
.asm_16ca37
	inc a
	cp $1f
	jr z, .asm_16ca3f
	dec b
	jr nz, .asm_16ca37

.asm_16ca3f
	ld hl, wBGPals1
	call Function16cab6
	call Function16cadc

.asm_16ca48
	ld hl, wBGPals1
	call Function16cab6
	call Function16cad8
	cp $1f
	jr z, .asm_16ca68
	ld b, $1
.asm_16ca57
	inc a
	cp $1f
	jr z, .asm_16ca5f
	dec b
	jr nz, .asm_16ca57

.asm_16ca5f
	ld hl, wBGPals1
	call Function16cab6
	call Function16cb08

.asm_16ca68
	ld hl, wBGPals1
	call Function16cab6
	call Function16cac4
	cp $1f
	jr z, .asm_16ca88
	ld b, $1
.asm_16ca77
	inc a
	cp $1f
	jr z, .asm_16ca7f
	dec b
	jr nz, .asm_16ca77

.asm_16ca7f
	ld hl, wBGPals1
	call Function16cab6
	call Function16cae8

.asm_16ca88
	inc e
	inc e
	ld a, e
	cp $8
	jr nz, .asm_16ca28
	farcall ApplyPals
	call SetPalettes
	ldh a, [rSVBK]
	push af
	ld a, $1
	ldh [rSVBK], a
	ld a, [wd003]
	cp $1f
	jr z, .asm_16caae
	pop af
	ldh [rSVBK], a
	pop af
	ldh [rSVBK], a
	and a
	ret

.asm_16caae
	pop af
	ldh [rSVBK], a
	pop af
	ldh [rSVBK], a
	scf
	ret

Function16cab6:
	ld b, $0
	ld c, e
	add hl, bc
	ret

Function16cabb:
	inc hl
	ld a, [hl]
	srl a
	srl a
	and $1f
	ret

Function16cac4:
	inc hl
	ld a, [hld]
	and $3
	ld b, a
	ld a, [hl]
	sla a
	rl b
	sla a
	rl b
	sla a
	rl b
	ld a, b
	ret

Function16cad8:
	ld a, [hl]
	and $1f
	ret

Function16cadc:
	sla a
	sla a
	ld b, a
	inc hl
	ld a, [hl]
	and $83
	or b
	ld [hl], a
	ret

Function16cae8:
	ld c, a
	srl a
	srl a
	srl a
	ld b, a
	inc hl
	ld a, [hl]
	and $fc
	or b
	ld [hld], a
	ld a, c
	sla a
	sla a
	sla a
	sla a
	sla a
	ld b, a
	ld a, [hl]
	and $1f
	or b
	ld [hl], a
	ret

Function16cb08:
	ld b, a
	ld a, [hl]
	and $e0
	or b
	ld [hl], a
	ret

Function16cb0f:
	xor a
	ld [wd1ea], a
	ld [wd1eb], a
	xor a
	ld [wd1ec], a
	ld a, $70
	ld [wd1ee], a
	ld a, $4
	ld [wd1ed], a
	ld a, $a0
	ld [wd1ef], a
	xor a
	ld [wd1f0], a
	ret

Function16cb2e:
	ld a, [wd1eb]
	and a
	ret z
	call Function16cb40
	ld hl, Unknown_16cb86
	ld de, wVirtualOAM
	call Function16cb5d
	ret

Function16cb40:
	ld hl, wd1ec
	inc [hl]
	ld a, [hl]
	cp $18
	ret c
	xor a
	ld [hl], a
	ld a, [wd1ef]
	cp $a0
	jr nz, .asm_16cb57
	ld a, $a7
	ld [wd1ef], a
	ret

.asm_16cb57
	ld a, $a0
	ld [wd1ef], a
	ret

Function16cb5d:
	ld a, [hli]
	and a
	ret z
.asm_16cb60
	push af
	ld a, [wd1ee]
	add [hl]
	add $10
	ld [de], a
	inc hl
	inc de
	ld a, [wd1ed]
	add [hl]
	add $8
	ld [de], a
	inc hl
	inc de
	ld a, [wd1ef]
	add [hl]
	ld [de], a
	inc hl
	inc de
	ld a, [wd1f0]
	or [hl]
	ld [de], a
	inc hl
	inc de
	pop af
	dec a
	jr nz, .asm_16cb60
	ret

Unknown_16cb86:
	db 7
	db  0,  0, 0, 1
	db  8,  0, 1, 1
	db  8,  8, 2, 0
	db  8, 16, 3, 0
	db 16,  0, 4, 1
	db 16,  8, 5, 0
	db 16, 16, 6, 0

Function16cba3:
	xor a
	ld [wd1f1], a
	ld [wd1f2], a
	ld [wd1f3], a
	ret

Function16cbae:
	ld a, [wd1f1]
	and a
	ret z
	call Function16cbba
	call Function16cbd1
	ret

Function16cbba:
	ld hl, wd1f2
	inc [hl]
	ld a, [hl]
	cp $c
	ret c
	xor a
	ld [hl], a
	ld a, [wd1f3]
	inc a
	cp $4
	jr c, .asm_16cbcd
	xor a

.asm_16cbcd
	ld [wd1f3], a
	ret

Function16cbd1:
	ld a, [wd1f3]
	ld c, a
	ld b, 0
	ld hl, Unknown_16cbfb
	add hl, bc
	ld a, [hl]
	ld bc, 2
	ld hl, Unknown_16cfa3
	call AddNTimes
	ld de, wBGPals1 palette 1 color 2
	ld bc, PAL_COLOR_SIZE
	ld a, $5
	call FarCopyWRAM
	farcall ApplyPals
	ld a, TRUE
	ldh [hCGBPalUpdate], a
	ret

Unknown_16cbfb:
	db 0, 1, 2, 1, 0, 1, 2

Function16cc02:
	call Function16cc18
	call Function16cc49
	call Function16cc62
	call Function16cc25
	call Function16cc6e
	call Function16cb0f
	call Function16cba3
	ret

Function16cc18:
	ld hl, vTiles1
	ld de, MobileAdapterCheckGFX
	lb bc, BANK(MobileAdapterCheckGFX), 46
	call Get2bpp
	ret

Function16cc25:
	ld hl, Unknown_16cfa9
	ld de, wBGPals1 + 1 palettes
	call .CopyPal
	ld hl, Unknown_16cfb1
	ld de, wOBPals1
	call .CopyPal
	ld hl, Unknown_16cfb9
	ld de, wOBPals1 + 1 palettes
	call .CopyPal
	ret

.CopyPal:
	ld bc, 1 palettes
	ld a, $5
	jp FarCopyWRAM

Function16cc49:
	hlcoord 4, 15
	ld a, $80
	call Function16cc5a
	hlcoord 4, 16
	ld a, $90
	call Function16cc5a
	ret

Function16cc5a:
	ld c, $10
.asm_16cc5c
	ld [hli], a
	inc a
	dec c
	jr nz, .asm_16cc5c
	ret

Function16cc62:
	hlcoord 0, 15, wAttrmap
	ld bc, $0028
	ld a, $1
	call ByteFill
	ret

Function16cc6e:
	hlbgcoord 0, 0, vBGMap1
	jr Function16cc73

Function16cc73:
	ldh a, [rVBK]
	push af
	ld a, $0
	ldh [rVBK], a
	push hl
	decoord 0, 0
	call Function16cc90
	pop hl
	ld a, $1
	ldh [rVBK], a
	decoord 0, 0, wAttrmap
	call Function16cc90
	pop af
	ldh [rVBK], a
	ret

Function16cc90:
	ld bc, $1214
.asm_16cc93
	push bc
.asm_16cc94
	ld a, [de]
	inc de
	ld [hli], a
	dec c
	jr nz, .asm_16cc94
	ld bc, $000c
	add hl, bc
	pop bc
	dec b
	jr nz, .asm_16cc93
	ret

MobileAdapterCheckGFX:
INCBIN "gfx/mobile/mobile_splash_check.2bpp"

Unknown_16cfa3:
	RGB 31, 31, 31
	RGB 25, 27, 29
	RGB 16, 19, 25

Unknown_16cfa9:
	RGB 31, 31, 31
	RGB 25, 27, 29
	RGB 31, 31, 31
	RGB 07, 07, 07

Unknown_16cfb1:
	RGB 31, 31, 31
	RGB 13, 09, 18
	RGB 26, 21, 16
	RGB 07, 07, 07

Unknown_16cfb9:
	RGB 31, 31, 31
	RGB 18, 05, 02
	RGB 27, 11, 12
	RGB 07, 07, 07