home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / tcom5.seq < prev    next >
Text File  |  1991-02-13  |  2KB  |  62 lines
  1. \ TCOM5.SEQ             6805 Target Compiler
  2.  
  3. \ Based on TCOM by Tom Zimmer
  4. \ Modified for the M68HC05 by Andrew McKewan
  5.  
  6. ONLY FORTH ALSO DEFINITIONS
  7. EMPTY
  8. ROOT DEFINITIONS
  9. : HOST ONLY FORTH ALSO DEFINITIONS DECIMAL ;
  10. HOST
  11.  
  12. autoeditoff
  13. warning off             \ don't tell me about re-definitions, I KNOW!
  14.  
  15. 100 constant version    \ tcom version number
  16.  
  17. ASSEMBLER DEFINITIONS
  18. DEFER T@        FORTH ' @       ASSEMBLER IS T@
  19. FORTH DEFINITIONS
  20.  
  21. \ fload dis5.seq          \ 6805 Disassembler
  22. \ fload alist.seq         \ listing output for assembler
  23. fload longlabl.seq      \ add long branches to the compiler
  24. fload \tcom\src\compiler.seq      \ load the Compiler
  25. fload binsave.seq       \ Binary object file save
  26. fload asm5.seq          \ 6805 Assembler
  27. fload opt5.seq          \ optimizers for the library
  28. fload lib5.seq          \ library of target functions
  29.  
  30. >library
  31.  
  32. fload register.seq      \ Define 6805 registers
  33. \ fload edge.seq          \ Get edges from card
  34. \ fload empi.seq          \ EMPI card processing
  35. \ fload aba.seq           \ ABA card processing
  36. \ fload output.seq        \ Output formats
  37.  
  38. forth >forth
  39.  
  40. CFGHNDL !HCB TCOM.CFG   \ Change the configuration file name
  41.  
  42. FPATH
  43.  
  44. on> ?noloaded,          \ disable LOADED, in FLOAD
  45.  
  46. ' noop is loadstat
  47. statoff                 \ no status display
  48. vocoff                  \ we don't want the vocabulary display
  49. cr .free
  50.  
  51. xdpseg @ xseg @ - $800 + =: #listsegs   \ need at least 16k free
  52.                        0 =: #ovbytes    \ no overlays for now
  53.                        0 =: #ovsegs     \ no overlays for now "again"
  54.  
  55. warning on
  56.  
  57. off> \fpc
  58. on> \tcom
  59.  
  60. FSAVE TCOM5.EXE
  61.  
  62.