program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a,b,c,d:Word;
  BYTE1:Byte;
  word1:Word;
  int1:Integer;

(*------------------------------------------------------------------------*)

function add2value(x1:Integer;x2:Integer):Integer ; (*用汇编写的函数*)
asm
  mov eax,x1;
  add eax,x2;
  mov @result,eax;    (* 返回值为 @result *)
end;

(*------------------------------------------------------------------------*)

begin

try
{ TODO -oUser -cConsole Main : Insert code here }
asm
      mov a,'A';
      mov b,'B';
      mov c,'C';
      mov d,'D';

end;
      Writeln(chr(a) + chr(b) + chr(c) + chr(d));

      BYTE1 := $FF;
      Writeln(BYTE1 and $0F);
      BYTE1 := $0F;
      Writeln(BYTE1 or $F0);

      word1 := 1;
asm
        mov ax,word1
        sal ax,1     (*左移1位*)
        mov &word1,ax
end;

      Writeln(' i = ' + IntToStr(word1));

      int1 := add2value(12,32);
      Writeln(int1);

except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
end;

  readln;
end.