From c0434e415aac1496802d1a3515b17cb7ec09606c Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Sun, 18 Oct 2020 20:51:54 -0500
Subject: [PATCH] fix for RSHIFT implemented as left shift

---
 jumpforth.S | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/jumpforth.S b/jumpforth.S
index 76e4a7b..de2513b 100644
--- a/jumpforth.S
+++ b/jumpforth.S
@@ -923,7 +923,7 @@ defcode LSHIFT
 /* ( u1 u -- u2 ) Logical (unsigned) shift right by u bits */
 defcode RSHIFT
    pop %ecx
-   shll %cl,(%esp)
+   shrl %cl,(%esp)
    NEXT
 
 .macro defzcmp label,opcode,name="\label",flags=0