version 1.17, 1996/07/16 20:57:08
|
version 1.19, 1997/01/04 16:32:28
|
Line 30 decimal
|
Line 30 decimal
|
|
|
\ VALUE 2>R 2R> 2R@ 17may93jaw |
\ VALUE 2>R 2R> 2R@ 17may93jaw |
|
|
: value ( w -- ) \ core-ext |
: value ( w "name" -- ) \ core-ext |
(constant) , ; |
(constant) , ; |
\ !! 2value |
\ !! 2value |
|
|
Line 78 decimal
|
Line 78 decimal
|
\ UNUSED 17may93jaw |
\ UNUSED 17may93jaw |
|
|
: unused ( -- u ) \ core-ext |
: unused ( -- u ) \ core-ext |
s0 @ 512 - \ for stack |
forthstart dup 3 cells + @ + here - ; |
here - ; |
|
|
|
\ [COMPILE] 17may93jaw |
\ [COMPILE] 17may93jaw |
|
|
Line 94 decimal
|
Line 93 decimal
|
\ CONVERT 17may93jaw |
\ CONVERT 17may93jaw |
|
|
: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext |
: convert ( ud1 c-addr1 -- ud2 c-addr2 ) \ core-ext |
\ obsolescent; supersedet by @code{>number}. |
\ obsolescent; superseded by @code{>number}. |
true >number drop ; |
true >number drop ; |
|
|
\ ERASE 17may93jaw |
\ ERASE 17may93jaw |