From 60f879b8106b788a789275bbd75e07f848db5441 Mon Sep 17 00:00:00 2001
From: Piotr Wiszowaty <pwiszowaty458@gmail.com>
Date: Sun, 24 Aug 2014 22:54:12 +0200
Subject: [PATCH] Add words: 2dup 2swap 2drop

---
 foco65 | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/foco65 b/foco65
index faae7dc..cc70154 100755
--- a/foco65
+++ b/foco65
@@ -1469,6 +1469,50 @@ d_equ_f
  jmp next
 [end-code] ;
 
+: 2drop
+[label] two_drop
+[code]
+ inx
+ inx
+ inx
+ inx
+ jmp next
+[end-code] ;
+
+: 2dup
+[label] two_dup
+[code]
+ lda pstack+3,x
+ dex
+ sta pstack,x
+ lda pstack+3,x
+ dex
+ sta pstack,x
+ lda pstack+3,x
+ dex
+ sta pstack,x
+ lda pstack+3,x
+ dex
+ sta pstack,x
+ jmp next
+[end-code] ;
+
+: 2swap
+[label] two_stap
+[code]
+ ldy pstack+3,x
+ lda pstack+1,x
+ sta pstack+3,x
+ tya
+ sta pstack+1,x
+ ldy pstack+2,x
+ lda pstack+0,x
+ sta pstack+2,x
+ tya
+ sta pstack+0,x
+ jmp next
+[end-code] ;
+
 : sp
 [code]
  txa