Added tests for debug.pvvs.

diff --git a/stdlib/README.md b/stdlib/README.md
index a98b7c7..2bd317e 100644 (file)
--- a/stdlib/README.md
+++ b/stdlib/README.md
@@ -63,6 +63,9 @@ header comment for each function to learn the call and return stack.
          111xxx - debug functions
          111000 ----- dump heap                     (debug.pvvs)
          111001 ----- dump stack                    (debug.pvvs)
          111xxx - debug functions
          111000 ----- dump heap                     (debug.pvvs)
          111001 ----- dump stack                    (debug.pvvs)

+         111010 ----- print sign                    (debug.pvvs)
+         111011 ----- print magnitude               (debug.pvvs)
+         111100 ----- print string                  (debug.pvvs)

         1xxxxxx - reserved for less common entry points
         1000000 ----- lowbitand                     (logic.pvvs)
         1000001 ----- isnegative                    (math.pvvs)
         1xxxxxx - reserved for less common entry points
         1000000 ----- lowbitand                     (logic.pvvs)
         1000001 ----- isnegative                    (math.pvvs)

diff --git a/stdlib/debug.pvvs b/stdlib/debug.pvvs
index 4cc8a73..8baef32 100644 (file)
--- a/stdlib/debug.pvvs
+++ b/stdlib/debug.pvvs
@@ -1,6 +1,11 @@
 #ifndef VVS_STDLIB_DEBUG
 #define VVS_STDLIB_DEBUG
 
 #ifndef VVS_STDLIB_DEBUG
 #define VVS_STDLIB_DEBUG
 

+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Some of the subroutines in this file duplicate other stdlib subroutines.
+@ This is to avoid outside dependencies and allow debugging of stdlib code.
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+

 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:
 @   dumpheap (111000)
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Name:
 @   dumpheap (111000)


@@ -13,13 +18,12 @@
 @           At the moment, the ability to continue is too useful to me.
 @           If it's useful to me, it's probably useful to other people.
 @           For now, leave dumpheap as-is.
 @           At the moment, the ability to continue is too useful to me.
 @           If it's useful to me, it's probably useful to other people.
 @           For now, leave dumpheap as-is.

-@ Call Stack:
+@ Call Stack: 

 @   endaddr
 @   startaddr  <-- TOS
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @   endaddr
 @   startaddr  <-- TOS
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-#include <stdio.pvvs>

 NSSVTTTSSSN              | Mark: 111000 (dump heap)
 
 @ Prepare a numeric address and value on the stack
 NSSVTTTSSSN              | Mark: 111000 (dump heap)
 
 @ Prepare a numeric address and value on the stack


@@ -29,12 +33,14 @@ TTT                      | LOAD
 SNT                      | SWAP
 
 @ Print output line for this memory location
 SNT                      | SWAP
 
 @ Print output line for this memory location

-NSTTSSSSTTN              | JSR>1000011 (print absolute value of number)
+NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)

 SSSTTTSTSN               | PUSH ASCII ':'
 SSSTSSTN                 | PUSH ASCII '\t'
 TNSS                     | PUTC
 TNSS                     | PUTC
 SSSTTTSTSN               | PUSH ASCII ':'
 SSSTSSTN                 | PUSH ASCII '\t'
 TNSS                     | PUTC
 TNSS                     | PUTC

-NSTTSSTN                 | JSR>1001 (print number from stack)
+SNS                      | DUP
+NSTTTTSTSN               | JSR > 111010 (debug:printsign)
+NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)

 SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 
 SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 


@@ -51,7 +57,7 @@ SSSTN                    | PUSH 1 (ptr)
 TTT                      | LOAD
 SSSTN                    | PUSH 1
 TSSS                     | ADD
 TTT                      | LOAD
 SSSTN                    | PUSH 1
 TSSS                     | ADD

-NSNTTTSSSN               | JMP>111000 (dump heap)
+NSNTTTSSSN               | JMP > 111000 (dump heap)

 
 @ Clean up and return
 NSSVSSTTTSSSSSSSSSSSN    | Mark: 00111000 00000000
 
 @ Clean up and return
 NSSVSSTTTSSSSSSSSSSSN    | Mark: 00111000 00000000


@@ -68,18 +74,29 @@ NTN                      | RTS
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-#include <stdio.pvvs>

 NSSVTTTSSTN              | Mark: 111001 (dump stack)
 
 NSSVTTTSSTN              | Mark: 111001 (dump stack)
 

