Commit 309f129c authored by Bernd Paysan's avatar Bernd Paysan

add flags for VFX port of Minos

parent 71a3891e
This source diff could not be displayed because it is too large. You can view the blob instead.
No preview for this file type
......@@ -19,6 +19,8 @@ library: libpng12.so.0
: init-png-lib ; \ not supported in VFX Forth
true value png3
false Value png14
false Value png15
[ELSE]
also DOS
......
\\ *** 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
\\ *** 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 08jan16py| 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