diff --git a/forth/iec.fs b/forth/iec.fs index 40d4a20e..01a0a54c 100644 --- a/forth/iec.fs +++ b/forth/iec.fs @@ -103,7 +103,7 @@ over split ciout ciout \ send load addr over dup 0 do i + dup c@ ciout loop -1+ \ keep saveb compatability +1+ \ keep saveb compatibility unlisten $ba c@ listen $e1 second \ $E0 + $01 close unlisten diff --git a/manual/words.adoc b/manual/words.adoc index 5835e865..5d15e68f 100644 --- a/manual/words.adoc +++ b/manual/words.adoc @@ -272,7 +272,7 @@ If the definition is not found, return _cstr_ and 0, otherwise return the execut If the definition is immediate, also return 1, otherwise also return -1. ((find-name)) _( caddr u -- 0 | nt )_ :: Get the name token (dictionary pointer) of the word named by _caddr u_, or 0 if the word is not found. ((execute)) _( xt -- )_ :: Execute the execution token _xt_. -((>xt)) _( addr -- xt )_ :: Get execution token of word at adress _addr_. +((>xt)) _( addr -- xt )_ :: Get execution token of word at address _addr_. === Debugging @@ -290,7 +290,7 @@ If the definition is immediate, also return 1, otherwise also return -1. ((required)) _( filenameptr filenamelen -- )_ :: Like included, except that load is skipped if the file is already loaded. ((loadb)) _( filenameptr filenamelen dst -- endaddr )_ :: Load file to _dst_. Returns the address after last written byte, or 0 on failure. -((saveb)) _( start end+1 filenameptr filenamelength -- )_ :: Save file. _Start_ = start address of memory area. _End+1_ = end adress of memory area plus 1. +((saveb)) _( start end+1 filenameptr filenamelength -- )_ :: Save file. _Start_ = start address of memory area. _End+1_ = end address of memory area plus 1. ((device)) _( device# -- )_ :: Switch the current device. ((save-forth)) _( "filename" -- )_ :: Save the forth to the given filename. ((ls)) :: Load and print disk directory with optional drive # and wildcards. Example: `ls $1:*=p` Load directory for drive 1, only prg files. diff --git a/test/testcore.fs b/test/testcore.fs index 6e82d716..8c34a54d 100644 --- a/test/testcore.fs +++ b/test/testcore.fs @@ -60,7 +60,7 @@ T{ MSB 2* -> 0S }T T{ 0S 2/ -> 0S }T T{ 1 2/ -> 0 }T T{ 4000 2/ -> 2000 }T -T{ 1S 2/ -> 1S }T \ MSB PROPOGATED +T{ 1S 2/ -> 1S }T \ MSB PROPAGATED T{ 1S 1 XOR 2/ -> 1S }T T{ MSB 2/ MSB AND -> MSB }T