размытие изображения

[Лилиана1992]

наткнулась в одном из сайтов , вот на такой кусок кода. объясните пж для чего нам код на ассемблере?
function Set255(Clr : integer) : integer;
asm
MOV EAX,Clr
CMP EAX,254
JG @SETHI
CMP EAX,1
JL @SETLO
RET
@SETHI:
MOV EAX,255
RET
@SETLO:
MOV EAX,02;
tBufr.Height:=aBmp.Height+2;
tBufr.PixelFormat := pf24bit;
O := tBufr.ScanLine[0];
T := aBmp.ScanLine[0];
O[0] := T[0];
O[tBufr.Width - 1] := T[aBmp.Width - 1];
tBufr.Canvas.CopyRect(RECT(1,0,tBuf r.Width - 1,1),aBmp.Canvas,
RECT(0,aBmp.Height - 1,aBmp.Width,aBmp.Height-2));
O := tBufr.ScanLine[tBufr.Height - 1];
T := aBmp.ScanLine[aBmp.Height - 1];
O[0] := T[0];
O[tBufr.Width - 1] := T[aBmp.Width - 1];
tBufr.Canvas.CopyRect(RECT(1,tBufr. Height-1,tBufr.Width - 1,tBufr.Height),
aBmp.Canvas,RECT(0,0,aBmp.Width,1)) ;
tBufr.Canvas.CopyRect(RECT(tBufr.Wi dth-1,1,tBufr.Width,tBufr.Height-1),
aBmp.Canvas,RECT(0,0,1,aBmp.Height) );
tBufr.Canvas.CopyRect(RECT(0,1,1,tB ufr.Height-1),
aBmp.Canvas,RECT(aBmp.Width - 1,0,aBmp.Width,aBmp.Height));
tBufr.Canvas.CopyRect(RECT(1,1,tBuf r.Width - 1,tBufr.Height - 1),
aBmp.Canvas,RECT(0,0,aBmp.Width,aBm p.Height));
for x := 0 to aBmp.Height - 1 do begin
O := aBmp.ScanLine[x];
T := tBufr.ScanLine[x];
C := tBufr.ScanLine[x+1];
B := tBufr.ScanLine[x+2];
for y := 1 to (tBufr.Width - 2) do begin
O[y-1].rgbtRed := Set255(
((T[y-1].rgbtRed*ray[0]) +
(T[y].rgbtRed*ray[1]) + (T[y+1].rgbtRed*ray[2]) +
(C[y-1].rgbtRed*ray[3]) +
(C[y].rgbtRed*ray[4]) + (C[y+1].rgbtRed*ray[5])+
(B[y-1].rgbtRed*ray[6]) +
(B[y].rgbtRed*ray[7]) + (B[y+1].rgbtRed*ray[8])) div z
);
O[y-1].rgbtBlue := Set255(
((T[y-1].rgbtBlue*ray[0]) +
(T[y].rgbtBlue*ray[1]) + (T[y+1].rgbtBlue*ray[2]) +
(C[y-1].rgbtBlue*ray[3]) +
(C[y].rgbtBlue*ray[4]) + (C[y+1].rgbtBlue*ray[5])+
(B[y-1].rgbtBlue*ray[6]) +
(B[y].rgbtBlue*ray[7]) + (B[y+1].rgbtBlue*ray[8])) div z
);
O[y-1].rgbtGreen := Set255(
((T[y-1].rgbtGreen*ray[0]) +
(T[y].rgbtGreen*ray[1]) + (T[y+1].rgbtGreen*ray[2]) +
(C[y-1].rgbtGreen*ray[3]) +
(C[y].rgbtGreen*ray[4]) + (C[y+1].rgbtGreen*ray[5])+
(B[y-1].rgbtGreen*ray[6]) +
(B[y].rgbtGreen*ray[7]) + (B[y+1].rgbtGreen*ray[8])) div z
);
end;
end;
tBufr.Free;
end;

[x128]

Этот код не полный и/или не правильно скопирован, ерунда какая-то... Что касается ассемблера, это контроль диапазона значений, на паскале это будет выглядеть так:

function Set255(Clr : integer) : integer;
begin
  Result:=Clr;
  if Clr>254 then Result:=255;
  if Clr<1 then Result:=2;
end;

Хотя, судя по названию функции и по логике, значение передаваемое в функцию должно приводиться к диапазону 0..255. Для чего тут ассемблер, для меня загадка, смысла в этом нет.