Mirror of CollapseOS
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

16 linhas
670B

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