core.fth


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

( : variable create 0 , ; )
( : create here const ; )

( 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 >> ;
: 2*     2 * ;
: 2/     2 / ;

: ,      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 ! ;