add more core.fth words

1 files changed, 34 insertions, 1 deletions

diff --git a/core.fth b/core.fth
index ab53923..555b126 100644
--- a/core.fth
+++ b/core.fth
@@ -1,15 +1,48 @@
 ( : variable create 0 , ; )
 ( : create here const ; )
 
-: . 0 sys ;
+( set decimal numbers )
+10 0 !
+
+: .      0 sys ;
+: emit   1 sys ;
 
 : over   1 pick ;
 : -rot   rot rot ;
 : nip    swap drop ;
 : tuck   swap over ;
 
+: +!     swap over @ + swap ! ;
+
 : 1+ 1 + ;
 : 1- 1 - ;
 
 : 0= 0 = ;
 : >= < 0= ;
+
+: 2drop  drop drop ;
+: 2dup   over over ;
+: 2over  3 pick 3 pick ;
+: 2swap  rot >r rot r> ;
+
+: and    & ;
+: or     | ;
+: xor    ^ ;
+: lshift << ;
+: rshift >> ;
+
+: ,      here ! 1 allot ;
+: c!     ! ;
+: c,     , ;
+: c@     @ ;
+: cell+  1+ ;
+: cells  ;
+: char+  1+ ;
+: chars  ;
+
+: cr 9 emit ;
+: bl 32 ;
+
+: base    0 ;
+: decimal 1 2* base ! 1010 base ! ;
+