projects
/
vvhitespace
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added move_or_shoot function to Wumpus example.
[vvhitespace]
/
stdlib_tests
/
5001_abs.pvvs
diff --git
a/stdlib_tests/5001_abs.pvvs
b/stdlib_tests/5001_abs.pvvs
index
7898e56
..
daf70ca
100644
(file)
--- a/
stdlib_tests/5001_abs.pvvs
+++ b/
stdlib_tests/5001_abs.pvvs
@@
-1,17
+1,17
@@
@ +1 should remain +1
SSSTN | PUSH +1
NSTTSSSTN | JSR > 10001 (abs)
@ +1 should remain +1
SSSTN | PUSH +1
NSTTSSSTN | JSR > 10001 (abs)
-NSTT
SSTN | JSR > 1001 (print number from stack
)
+NSTT
TTTSTN | JSR > 111101 (debug:printsignednumber
)
@ -1 should become +1
SSTTN | PUSH -1
NSTTSSSTN | JSR > 10001 (abs)
@ -1 should become +1
SSTTN | PUSH -1
NSTTSSSTN | JSR > 10001 (abs)
-NSTT
SSTN | JSR > 1001 (print number from stack
)
+NSTT
TTTSTN | JSR > 111101 (debug:printsignednumber
)
@ 0 should remain 0
SSSSN | PUSH 0
NSTTSSSTN | JSR > 10001 (abs)
@ 0 should remain 0
SSSSN | PUSH 0
NSTTSSSTN | JSR > 10001 (abs)
-NSTT
SSTN | JSR > 1001 (print number from stack
)
+NSTT
TTTSTN | JSR > 111101 (debug:printsignednumber
)
@ Test the most negative number.
@ It is impossible to return the true absolute value but should return zero.
@ Test the most negative number.
@ It is impossible to return the true absolute value but should return zero.
@@
-19,8
+19,9
@@
SSSTN | PUSH +1
SSSTTTTTTN | PUSH +63
NSTTSTTSTN | JSR > 101101 (lshift)
NSTTSSSTN | JSR > 10001 (abs)
SSSTTTTTTN | PUSH +63
NSTTSTTSTN | JSR > 101101 (lshift)
NSTTSSSTN | JSR > 10001 (abs)
-NSTT
SSTN | JSR > 1001 (print number from stack
)
+NSTT
TTTSTN | JSR > 111101 (debug:printsignednumber
)
NNN | DIE
NNN | DIE
+#include <math.pvvs>
#include <logic.pvvs>
#include <logic.pvvs>
-#include <
stdio
.pvvs>
+#include <
debug
.pvvs>