From 231d418c3abbf3c1cf08742e7634a6728714b30a Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 26 Apr 2016 21:37:48 +1200
Subject: [PATCH] Added 2* and 2/ arithmetic bit shift words.

---
 src/forth.jl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/forth.jl b/src/forth.jl
index 99d9451..11d0044 100644
--- a/src/forth.jl
+++ b/src/forth.jl
@@ -351,6 +351,16 @@ DIVMOD = defPrimWord("/MOD", () -> begin
     return NEXT
 end)
 
+TWOMUL = defPrimWord("2*", () -> begin
+    pushPS(popPS() << 1)
+    return NEXT
+end)
+
+TWODIV = defPrimWord("2/", () -> begin
+    pushPS(popPS() >> 1)
+    return NEXT
+end)
+
 EQU = defPrimWord("=", () -> begin
     b = popPS()
     a = popPS()
-- 
2.20.1