Updated tests to use printsignednumber subroutine from debug.pvvs instead of stdio...

[vvhitespace] / stdlib / debug.pvvs

diff --git a/stdlib/debug.pvvs b/stdlib/debug.pvvs
index 4362a53..4114d22 100644 (file)
--- a/stdlib/debug.pvvs
+++ b/stdlib/debug.pvvs
@@ -24,7 +24,7 @@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-NSSVTTTSSSN              | Mark: 111000 (dump heap)
+NSSVTTTSSSN              | Mark: 111000 (debug:dumpheap)

 
 @ Prepare a numeric address and value on the stack
 SNS                      | DUP
 
 @ Prepare a numeric address and value on the stack
 SNS                      | DUP


@@ -74,7 +74,7 @@ NTN                      | RTS
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @ Return Stack:
 @   <empty>
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

-NSSVTTTSSTN              | Mark: 111001 (dump stack)
+NSSVTTTSSTN              | Mark: 111001 (debug:dumpstack)

 
 @ Orient the user
 SSSSSSSSSN               | PUSH ASCII '\0'
 
 @ Orient the user
 SSSSSSSSSN               | PUSH ASCII '\0'


@@ -101,10 +101,10 @@ SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 
 @ Figure out if the loop is complete.
 TNSS                     | PUTC
 
 @ Figure out if the loop is complete.

-SNS                      | DUP
-NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000

 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT
 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT

+SNS                      | DUP
+NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000

 NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001
 
 @ Clean up and return
 NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001
 
 @ Clean up and return


@@ -204,4 +204,21 @@ NSSVSSTTTTSSSSSSSSSTN   | Mark: 00111100 00000001
 SNN                     | DROP
 NTN                     | RTS
 
 SNN                     | DROP
 NTN                     | RTS
 

+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@   printsignednumber (111101)
+@ Description:
+@   Prints 'number' from the stack in sign-magnitude format.
+@   Leading zeros are suppressed.
+@ Call Stack:
+@   number  <-- TOS
+@ Return Stack:
+@   <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTTTTSTN             | Mark: 111101 (debug:printsignednumber)
+SNS                     | DUP
+NSTTTTSTSN              | JSR > 111010 (debug:printsign)
+NSTTTTSTTN              | JSR > 111011 (debug:printmagnitude)
+NTN                     | RTS
+

 #endif
 #endif