home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
starget.seq
< prev
next >
Wrap
Text File
|
1991-02-08
|
2KB
|
52 lines
\ TARGET.SEQ A New Target Compiler
warning off \ don't tell me about re-definitions, I KNOW!
fload dis8086.seq \ disassembler for 8086 family
fload longlabl.seq \ add long branchs to the compiler
fload compiler.seq \ load the Compiler
fload alist.seq \ listing output for assembler
fload optimiz.seq \ optimizers for the target library
fload library.seq \ library of target functions
fload tsearch.seq \ library search utility
fload tvideo.seq \ library direct video output
fload tsavescr.seq \ save and restore screen OPTIONAL
fload tcolor.seq \ color support OPTIONAL
fload thand1.seq \ some handle primitives
fload tpath.seq \ automatic file path prepend
fload thandles.seq \ handle file support
fload tstdio.seq \ standard I/O support
fload texec.seq \ DOS shell support
fload tenviron.seq \ environment support
fload definit.seq \ default target initialization
fload tbox.seq \ box drawing OPTIONAL
fload tmenu.seq \ Pull down menu support OPTIONAL
fload tblock.seq \ simple virtual BLOCK storage OPTIONAL
fload tledit.seq \ line editor support OPTIONAL
fload twfl.seq \ popup window file selection tool
fload ttimer.seq \ basic time and date support OPTIONAL
fload ttimstuf.seq \ calibrated time delay words OPTIONAL
fload tsread.seq \ lineread support OPTIONAL
forth
CFGHNDL !HCB TCOM.CFG \ Change the configuration file name
FPATH
on> ?noloaded, \ disable LOADED, in FLOAD
4000 =: iblimit \ limit read size to 4k
xdpseg @ xseg @ - $100 + =: #listsegs \ need at least 4k free
0 =: #ovbytes \ no overlays for now
0 =: #ovsegs \ no overlays for now "again"
#codesegs $200 - =: #codesegs \ reduce code space usage
#headsegs $400 - =: #headsegs \ reduce symbol space usage
off> \fpc \ set compiler flags properly
on> \tcom
FSAVE ..\TCOM