Sepia proc wsk: DWORD, do:DWORD
pushad

mov esi, wsk
mov ecx, wsk
add ecx, do

assume esi:ptr byte

petla:
xor eax,eax
xor ebx,ebx
xor edx, edx

mov al, [esi]
mov bl, [esi+1]
add eax, ebx
mov bl, [esi+2]
add eax, ebx
mov ebx, 3
div ebx

mov ebx, eax
add ebx, 40

.if ebx > 255
mov [esi+2], 255
.elseif
mov [esi+2], bl
.endif

xor ebx, ebx
mov ebx, eax
add ebx, 20

.if ebx > 255
mov [esi+1], 255
.elseif
mov [esi+1], bl
.endif

xor ebx, ebx
mov ebx, eax
.if ebx < 30
mov [esi], 0
.elseif
sub ebx, 30
mov [esi], bl
.endif



add esi, 3
cmp ecx, esi
ja petla
koniec:
popad
ret


Sepia endp