version 1.84, 2006/03/05 14:10:52
|
version 1.85, 2006/03/05 14:29:05
|
Line 458 doer? :dovar [IF]
|
Line 458 doer? :dovar [IF]
|
Header reveal here lastcfa ! 0 A, 0 , DOES> ; |
Header reveal here lastcfa ! 0 A, 0 , DOES> ; |
[THEN] |
[THEN] |
|
|
|
has? flash [IF] |
|
: (variable) dpp @ normal-dp = IF Create |
|
ELSE normal-dp @ Constant dpp @ ram THEN ; |
|
: Variable ( "name" -- ) \ core |
|
(Variable) 0 , dpp ! ; |
|
|
|
: AVariable ( "name" -- ) \ gforth |
|
(Variable) 0 A, dpp ! ; |
|
|
|
: 2Variable ( "name" -- ) \ double two-variable |
|
(Variable) 0 , 0 , dpp ! ; |
|
[ELSE] |
: Variable ( "name" -- ) \ core |
: Variable ( "name" -- ) \ core |
Create 0 , ; |
Create 0 , ; |
|
|
Line 465 doer? :dovar [IF]
|
Line 477 doer? :dovar [IF]
|
Create 0 A, ; |
Create 0 A, ; |
|
|
: 2Variable ( "name" -- ) \ double two-variable |
: 2Variable ( "name" -- ) \ double two-variable |
create 0 , 0 , ; |
Create 0 , 0 , ; |
|
[THEN] |
|
|
has? no-userspace 0= [IF] |
has? no-userspace 0= [IF] |
: uallot ( n -- ) \ gforth |
: uallot ( n -- ) \ gforth |