Программирование на встроенном ассамблере в среде Турбо Паскаль 7.0 - Assembler

Формулировка задачи:

Здравствуйте. Нужно 2.Написать процедуру на языке Паскаль с ассемблерной вставкой выполняющей над двухбайтовыми переменными X1, X2, X3, X4 следующие действия: 1. Умножение двухбайтовых слов Х1*X2; 3. Сохранение результата в регистровой паре BX:CX; ... Получить результат для следующих значений переменных: Х1= 300 , Х2= 200 , Х3=-32000 , Х4=8000

program P_asm;
var
a,b: INTEGER;
 
function ALU(X1,X2:INTEGER):Integer; Assembler;
asm
MOV AX,X1
MOV BX,X2
IMUL BX
end;
begin;
readln(a,b);
writeln('pezyltat:',ALU(a,b));
readln;
end.

200*300 ну никак умножить не получается. Нужно умножать числа частями, а потом складывать?

Решение задачи: «Программирование на встроенном ассамблере в среде Турбо Паскаль 7.0»

Листинг программы

{$A+,B-,D+,E+,F-,G+,I-,L+,N+,O-,P+,Q-,R-,S-,T-,V-,X+,Y+}
program P_asm;
var
a,b: INTEGER;
 
function ALU(X1,X2:INTEGER):longInt; 
begin
asm
    MOV AX,X1
    MOV BX,X2
    IMUL    BX
    mov word ptr @result, ax
    mov word ptr @result+2, dx
end;
end;
begin;
readln(a,b);
writeln('pezyltat:',ALU(a,b));
readln;
end.

Объяснение кода листинга программы

Программа использует ассемблерный блок для выполнения операции умножения двух целых чисел.
Функция ALU принимает два целых числа в качестве входных параметров.
Ассемблерный блок начинается с перемещения первого числа в регистр AX и второго числа в регистр BX.
Затем происходит операция умножения двух чисел, используя инструкцию IMUL.
Результат операции сохраняется в двухбайтовой переменной в памяти, на которую указывает параметр @result.
Затем результат операции сохраняется в переменной результата функции.
После выполнения ассемблерного блока, управление возвращается обратно в Паскаль, где происходит чтение двух целых чисел с помощью функции readln.
Затем вызывается функция ALU с этими двумя числами, и результат выводится на консоль с помощью функции writeln.
Наконец, программа завершается с помощью инструкции readln, которая ожидает нажатия клавиши перед завершением программы.