V4.0, the last, bis...

diff --git a/MSP430-FORTH/UARTI2CS.f b/MSP430-FORTH/UARTI2CS.f
index 750b723..9980fe6 100644 (file)
--- a/MSP430-FORTH/UARTI2CS.f
+++ b/MSP430-FORTH/UARTI2CS.f
@@ -66,7 +66,7 @@
 \ =============================================================================================
 \ don't forget to set the jumper Txy.z <--> Px.y
 \ =============================================================================================
-\ don't forget to remove the jumpers SBWTCK & SBWTDIO from the USB unpowered launchpad if any
+\ don't forget to remove the jumpers SBWTCK & SBWTDIO from the unpowered launchpad if any
 \ =============================================================================================
 \
 \ empiric value of I2C pullup resistors: R (k) = 8 Vcc / MCLK (MHz). ex. VCC = 3.3, MCLK = 24 MHz ==> R = 1k1
@@ -745,7 +745,7 @@ FW2 \ single use forward label              \ <──────── if Nack
     ." Connect to I2C_SLAVE at @"       \
     . 'BS' EMIT                         \               display number without space after
      ." , TERATERM(Alt-B) "             \
-    ." or I2C_MASTER(S2) to quit..."    \
+    ." or I2C_MASTER(RST) to quit..."   \
     HI2LO                               \               FORTH switch to ASSEMBLER
     MOV @RSP+,IP                        \               restore IP
     BEGIN                               \

diff --git a/inc/MSP430FRxxxx.pat b/inc/MSP430FRxxxx.pat
index 5c5f7ec..7bf96b7 100644 (file)
--- a/inc/MSP430FRxxxx.pat
+++ b/inc/MSP430FRxxxx.pat
@@ -121,6 +121,7 @@ I2C_CTRL=KEY\+\$0A;         used as is: MOV.B #<CTRL_CHAR>,Y
 \#BACKGRND=\#ACCEPT\+\$1C;      MOV #BACKGRND,PC
 \#STOP_APP=\&SYS\+2;            CALL #STOP_APP     
 \#TOS2WARM=\#SYS\+\$0E;         CALL #TOS2WARM      WARM with TOS value
+\#WARM_IP_ADR=\#SYS\+\$12;      MOV #WARM_IP_ADR,IP
 \#TOS2COLD=\#SYS\+\$14;         CALL #TOS2COLD      COLD with TOS value
 INTERPRET=\\+\$08;              address used in CORE_ANS.f
 \#ABORT=\#ALLOT\+\$08;          MOV #ABORT,PC   used in CORE_ANS.f