Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

17 lines
797B

  1. ( RLDICT pre-comment: Copy dict from target wordref, including
  2. header, up to HERE. We're going relocate those words by
  3. specified offset. To do this, we're copying this whole memory
  4. area in HERE and then iterate through that copied area and call
  5. RLWORD on each word. That results in a dict that can be
  6. concatenated to target's prev entry in a more compact way.
  7. This copy of data doesn't allocate anything, so H@ doesn't
  8. move. Moreover, we reserve 4 bytes at H@ to write our target
  9. and offset because otherwise, things get too complicated with
  10. the PSP.
  11. The output of this word is 3 numbers: top copied address, top
  12. copied CURRENT, and then the beginning of the copied dict at
  13. the end to indicate that we're finished processing.
  14. cont. )