program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
liczba : word;
wynik : word;
begin
writeln('Podaj liczbe: ');
readln(liczba);
asm
mov ax, liczba
mov dx, wynik
mov bx,ax
and bx,$1
add dx,bx
shr ax
mov bx,ax
and bx,$1
add dx,bx
end;
writeln('Reszta z dzielenia przez 4 to: ', wynik);
readln;
end.
Chciałbym obliczyć reszte z czterech, ale wyskakuje następujący komunikat:
Invalid combination of opcode and operands