home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / sf_pc.seq < prev    next >
Text File  |  1991-02-08  |  3KB  |  79 lines
  1. \ SF-PC.SEQ     Extend file for KERNEL.COM to build SF.EXE
  2.  
  3. CFGHNDL !HCB .CFG               \ Clear the configuration filename
  4.  
  5. FLOAD TIMER.SEQ                 \ Timing and measurment words.
  6. FLOAD TIMESTUF.SEQ              \ More timing words
  7.  
  8. WARNING OFF                     \ Don't warn me about any re-definitions.
  9.  
  10. .( Loading the extensions to KERNEL.COM, with all HEADERS PRESENT. ) CR
  11.  
  12. FLOAD COMMENT.SEQ  .( .)   \ Allows multi-line comments in source.
  13. FLOAD UTILS.SEQ    .( .)   \ Some low level utilities.
  14. FLOAD BRACES.SEQ   .( .)   \ Glen Haydons's comment tool uses { }    OPTIONAL
  15. FLOAD VOCABS.SEQ   .( .)   \ Forths ONLY ALSO vocabulary structure.
  16.  
  17. FLOAD BEHEAD.SEQ   .( .)   \ a utility to remove some heads from F-PC
  18.  
  19. HWORDS-                    \ DON'T Throw away heads
  20.  
  21. FLOAD DEFERS.SEQ   .( .)   \ Adds DEFERS and UNDEFERS
  22. FLOAD BUFSET.SEQ   .( .)   \ Automatically adjust read buffer size.
  23. FLOAD DECOM.SEQ    .( .)   \ decompiler,                        OPTIONAL
  24. FLOAD DUMP.SEQ     .( .)   \ dump utility,                      OPTIONAL
  25. FLOAD CASE.SEQ     .( .)   \ A CASE utility needed by PASM.SEQ
  26. FLOAD PASM.SEQ     .( .)   \ Prefix/Postfix assembler for 8086/8088
  27.  
  28. FLOAD LOADEXE.SEQ  .( .)   \ The load part of the SAVE-EXE mechanism
  29. FLOAD SAVEEXE.SEQ  .( .)   \ The save part of the SAVE-EXE mechanism
  30.  
  31. \ Now we can save the system back to disk at any time.
  32.  
  33. FLOAD PATHSET.SEQ  .( .)   \ Includes paths on files,           OPTIONAL
  34. FLOAD SEARCH.SEQ   .( .)   \ String comparison & search stuff
  35. FLOAD LARGEST.SEQ  .( .)   \ find the largest word in a list
  36. FLOAD WORDS.SEQ    .( .)   \ WORDS,                             OPTIONAL
  37. FLOAD IBMCURSR.SEQ .( .)   \ IBM cursor shape control words
  38. FLOAD MONOCROM.SEQ .( .)   \ Monochrome support, always needed.
  39. FLOAD COLOR.SEQ    .( .)   \ Support for Color                  OPTIONAL
  40. FLOAD BOXTEXT.SEQ  .( .)   \ ability to draw boxes
  41. FLOAD SAVESCR.SEQ  .( .)   \ Screen save and restore.
  42.  
  43. CAPS ON
  44.  
  45. FLOAD qvideo.seq   .( .)   \ SPEED UP SCREEN DISPLAY            OPTIONAL
  46. FLOAD pertype.seq  .( .)   \ Imbedded display attributes in TYPE
  47. FLOAD ledit.seq    .( .)   \ Line editor utility
  48. FLOAD fl.seq       .( .)   \ File selection.
  49. FLOAD needs.seq    .( .)   \ Allow optional loading of needed files.
  50. FLOAD environ.seq  .( .)   \ Environment words.
  51. FLOAD exec.seq     .( .)   \ DOS interface for things like DIR,COPY ect.
  52. FLOAD print.seq    .( .)   \ Print to a file words.             OPTIONAL
  53. FLOAD sound.seq    .( .) \ Add TONE and change BEEP to use TONE    OPTIONAL
  54.  
  55. : help  ( -- )
  56.         savescr
  57.         " ZLIST TCOMHELP.DOC " ">$ [ hidden ] $SYS drop
  58.         restscr  ;
  59.  
  60. hidden >keys1 ' help 187 lkey!         \ help shells to Z editor
  61.        >keys2 ' help 187 lkey!
  62.  
  63. hidden ' <equit> alias defmenu forth
  64.  
  65. FLOAD xexpect.seq  .( .) \ A line editor for EXPECT.               OPTIONAL
  66.  
  67. warning on
  68.  
  69. \u decimalbase          decimalbase     \ default to DECIMAL on any error
  70.  
  71. 6000 =: #listsegs               \ give me a BIGGER dictionary
  72.    0 =: #ovbytes                \ no overlays for now
  73.    0 =: #ovsegs                 \ no overlays for now "again"
  74.  
  75. save-exe SF
  76.  
  77. bye                             \ All done, leave now.
  78.  
  79.