procedure BlendDataScLineSSSE3(sA, dA: TAddress; dLen: dword; dOpacity: byte);
const
 PExtractAlpha: UInt128 = ($0100010001000100, $0100010001000100); //Для формирования маски умножения Alpha и lpADif
 PQuadAlpha1: UInt128 = ($FF03FF03FF03FF03, $FF07FF07FF07FF07); //Для формирования маски умножения Alpha и lpADif
 PExtractPixel: UInt128 = ($FF03FF02FF01FF00, $FF07FF06FF05FF04); //Формирование маски исходного пиксела
 PClearMask: UInt128 = ($FFFFFFFFFFFFFFFF, $FFFFFFFFFFFFFFFF); //Маска очистки

asm
 xor r10, r10
 mov r10d, dLen //Кол-во пикселей
 movzx r11, r10b //В r11 будет хранится остаток
 shr r10d, 2 //Читаем по 4 пиксела
 and r11, 03h //Сохраняем первые 3 бита, чтобы найти остаток

 mov r8, dA //Адрес назначения

 movdqu xmm6, [rip + PExtractAlpha] //Формирование маски умножения
 movdqu xmm7, [rip + PExtractPixel] //Формирование маски умножения

 test r10, r10 //Проверка на ноль
 jz @@CheckCounter //Quad-пикселов нет

 //Формируем маски очистки из одной
 movdqu xmm12, [rip + PClearMask] //Читаем общую маску очистки
 movdqu xmm8, xmm12 //Для создания маски инверсии
 psrlw xmm8, 8 //Создаем маску инверсии
 psrldq xmm12, 8 //в xmm12 маска очистки 7..0 байтов

 movdqu xmm11, [rip + PQuadAlpha1] //Маска извлечения альфы для первых двух пикселов
 movdqu xmm9, xmm6//PAddOne //Для прибавления единицы
 psrlw xmm9, 8 //Получаем маску прибавления единицы

 movzx r9d, dOpacity //Прозрачность dOpacity
 movd xmm13, r9d
 pshufb xmm13, xmm6 //Транслируем маску прозрачности в слова

function TRegion.PtInRegion(x, y: integer): boolean;
asm
 cmp x, self.rEX
 ja @@Out
 cmp x, self.rX
 jl @@Out
 cmp y, self.rEY
 ja @@Out
 cmp y, self.rY
 jl @@Out
 mov al, 01h
 ret

@@Out:
 xor al, al
end;

lea rax, PExtractAlpha
movdqu xmm6, [rax]

movdqu xmm6, [PExtractAlpha]

movdqu xmm6, [rip + PExtractAlpha]

.noframe