mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 01:18:06 +11:00
17 lines
717 B
Plaintext
17 lines
717 B
Plaintext
Entry management
|
|
|
|
'? x -- a f Find x 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.
|
|
FIND w -- a f Like '?, but for w.
|
|
EMPTY -- Rewind HERE and CURRENT where they were at
|
|
system initialization.
|
|
(cont.)
|