-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 !
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
;
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