Minimal fade color

; ---------------------------------------------------------------------------
; Subroutine to minimal fade color
; ---------------------------------------------------------------------------

Pal_MinFade:
        lea     ($FFFFFB1F).w,a1
        move.b  #47,d2

Pal_MainLoop:
        move.b  #$12,($FFFFF62A).w
        bsr.w   DelayProgram
        move.b  (a1)+,d0
        tst.b   d0
        beq.s   Pal_FadeG
        sub.b   #2,d0
        move.b  d0,(a1)

Pal_FadeG:
        move.b  (a1)+,d0
        lsr.b   #4,d0
        tst.b   d0
        beq.s   Pal_FadeR
        sub.b   #2,d0

Pal_FadeR:
        move.b  (a1),d1
        andi.b  #$000E,d1
        tst.b   d1
        beq.s   Pal_FadeGR
        sub.b   #2,d1

Pal_FadeGR:
        lsl.b   #4,d0
        add.b   d1,d0
        move.b  d0,(a1)
        clr.b   d0
        clr.b   d1
        dbf     d2,Pal_MainLoop
        move.b  #$12,($FFFFF62A).w
        bra     DelayProgram