V4.0

[fast-forth/master.git] / MSP430-FORTH / SD_430FR5994 / BOOT.4TH

diff --git a/MSP430-FORTH/SD_430FR5994/BOOT.4TH b/MSP430-FORTH/SD_430FR5994/BOOT.4TH
index 22d224d..956597f 100644 (file)
--- a/MSP430-FORTH/SD_430FR5994/BOOT.4TH
+++ b/MSP430-FORTH/SD_430FR5994/BOOT.4TH
@@ -3,8 +3,11 @@
 ; BOOT.4th for MSP_EXP430FR5994
 ; --------
 
-    [UNDEFINED] DUP
-    [IF]
+; ------------------------------------------------------------------
+; first we download the set of definitions we need (from CORE_ANS.4th for MSP_EXP430FR5994)
+; ------------------------------------------------------------------
+
+    [UNDEFINED] DUP [IF]
     CODE DUP
 BW1 SUB #2,R15
     MOV R14,0(R15)
@@ -18,16 +21,14 @@ BW1 SUB #2,R15
     ENDCODE
     [THEN]
 
-    [UNDEFINED] DROP
-    [IF]
+    [UNDEFINED] DROP [IF]
     CODE DROP
     MOV @R15+,R14
     MOV @R13+,R0
     ENDCODE
     [THEN]
 
-    [UNDEFINED] =
-    [IF]
+    [UNDEFINED] = [IF]
     CODE =
     SUB @R15+,R14
     SUB #1,R14
@@ -36,16 +37,14 @@ BW1 SUB #2,R15
     ENDCODE
     [THEN]
 
-    [UNDEFINED] +
-    [IF]
+    [UNDEFINED] + [IF]
     CODE +
     ADD @R15+,R14
     MOV @R13+,R0
     ENDCODE
     [THEN]
 
-    [UNDEFINED] EXECUTE
-    [IF]
+    [UNDEFINED] EXECUTE [IF]
     CODE EXECUTE
     PUSH R14
     MOV @R15+,R14
@@ -53,11 +52,23 @@ BW1 SUB #2,R15
     ENDCODE
     [THEN]
 
-    DUP 4 =
+; --------------------------
+; end of definitions we need
+; --------------------------
+
+; ------------------------------------------------------------------------------
+; WARNING !
+; ------------------------------------------------------------------------------
+; it is not recommended here to compile then execute a definition
+; because the risk of crushing thereafter.
+; Interpreting mode as below is required:
+; ------------------------------------------------------------------------------
+
+    DUP 6 =
     [IF]
         DROP
         RST_RET
         LOAD" SD_TEST.4TH"
     [ELSE]
-        ' SYS $0A + EXECUTE
+        ' SYS $0E + EXECUTE
     [THEN]