@ Return Stack:
@ <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-NSSVTTTSSSN | Mark: 111000 (dump heap)
+NSSVTTTSSSN | Mark: 111000 (debug:dumpheap)
@ Prepare a numeric address and value on the stack
SNS | DUP
@ Print output line for this memory location
NSTTTTSTTN | JSR > 111011 (debug:printmagnitude)
-SSSTTTSTSN | PUSH ASCII ':'
SSSTSSTN | PUSH ASCII '\t'
+SSSTTTSTSN | PUSH ASCII ':'
TNSS | PUTC
TNSS | PUTC
SNS | DUP
@ Return Stack:
@ <empty>
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-NSSVTTTSSTN | Mark: 111001 (dump stack)
+NSSVTTTSSTN | Mark: 111001 (debug:dumpstack)
@ Orient the user
SSSSSSSSSN | PUSH ASCII '\0'
NSSVSSTTTSSTSSSSSSSTN | Mark: 00111001 00000001
SNS | DUP
NSTTTTSTTN | JSR > 111011 (debug:printmagnitude)
-SSSTTTSTSN | PUSH ASCII ':'
SSSTSSTN | PUSH ASCII '\t'
+SSSTTTSTSN | PUSH ASCII ':'
TNSS | PUTC
TNSS | PUTC
SNT | SWAP
TNSS | PUTC
@ Figure out if the loop is complete.
-SNS | DUP
-NTSSSTTTSSTSSSSSSSSN | BRZ > 00111001 00000000
SSSTN | PUSH 1
TSST | SUBTRACT
+SNS | DUP
+NTSSSTTTSSTSSSSSSSSN | BRZ > 00111001 00000000
NSNSSTTTSSTSSSSSSSTN | JMP > 00111001 00000001
@ Clean up and return
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