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.

17 linhas
478B

  1. : _
  2. (boot<)
  3. DUP 4 = IF
  4. ( We drop our char, but also "a" from WORD: it won't
  5. have the opportunity to balance PSP because we're
  6. EXIT!ing. )
  7. 2DROP
  8. ( We're finished interpreting )
  9. EXIT!
  10. THEN
  11. ;
  12. ( pre-comment for tight LOAD: The 0x08==I check after INTERPRET
  13. is to check whether we're restoring to "_", the word above.
  14. if yes, then we're in a nested load. Also, the 1 in 0x06 is
  15. to avoid tons of "ok" displays. )