alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding erase and blank.

Browse Source
This commit is contained in:
Brad Nelson
2021-06-18 16:54:17 -07:00
parent 60a8012396
commit 33586205aa
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
ueforth/common/boot.fs
View File

@ -192,7 +192,8 @@ variable hld
( Fill, Move ) ( Fill, Move )
: cmove ( a a n -- ) for aft >r dup c@ r@ c! 1+ r> 1+ then next 2drop ; : cmove ( a a n -- ) for aft >r dup c@ r@ c! 1+ r> 1+ then next 2drop ;
: cmove> ( a a n -- ) for aft 2dup swap r@ + c@ swap r@ + c! then next 2drop ; : cmove> ( a a n -- ) for aft 2dup swap r@ + c@ swap r@ + c! then next 2drop ;
: fill ( a a n -- ) swap for swap aft 2dup c! 1 + then next 2drop ; : fill ( a n ch -- ) swap for swap aft 2dup c! 1 + then next 2drop ;
: erase ( a n -- ) 0 fill ; : blank ( a n -- ) bl fill ;
( Better Errors ) ( Better Errors )
: notfound ( a n n -- ) : notfound ( a n n -- )