Buscar por:

Implementando rotinas assembly em pascal

Código

{ O Delphi permite a implementação de rotinas assembly mescladas ao código Pascal. Não entrarei em detalhes minuciosos, mas darei alguns exemplos básicos de como implementar rotinas simples que retornam números inteiros.} { Soma dois inteiros de 8 bits }

function Soma8(X, Y: byte): byte;

asm

  mov al, &X

  add al, &Y

end;  

{ Soma dois inteiros de 16 bits }

function Soma16(X, Y: Word): Word;

asm

  mov ax, &X

  add ax, &Y

end;  

{ Soma dois inteiros de 32 bits }

function Soma32(X, Y: DWord): DWord;

asm

  mov eax, &X

  add eax, &Y

end;  

{ A chamada a estas funções são feitas da mesma forma que chamamos uma função Pascal. Exemplo: }

var

  A: byte;

begin

  A := Soma8(30, 25); { A = 55 }

end;