Skip to content

Latest commit

 

History

History
76 lines (57 loc) · 944 Bytes

README.md

File metadata and controls

76 lines (57 loc) · 944 Bytes
Raw

Herve runs Forth !

Using A minimal Forth compiler in ANSI C by Leif Bruder which I modified just enougth to run under herve :

$ ../herve -i lbForth.elf
Configuration error: DCELL_SIZE != 2*CELL_SIZE
 OK
 1 1 + .
2  OK
2 2 * .
4  OK
123 456 +
 OK
.
579  OK

5 2 + 10 * .
70  OK



: foo  100 + ;
 OK
1000 foo
 OK
.
1100  OK
10 foo foo foo .
310  OK


1 2 3 dup
 OK
. . . .
3 3 2 1  OK

1 2 3 4 swap
 OK
. . . .
3 4 2 1  OK


: print-stack-top  cr dup ." The top of the stack is " .
  cr ." which looks like '" dup emit ." ' in ascii  " ;
48 print-stack-top OK
 OK


The top of the stack is 48
which looks like '0' in ascii   OK

.
48  OK
.
? Stack underflow


 OK
: (fibo-iter) ( n n - n n) swap over + ;
 OK
: th-fibo ( n - n) >r 1 dup r> 2 - 0 do (fibo-iter) loop nip ;
 OK
10 th-fibo .
55  OK

4 th-fibo .
3  OK
12 th-fibo .
144  OK
14 th-fibo .
377  OK