Mirror of CollapseOS
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

17 satır
671B

  1. lblfind BSET
  2. ( Find the entry corresponding to word name where (HL) points
  3. to in dictionary having its tip at DE and sets DE to point
  4. to that entry. Z if found, NZ if not. )
  5. HL PUSHqq,
  6. ( First, figure out string len )
  7. A (HL) LDrr, A ORr,
  8. ( special case. zero len? we never find anything. )
  9. IFNZ, ( fail-B296 )
  10. ( Let's do something weird: We'll hold HL by the *tail*.
  11. Because of our dict structure and because we know our
  12. lengths, it's easier to compare starting from the end. )
  13. C A LDrr, B 0 LDrn, ( C holds our length )
  14. BC ADDHLss, HL INCss, ( HL points to after-last-char )
  15. ( cont . )