Два байта в ворд

[Kronos913]

Можно ли как-то в процедуру передать два байта так, чтобы они зашли в нее как 1 word ?

Не вручную их склеить перед вызовом процедуры, а именно при вызове процедуры

Потому как в процедуру через регистры можно передать ограниченное число параметров, остальные начнут идти через стек - так вот чтобы через регистры прошли две переменные используя 1 и 2 байты регистра как разные переменные

[macomics]

Нельзя. Изучайте тип вызова register. Он предполагает совершенно конкретные местоположения параметров передаваемых в процедуру. Хотя склеивая эти два значения в одно вручную вы можете передать их как один параметр, тогда будет задействован один регистр. Для склеивания можно задействовать записи

type TComplexParam = packed record
  a, b: byte;
end;

...

function GetComplexParam(aValue, bValue: Byte): TComplexParam; inline;
begin
   with Result do begin
      a := aValue; b := bValue;
   end;
end;

procedure MyProc(arg12: TComplexParam); register;
asm
...
end;

procedure OnClick(...);
begin
   MyProc(GetComplexParam(9, 100));
end;

[Kronos913]

Если через дополнительную функцию - можно просто вот так =))

Function TwoByteToWord(const a, b: byte):word;
asm
  mov dl, b
  mov dh, a
  mov result, dx
end;

Но мне кажется, что вызов дополнительной функции съест на себя все, что можно отыграть на уменьшении количества переменных

[macomics]

Если ее сформулировать вот так вот глупо - тогда да. Для уменьшения количества манипуляций надо учитывать тип вызова и механизм ее применения.

function Parg(a, b: byte): word; register; inline;
asm
  mov ah, b
end;

[northener]

Сообщение от Kronos913

Можно ли как-то в процедуру передать два байта так, чтобы они зашли в нее как 1 word ?

Не вручную их склеить перед вызовом процедуры, а именно при вызове процедуры

Можно. По крайней мере двумя разными способами. Либо используя тип record с case, либо используя директиву компилятора absolute