Commit 9317bde6 authored by bp's avatar bp

Floating point wordset loaded by default

git-svn-id: https://forth-ev.de/repos/bigforth@2479 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 1ddc3fc0
......@@ -110,7 +110,7 @@ bigforth.fi: forthker-$(ARCH).fi $(SYSSRC) Makefile
-@$(MV) $@ $@~
env LIBDIR=$(libdir) SRC=$(srcdir) ./forthker-$(ARCH) -e "$(WARNING) include startup.fb $(SAVE) bigforth $(BYE)"
xbigforth.fi: bigforth.fi xconst.fm glconst.fm float.fm $(XSRC) $(INI)
xbigforth.fi: bigforth.fi xconst.fm glconst.fm $(XSRC) $(INI)
-@$(MV) $@ $@~
./bigforth -e "$(WARNING) use x.fs use glconst.fs use float.fb include startx.fs $(XSAVE) xbigforth $(BYE)"
......
\\ *** Loadscreen für Arbeitssystem *** 06jan07py Die folgenden Screens werden benutzt, um von FORTHKER aus ein Arbeitssystem hochzuziehen. Da das Kernal ein rudimentäres File Interface enthält, können alle Dateien mit Include geladen werden \ Loadscreen for Standard System 32b 21jun05py| User lastfile : .blk ( -- ) ( pause blk @ 0= ?EXIT isfile@ lastfile @ = 0= IF cr file? isfile@ lastfile ! THEN base push hex ." Blk " blk @ . ?cr ) ; ' .blk IS .status include assem486.fb include stream.fb include hash.fs save include fileint.fb save DOS legacy on Forth include errore.fs include strings.fs ( save ) include savemod.fb ( save ) include tasker.fb ( include idle.fs ) include vt100key.fs ( include printer.fs ) include output.fb include disass.fb include tools.fb include except.fs include forth200x.fs --> \ Startup part 2 27jan07py include struct.fs include random.fs include environ.fs save [IFDEF] win32 use bigforth.ini [ELSE] use .bigforthrc [THEN] DOS also FORTH main: [IFDEF] win32 bigforth.ini mroot $1C + @ @ >len 2dup dup 4- /string s" .exe" str= IF 4- THEN s" " [ELSE] .bigforthrc mroot $1C + @ @ >len 2dup '/ -scan nip /string s" ." [THEN] pad place pad $sum ! $add [IFDEF] win32 s" .ini" [ELSE] s" rc" [THEN] $add pad count isfile@ assign ['] #load catch IF [IFDEF] win32 s" bigforth.ini" [ELSE] s" .bigforthrc" [THEN] isfile@ assign ['] #load catch drop THEN forth.fb "error off ; Onlyforth save
\ No newline at end of file
\\ *** Loadscreen für Arbeitssystem *** 06jan07py Die folgenden Screens werden benutzt, um von FORTHKER aus ein Arbeitssystem hochzuziehen. Da das Kernal ein rudimentäres File Interface enthält, können alle Dateien mit Include geladen werden \ Loadscreen for Standard System 32b 21jun05py| User lastfile : .blk ( -- ) ( pause blk @ 0= ?EXIT isfile@ lastfile @ = 0= IF cr file? isfile@ lastfile ! THEN base push hex ." Blk " blk @ . ?cr ) ; ' .blk IS .status include assem486.fb include stream.fb include hash.fs save include fileint.fb save DOS legacy on Forth include errore.fs include strings.fs ( save ) include savemod.fb ( save ) include tasker.fb ( include idle.fs ) include vt100key.fs ( include printer.fs ) include output.fb include disass.fb include tools.fb include except.fs include forth200x.fs --> \ Startup part 2 05aug12pyinclude struct.fs include random.fs include environ.fs include float.fb save [IFDEF] win32 use bigforth.ini [ELSE] use .bigforthrc [THEN] DOS also FORTH main: [IFDEF] win32 bigforth.ini mroot $1C + @ @ >len 2dup dup 4- /string s" .exe" str= IF 4- THEN s" " [ELSE] .bigforthrc mroot $1C + @ @ >len 2dup '/ -scan nip /string s" ." [THEN] pad place pad $sum ! $add [IFDEF] win32 s" .ini" [ELSE] s" rc" [THEN] $add pad count isfile@ assign ['] #load catch IF [IFDEF] win32 s" bigforth.ini" [ELSE] s" .bigforthrc" [THEN] isfile@ assign ['] #load catch drop THEN forth.fb "error off ; Onlyforth save
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment