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

: cell      8 ;
: cell+     cell + ;
: cells     cell * ;
: char+     1 + ;
: chars     ;

: state     _d 7 cells + ;
: [         0 state ! ; immediate
: ]         -1 state ! ;

: sp        _d ;
: rp        [ _d cell+ ] literal ;
: dp        [ _d 3 cells + ] literal ;

: sp@       sp @ ;
: rp@       rp @ cell+ ;
: ip        [ _d cell+ cell+ ] literal ;
: here      dp @ ;
: unused    [ _d 8 cells + ] literal @ here - ;
: latest    [ _d 4 cells + ] literal @ ;

: dup       sp@ @ ;
: drop      sp@ cell+ sp ! ;
: pick      cells cell+ sp@ + @ ;
: >r        rp@ cell - rp !
            rp@ cell+ @ rp@ !
            rp@ cell+ ! ;
: r>        rp@ @
            rp@ cell+ rp !
            rp@ @ swap rp@ ! ;
: rot       >r swap r> swap ;
: -rot      rot rot ;
: over      1 pick ;

: +!        dup >r swap r> @ + swap ! ;
: allot     dp +! ;
: ,         here ! cell allot ;

: 1+        1 + ;
: 1-        1 - ;