diff options
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 40 |
1 files changed, 0 insertions, 40 deletions
@@ -1,34 +1,5 @@ -: state [ _d 7 cells + ] literal ; - -: sp [ _d cell+ ] literal ; -: rp [ _d 2 cells + ] literal ; -: dp [ _d 4 cells + ] literal ; - -: sp@ sp @ ; -: rp@ rp @ cell+ ; -: ip [ _d 3 cells + ] literal ; -: here dp @ ; : unused [ _d 8 cells + ] literal @ here - ; -: base [ _d 9 cells + ] literal ; -: latest _d @ ; - -: pick cells cell+ sp@ + @ ; -: >r rp@ cell - rp ! - rp@ cell+ @ rp@ ! - rp@ cell+ ! ; -: r> rp@ @ - rp@ cell+ rp ! - rp@ @ swap rp@ ! ; -: over 1 pick ; - -: 2dup over over ; -: 2over 3 pick 3 pick ; -: 2swap rot >r rot r> ; -: +! dup >r swap r> @ + swap ! ; -: allot dp +! ; -: , here ! cell allot ; -: c, here c! 1 allot ; : ['] ' [ ' literal , ] ; immediate : if ['] _jmp0 , here 0 , ; immediate @@ -39,11 +10,6 @@ : 2>r ['] swap , ['] >r , ['] >r , ; immediate : r@ ['] r> , ['] dup , ['] >r , ; immediate -: 2! swap over ! cell+ ! ; -: 2@ dup cell+ @ swap @ ; - -: <= 2dup < >r = r> or ; - : _msb [ 1 cell 8 * 1- lshift ] literal ; : 2/ dup 1 rshift swap 0< if _msb or then ; @@ -52,16 +18,10 @@ : min 2dup <= if drop else swap drop then ; : max 2dup <= if swap drop else drop then ; -: aligned cell 1- + cell 1- invert and ; -: align here dup aligned swap - allot ; - : cr 10 emit ; : space bl emit ; \ : spaces begin dup 0 > while space 1- repeat drop ; -: decimal 10 base ! ; -: hex 16 base ! ; - : begin 0 here ; immediate : while swap 1+ swap postpone if -rot ; immediate : repeat ['] _jmp , , if postpone then then ; immediate |