генерация всех возможных значений по xor'у двух байт

[Аватар]

На несколько байт короче и на несколько тактов процессора быстрей? Бешенный успех, бурные аплодисменты

[maloun]

procedure GetXORArray(x:Byte; out res:ByteLenArray); register;
asm
        xor     ecx, ecx
@@loop:
        mov     ah, cl
        xor     ah, al
        mov     [edx+ecx], ah
        inc     cl
        jnz     @@loop
        retn
end;

procedure GetXORArray2(x:Byte; out res:ByteLenArray); register;
var
  i:Byte;
begin
  for i:=0 to 255 do
    res[i]:=i xor x;
end; 

{
50 млн вызовов
время GetXORArray: 8362
время GetXORArray2: 9609
}

что вы имеете против оптимизации?

[Аватар]

что вы имеете против оптимизации?

Ни чего. Наоборот. Только не ASM-ом, разве что в критичных случаях, когда это очень-очень актуально. А здесь, если правильно понял, на 50 млн обращений чуть больше секунды выграли

[galgal]

{$CODEALIGN 16}

procedure Table_Loop; assembler;
asm
  db 0 db 1 db 2 db 3 db 4 db 5 db 6 db 7
  db 8 db 9 db 10 db 11 db 12 db 13 db 14 db 15
  ...
  db 240 db 241 db 242 db 243 db 244 db 245 db 246 db 247
  db 248 db 249 db 250 db 251 db 252 db 253 db 254 db 255
end;

procedure Table_Fill; assembler;
asm
    db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00 db $00
    db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01 db $01
    ...
    db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE db $FE
    db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF db $FF
end;


procedure GetXORArray3(x:Byte; out Ret:ByteLenArray);
asm
        AND     EAX,  $FF
        LEA     ECX,  [Table_Fill+EAX*8]
        MOVAPD  XMM2, [ECX+EAX*8]

        LEA     EAX, [Table_Loop]

        XOR     ECX, ECX
@@loop:
        MOVAPD  XMM0, XMM2

        MOVAPD  XMM1, [EAX+ECX]

        PXOR    XMM0, XMM1

        MOVUPD  [EDX+ECX], XMM0

        ADD     CL, 16
        JNZ     @@loop

        RET
end;

а так - 1300