![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to prim.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / r8c|
Return to prim.fs CVS log | Up to [gforth] / gforth / arch / r8c |
| version 1.36, 2006/08/26 12:39:57 | version 1.37, 2007/03/18 22:35:52 |
|---|---|
| Line 808 end-code | Line 808 end-code |
| forth-wordlist ram-mirror + ram-start - @ forth-wordlist ! | forth-wordlist ram-mirror + ram-start - @ forth-wordlist ! |
| normal-dp ram-mirror + ram-start - @ normal-dp ! $2000 flash-dp ! ; | normal-dp ram-mirror + ram-start - @ normal-dp ! $2000 flash-dp ! ; |
| : (bye) ( 0 -- ) \ back to DOS | |
| drop 5 emit ; | |
| : bye ( -- ) 0 (bye) ; | |
| : x@+/string ( addr u -- addr' u' c ) | |
| over c@ >r 1 /string r> ; | |