forth_8cpp-source.html

这个是关于G.726算法的源程序

<a name="l00317"></a>00317     <a class="code" href="group__forth__imp.html#gga104a205">XT_ERASE</a>,               
<a name="l00318"></a>00318     <a class="code" href="group__forth__imp.html#gga104a206">XT_FALSE</a>,               
<a name="l00319"></a>00319     <a class="code" href="group__forth__imp.html#gga104a207">XT_NIP</a>,                 
<a name="l00320"></a>00320     <a class="code" href="group__forth__imp.html#gga104a208">XT_PAD</a>,                 
<a name="l00321"></a>00321     <a class="code" href="group__forth__imp.html#gga104a209">XT_PARSE</a>,               
<a name="l00322"></a>00322     <a class="code" href="group__forth__imp.html#gga104a210">XT_PICK</a>,                
<a name="l00323"></a>00323     <a class="code" href="group__forth__imp.html#gga104a211">XT_ROLL</a>,                
<a name="l00324"></a>00324     <a class="code" href="group__forth__imp.html#gga104a212">XT_TRUE</a>,                
<a name="l00325"></a>00325     <a class="code" href="group__forth__imp.html#gga104a213">XT_TUCK</a>,                
<a name="l00326"></a>00326     <a class="code" href="group__forth__imp.html#gga104a214">XT_U_GREATER_THAN</a>,      
<a name="l00327"></a>00327     <a class="code" href="group__forth__imp.html#gga104a215">XT_UNUSED</a>,              
<a name="l00329"></a>00329     <a class="code" href="group__forth__imp.html#gga104a216">XT_D_PLUS</a>,              
<a name="l00330"></a>00330     <a class="code" href="group__forth__imp.html#gga104a217">XT_DABS</a>,                
<a name="l00331"></a>00331     <a class="code" href="group__forth__imp.html#gga104a218">XT_DNEGATE</a>,             
<a name="l00332"></a>00332     <a class="code" href="group__forth__imp.html#gga104a219">XT_M_PLUS</a>,              
<a name="l00334"></a>00334     <a class="code" href="group__forth__imp.html#gga104a220">XT_CATCH</a>,               
<a name="l00335"></a>00335     <a class="code" href="group__forth__imp.html#gga104a221">XT_THROW</a>,               
<a name="l00337"></a>00337     <a class="code" href="group__forth__imp.html#gga104a222">XT_CMOVE</a>,               
<a name="l00338"></a>00338     <a class="code" href="group__forth__imp.html#gga104a223">XT_CMOVE_UP</a>,            
<a name="l00340"></a>00340     XT_BREAKPOINT,
<a name="l00341"></a>00341     XT_END,
<a name="l00342"></a>00342     XT_CATCH_END,
<a name="l00343"></a>00343     XT_EXCEPTION_MESSAGE,
<a name="l00344"></a>00344     XT_CODE_EXECUTE,
<a name="l00345"></a>00345 
<a name="l00346"></a>00346     XT_UDM_SLASH_MOD,
<a name="l00347"></a>00347     XT_RDROP,
<a name="l00348"></a>00348 
<a name="l00349"></a>00349     XT_EMPTYS,
<a name="l00350"></a>00350     XT_EMPTYR,
<a name="l00351"></a>00351     XT_TIB,
<a name="l00352"></a>00352     XT_PAREN_SOURCE,
<a name="l00353"></a>00353     XT_CONTEXT,
<a name="l00354"></a>00354     XT_CURRENT,
<a name="l00355"></a>00355     XT_LATEST,
<a name="l00356"></a>00356     XT_FORTH_WORDLIST,
<a name="l00357"></a>00357     XT_PARSE_WORD,
<a name="l00358"></a>00358     XT_PAREN_SEARCH_WORDLIST,
<a name="l00359"></a>00359     XT_TO_CFA,
<a name="l00360"></a>00360     XT_PAREN_CR
<a name="l00361"></a>00361     };
<a name="l00362"></a>00362 
<a name="l00369"></a><a class="code" href="group__forth__imp.html#ga65">00369</a> <span class="preprocessor">#define XT_BRANCH(offset) XT_PAREN_BRANCH,CELLS(offset)</span>
<a name="l00370"></a>00370 <span class="preprocessor"></span>
<a name="l00377"></a><a class="code" href="group__forth__imp.html#ga66">00377</a> <span class="preprocessor">#define XT_0BRANCH(offset) XT_PAREN_0BRANCH,CELLS(offset)</span>
<a name="l00378"></a>00378 <span class="preprocessor"></span>
<a name="l00384"></a><a class="code" href="group__forth__imp.html#ga67">00384</a> <span class="preprocessor">#define LIT(x) XT_PAREN_LITERAL,(CELL)x</span>
<a name="l00385"></a>00385 <span class="preprocessor"></span>
<a name="l00386"></a>00386 
<a name="l00392"></a><a class="code" href="group__forth__imp.html#ga10">00392</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#ga10">XT_NEST_CHECK</a>[] =
<a name="l00393"></a>00393     {
<a name="l00394"></a>00394     <a class="code" href="group__forth__imp.html#gga104a133">XT_EQUALS</a>, <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>
<a name="l00395"></a>00395     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(ControlStructureMismatch), <a class="code" href="group__forth__imp.html#gga104a221">XT_THROW</a>                 <span class="comment">// -22 THROW</span>
<a name="l00396"></a>00396     };
<a name="l00397"></a>00397 
<a name="l00398"></a>00398 
<a name="l00404"></a><a class="code" href="group__forth__imp.html#ga11">00404</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#ga11">XT_FORWARD_BRANCH_COMMA</a>[] =
<a name="l00405"></a>00405     {
<a name="l00406"></a>00406     <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#gga104a206">XT_FALSE</a>, <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>,                  <span class="comment">// , HERE 0 , </span>
<a name="l00407"></a>00407     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga103a108">OrigMagic</a>), <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                                 <span class="comment">// OrigMagic </span>
<a name="l00408"></a>00408     };
<a name="l00409"></a>00409 
<a name="l00410"></a>00410 
<a name="l00416"></a><a class="code" href="group__forth__imp.html#ga12">00416</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#ga12">XT_BACKWARD_BRANCH_COMMA</a>[] =
<a name="l00417"></a>00417     {
<a name="l00418"></a>00418     <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga103a109">DestMagic</a>), (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga10">XT_NEST_CHECK</a>,          <span class="comment">// , DestMagic NEST-CHECK</span>
<a name="l00419"></a>00419     <a class="code" href="group__forth__imp.html#gga104a165">XT_HERE</a>, <a class="code" href="group__forth__imp.html#gga104a118">XT_MINUS</a>, <a class="code" href="group__forth__imp.html#gga104a117">XT_COMMA</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                    <span class="comment">// HERE - ,</span>
<a name="l00420"></a>00420     };
<a name="l00421"></a>00421 
<a name="l00422"></a>00422 
<a name="l00428"></a><a class="code" href="group__forth__imp.html#ga13">00428</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#ga13">XT_IF</a>[] =
<a name="l00429"></a>00429     {
<a name="l00430"></a>00430     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga104a168">XT_PAREN_0BRANCH</a>), (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga11">XT_FORWARD_BRANCH_COMMA</a>,   <span class="comment">// ['] (0branch) &gt;BRANCH,</span>
<a name="l00431"></a>00431     <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>
<a name="l00432"></a>00432     };
<a name="l00433"></a>00433 
<a name="l00434"></a>00434 
<a name="l00440"></a><a class="code" href="group__forth__imp.html#ga14">00440</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#ga14">XT_AHEAD</a>[] =
<a name="l00441"></a>00441     {
<a name="l00442"></a>00442     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga104a160">XT_PAREN_BRANCH</a>), (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga11">XT_FORWARD_BRANCH_COMMA</a>,    <span class="comment">// ['] (branch) &gt;BRANCH, </span>
<a name="l00443"></a>00443     <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>
<a name="l00444"></a>00444     };
<a name="l00445"></a>00445 
<a name="l00446"></a>00446 
<a name="l00453"></a><a class="code" href="group__forth__imp.html#ga15">00453</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#ga15">XT_THEN</a>[] =
<a name="l00454"></a>00454     {
<a name="l00455"></a>00455     <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga103a108">OrigMagic</a>), (<a class="code" href="group__forth.html#ga0">CELL</a>)<a class="code" href="group__forth__imp.html#ga10">XT_NEST_CHECK</a>,                    <span class="comment">// OrigMagic NEST-CHECK</span>
<a name="l00456"></a>00456     <a class="code" href="group__forth__imp.html#gga104a165">XT_HERE</a>, <a class="code" href="group__forth__imp.html#gga104a181">XT_OVER</a>, <a class="code" href="group__forth__imp.html#gga104a118">XT_MINUS</a>, <a class="code" href="group__forth__imp.html#gga104a190">XT_SWAP</a>, <a class="code" href="group__forth__imp.html#gga104a110">XT_STORE</a>, <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>  <span class="comment">// HERE OVER - SWAP !</span>
<a name="l00457"></a>00457     };
<a name="l00458"></a>00458 
<a name="l00459"></a>00459 
<a name="l00465"></a><a class="code" href="group__forth__imp.html#ga16">00465</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#ga16">XT_BEGIN</a>[] =
<a name="l00466"></a>00466     {
<a name="l00467"></a>00467     <a class="code" href="group__forth__imp.html#gga104a165">XT_HERE</a>, <a class="code" href="group__forth__imp.html#ga67">LIT</a>(<a class="code" href="group__forth__imp.html#gga103a109">DestMagic</a>), <a class="code" href="group__forth__imp.html#gga104a163">XT_EXIT</a>                        <span class="comment">// HERE DestMagic</span>
<a name="l00468"></a>00468     };
<a name="l00469"></a>00469 
<a name="l00470"></a>00470 
<a name="l00476"></a><a class="code" href="group__forth__imp.html#ga17">00476</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#ga17">XT_AGAIN</a>[] =
<a name="l00477"></a>00477     {