Add syntax=fasm to FASM files

[rrq/jonasforth.git] / sys.f

diff --git a/sys.f b/sys.f
index d222320fcfe931fcf5e54db18749ae045ba4fbc0..92efcb4667734414aecfc2bfb2a43a83627301cb 100644 (file)
--- a/sys.f
+++ b/sys.f
@@ -62,18 +62,6 @@ EXIT [
 : MOD /MOD SWAP DROP ;
 : NEG 0 SWAP - ;
 
-: FIB ( n -- Fn )
-  0 1                            ( n a b )
-  0                              ( n a b i )
-  BEGIN
-    ROT                          ( n i a b )
-    DUP ROT +                    ( n i b a+b )
-    ROT ROT                      ( n b a+b i )
-
-    1 +                          ( n b a+b i+1 )
-  DUP 4 PICK = UNTIL
-  DROP SWAP DROP SWAP DROP ;     ( a+b )
-
 : C,
   HERE @ C!
   HERE @ 1 +
@@ -88,17 +76,3 @@ EXIT [
     SWAP 1 + SWAP
   1 - DUP 0 = UNTIL
   DROP DROP ;
-
-S" HELLO-ADDR" CREATE
-S" Hello!" DUP ROT
-STORE-STRING
-: HELLO
-  ' HELLO-ADDR LIT, TELL NEWLINE ;
-
-HELLO
-
-S" 10 FIB = " TELL
-10 FIB .U
-S"  (Expected: 59)" TELL NEWLINE
-
-TERMINATE