forth_8cpp-source.html

Tixys source code, include G.711, G.726, IMA-ADPCM etc.

00722     XT_LATEST, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a150">XT_CELL_PLUS</a>,                      <span class="comment">// LATEST @ &gt;FLAGS </span>
00723     <a class="code" href="group__forth__imp.html#gga104a213">XT_TUCK</a>, <a class="code" href="group__forth__imp.html#gga104a149">XT_C_FETCH</a>,                                    <span class="comment">// TUCK C@</span>
00724     <a class="code" href="group__forth__imp.html#gga104a180">XT_OR</a>, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a147">XT_C_STORE</a>,                             <span class="comment">// OR SWAP C!</span>
00725     <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>
00726     };
00727 
00728 
<a name="l00734"></a><a class="code" href="group__forth__imp.html#ga32">00734</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga32">XT_PAREN_CREATE</a>[] =
00735     {
00736     <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                                      <span class="comment">// R&gt;</span>
00737     };
00738 
00739 
<a name="l00745"></a><a class="code" href="group__forth__imp.html#ga33">00745</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga33">XT_CREATE</a>[] =
00746     {
00747     XT_PARSE_WORD, (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga30">XT_CREATE_WORD</a>,                    <span class="comment">// PARSE-WORD CREATE-WORD</span>
00748     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#ga32">XT_PAREN_CREATE</a>), <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>,                         <span class="comment">// POSTPONE (create)</span>
00749     (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga31">XT_VALIDATE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                              <span class="comment">// VALIDATE </span>
00750     };
00751 
00752 
<a name="l00758"></a><a class="code" href="group__forth__imp.html#ga34">00758</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga34">XT_PAREN_DOES</a>[] = 
00759     {
00760     <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, XT_LATEST, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, XT_TO_CFA, <a class="code" href="group__forth__imp.html#gga104a110">XT_STORE</a>,    <span class="comment">// R&gt; LATEST @ &gt;CFA !</span>
00761     <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>
00762     };
00763 
00764 
<a name="l00770"></a><a class="code" href="group__forth__imp.html#ga35">00770</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga35">XT_LITERAL</a>[] =
00771     {
00772     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga104a173">XT_PAREN_LITERAL</a>), <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>,              <span class="comment">// ['] (literal) , ,</span>
00773     <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>
00774     };
00775 
00776 
<a name="l00783"></a><a class="code" href="group__forth__imp.html#ga36">00783</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga36">XT_PAREN_S_QUOTE</a>[] =
00784     {
00785     <a class="code" href="group__forth__imp.html#gga104a183">XT_R_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a150">XT_CELL_PLUS</a>, <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>,          <span class="comment">// R@ CELL+ R&gt; @</span>
00786     <a class="code" href="group__forth__imp.html#gga104a128">XT_2DUP</a>, <a class="code" href="group__forth__imp.html#gga104a153">XT_CHARS</a>, <a class="code" href="group__forth__imp.html#gga104a114">XT_PLUS</a>, <a class="code" href="group__forth__imp.html#gga104a143">XT_ALIGNED</a>, <a class="code" href="group__forth__imp.html#gga104a137">XT_TO_R</a>,        <span class="comment">// 2DUP CHARS + ALIGNED &gt;R</span>
00787     <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>
00788     };
00789 
00790 
<a name="l00799"></a><a class="code" href="group__forth__imp.html#ga37">00799</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga37">XT_S_QUOTE</a>[] = 
00800     {
00801     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<span class="charliteral">'"'</span>), <a class="code" href="group__forth__imp.html#gga104a209">XT_PARSE</a>,                                     <span class="comment">// [CHAR] " PARSE </span>
00802     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#ga36">XT_PAREN_S_QUOTE</a>), <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>,                        <span class="comment">// POSTPONE (s")</span>
00803     <a class="code" href="group__forth__imp.html#gga104a159">XT_DUP</a>, <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <a class="code" href="group__forth__imp.html#gga104a165">XT_HERE</a>, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>,                     <span class="comment">// DUP , HERE SWAP</span>
00804     <a class="code" href="group__forth__imp.html#gga104a159">XT_DUP</a>, <a class="code" href="group__forth__imp.html#gga104a153">XT_CHARS</a>, <a class="code" href="group__forth__imp.html#gga104a144">XT_ALLOT</a>, <a class="code" href="group__forth__imp.html#gga104a142">XT_ALIGN</a>, <a class="code" href="group__forth__imp.html#gga104a222">XT_CMOVE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a> <span class="comment">// DUP CHARS ALLOT ALIGN CMOVE</span>
00805     };
00806 
00807 
<a name="l00813"></a><a class="code" href="group__forth__imp.html#ga38">00813</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga38">XT_CHAR</a>[] = 
00814     {
00815     XT_PARSE_WORD, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(3), <a class="code" href="group__forth__imp.html#gga104a149">XT_C_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>,      <span class="comment">// PARSE-WORD IF C@ EXIT THEN </span>
00816     <a class="code" href="group__forth__imp.html#gga104a158">XT_DROP</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                              <span class="comment">// DROP FALSE</span>
00817     };
00818 
00819 
<a name="l00837"></a><a class="code" href="group__forth__imp.html#ga39">00837</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga39">XT_PAREN_FIND</a>[] =
00838     {
00839     XT_CONTEXT, <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>,                         <span class="comment">// CONTEXT @ 0 </span>
00840     <a class="code" href="group__forth__imp.html#gga104a204">XT_PAREN_QUESTION_DO</a>, <a class="code" href="group__forth__imp.html#ga60">CELLS</a>(15),                        <span class="comment">// DO</span>
00841     XT_CONTEXT, <a class="code" href="group__forth__imp.html#gga104a167">XT_I</a>, <a class="code" href="group__forth__imp.html#gga104a121">XT_1_PLUS</a>, <a class="code" href="group__forth__imp.html#gga104a151">XT_CELLS</a>, <a class="code" href="group__forth__imp.html#gga104a114">XT_PLUS</a>,         <span class="comment">// CONTEXT I 1+ CELLS +</span>
00842     <a class="code" href="group__forth__imp.html#gga104a139">XT_FETCH</a>, XT_PAREN_SEARCH_WORDLIST,                     <span class="comment">// @ (search-wordlist)</span>
00843     <a class="code" href="group__forth__imp.html#gga104a138">XT_QUESTION_DUP</a>, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(3), <a class="code" href="group__forth__imp.html#gga104a194">XT_UNLOOP</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>,     <span class="comment">// ?DUP IF UNLOOP EXIT THEN</span>
00844     <a class="code" href="group__forth__imp.html#gga104a174">XT_PAREN_LOOP</a>, <a class="code" href="group__forth__imp.html#ga60">CELLS</a>(-13), <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>            <span class="comment">// LOOP FALSE</span>
00845     };
00846 
00847 
<a name="l00853"></a><a class="code" href="group__forth__imp.html#ga40">00853</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga40">XT_THROW_QUOTE</a>[] =
00854     {
00855     <a class="code" href="group__forth__imp.html#gga104a137">XT_TO_R</a>, XT_EXCEPTION_MESSAGE, <a class="code" href="group__forth__imp.html#gga104a123">XT_2_STORE</a>,
00856     <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, <a class="code" href="group__forth__imp.html#gga104a221">XT_THROW</a>
00857     };
00858 
00859 
<a name="l00865"></a><a class="code" href="group__forth__imp.html#ga41">00865</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga41">XT_PAREN_TICK</a>[] =
00866     {
00867     XT_PARSE_WORD, (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga39">XT_PAREN_FIND</a>,                     <span class="comment">// PARSE-WORD (find) </span>
00868     <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(2), <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>,                                 <span class="comment">// IF EXIT THEN</span>
00869     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(UndefinedWord), (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga40">XT_THROW_QUOTE</a>                <span class="comment">// -13 THROW"</span>
00870     };
00871 
00872 
<a name="l00878"></a><a class="code" href="group__forth__imp.html#ga42">00878</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga42">XT_TICK</a>[] =
00879     {
00880     (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga41">XT_PAREN_TICK</a>, <a class="code" href="group__forth__imp.html#gga104a158">XT_DROP</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                   <span class="comment">// (') DROP</span>
00881     };
00882 
00883 
<a name="l00896"></a><a class="code" href="group__forth__imp.html#ga43">00896</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga43">XT_TO_SIGN</a>[] =
00897     {
00898     <a class="code" href="group__forth__imp.html#gga104a159">XT_DUP</a>, <a class="code" href="group__forth__imp.html#gga104a120">XT_0_EQUALS</a>, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(3), <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>,  <span class="comment">// DUP 0= IF FALSE EXIT THEN</span>
00899     <a class="code" href="group__forth__imp.html#gga104a181">XT_OVER</a>, <a class="code" href="group__forth__imp.html#gga104a149">XT_C_FETCH</a>, <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<span class="charliteral">'-'</span>), <a class="code" href="group__forth__imp.html#gga104a133">XT_EQUALS</a>,               <span class="comment">// OVER C@ [CHAR] - =</span>
00900     <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(7), <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a152">XT_CHAR_PLUS</a>, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>,          <span class="comment">// IF SWAP CHAR+ SWAP</span>
00901     <a class="code" href="group__forth__imp.html#gga104a122">XT_1_MINUS</a>, <a class="code" href="group__forth__imp.html#gga104a212">XT_TRUE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>         <span class="comment">// 1- TRUE EXIT THEN FALSE</span>
00902     };
00903 
00904 
<a name="l00923"></a><a class="code" href="group__forth__imp.html#ga44">00923</a> <span class="keyword">static</span> <span class="keyword">const</span> <a class="code" href="group__forth.html#ga0">CELL</a> <a class="code" href="group__forth__imp.html#ga44">XT_NUMBER_QUERY</a>[] =
00924     {
00925     (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga43">XT_TO_SIGN</a>, <a class="code" href="group__forth__imp.html#gga104a137">XT_TO_R</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>, <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>,          <span class="comment">// &gt;SIGN &gt;R 0 0</span>
00926     <a class="code" href="group__forth__imp.html#gga104a130">XT_2SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a136">XT_TO_NUMBER</a>, <a class="code" href="group__forth__imp.html#gga104a130">XT_2SWAP</a>,                       <span class="comment">// 2SWAP &gt;NUMBER 2SWAP</span>
00927     <a class="code" href="group__forth__imp.html#gga104a182">XT_R_FROM</a>, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(2), <a class="code" href="group__forth__imp.html#gga104a218">XT_DNEGATE</a>,                   <span class="comment">// R&gt; IF DNEGATE THEN</span>
00928     <a class="code" href="group__forth__imp.html#gga104a130">XT_2SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a159">XT_DUP</a>, <a class="code" href="group__forth__imp.html#gga104a120">XT_0_EQUALS</a>, <a class="code" href="group__forth__imp.html#ga66">XT_0BRANCH</a>(6),           <span class="comme