mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 15:10:55 +11:00
17 lines
769 B
Plaintext
17 lines
769 B
Plaintext
|
Entry management
|
||
|
|
||
|
(find) a -- a f Read at a and find it in dict. If found,
|
||
|
f=1 and a = wordref. If not found, f=0 and
|
||
|
a = string addr.
|
||
|
' x -- a Push addr of word x to a. If not found,
|
||
|
aborts.
|
||
|
['] x -- *I* Like "'", but spits the addr as a number
|
||
|
literal. If not found, aborts.
|
||
|
, n -- Write n in HERE and advance it.
|
||
|
ALLOT n -- Move HERE by n bytes
|
||
|
C, b -- Write byte b in HERE and advance it.
|
||
|
DELW a -- Delete wordref at a. If it shadows another
|
||
|
definition, that definition is unshadowed.
|
||
|
FORGET x -- Rewind the dictionary (both CURRENT and HERE) up to
|
||
|
x's previous entry. (cont.)
|