V303, newcomer: FastForth I2C TERMINAL

[fast-forth/master.git] / MSP430-FORTH / MSP_EXP430FR5994 / CHNGBAUD.4TH

diff --git a/MSP430-FORTH/MSP_EXP430FR5994/CHNGBAUD.4TH b/MSP430-FORTH/MSP_EXP430FR5994/CHNGBAUD.4TH
index 5680131..cdc0c77 100644 (file)
--- a/MSP430-FORTH/MSP_EXP430FR5994/CHNGBAUD.4TH
+++ b/MSP430-FORTH/MSP_EXP430FR5994/CHNGBAUD.4TH
@@ -40,13 +40,11 @@ SUB #2,R15
 MOV R14,0(R15)
 MOV &$1DC6,R14
 ADD #4,&$1DC6
-MOV #$404C,0(R14)
+MOV #$4042,0(R14)
 ADD #2,R14
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] THEN [IF]
 CODE THEN
 MOV &$1DC6,0(R14)
 MOV @R15+,R14
@@ -58,7 +56,7 @@ ENDCODE IMMEDIATE
 CODE ELSE
 ADD #4,&$1DC6
 MOV &$1DC6,R10
-MOV #$4048,-4(R10)
+MOV #$403E,-4(R10)
 MOV R10,0(R14)
 SUB #2,R10
 MOV R10,R14
@@ -68,24 +66,28 @@ ENDCODE IMMEDIATE
 
 [UNDEFINED] BEGIN [IF]
 CODE BEGIN
-MOV #HERE,R0
+    MOV #$402C,R0
+ENDCODE IMMEDIATE
+
+CODE UNTIL
+    MOV #$4042,R9
+BW1 ADD #4,&$1DC6
+    MOV &$1DC6,R10
+    MOV R9,-4(R10)
+    MOV R14,-2(R10)
+    MOV @R15+,R14
+    MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] AGAIN [IF]
 CODE AGAIN
-MOV #$4048,R9
+MOV #$403E,R9
 GOTO BW1
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] WHILE [IF]
 : WHILE
 POSTPONE IF SWAP
 ; IMMEDIATE
-[THEN]
 
-[UNDEFINED] REPEAT [IF]
 : REPEAT
 POSTPONE AGAIN POSTPONE THEN
 ; IMMEDIATE
@@ -97,17 +99,15 @@ SUB #2,R15
 MOV R14,0(R15)
 ADD #2,&$1DC6
 MOV &$1DC6,R14
-MOV #$4056,-2(R14)
+MOV #$404C,-2(R14)
 ADD #2,&$1C00
 MOV &$1C00,R10
 MOV #0,0(R10)
 MOV @R13+,R0
 ENDCODE IMMEDIATE
-[THEN]
 
-[UNDEFINED] LOOP [IF]
 CODE LOOP
-    MOV #$4078,R9
+    MOV #$406E,R9
 BW1 ADD #4,&$1DC6
     MOV &$1DC6,R10
     MOV R9,-4(R10)
@@ -123,6 +123,11 @@ REPEAT
     MOV @R15+,R14
     MOV @R13+,R0
 ENDCODE IMMEDIATE
+
+CODE +LOOP
+MOV #$405C,R9
+GOTO BW1
+ENDCODE IMMEDIATE
 [THEN]
 
 [UNDEFINED] >R [IF]
@@ -135,7 +140,10 @@ ENDCODE
 
 [UNDEFINED] R> [IF]
 CODE R>
-MOV R6,R0
+SUB #2,R15
+MOV R14,0(R15)
+MOV @R1+,R14
+MOV @R13+,R0
 ENDCODE
 [THEN]
 
@@ -211,7 +219,7 @@ ENDCODE
 [UNDEFINED] UM/MOD [IF]
 CODE UM/MOD
     PUSH #DROP
-    MOV #$407E,R0
+    MOV #$4074,R0
 ENDCODE
 [THEN]