+@ Orient the user
+SSSSSSSSSN               | PUSH ASCII '\0'
+SSSSSSTSTSN              | PUSH ASCII '\n'
+SSSSTTTSTSN              | PUSH ASCII ':'
+SSSTSTSSTTN              | PUSH ASCII 'S'
+SSSTSSTTTTN              | PUSH ASCII 'O'
+SSSTSTSTSSN              | PUSH ASCII 'T'
+NSTTTTTSSN               | JSR > 111100 (debug:printstring)
+

 @ Print output line for the current TOS.
 @ Print output line for the current TOS.

+NSSVSSTTTSSTSSSSSSSTN    | Mark: 00111001 00000001

 SNS                      | DUP
 SNS                      | DUP

-NSTTSSSSTTN              | JSR>1000011 (print absolute value of number)
+NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)

 SSSTTTSTSN               | PUSH ASCII ':'
 SSSTSSTN                 | PUSH ASCII '\t'
 TNSS                     | PUTC
 TNSS                     | PUTC
 SNT                      | SWAP
 SSSTTTSTSN               | PUSH ASCII ':'
 SSSTSSTN                 | PUSH ASCII '\t'
 TNSS                     | PUTC
 TNSS                     | PUTC
 SNT                      | SWAP

-NSTTSSTN                 | JSR>1001 (print number from stack)
+SNS                      | DUP
+NSTTTTSTSN               | JSR > 111010 (debug:printsign)
+NSTTTTSTTN               | JSR > 111011 (debug:printmagnitude)

 SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 
 SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 


@@ -88,11 +105,103 @@ SNS                      | DUP
 NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000
 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT
 NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000
 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT

-NSNTTTSSTN               | JMP>111001 (dump stack)
+NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001

 
 @ Clean up and return
 NSSVSSTTTSSTSSSSSSSSN    | Mark: 00111001 00000000
 SNN                      | DROP
 NTN                      | RTS
 
 
 @ Clean up and return
 NSSVSSTTTSSTSSSSSSSSN    | Mark: 00111001 00000000
 SNN                      | DROP
 NTN                      | RTS
 

+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@   printsign (111010)
+@ Description:
+@   Prints the sign of 'number'.
+@ Call Stack:
+@   number <-- TOS
+@ Return Stack:
+@   <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTTTSTSN             | Mark: 111010 (debug:printsign)
+NTTSSTTTSTSSSSSSSSTN    | BMI > 00111010 00000001
+SSSTSTSTTN              | PUSH ASCII '+'
+NSNSSTTTSTSSSSSSSTSN    | JMP > 00111010 00000010
+NSSVSSTTTSTSSSSSSSSTN   | Mark: 00111010 00000001
+SSSTSTTSTN              | PUSH ASCII '-'
+NSSVSSTTTSTSSSSSSSTSN   | Mark: 00111010 00000010
+TNSS                    | PUTC
+NTN                     | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@   printmagnitude (111011)
+@ Description:
+@   Prints the magnitude of 'number'.
+@ Call Stack:
+@   number <-- TOS
+@ Return Stack:
+@   <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTTTSTTN             | Mark: 111011 (debug:printmagnitude)
+
+@ Extract the magnitude of the number.
+SNS                     | DUP
+NTTSSTTTSTTSSSSSSSSN    | BMI > 00111011 00000000
+NSNSSTTTSTTSSSSSSSTN    | JMP > 00111011 00000001
+NSSVSSTTTSTTSSSSSSSSN   | Mark: 00111011 00000000
+SSTTN                   | PUSH -1
+TSSN                    | MULTIPLY
+NSSVSSTTTSTTSSSSSSSTN   | Mark: 00111011 00000001
+
+@ Prepare for building a string on the stack.
+SSSSN                   | PUSH ASCII '\0'
+SNT                     | SWAP
+
+@ Pick off one digit on each pass through this loop.
+NSSVSSTTTSTTSSSSSSTSN   | Mark: 00111011 00000010
+SNS                     | DUP
+
+@ Mod-off a digit, convert to ASCII, store on stack as part of the string.
+SSSTSTSN                | PUSH +10
+TSTT                    | MODULO
+SSSTTSSSSN              | PUSH ASCII '0'
+TSSS                    | ADD
+SNT                     | SWAP
+
+@ Divide down to next digit and keep looping if number != 0 yet.
+SSSTSTSN                | PUSH +10
+TSTS                    | DIVIDE
+SNS                     | DUP
+NTSSSTTTSTTSSSSSSTTN    | BRZ > 00111011 00000011
+NSNSSTTTSTTSSSSSSTSN    | JMP > 00111011 00000010
+
+@ Print the string we have built on the stack.
+NSSVSSTTTSTTSSSSSSTTN   | Mark: 00111011 00000011
+SNN                     | DROP
+NSTTTTTSSN              | JSR > 111100 (debug:printstring)
+NTN                     | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@   printstring (111100)
+@ Description:
+@   Prints a null-terminated string from the stack.
+@ Call Stack:
+@   null-terminator (ASCII '\0')
+@   char n
+@   ...
+@   char 2
+@   char 1 <-- TOS
+@ Return Stack:
+@   <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTTTTSSN             | Mark: 111100 (debug:printstring)
+SNS                     | DUP
+NTSSSTTTTSSSSSSSSSTN    | BRZ > 00111100 00000001
+TNSS                    | Print character
+NSNTTTTSSN              | JMP > 111100
+NSSVSSTTTTSSSSSSSSSTN   | Mark: 00111100 00000001
+SNN                     | DROP
+NTN                     | RTS
+

 #endif
 #endif

