Rev Author Line No. Line
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/word.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/word.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 ; ( c -- addr ) Tools
61 ; R( -- )
62 ; skip leading delimiter characters and parses TIB to the next delimiter. copy the word into PAD
63 VE_WORD:
64 .db $04, &quot;word&quot;,0
65 .dw VE_HEAD
66 .set VE_HEAD = VE_WORD
67 XT_WORD:
68 .dw DO_COLON
69 PFA_WORD:
70 .dw XT_TO_R ; ( -- )
71 .dw XT_SOURCE ; ( -- addr len)
72 .dw XT_G_IN ; ( -- addr len &gt;in)
73 .dw XT_FETCH
74 .dw XT_SLASHSTRING ; ( -- addr' len' )
75  
76 .dw XT_SWAP ; ( -- len' addr' )
77 .dw XT_OVER ; ( -- len' addr' len')
78 .dw XT_R_FETCH ; ( -- len' addr' len' c)
79 .dw XT_CSKIP ; ( -- len' addr'' len'')
80 .dw XT_ROT ; ( -- addr'' len'' len')
81 .dw XT_OVER ; ( -- addr'' len'' len' len'')
82 .dw XT_MINUS ; ( -- addr'' len'' dlen)
83 .dw XT_G_IN ; ( -- addr'' len'' dlen &gt;in)
84 .dw XT_PLUSSTORE ; ( -- addr'' len'')
85  
86 .dw XT_R_FROM ; ( -- addr'' len'' c)
87 .dw XT_CSCAN ; ( -- addr''' len''')
88 .dw XT_DUP ; ( -- addr''' len''' len''')
89 .dw XT_1PLUS ;
90 .dw XT_G_IN
91 .dw XT_PLUSSTORE ; ( -- addr''' len''')
92 .dw XT_PAD ; ( -- addr''' len''' pad)
93 .dw XT_OVER ; ( -- addr''' len''' pad len''')
94 .dw XT_OVER ; ( -- addr''' len''' pad len''' pad)
95 .dw XT_CSTORE ; ( -- addr''' len''' pad)
96 .dw XT_1PLUS ; ( -- addr''' len''' pad+1)
97 .dw XT_SWAP ; ( -- addr''' pad+1 len''')
98 .dw XT_CMOVE_G ; ( --- )
99 .dw XT_PAD
100  
101 .dw XT_ZERO ; append a zero byte. find/icompare _does_ need it
102 .dw XT_PAD
103 .dw XT_DUP
104 .dw XT_CFETCH
105 .dw XT_PLUS ; ( -- pad pad+len )
106 .dw XT_1PLUS
107 .dw XT_CSTORE
108 .dw XT_EXIT
109 </pre>
110  
111 <p>
112 <input type=button onClick="history.back()" value="Back">
113 <input type=button onClick="history.forward()" value="Forward">
114 <a href="../WordList.en.html">Jump to Vocabulary</a>
115 </p>
116  
117 </div>
118  
119 <!-- AUTOINCLUDE START "Page/Footer.en.ihtml" DO NOT REMOVE -->
120 <!-- ============== FOOTER ============== -->
121 <div class="Footer">
122 <script type="text/javascript">
123 <!--
124 SetRelativePath("../../../../");
125 DrawFooter();
126 // -->
127 </script>
128 <noscript>
129 <p><b> JavaScript is required for including of the footer </b></p>
130 </noscript>
131 </div>
132 <!-- AUTOINCLUDE END -->
133  
134 </body>
135 </html>