diff options
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 29 |
1 files changed, 17 insertions, 12 deletions
@@ -1,6 +1,21 @@ ( : variable create 0 , ; ) ( : create here const ; ) +: ! 2 _! ; +: @ 2 _@ ; +: , here ! 2 allot ; +: cell+ 2 + ; +: cells 2 * ; + +: c! 1 _! ; +: c@ 1 _@ ; +: c, here c! 1 allot ; +: char+ 1+ ; +: chars ; + +: align here 1 & if 1 allot then ; +: aligned dup 1 & if 1 + then ; + ( set decimal numbers ) 10 0 ! @@ -12,6 +27,8 @@ : nip swap drop ; : tuck swap over ; +: +! swap over @ + swap ! ; + : and & ; : or | ; : xor ^ ; @@ -35,15 +52,6 @@ : 2swap rot >r rot r> ; : r@ r> dup >r ; -: , here ! 1 allot ; -: +! swap over @ + swap ! ; -: c! ! ; -: c, , ; -: c@ @ ; -: cell+ 1+ ; -: cells ; -: char+ 1+ ; -: chars ; : 2! swap over ! cell+ ! ; : 2@ dup cell+ @ swap @ ; @@ -62,6 +70,3 @@ : min 2dup <= if drop else nip then ; : max 2dup <= if nip else drop then ; -: align ; -: aligned ; - |