Mirror of CollapseOS
您最多选择25个主题 主题必须以字母或数字开头,可以包含连字符 (-),并且长度不得超过35个字符

17 行
748B

  1. Entry management
  2. '? x -- a f Find x it in dict. If found, f=1 and
  3. a = wordref. If not found, f=0 and
  4. a = string addr.
  5. ' x -- a Push addr of word x to a. If not found,
  6. aborts.
  7. ['] x -- *I* Like "'", but spits the addr as a number
  8. literal. If not found, aborts.
  9. , n -- Write n in HERE and advance it.
  10. ALLOT n -- Move HERE by n bytes
  11. C, b -- Write byte b in HERE and advance it.
  12. DELW a -- Delete wordref at a. If it shadows another
  13. definition, that definition is unshadowed.
  14. EMPTY -- Rewind HERE and CURRENT where they were at
  15. system initialization. (cont.)