diff --git a/jcl/source/common/JclLogic.pas b/jcl/source/common/JclLogic.pas
index 1a3587e5f..16baf19a5 100644
--- a/jcl/source/common/JclLogic.pas
+++ b/jcl/source/common/JclLogic.pas
@@ -1912,8 +1912,8 @@ function ReverseBytes(Value: Word): Word;
 
 function ReverseBytes(Value: Smallint): Smallint;
 {$IFDEF PUREPASCAL}
-asm
-  XCHG    AL, AH
+begin
+  Result := (Value shr 8) or (Value shl 8);
 end;
 {$ELSE ~PUREPASCAL}
 asm