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 ©R_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