ref: 2548f75feba2d9db28cd9e3e286d473ff27120f4
dir: /home/fade.asm/
; Functions to fade the screen in and out. Function48c:: ; 48c ; XXX ; TimeOfDayFade ld a, [TimeOfDayPal] ld b, a ld hl, IncGradGBPalTable_11 ld a, l sub b ld l, a jr nc, .okay dec h .okay ld a, [hli] ld [rBGP], a ld a, [hli] ld [rOBP0], a ld a, [hli] ld [rOBP1], a ret ; 4a3 RotateFourPalettesRight:: ; 4a3 ld a, [hCGB] and a jr z, .dmg ld hl, IncGradGBPalTable_00 ld b, 4 jr RotatePalettesRight .dmg ld hl, IncGradGBPalTable_08 ld b, 4 jr RotatePalettesRight ; 4b6 RotateThreePalettesRight:: ; 4b6 ld a, [hCGB] and a jr z, .dmg ld hl, IncGradGBPalTable_05 ld b, 3 jr RotatePalettesRight .dmg ld hl, IncGradGBPalTable_13 ld b, 3 RotatePalettesRight:: ; 4c7 ; Rotate palettes to the right and fill with loaded colors from the left ; If we're already at the leftmost color, fill with the leftmost color push de ld a, [hli] call DmgToCgbBGPals ld a, [hli] ld e, a ld a, [hli] ld d, a call DmgToCgbObjPals ld c, 8 call DelayFrames pop de dec b jr nz, RotatePalettesRight ret ; 4dd RotateFourPalettesLeft:: ; 4dd ld a, [hCGB] and a jr z, .dmg ld hl, IncGradGBPalTable_04 - 1 ld b, 4 jr RotatePalettesLeft .dmg ld hl, IncGradGBPalTable_12 - 1 ld b, 4 jr RotatePalettesLeft ; 4f0 RotateThreePalettesLeft:: ; 4f0 ld a, [hCGB] and a jr z, .dmg ld hl, IncGradGBPalTable_07 - 1 ld b, 3 jr RotatePalettesLeft .dmg ld hl, IncGradGBPalTable_15 - 1 ld b, 3 RotatePalettesLeft:: ; 501 ; Rotate palettes to the left and fill with loaded colors from the right ; If we're already at the rightmost color, fill with the rightmost color push de ld a, [hld] ld d, a ld a, [hld] ld e, a call DmgToCgbObjPals ld a, [hld] call DmgToCgbBGPals ld c, 8 call DelayFrames pop de dec b jr nz, RotatePalettesLeft ret ; 517 ; 517 IncGradGBPalTable_00:: db %11111111, %11111111, %11111111 IncGradGBPalTable_01:: db %11111110, %11111110, %11111110 IncGradGBPalTable_02:: db %11111001, %11111001, %11111001 IncGradGBPalTable_03:: db %11100100, %11100100, %11100100 IncGradGBPalTable_04:: db %11100100, %11100100, %11100100 IncGradGBPalTable_05:: db %10010000, %10010000, %10010000 IncGradGBPalTable_06:: db %01000000, %01000000, %01000000 IncGradGBPalTable_07:: db %00000000, %00000000, %00000000 ; bgp obp1 obp2 IncGradGBPalTable_08:: db %11111111, %11111111, %11111111 IncGradGBPalTable_09:: db %11111110, %11111110, %11111000 IncGradGBPalTable_10:: db %11111001, %11100100, %11100100 IncGradGBPalTable_11:: db %11100100, %11010000, %11100000 IncGradGBPalTable_12:: db %11100100, %11010000, %11100000 IncGradGBPalTable_13:: db %10010000, %10000000, %10010000 IncGradGBPalTable_14:: db %01000000, %01000000, %01000000 IncGradGBPalTable_15:: db %00000000, %00000000, %00000000 ; 547