{Приводят палитру ADstPalP к ASrcPalP с шагом AStep, в первом
случае уменьшая, во втором - увеличивая. True - если приведено полностью}
Function FadePalInc(ADstPalP, ASrcPalP: TPalP; aStep, aFrom: Byte; aLen: Word): Boolean; Assembler;
Asm
    push ds
    les di,ADstPalP
    lds si,ASrcPalP
    xor ax,ax
    xor bx,bx
    mov al,aFrom
    mov bl,al
    add ax,ax
    add ax,bx
    add di,ax
    add si,ax
    cld
    mov bl,aStep
    mov cx,aLen
    add cx,cx
    add cx,aLen
    mov dh,1
   @FadeLoop:
    mov ah,es:[di]
    add ah,bl
    lodsb
    cmp ah,al
    jnb @Next
    mov al,ah
    xor dh,dh
   @Next:
    stosb 
    loop @FadeLoop
    pop ds
    mov al,dh
End;