From 6dbacecb9b367c03985d6db17a0d54e0cb78726b Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@google.com>
Date: Sun, 14 Jun 2020 22:47:06 +0200
Subject: [PATCH] add lshift, rshift and 2over to ans-shim.fth

---
 6502/C64/tests/ans-shim.fth | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/6502/C64/tests/ans-shim.fth b/6502/C64/tests/ans-shim.fth
index c8d1d99..59d212d 100644
--- a/6502/C64/tests/ans-shim.fth
+++ b/6502/C64/tests/ans-shim.fth
@@ -7,3 +7,8 @@
 
 : invert  not ;
 
+: lshift  0 DO 2* LOOP ;
+
+: rshift  0 DO 2/ 32767 and LOOP ;
+
+: 2over  3 pick 3 pick ;