Removed `isnegative` subroutine from stdlib.

diff --git a/stdlib/README.md b/stdlib/README.md
index f077799..9e1338f 100644 (file)
--- a/stdlib/README.md
+++ b/stdlib/README.md
@@ -69,7 +69,7 @@ header comment for each function to learn the call and return stack.
          111100 ----- print string                  (debug.pvvs)
         1xxxxxx - reserved for less common entry points
         1000000 ----- lowbitand                     (logic.pvvs)
          111100 ----- print string                  (debug.pvvs)
         1xxxxxx - reserved for less common entry points
         1000000 ----- lowbitand                     (logic.pvvs)

-        1000001 ----- isnegative                    (math.pvvs)
+        1000001 ----- <empty>

         1000010 ----- print sign of number          (stdio.pvvs)
         1000011 ----- print magnitude of number     (stdio.pvvs)
         1000100 ----- print string from stack       (stdio.pvvs)
         1000010 ----- print sign of number          (stdio.pvvs)
         1000011 ----- print magnitude of number     (stdio.pvvs)
         1000100 ----- print string from stack       (stdio.pvvs)

diff --git a/stdlib/math.pvvs b/stdlib/math.pvvs
index 7bd73e5..d618d83 100644 (file)
--- a/stdlib/math.pvvs
+++ b/stdlib/math.pvvs
@@ -55,22 +55,4 @@ TSSN                    | MULTIPLY
 NSSVSSSTSSSTSSSSSSSTN   | Mark: 00010001 00000001
 NTN                     | RTS
 
 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
 #endif