V300, la Der de Der

[fast-forth/master.git] / MSP430-FORTH / CORDIC.f

diff --git a/MSP430-FORTH/CORDIC.f b/MSP430-FORTH/CORDIC.f
index 417a773..d6c9a4d 100644 (file)
--- a/MSP430-FORTH/CORDIC.f
+++ b/MSP430-FORTH/CORDIC.f
@@ -1,3 +1,4 @@
+\ -*- coding: utf-8 -*-
 
 ; ----------
 ; CORDIC.f
@@ -27,7 +28,13 @@
 \ ASSEMBLER conditionnal usage with IF UNTIL WHILE  S<  S>=  U<   U>=  0=  0<>  0>=
 \ ASSEMBLER conditionnal usage with ?JMP ?GOTO      S<  S>=  U<   U>=  0=  0<>  0<
 
-[DEFINED] {CORDIC} [IF] {CORDIC} [THEN] \ remove {CORDIC}
+: DEFINED! ECHO 1 ABORT" already loaded!" ;
+
+[DEFINED] {CORDIC} [IF] DEFINED!
+
+[ELSE]
+
+PWR_STATE
 
 MARKER {CORDIC}
 
@@ -323,6 +330,8 @@ ENDCODE                 \
 
 RST_HERE
 
+[THEN] 
+
 : 2000CORDIC
 1000 0 DO
     POL2REC REC2POL     \ 1000 loops
@@ -383,3 +392,5 @@ ECHO
 10000 14,036 2000CORDIC ROT . F.
 10000 7,125 2000CORDIC  ROT . F.
 10000 1,0 2000CORDIC    ROT . F.
+
+