From 50acde9e36ff6125188a85d3735115a4b2013185 Mon Sep 17 00:00:00 2001 From: nickysn Date: Thu, 1 Feb 2018 20:00:43 +0000 Subject: [PATCH] + also add 'rep; db $66; movsw' to the tasm16.pp test git-svn-id: trunk@38098 - --- tests/test/tasm16.pp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/tests/test/tasm16.pp b/tests/test/tasm16.pp index fcddf06858..3ecf7f9294 100644 --- a/tests/test/tasm16.pp +++ b/tests/test/tasm16.pp @@ -106,6 +106,19 @@ const expect18: array [0..1] of byte = ( $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} @@ -181,6 +194,10 @@ procedure test18; assembler; nostackframe; asm seggs lodsb end; +procedure test19; assembler; nostackframe; +asm + rep; db $66; movsw +end; procedure Error; begin @@ -246,5 +263,7 @@ begin Error; if not CompareCode(CodePointer(@test18), @expect18, SizeOf(expect18)) then Error; + if not CompareCode(CodePointer(@test19), @expect19, SizeOf(expect19)) then + Error; Writeln('Ok!') end.