From 1724eedc80a2ba910e86c119c91db3fb21f0b3ed Mon Sep 17 00:00:00 2001
From: "Michael D. Lowis" <mike@mdlowis.com>
Date: Thu, 10 Apr 2014 20:49:55 -0400
Subject: [PATCH] Implemented getting and setting of words

---
 source/slvm/main.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/source/slvm/main.c b/source/slvm/main.c
index 3c808e2..c47ddaf 100644
--- a/source/slvm/main.c
+++ b/source/slvm/main.c
@@ -494,15 +494,22 @@ defcode("bnot", bnot, 0, &bxor){
 /* Memory Manipulation Words
  *****************************************************************************/
 defcode("!", store, 0, &bnot){
+    *((long*)*(ArgStackPtr)) = *(ArgStackPtr-1);
+    ArgStackPtr -= 2;
 }
 
 defcode("@", fetch, 0, &store){
+    *(ArgStackPtr) = *((long*)*(ArgStackPtr));
 }
 
 defcode("+!", addstore, 0, &fetch){
+    *((long*)*(ArgStackPtr)) += *(ArgStackPtr-1);
+    ArgStackPtr -= 2;
 }
 
 defcode("-!", substore, 0, &addstore){
+    *((long*)*(ArgStackPtr)) -= *(ArgStackPtr-1);
+    ArgStackPtr -= 2;
 }
 
 defcode("b!", bytestore, 0, &substore){
-- 
2.52.0