Browse Source

+ also add 'rep; db $66; movsw' to the tasm16.pp test

git-svn-id: trunk@38098 -
nickysn 7 years ago
parent
commit
50acde9e36
1 changed files with 19 additions and 0 deletions
  1. 19 0
      tests/test/tasm16.pp

+ 19 - 0
tests/test/tasm16.pp

@@ -106,6 +106,19 @@ const
   expect18: array [0..1] of byte = (
   expect18: array [0..1] of byte = (
     $65,$AC           // seggs lodsb
     $65,$AC           // seggs lodsb
   );
   );
+{$ifdef cpui8086}
+  expect19: array [0..2] of byte = (
+    $F3,              // rep
+    $66,              // db $66
+    $A5               // movsw
+  );
+{$else}
+  expect19: array [0..3] of byte = (
+    $F3,              // rep
+    $66,              // db $66
+    $66,$A5           // movsw
+  );
+{$endif}
 
 
 {$asmmode intel}
 {$asmmode intel}
 
 
@@ -181,6 +194,10 @@ procedure test18; assembler; nostackframe;
 asm
 asm
   seggs lodsb
   seggs lodsb
 end;
 end;
+procedure test19; assembler; nostackframe;
+asm
+  rep; db $66; movsw
+end;
 
 
 procedure Error;
 procedure Error;
 begin
 begin
@@ -246,5 +263,7 @@ begin
     Error;
     Error;
   if not CompareCode(CodePointer(@test18), @expect18, SizeOf(expect18)) then
   if not CompareCode(CodePointer(@test18), @expect18, SizeOf(expect18)) then
     Error;
     Error;
+  if not CompareCode(CodePointer(@test19), @expect19, SizeOf(expect19)) then
+    Error;
   Writeln('Ok!')
   Writeln('Ok!')
 end.
 end.