V300, la Der de Der

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

diff --git a/MSP430-FORTH/SD_TOOLS.f b/MSP430-FORTH/SD_TOOLS.f
index 2987014..c2bb40d 100644 (file)
--- a/MSP430-FORTH/SD_TOOLS.f
+++ b/MSP430-FORTH/SD_TOOLS.f
@@ -1,3 +1,4 @@
+\ -*- coding: utf-8 -*-
 
 ; ---------------------------------------------------------------
 ; SD_TOOLS.f : BASIC TOOLS for SD Card : DIR FAT SECTOR CLUSTER
@@ -31,9 +32,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<
 
-PWR_STATE
+: DEFINED! ECHO 1 ABORT" already loaded!" ;
+
+[DEFINED] {SD_TOOLS} [IF] DEFINED!
 
-[UNDEFINED] {SD_TOOLS} [IF] \ 
+[ELSE]
+
+PWR_STATE
 
 MARKER {SD_TOOLS}
 
@@ -151,15 +156,12 @@ CODE DIR                            \ Display CurrentDir first sector
 ENDCODE
 \ ----------------------------------\
 
-ECHO
-            ; added : FAT to DUMP first sector of FAT1 and DIR for that of current DIRectory.
-            ; added : SECTOR to DUMP a sector and CLUSTER for first sector of a cluster:
-            ;         include a decimal point to force 32 bits number, example : .2 CLUSTER
 
 RST_HERE
 
-[ELSE]
-ECHO
-; already exists
 [THEN]
+ECHO
+; added : FAT to DUMP first sector of FAT1 and DIR for that of current DIRectory.
+; added : SECTOR to DUMP a sector and CLUSTER for first sector of a cluster:
+;         include a decimal point to force 32 bits number, example : .2 CLUSTER