diff --git a/stdlib_tests/0001_dumpstack.pvvs b/stdlib_tests/0001_dumpstack.pvvs
new file mode 100644 (file)
index 0000000..9395052
--- /dev/null
+++ b/stdlib_tests/0001_dumpstack.pvvs
@@ -0,0 +1,7 @@
+SSSTTTTTTTTN    | PUSH 255
+SSSTSTSTSN      | PUSH 42
+SSSTN           | PUSH 1 (count)
+NSTTTTSSTN      | JSR > 111001 (dumpstack)
+NNN             | DIE
+
+#include <debug.pvvs>

diff --git a/stdlib_tests/0001_hello_world.pvvs b/stdlib_tests/0001_hello_world.pvvs
deleted file mode 100644 (file)
index 49a6c46..0000000
--- a/stdlib_tests/0001_hello_world.pvvs
+++ /dev/null
@@ -1,6 +0,0 @@
-A"Hello, world!\n"
-SSSSN           | PUSH 0
-NSTTSSSN        | JSR > 1000 (printf)
-NNN             | DIE
-
-#include <stdio.pvvs>

diff --git a/stdlib_tests/0002_dumpheap.pvvs b/stdlib_tests/0002_dumpheap.pvvs
new file mode 100644 (file)
index 0000000..05e97e7
--- /dev/null
+++ b/stdlib_tests/0002_dumpheap.pvvs
@@ -0,0 +1,12 @@
+SSSTSSSSSN      | PUSH 32 (ptr)
+SSSTTTTTTTTN    | PUSH 255
+TTS             | STORE
+SSSTSSSSTN      | PUSH 33 (ptr)
+SSSTSTSTSN      | PUSH 42
+TTS             | STORE
+SSSTSSSSTN      | PUSH 33 (ptr)
+SSSTSSSSSN      | PUSH 32 (ptr)
+NSTTTTSSSN      | JSR > 111000 (dumpheap)
+NNN             | DIE
+
+#include <debug.pvvs>

diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index c1c2006..cb42baf 100755 (executable)
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -18,7 +18,8 @@ src_extension = '.pvvs'
 
 tests = [
         # Format: ['filename_without_extension', 'string for stdin', 'string for expected stdout']
 
 tests = [
         # Format: ['filename_without_extension', 'string for stdin', 'string for expected stdout']

-        ['0001_hello_world', '', 'Hello, world!\n'],
+        ['0001_dumpstack', '', 'TOS:\n1\t:+42\n0\t:+255\n'],
+        ['0002_dumpheap', '', '32\t:+255\n33\t:+42\n'],

         ] 
 
 for test in tests:
         ] 
 
 for test in tests:


@@ -29,6 +30,7 @@ for test in tests:
         print('\n' + test[0])
     else:
         print('.', end='', flush=True)
         print('\n' + test[0])
     else:
         print('.', end='', flush=True)

+    os.remove(cpp_temp_file)

     os.remove(temp_file)
 
 print("")
     os.remove(temp_file)
 
 print("")