From 50ae85cc9921c700b0b1aead23b2c2419e0cb332 Mon Sep 17 00:00:00 2001
From: "Michael D. Lowis" <mike@mdlowis.com>
Date: Fri, 11 Apr 2014 17:04:21 -0400
Subject: [PATCH] addeded memory and byte manipulation implementations

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

diff --git a/source/slvm/main.c b/source/slvm/main.c
index c47ddaf..03c5669 100644
--- a/source/slvm/main.c
+++ b/source/slvm/main.c
@@ -273,7 +273,18 @@ defcode("execw", exec_word, 0, &semicolon){
 }
 
 defcode("parsenum", parse_num, 0, &exec_word){
-    *(ArgStackPtr) = strtol((const char *)*(ArgStackPtr), NULL, 10);
+    char* end;
+    long num = strtol((const char *)*(ArgStackPtr), &end, 10);
+    //*(ArgStackPtr) = strtol((const char *)*(ArgStackPtr), &end, 10);
+    if(end != (char *)*(ArgStackPtr))
+    {
+        *(ArgStackPtr) = num;
+    }
+    else
+    {
+        puts("Parse Error");
+        ArgStackPtr--;
+    }
 }
 
 defcode("interpret", interpret, 0, &parse_num){
@@ -395,6 +406,11 @@ defcode("2swap", twoswap, 0, &twodup){
 }
 
 defcode("?dup", dup_if, 0, &twoswap){
+    if (*ArgStackPtr)
+    {
+        ArgStackPtr++;
+        *(ArgStackPtr) = *(ArgStackPtr-1);
+    }
 }
 
 /* Arithmetic Words
@@ -513,9 +529,12 @@ defcode("-!", substore, 0, &addstore){
 }
 
 defcode("b!", bytestore, 0, &substore){
+    *((char*)*(ArgStackPtr)) = (char)*(ArgStackPtr-1);
+    ArgStackPtr -= 2;
 }
 
 defcode("b@", bytefetch, 0, &bytestore){
+    *(ArgStackPtr) = *((char*)*(ArgStackPtr));
 }
 
 defcode("b@b!", bytecopy, 0, &bytefetch){
-- 
2.52.0