ref: 553a272e52182d0a0869a3cca420a6c6f826804e
dir: /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, wShadowOAM 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