Commit 759d1626 authored by bp's avatar bp
Browse files

More work to get 2.4.0 ready

git-svn-id: https://forth-ev.de/repos/bigforth@1628 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent f34966fc
......@@ -16,12 +16,6 @@
dup 0= IF nip THEN ;
\ Simpler: : key ekey $FF and ;
\ defer@/defer!/action-of
: defer@ ( xt -- xt ) >body @ ;
: defer! ( xt1 xt2 -- ) >body ! ;
' what's Alias action-of
\ obsolescent
User span
: expect accept span ! ;
......
This diff is collapsed.
\ forth 200x stuff
: Synonym Header -2 allot bl word find dup 0= IF no.extensions THEN
dup 0> IF immediate THEN
1 and 0= IF restrict THEN A,
$20 last @ dup >r c@ or r> c! reveal ;
\ defer@/defer!/action-of
: defer@ ( xt -- xt ) >body @ ;
: defer! ( xt1 xt2 -- ) >body ! ;
Synonym action-of what's
......@@ -42,10 +42,6 @@ include sincos.fs
\needs l" include i18n.fs
\needs substitute include substitute.fs
: Synonym Header -2 allot bl word find dup 0= IF no.extensions THEN
dup 0> IF immediate THEN
1 and 0= IF restrict THEN A,
$20 last @ dup >r c@ or r> c! reveal ;
' /string Alias safe/string
[THEN]
\ useful utilities 09jan00py
......
\\ *** 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 --> \ 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 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
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