add base

1 files changed, 7 insertions, 3 deletions

diff --git a/core.fth b/core.fth
index 1a6f1dd..ed28e1f 100644
--- a/core.fth
+++ b/core.fth
@@ -16,6 +16,7 @@
 : ip        [ _d cell+ cell+ ] literal ;
 : here      dp @ ;
 : unused    [ _d 8 cells + ] literal @ here - ;
+: base      [ _d 9 cells + ] literal ;
 : latest    [ _d 4 cells + ] literal @ ;
 
 \ : dup       sp@ @ ;
@@ -39,7 +40,10 @@
 : 1+        1 + ;
 : 1-        1 - ;
 
-: if       ['] _jmp0 , here 0 , ; immediate
-: then     here swap ! ; immediate
-: else     ['] _jmp , here 0 , swap here swap ! ; immediate
+: if        ['] _jmp0 , here 0 , ; immediate
+: then      here swap ! ; immediate
+: else      ['] _jmp , here 0 , swap here swap ! ; immediate
+
+: decimal   10 base ! ;
+: hex       16 base ! ;