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

More shuffling.

Browse Source
This commit is contained in:
Brad Nelson
2022-07-14 11:04:18 -07:00
parent 3da2f4bfd3
commit 8066bfb2e8
14 changed files with 53 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
common/tier1a_forth.fs
View File

@ -73,16 +73,5 @@ drop
( Compilation State )
: [ 0 state ! ; immediate
: ] -1 state ! ; immediate
: ' bl parse 2dup find dup >r -rot r> 0= 'notfound @ execute 2drop ;
: literal aliteral ; immediate
: f= ( r r -- f ) f- f0= ;
: f< ( r r -- f ) f- f0< ;
: f> ( r r -- f ) fswap f< ;
: f<> ( r r -- f ) f= 0= ;
: f<= ( r r -- f ) f> 0= ;
: f>= ( r r -- f ) f< 0= ;
4 constant sfloat
: sfloats ( n -- n*4 ) sfloat * ;
: sfloat+ ( a -- a ) sfloat + ;