fpArchive - Help converting asm code to pascal for 64bit

[zakiwi]

Hi Guys,

I don't do Assembler and have recently moved to 64 bit, and now the Abbrevia code (fparchive) code won't compile.

Please can one of you bright sparks help me to convert the following assembler code into Pascal, and then I'll update the package with the changes:

Variables:
  Code        : longint;
  CodeLen     : integer;
  TablePtr    : pointer;


Code:
      asm
        push esi
        mov eax, Code
        mov esi, TablePtr
        xor ecx, ecx
        xor edx, edx
        mov cl, ah
        mov dl, al
        mov al, [esi+ecx]
        mov ah, [esi+edx]
        mov ecx, 16
        pop esi
        sub ecx, CodeLen
        shr eax, cl
        mov Code, eax
      end;

Thanks in advance

Zakiwi

[theo]

I think we had that before.
The answer was:

Code: [Select]

Code:=(ByteRevTable[Lo(Word(Lo(Code)))] shl 8 + ByteRevTable[Hi(Word(Lo(Code)))]) shr Lo(Lo(16-Codelen));

[bonmario]

There is a new version updated that can be downloaded?

Hi, Mario

[bonmario]

Hi Guys,

I don't do Assembler and have recently moved to 64 bit, and now the Abbrevia code (fparchive) code won't compile.

Please can one of you bright sparks help me to convert the following assembler code into Pascal, and then I'll update the package with the changes:

Hi, you have converted the abbrevia code for 64 bit? I'm trying but it's non in my ability. You can post the modified sources somewhere, please ?????

Thanks, Mario