V300 beautified

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

diff --git a/MSP430-FORTH/ANS_COMP.f b/MSP430-FORTH/ANS_COMP.f
index e18feea..1ddfe95 100644 (file)
--- a/MSP430-FORTH/ANS_COMP.f
+++ b/MSP430-FORTH/ANS_COMP.f
@@ -29,7 +29,11 @@
 
 PWR_STATE
 
-[UNDEFINED] {ANS_COMP} [IF]
+: DEFINED! ECHO 1 ABORT" already loaded!" ;
+
+[DEFINED] {ANS_COMP} [IF] DEFINED!
+
+[ELSE]
 
 MARKER {ANS_COMP}
 
@@ -482,7 +486,7 @@ CODE SOURCE
 SUB #4,PSP
 MOV TOS,2(PSP)
 MOV &SOURCE_LEN,TOS
-MOV &SOURCE_ADR,0(PSP)
+MOV &SOURCE_ORG,0(PSP)
 MOV @IP+,PC
 ENDCODE
 
@@ -501,5 +505,4 @@ PAD_ORG CONSTANT PAD
 RST_HERE
 
 [THEN]
-
 ECHO