projects
/
vvhitespace
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updated `printmagnitudeofnumber` to handle most negative number.
[vvhitespace]
/
stdlib
/
debug.pvvs
diff --git
a/stdlib/debug.pvvs
b/stdlib/debug.pvvs
index
8baef32
..
960c65b
100644
(file)
--- a/
stdlib/debug.pvvs
+++ b/
stdlib/debug.pvvs
@@
-34,8
+34,8
@@
SNT | SWAP
@ Print output line for this memory location
NSTTTTSTTN | JSR > 111011 (debug:printmagnitude)
@ Print output line for this memory location
NSTTTTSTTN | JSR > 111011 (debug:printmagnitude)
-SSSTTTSTSN | PUSH ASCII ':'
SSSTSSTN | PUSH ASCII '\t'
SSSTSSTN | PUSH ASCII '\t'
+SSSTTTSTSN | PUSH ASCII ':'
TNSS | PUTC
TNSS | PUTC
SNS | DUP
TNSS | PUTC
TNSS | PUTC
SNS | DUP
@@
-89,8
+89,8
@@
NSTTTTTSSN | JSR > 111100 (debug:printstring)
NSSVSSTTTSSTSSSSSSSTN | Mark: 00111001 00000001
SNS | DUP
NSTTTTSTTN | JSR > 111011 (debug:printmagnitude)
NSSVSSTTTSSTSSSSSSSTN | Mark: 00111001 00000001
SNS | DUP
NSTTTTSTTN | JSR > 111011 (debug:printmagnitude)
-SSSTTTSTSN | PUSH ASCII ':'
SSSTSSTN | PUSH ASCII '\t'
SSSTSSTN | PUSH ASCII '\t'
+SSSTTTSTSN | PUSH ASCII ':'
TNSS | PUTC
TNSS | PUTC
SNT | SWAP
TNSS | PUTC
TNSS | PUTC
SNT | SWAP
@@
-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