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

Added ?do

Browse Source
This commit is contained in:
Brad Nelson
2021-01-10 17:14:34 -08:00
parent 7c564552ba
commit 043c9634d1
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ueforth/common/boot.fs
View File

@ -90,14 +90,16 @@
( Counted Loops ) ( Counted Loops )
: for postpone >r postpone begin ; immediate : for postpone >r postpone begin ; immediate
: next postpone donext , ; immediate : next postpone donext , ; immediate
: do postpone swap postpone >r postpone >r here ; immediate : do postpone swap postpone >r postpone >r 0 here ; immediate
: ?do postpone swap postpone 2dup postpone < postpone if
postpone >r postpone >r here ; immediate
: i postpone r@ ; immediate : i postpone r@ ; immediate
: j rp@ 3 cells - @ ; : j rp@ 3 cells - @ ;
: unloop postpone rdrop postpone rdrop ; immediate : unloop postpone rdrop postpone rdrop ; immediate
: +loop postpone r> postpone + postpone r> : +loop postpone r> postpone + postpone r>
postpone 2dup postpone >r postpone >r postpone 2dup postpone >r postpone >r
postpone < postpone 0= postpone until postpone < postpone 0= postpone until
postpone unloop ; immediate postpone unloop dup if postpone then then ; immediate
: loop 1 aliteral postpone +loop ; immediate : loop 1 aliteral postpone +loop ; immediate
( Constants and Variables ) ( Constants and Variables )