home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / common.fs < prev    next >
Encoding:
Text File  |  2006-10-19  |  365 b   |  29 lines
  1.  
  2. \    Common source for cross-compiler and target compiler
  3. \
  4. \    Pass 0 for cross compiler, and 1 for target compiler.
  5.  
  6. dup
  7. [IF]
  8.     unlock also target definitions
  9. [ELSE]
  10.     
  11. [THEN]
  12.  
  13. also assembler
  14. order
  15.  
  16. has? standard-threading 0= [if]
  17. $690 rDODOES + constant BL-DODOES
  18. $690 rDOCOL + constant BL-DOCOL
  19. $6A0 constant BL-@
  20. [then]
  21.  
  22. previous
  23.  
  24. [IF]
  25.     previous lock
  26. [ELSE]
  27.  
  28. [THEN]
  29.