From 731a94d211efceea66aaeb1f9af9785c2c2f2532 Mon Sep 17 00:00:00 2001
From: Piotr Wiszowaty <pwiszowaty458@gmail.com>
Date: Sat, 22 Sep 2018 23:42:41 +0200
Subject: [PATCH] Add words: >r r>

---
 README.md |  2 +-
 foco65    | 26 ++++++++++++++++++++++++++
 2 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index eff973a..a47ab75 100644
--- a/README.md
+++ b/README.md
@@ -187,8 +187,8 @@ or:
 Words
 -----
 
-`+loop` `lshift` `<=` `<` `>=` `>` `-` `+` `or` `over` `rshift` `rsp` `sp` `swap` `unloop` `u<` `u>` `while` `<>`
 `:` `@` `0=` `1-` `1+` `2/` `2*` `2@` `2!` `and` `c!` `c@` `cmove` `count` `d-` `d+` `d=` `do` `drop` `dup` `fill` `i` `j` `loop`
+`+loop` `lshift` `<=` `<` `>=` `>` `-` `+` `or` `over` `rshift` `rsp` `sp` `swap` `unloop` `u<` `u>` `while` `<>` `>r` `<r`
 `=` `!` `[` `]` `[code]` `[end-code]` `cell` `cells` `not` `[text-section]` `[data-section]`
 `variable` `2variable` `constant` `create` `,` `c,` `,'` `'` `,"` `"` `allot`
 `lit` `\` `(` `recursive` `[label]` `*` `/` `m*`
diff --git a/foco65 b/foco65
index 694d62d..e055730 100755
--- a/foco65
+++ b/foco65
@@ -1954,6 +1954,32 @@ m_star_done
  sta pstack+1,x
  jmp next
 [end-code] ;
+
+: >r         ( x -- ) ( R: -- x )
+[label] to_r
+[code]
+ lda pstack+1,x
+ pha
+ lda pstack+0,x
+ pha
+ inx
+ inx
+ jmp next
+[end-code] ;
+
+: r>        ( -- x ) ( R: x -- )
+[label] r_from
+[code]
+ pla
+ tay
+ pla
+ dex
+ sta pstack,x
+ dex
+ tya
+ sta pstack,x
+ jmp next
+[end-code] ;
 """
 
 parser = argparse.ArgumentParser()