Mirror of CollapseOS
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

17 行
699B

  1. C A LDrr, ( C holds our length )
  2. ( Let's do something weird: We'll hold HL by the *tail*.
  3. Because of our dict structure and because we know our
  4. lengths, it's easier to compare starting from the end.
  5. Currently, after CPIR, HL points to char after null. Let's
  6. adjust. Because the compare loop pre-decrements, instead
  7. of DECing HL twice, we DEC it once. )
  8. HL DECss,
  9. BEGIN, ( inner )
  10. ( DE is a wordref, first step, do our len correspond? )
  11. HL PUSHqq, ( --> lvl 1 )
  12. DE PUSHqq, ( --> lvl 2 )
  13. DE DECss,
  14. LDA(DE),
  15. 0x7f ANDn, ( remove IMMEDIATE flag )
  16. C CPr, ( cont. )