Mirror of CollapseOS
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

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. )