From 3309e6325eb6c5734892a25dec72d444af2ea4c2 Mon Sep 17 00:00:00 2001
From: Jeremiah Orians <jeremiah@pdp10.guru>
Date: Sat, 16 Sep 2017 07:41:22 -0400
Subject: [PATCH] Correcting the behavior of R@

---
 CHANGELOG.org  | 1 +
 stage2/forth.s | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 9714164..c988900 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -20,6 +20,7 @@
 ** Chnaged
 
 ** Fixed
+Fixed behavior of R@ thanks to reepca
 
 ** Removed
 
diff --git a/stage2/forth.s b/stage2/forth.s
index 50f8d28..cacb495 100644
--- a/stage2/forth.s
+++ b/stage2/forth.s
@@ -812,7 +812,7 @@
 	NOP                         ; Flags
 	&COPYR_Code                 ; Where assembly is stored
 :COPYR_Code
-	LOAD R0 R15 4               ; Get top of return stack
+	LOAD R0 R15 -4              ; Get top of return stack
 	PUSHR R0 R14                ; Put it on data stack
 	JSR_COROUTINE R11           ; NEXT