Browse Source

* wrong directory

peter 23 years ago
parent
commit
5d2999e26d
1 changed files with 0 additions and 26 deletions
  1. 0 26
      tests/webtbf/tw1902.pp

+ 0 - 26
tests/webtbf/tw1902.pp

@@ -1,26 +0,0 @@
-{ %cpu=i386 }
-
-{$ifdef fpc}
-{$MODE DELPHI}
-{$ASMMODE INTEL}
-{$endif}
-
-const myoffset=10;
-
-var
-  r : array[0..19] of char;
-  c : char;
-begin
-  r:='01234567890123456789';
-  asm
-   lea eax,r
-   mov al,[eax].myoffset
-   mov c,al
-  end;
-  writeln(c);
-  if c<>'0' then
-   begin
-     writeln('ERROR!');
-     halt(1);
-   end;
-end.