la der de der

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

diff --git a/MSP430-FORTH/SD_430FR5994/MISC/TESTASM.4TH b/MSP430-FORTH/SD_430FR5994/MISC/TESTASM.4TH
index a58e6c9..0cd7c1f 100644 (file)
--- a/MSP430-FORTH/SD_430FR5994/MISC/TESTASM.4TH
+++ b/MSP430-FORTH/SD_430FR5994/MISC/TESTASM.4TH
@@ -7,10 +7,10 @@
     SUB #2,R15
     MOV R14,0(R15)
     MOV &$180A,R14
-    SUB #400,R14
+    SUB #401,R14
     COLON
     $0D EMIT
-    ABORT" FastForth V4.0 please!"
+    ABORT" FastForth V4.1 please!"
     ;
 
     ABORT_TEST_ASM
@@ -188,15 +188,15 @@ BW1 SUB #2,R15
     CODE IF
     SUB #2,R15
     MOV R14,0(R15)
-    MOV &$1DC0,R14
-    ADD #4,&$1DC0
-    MOV #$4096,0(R14)
+    MOV &$1DBE,R14
+    ADD #4,&$1DBE
+    MOV #[THEN]+$52,0(R14)
     ADD #2,R14
     MOV @R13+,R0
     ENDCODE IMMEDIATE
 
     CODE THEN
-    MOV &$1DC0,0(R14)
+    MOV &$1DBE,0(R14)
     MOV @R15+,R14
     MOV @R13+,R0
     ENDCODE IMMEDIATE
@@ -220,9 +220,9 @@ BW1 SUB #2,R15
     ENDCODE IMMEDIATE
 
     CODE UNTIL
-    MOV #$4096,R9
-BW1 ADD #4,&$1DC0
-    MOV &$1DC0,R10
+    MOV #[THEN]+$52,R9
+BW1 ADD #4,&$1DBE
+    MOV &$1DBE,R10
     MOV R9,-4(R10)
     MOV R14,-2(R10)
     MOV @R15+,R14
@@ -230,7 +230,7 @@ BW1 ADD #4,&$1DC0
     ENDCODE IMMEDIATE
 
     CODE AGAIN
-    MOV #$409C,R9
+    MOV #[THEN]+$58,R9
     GOTO BW1
     ENDCODE IMMEDIATE
 
@@ -259,8 +259,8 @@ BW1 ADD #4,&$1DC0
     CODE DO
     SUB #2,R15
     MOV R14,0(R15)
-    ADD #2,&$1DC0
-    MOV &$1DC0,R14
+    ADD #2,&$1DBE
+    MOV &$1DBE,R14
     MOV #XDO,-2(R14)
     ADD #2,&$1C00
     MOV &$1C00,R10
@@ -282,8 +282,8 @@ BW1 BIT #$100,R2
 
     CODE LOOP
     MOV #XLOOP,R9
-BW2 ADD #4,&$1DC0
-    MOV &$1DC0,R10
+BW2 ADD #4,&$1DBE
+    MOV &$1DBE,R10
     MOV R9,-4(R10)
     MOV R14,-2(R10)
     BEGIN
@@ -329,7 +329,7 @@ BW2 ADD #4,&$1DC0
     [UNDEFINED] CR
     [IF]
     CODE CR
-    MOV #$409E,R0
+    MOV #[THEN],R0
     ENDCODE
 
     :NONAME
@@ -340,9 +340,9 @@ BW2 ADD #4,&$1DC0
     [UNDEFINED] C,
     [IF]
     CODE C,
-    MOV &$1DC0,R10
+    MOV &$1DBE,R10
     MOV.B R14,0(R10)
-    ADD #1,&$1DC0
+    ADD #1,&$1DBE
     MOV @R15+,R14
     MOV @R13+,R0
     ENDCODE
@@ -610,7 +610,7 @@ TABLE20 PFA_TABLE ! TABLE 10 DUMP
 ; -----------------------------------------------------------------------
 
     CODE TRUC
-    MOV #$409E,R0
+    MOV #[THEN],R0
     ENDCODE
 
     CODENNM