X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/971552ffb5ecc3962d54b909f91527ac0e42a2b9..9c88539c987533cf1d54d90029ae209031d98d62:/stdlib_tests/4001_strlen.pvvs

diff --git a/stdlib_tests/4001_strlen.pvvs b/stdlib_tests/4001_strlen.pvvs
new file mode 100644
index 0000000..7c0e0af
--- /dev/null
+++ b/stdlib_tests/4001_strlen.pvvs
@@ -0,0 +1,14 @@
+A"Hello World"
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSTTN        | PUSH 11 (count)
+NSTTTTTTN       | JSR > 11111 (spew)
+
+SSSTSSSSSN      | PUSH 32 (address)
+NSTTSSSSSN      | JSR > 100000 (strlen)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+NNN             | DIE
+
+#include <stdio.pvvs>
+#include <heap.pvvs>
+#include <string.pvvs>