* mark the registers, modified by DebugWriteLn's asm code

git-svn-id: branches/i8086@23971 -

rtl/msdos/system.pp

@@ -73,7 +73,7 @@ begin
     mov dl, al
     int 21h
     loop @@1
-  end;
+  end ['ax','bx','cx','dx','si','di'];
 end;
 
 procedure DebugWriteLn(const S: string);