Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Приводят палитру 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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement