![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pass.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to pass.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.2, 2000/09/23 15:47:12 | version 1.3, 2001/07/10 20:36:26 |
|---|---|
| Line 19 | Line 19 |
| \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. | \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. |
| \ Setup dictionary pointer | \ Set up dictionary pointer |
| >ram here normal-dp ! | >ram here normal-dp ! |
| UNLOCK tudp @ LOCK udp ! | UNLOCK tudp @ LOCK udp ! |
| \ Set up last and forth-wordlist with the address of the last word's | |
| \ Setup last and forth-wordlist with address of last words | |
| \ link field | \ link field |
| UNLOCK tlast @ LOCK | UNLOCK tlast @ LOCK |
| 1 cells - dup forth-wordlist wordlist-id ! Last ! | 1 cells - dup forth-wordlist wordlist-id ! Last ! |