![[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.4, 2003/03/09 15:17:06 | version 1.5, 2003/05/11 17:17:14 |
|---|---|
| Line 21 | Line 21 |
| \ Set up dictionary pointer | \ Set up dictionary pointer |
| >ram here normal-dp ! | >ram here normal-dp ! |
| UNLOCK tudp @ LOCK udp ! | |
| \ set udp | |
| UNLOCK user-region extent nip LOCK udp ! | |
| \ Set up last and forth-wordlist with the address of the last word's | \ Set up last and forth-wordlist with the address of the last word's |
| \ link field | \ link field |