From: Dan White <dan@whiteaudio.com>
Date: Wed, 8 May 2013 23:25:03 +0000 (-0500)
Subject: msp4th: rename opcodes
X-Git-Tag: rcf-ini-submit~3
X-Git-Url: http://git.whiteaudio.com/gitweb/?a=commitdiff_plain;h=b2ac6b8cd0d964b3934adaf3bbd8ed7871bb6728;p=430.git

msp4th: rename opcodes
---

diff --git a/msp4th/msp4th.c b/msp4th/msp4th.c
index 21dfc0f..f6d9532 100644
--- a/msp4th/msp4th.c
+++ b/msp4th/msp4th.c
@@ -84,7 +84,7 @@ const uint8_t cmdListBi[] =
               "> == .hb gw dfn "                    // 11 -> 15
               "keyt , p@ p! not "                   // 16 -> 20
               "list if then else begin "            // 21 -> 25
-              "until eram .h ] num "                // 26 -> 30
+              "until depth .h ] num "               // 26 -> 30
               "push0 goto exec lu pushn "           // 31 -> 35
               "over push1 pwrd emit ; "             // 36 -> 40
               "@ ! h@ do loop "                     // 41 -> 45
@@ -932,7 +932,7 @@ void execN(int16_t opcode){
       pushMathStack(i);
       break;
 
-    case 17: // allot  ( opcode -- ) \ push opcode to prog space
+    case 17: // ,  ( opcode -- ) \ push opcode to prog space
       prog[progIdx++] = popMathStack();
       break;
 
@@ -982,7 +982,8 @@ void execN(int16_t opcode){
       }
       break;    
 
-    case 27: // eram  ( -- ) \ UNUSED NOP
+    case 27: // depth  ( -- n ) \ math stack depth
+      pushMathStack((int16_t *)mathStackStartAddress - mathStackPtr);
       break;
       
     case 28: // .h  ( a -- )
@@ -1053,6 +1054,8 @@ void execN(int16_t opcode){
       pushMathStack(progIdx);
       break;
 
+    //////// end of words used in progBi[] ///////////////////////////////////
+
     case 44: // do  ( limit cnt -- ) ( -a- limit cnt pcnt )
       i = popMathStack();  // start of count
       j = popMathStack();  // end count