| 4985 | kaklik | 1 | <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> | 
      
        |  |  | 2 | <html> | 
      
        |  |  | 3 |   <head> | 
      
        |  |  | 4 |     <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> | 
      
        |  |  | 5 |     <title> words/catch.asm </title> | 
      
        |  |  | 6 |     <meta name="keywords" content="amforth programming language Forth ATmega ATMEL"> | 
      
        |  |  | 7 |     <meta name="description" content="amforth - laguage Forth for ATMEL ATmega"> | 
      
        |  |  | 8 |     <!-- AUTOINCLUDE START "Page/Head.en.ihtml" DO NOT REMOVE --> | 
      
        |  |  | 9 |     <link rel="StyleSheet" href="../../../../Web/CSS/MLAB.css" type="text/css" title="MLAB Basic Style"> | 
      
        |  |  | 10 |     <link rel="StyleSheet" href="../../../../Web/CSS/MLAB_Print.css" type="text/css" media="print"> | 
      
        |  |  | 11 |     <link rel="shortcut icon" type="image/x-icon" href="../../../../Web/PIC/MLAB.ico"> | 
      
        |  |  | 12 |     <script type="text/javascript" src="../../../../Web/JS/MLAB_Menu.js"></script> | 
      
        |  |  | 13 |     <!-- AUTOINCLUDE END --> | 
      
        |  |  | 14 |   </head> | 
      
        |  |  | 15 |  | 
      
        |  |  | 16 |   <body lang="en"> | 
      
        |  |  | 17 |  | 
      
        |  |  | 18 |     <!-- AUTOINCLUDE START "Page/Header.en.ihtml" DO NOT REMOVE --> | 
      
        |  |  | 19 |     <!-- ============== HEADER ============== --> | 
      
        |  |  | 20 |     <div class="Header"> | 
      
        |  |  | 21 |       <script type="text/javascript"> | 
      
        |  |  | 22 |       <!-- | 
      
        |  |  | 23 |         SetRelativePath("../../../../"); | 
      
        |  |  | 24 |         DrawHeader(); | 
      
        |  |  | 25 |       // --> | 
      
        |  |  | 26 |       </script> | 
      
        |  |  | 27 |       <noscript> | 
      
        |  |  | 28 |         <p><b> JavaScript is required for including of the header </b></p> | 
      
        |  |  | 29 |       </noscript> | 
      
        |  |  | 30 |     </div> | 
      
        |  |  | 31 |     <!-- AUTOINCLUDE END --> | 
      
        |  |  | 32 |  | 
      
        |  |  | 33 |     <!-- AUTOINCLUDE START "Page/Menu.en.ihtml" DO NOT REMOVE --> | 
      
        |  |  | 34 |     <!-- ============== MENU ============== --> | 
      
        |  |  | 35 |     <div class="Menu"> | 
      
        |  |  | 36 |       <script type="text/javascript"> | 
      
        |  |  | 37 |       <!-- | 
      
        |  |  | 38 |         SetRelativePath("../../../../"); | 
      
        |  |  | 39 |         DrawMenu(); | 
      
        |  |  | 40 |       // --> | 
      
        |  |  | 41 |       </script> | 
      
        |  |  | 42 |       <noscript> | 
      
        |  |  | 43 |         <p><b> JavaScript is required for including of the menu </b><p> | 
      
        |  |  | 44 |       </noscript> | 
      
        |  |  | 45 |     </div> | 
      
        |  |  | 46 |     <!-- AUTOINCLUDE END --> | 
      
        |  |  | 47 |  | 
      
        |  |  | 48 |     <!-- ============== TEXT ============== --> | 
      
        |  |  | 49 |     <div class="Text"> | 
      
        |  |  | 50 |  | 
      
        |  |  | 51 |       <h1> words/catch.asm </h1> | 
      
        |  |  | 52 |  | 
      
        |  |  | 53 |       <p> | 
      
        |  |  | 54 |         <input type=button onClick="history.back()" value="Back"> | 
      
        |  |  | 55 |         <input type=button onClick="history.forward()" value="Forward"> | 
      
        |  |  | 56 |         <a href="../WordList.en.html">Jump to Vocabulary</a> | 
      
        |  |  | 57 |       </p> | 
      
        |  |  | 58 |  | 
      
        |  |  | 59 |       <pre> | 
      
        |  |  | 60 | ; ( xt -- ) Exceptions | 
      
        |  |  | 61 | ; R( -- ) or R( ny -- ) | 
      
        |  |  | 62 | ; execute the XT and restore stack frame if an exception is thrown | 
      
        |  |  | 63 | VE_CATCH: | 
      
        |  |  | 64 |     .db $05, "catch" | 
      
        |  |  | 65 |     .dw VE_HEAD | 
      
        |  |  | 66 |     .set VE_HEAD = VE_CATCH | 
      
        |  |  | 67 | XT_CATCH: | 
      
        |  |  | 68 |     .dw DO_COLON | 
      
        |  |  | 69 | PFA_CATCH: | 
      
        |  |  | 70 |     ; sp@ >r | 
      
        |  |  | 71 |     .dw XT_SP_FETCH | 
      
        |  |  | 72 |     .dw XT_TO_R | 
      
        |  |  | 73 |     ; handler @ >r | 
      
        |  |  | 74 |     .dw XT_HANDLER | 
      
        |  |  | 75 |     .dw XT_FETCH | 
      
        |  |  | 76 |     .dw XT_TO_R | 
      
        |  |  | 77 |     ; rp@ handler ! | 
      
        |  |  | 78 |     .dw XT_RP_FETCH | 
      
        |  |  | 79 |     .dw XT_HANDLER | 
      
        |  |  | 80 |     .dw XT_STORE | 
      
        |  |  | 81 |     .dw XT_EXECUTE | 
      
        |  |  | 82 |     ; r> handler ! | 
      
        |  |  | 83 |     .dw XT_R_FROM | 
      
        |  |  | 84 |     .dw XT_HANDLER | 
      
        |  |  | 85 |     .dw XT_STORE | 
      
        |  |  | 86 |     .dw XT_R_FROM | 
      
        |  |  | 87 |     .dw XT_DROP | 
      
        |  |  | 88 |     .dw XT_ZERO | 
      
        |  |  | 89 |     .dw XT_EXIT | 
      
        |  |  | 90 | </pre> | 
      
        |  |  | 91 |  | 
      
        |  |  | 92 |       <p> | 
      
        |  |  | 93 |         <input type=button onClick="history.back()" value="Back"> | 
      
        |  |  | 94 |         <input type=button onClick="history.forward()" value="Forward"> | 
      
        |  |  | 95 |         <a href="../WordList.en.html">Jump to Vocabulary</a> | 
      
        |  |  | 96 |       </p> | 
      
        |  |  | 97 |  | 
      
        |  |  | 98 |     </div> | 
      
        |  |  | 99 |  | 
      
        |  |  | 100 |     <!-- AUTOINCLUDE START "Page/Footer.en.ihtml" DO NOT REMOVE --> | 
      
        |  |  | 101 |     <!-- ============== FOOTER ============== --> | 
      
        |  |  | 102 |     <div class="Footer"> | 
      
        |  |  | 103 |       <script type="text/javascript"> | 
      
        |  |  | 104 |       <!-- | 
      
        |  |  | 105 |         SetRelativePath("../../../../"); | 
      
        |  |  | 106 |         DrawFooter(); | 
      
        |  |  | 107 |       // --> | 
      
        |  |  | 108 |       </script> | 
      
        |  |  | 109 |       <noscript> | 
      
        |  |  | 110 |         <p><b> JavaScript is required for including of the footer </b></p> | 
      
        |  |  | 111 |       </noscript> | 
      
        |  |  | 112 |     </div> | 
      
        |  |  | 113 |     <!-- AUTOINCLUDE END --> | 
      
        |  |  | 114 |  | 
      
        |  |  | 115 |   </body> | 
      
        |  |  | 116 | </html> |