diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1,6 +1,9 @@ : decimal 10 base ! ; : hex 16 base ! ; +: cells 8 * ; +: allot here @ swap here +! ; + : [compile] parse find drop >cfa compile, ; immediate : ' parse find drop >cfa [compile] lit ; immediate \ note: no error handling (yet) @@ -9,7 +12,6 @@ : if 0branch here @ 0 d, ; immediate ( I: -- a ) : then dup here @ swap - 4 - swap d! ; immediate -: cells 8 * ; : cell+ 8 + ; : / /mod swap drop ; : mod /mod drop ; |
