testasmand.out

格式化源码的最新板

unit testasmand;

interface

uses SysUtils;

type
  tmaclass = class(TObject)
    champ1: integer;
    procedure faitqqchose(x, y, dx, dy: integer); virtual;
  end;

implementation

procedure tmaclass.faitqqchose(x, y, dx, dy: integer);
asm
         PUSH    dy;
         PUSH    &DX;
         PUSH    y;
         PUSH    x;
         CALL    dword ptr faitqqchose;
end;

end.