Add syntax=fasm to FASM files
[rrq/jonasforth.git] / example.f
1 : FIB ( n -- Fn )
2   0 1                            ( n a b )
3   0                              ( n a b i )
4   BEGIN
5     ROT                          ( n i a b )
6     DUP ROT +                    ( n i b a+b )
7     ROT ROT                      ( n b a+b i )
8
9     1 +                          ( n b a+b i+1 )
10   DUP 4 PICK = UNTIL
11   DROP SWAP DROP SWAP DROP ;     ( a+b )
12
13 S" HELLO-ADDR" CREATE
14 S" Hello!" DUP ROT
15 STORE-STRING
16 : HELLO
17   ' HELLO-ADDR LIT, TELL NEWLINE ;
18
19 HELLO
20
21 S" 10 FIB = " TELL
22 10 FIB .U
23 S"  (Expected: 59)" TELL NEWLINE
24
25 TERMINATE