Mirror of CollapseOS
25개 이상의 토픽을 선택하실 수 없습니다. Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

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