freepascal.compiler/tests/tbs0079.pp

{ $OPT= -Rintel }

procedure nothing(x,y: longint);assembler;
asm
  mov eax,x
  mov ebx,y
end;


{procedure nothing(x,y: longint);
begin
 asm
  mov eax,x
  mov ebx,y
 end;
end; }

Begin
end.