X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/f0499c77612b74a627727336579eb6b980c35529..e0d5136cb09e6ac4680796af169a611ff6c97996:/stdlib/math.pvvs

diff --git a/stdlib/math.pvvs b/stdlib/math.pvvs
index d618d83..7bd73e5 100644
--- a/stdlib/math.pvvs
+++ b/stdlib/math.pvvs
@@ -55,4 +55,22 @@ TSSN                    | MULTIPLY
 NSSVSSSTSSSTSSSSSSSTN   | Mark: 00010001 00000001
 NTN                     | RTS
 
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@   isnegative (1000001)
+@ Description:
+@   Returns 1 if 'number' is negative, 0 if positive.
+@ Call Stack:
+@   number  <-- TOS
+@ Return Stack:
+@   1 or 0  <-- TOS
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTSSSSSTN            | Mark: 1000001 (isnegative)
+NTTSTSSSSSTSSSSSSSSN    | BMI > 01000001 00000000
+SSSSN                   | PUSH 0
+NTN                     | RTS
+NSSVSTSSSSSTSSSSSSSSN   | Mark: 01000001 00000000
+SSSTN                   | PUSH 1
+NTN                     | RTS
+
 #endif