1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 22:48:05 +11:00
collapseos/blk/037

17 lines
763 B
Plaintext
Raw Normal View History

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.
2020-04-15 04:25:14 +10:00
FORGET x -- Rewind the dictionary (both CURRENT and HERE)
up to x's previous entry. (cont.)