diff options
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -1,12 +1,11 @@ -: cell 8 ; : cell+ cell + ; : cells cell * ; : char+ 1 + ; : chars ; -: state _d 7 cells + ; -: [ 0 state ! ; immediate -: ] -1 state ! ; +: state [ _d 7 cells + ] literal ; +\ : [ 0 state ! ; immediate +\ : ] -1 state ! ; : sp _d ; : rp [ _d cell+ ] literal ; @@ -19,8 +18,8 @@ : unused [ _d 8 cells + ] literal @ here - ; : latest [ _d 4 cells + ] literal @ ; -: dup sp@ @ ; -: drop sp@ cell+ sp ! ; +\ : dup sp@ @ ; +\ : drop sp@ cell+ sp ! ; : pick cells cell+ sp@ + @ ; : >r rp@ cell - rp ! rp@ cell+ @ rp@ ! @@ -28,7 +27,7 @@ : r> rp@ @ rp@ cell+ rp ! rp@ @ swap rp@ ! ; -: rot >r swap r> swap ; +\ : rot >r swap r> swap ; : -rot rot rot ; : over 1 pick ; |