Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.107, 2011/09/01 20:09:23 | version 1.108, 2011/09/22 10:05:11 |
---|---|
Line 483 doer? :dovar [IF] | Line 483 doer? :dovar [IF] |
Header reveal here lastcfa ! 0 A, 0 , DOES> ; | Header reveal here lastcfa ! 0 A, 0 , DOES> ; |
[THEN] | [THEN] |
: buffer: ( u "name" -- ) \ core ext | |
Create allot ; | |
has? flash [IF] | has? flash [IF] |
: (variable) dpp @ normal-dp = IF Create dpp @ | : (variable) dpp @ normal-dp = IF Create dpp @ |
ELSE normal-dp @ Constant dpp @ ram THEN ; | ELSE normal-dp @ Constant dpp @ ram THEN ; |