X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=MSP430-FORTH%2FMSP_EXP430FR5994%2FCORETEST.4TH;h=89b63ab61734fddd093076b949ac79b09b7a59c8;hb=ec2b890a07db1986430c91c464d38e38f5446f3d;hp=117aad77afcae645440e8ecf7d0ee9de94fb2361;hpb=1278e8b975b39652045fcc13f86782c7531bc83f;p=fast-forth%2Fmaster.git

diff --git a/MSP430-FORTH/MSP_EXP430FR5994/CORETEST.4TH b/MSP430-FORTH/MSP_EXP430FR5994/CORETEST.4TH
index 117aad7..89b63ab 100644
--- a/MSP430-FORTH/MSP_EXP430FR5994/CORETEST.4TH
+++ b/MSP430-FORTH/MSP_EXP430FR5994/CORETEST.4TH
@@ -1,12 +1,16 @@
 
-PWR_STATE
+; -------------------------------------
+; CORETEST.4TH for any FastForth target
+; -------------------------------------
 
-: ANSCOMPNOTFOUND
+: COMPNOTFOUND
 $0D EMIT   \ return to column 1
 1 ABORT" {CORE_ANS} word set not found!"
 ;
 
-[DEFINED] {CORE_ANS} [IF]
+[UNDEFINED] {CORE_ANS} [IF] ; {CORE_ANS} is not found ?
+COMPNOTFOUND
+[THEN]
 
 : CORETESTSUCCESS
 $0A BASE !
@@ -1071,8 +1075,8 @@ CREATE ABUF 80 CHARS ALLOT
 ABUF 80 \ ACCEPT            \ JMT 
 ['] ACCEPT DUP @ $4030 =    \ JMT: if CFA content = $4030 (MOV @PC+,PC), ACCEPT is deferred
 IF      >BODY               \ JMT: find default part of deferred ACCEPT
-THEN    EXECUTE             \ execute ACCEPT
-    CR CR ." RECEIVED: " [CHAR] " EMIT
+THEN    EXECUTE             \ JMT: execute ACCEPT
+    CR ." RECEIVED: " [CHAR] " EMIT
     ABUF SWAP TYPE [CHAR] " EMIT CR
 ;
 
@@ -1085,13 +1089,25 @@ T{ : GDX   123 ; : GDX   GDX 234 ; -> }T
 
 T{ GDX -> 123 234 }T
 
-CR .( End of Core word set tests)
+\ ------------------------------------------------------------------------
+TESTING TO VALUE
 
-CORETESTSUCCESS
+T{  111 VALUE v1 -> }T
+T{ -999 VALUE v2 -> }T
+T{ v1 ->  111 }T
+T{ v2 -> -999 }T
+T{ 222 TO v1 -> }T
+T{ v1 -> 222 }T
+T{ : vd1 v1 ; -> }T
+T{ vd1 -> 222 }T
 
-[ELSE]
+T{ : vd2 TO v2 ; -> }T
+T{ v2 -> -999 }T
+T{ -333 vd2 -> }T
+T{ v2 -> -333 }T
+T{ v1 ->  222 }T
 
-ECHO
-ANSCOMPNOTFOUND \               download CORECOMP.f before CORETEST.4TH
 
-[THEN]
+CR .( End of Core word set tests)
+
+CORETESTSUCCESS