putd without mem

std/std.porth

@@ -396,3 +396,69 @@ end
 macro eputs
   stderr fputs
 end
+
+macro _put_digit
+    "0123456789" swap drop + 1 swap puts
+end
+
+macro _putd_before
+    dup 10 %
+    over 10 /
+end
+macro _putd_after
+    drop
+    _put_digit
+end
+
+macro putd
+  if dup 0 = do
+    "0" puts
+  else
+    if dup 0 < do
+    "-" puts
+    -1 *
+    end
+
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    if dup 0 > do _putd_before
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+    _putd_after end
+  end drop
+end
+

tests/putd.porth

@@ -0,0 +1,14 @@
+include "std.porth"
+
+//Zero
+0 putd
+"\n" puts
+
+//max i64
+9223372036854775807 putd
+"\n" puts
+
+//negative
+0 5 - putd
+"\n" puts
+

tests/putd.txt

@@ -0,0 +1,11 @@
+:i argc 0
+:b stdin 0
+
+:i returncode 0
+:b stdout 25
+0
+9223372036854775807
+-5
+
+:b stderr 0
+