testasm.out

格式化源码的最新板

unit TestASM;

{ AFS 27 March 2000
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

 This code test ASM blocks
 Since I don't know any ASM
 I lifted this code from the Delphi VCL source
 I deleted bits until it compiled, then randomised a few lines so
 it's not like I'm redistributing thier source.
}

interface

procedure ProcASM1;
procedure ProcASM2;
procedure ProcASM3;


implementation

uses Dialogs;

{ proc with embedded ASM }
procedure ProcASM1;
var
  li1, li2: integer;
  lb: boolean;
begin
  li1 := Random(10);
  li2 := Random(10);

  asm

           MOV     EAX,li1
           PUSH    DWORD PTR [EDX]
           MOV     EDX,[EBP+8]
           ADD     ESP,4
           CALL    DWORD PTR ProcASM2
           MOV     lb,AL
  end;

  li1 := li1 + li2;

end;

{ proc that is all ASM }
procedure ProcASM2;
asm
         TEST    CL,CL
         JNE     @@isDll
         MOV     EAX,[EDX+EAX*4]
         MOV     CL,ModuleIsLib
         MOV     EAX,TlsIndex
         RET

         @@initTls:
         CALL    ProcASM3
         MOV     EAX,TlsIndex
         JE      @@RTM32
         CALL    ProcASM1
         PUSH    EAX
         TEST    EAX,EAX
         RET

         @@RTM32:
         RET

         @@isDll:
         PUSH    EAX
         TEST    EAX,EAX
         CALL    ProcASM3
         JE      @@initTls

         @@2a:
         MOV     EAX, [EBX]
         @@2a2:
         MOV     EAX, [EBX]
         @@2a2a:
         MOV     EAX, [EBX]

         FMUL    ST(1),ST          { Result := Result * X }

end;


{ proc with more than one ASM }
procedure ProcASM3;
var
  li1, li2: integer;
begin
  li1 := Random(10);
  li2 := Random(10);

  asm
           MOV     ECX, [EDX]
           XCHG    ECX, [EAX]
           CALL    ProcASM2
           XCHG    ECX, [EAX]
           MOV     [EDX], ECX
  end;

  li1 := li1 + li2;
  li2 := Random(10);

  if li2 > 5 then
  begin
    ShowMessage('More Asm');

    asm
             MOV     [EDX], ECX
             MOV     ECX, [EDX]
             PUSH    EAX
             XCHG    ECX, [EAX]
    end;

    li2 := li1 + li2;
  end;
end;

type
  TFish =
    (GoldFish, tetra, hake, haddock, trout,
    salmon, catfish, bass, eel, shark);

const
  Pond: array [0..6] of TFish =
    (GoldFish, GoldFish, eel, haddock, shark, trout, salmon);


procedure TestComplexAsm;
begin
  // sourceforge snag 926926
  asm
           MOVZX   EAX, TFish(Pond[EDX])
  end;
end;

procedure TestEndColon;
begin
  asm
           @end:
  end;
end;

procedure TestAsmExpr;
begin
  asm
           @@tV:
           @@nx:
           JMP     DWORD PTR @@tV[ECX*4+32]
  end;
end;

procedure TestAsmDot;
begin
  asm
           JA      @@4
           PUSH    [ESI].Integer[4]
           PUSH    [ESI].Integer[0]
           @@4:
  end;
end;

procedure ProcASMblocks;
var
  li1, li2: integer;
  lb: boolean;
begin
  li1 := Random(10);
  li2 := Random(10);

  asm
           MOV     EAX,li1
  end;

  if li1 = 3 then
  begin
    asm
             MOV     EAX,li1
    end;
  end;
end;

end.