V208 Modified ACCEPT COLD WARM ?ABORT, S".

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

diff --git a/MSP430-FORTH/CHNGBAUD.f b/MSP430-FORTH/CHNGBAUD.f
index 6506a32..317627f 100644 (file)
--- a/MSP430-FORTH/CHNGBAUD.f
+++ b/MSP430-FORTH/CHNGBAUD.f
@@ -1,10 +1,16 @@
-; CHNGBAUD.f
 
+; ------------
+; CHNGBAUD.f
+; ------------
+\
+\ to see kernel options, download FastForthSpecs.f
+\ FastForth kernel options: nothing
+\
 \ TARGET SELECTION
 \ MSP_EXP430FR5739  MSP_EXP430FR5969    MSP_EXP430FR5994    MSP_EXP430FR6989
 \ MSP_EXP430FR4133  MSP_EXP430FR2433    MSP_EXP430FR2355    CHIPSTICK_FR2433
 \
-\
+
 : BAD_MHz
     1 ABORT"  only for 4,8,16,24 MHz MCLK!"
 ;
@@ -27,39 +33,31 @@ ECHO CR
 ."    2 --> 4 MBds" CR      \ linux driver max speed
 ."    3 --> 2457600 Bds" CR
 ."    4 --> 921600 Bds" CR
-."    5 --> 115200 Bds" CR
+."    5 --> 230400 Bds" CR
+."    6 --> 115200 Bds" CR
 ."    other --> abort" CR
 ."    your choice: "
 KEY
 
-48 - ?DUP 0=                \ select 6MBds ?
+#48 - ?DUP 0=               \ select 6MBds ?
 IF  ." 6 MBds"              \ add this to the current line
-    R@ 4000 =               \ 4MHz ?
-    IF  R@ BAD_SPEED        \ abort
-    THEN
-    R@ 8000 =               \ 8MHz ?
-    IF  R@ BAD_SPEED        \ abort
-    THEN
-    R@ 16000 =              \ 16MHz ?
+    R@ #24000 <              \ < 24MHz ?
     IF  R@ BAD_SPEED
     THEN
-    R@ 24000 <>             \ 24 MHz ?
+    R@ #24000 <>             \ 24 MHz ?
     IF  BAD_MHz             \ no: --> abort
     THEN                
     $4                      \ TERM_BRW
     $0                      \ TERM_MCTLW
 ELSE 1 - ?DUP 0=            \ select 5MBds ?
     IF  ." 5 MBds"
-        R@ 4000 =           \ 4MHz ?
+        R@ #16000 <         \ < 16MHz ?
         IF  R@ BAD_SPEED    \ abort
         THEN
-        R@ 8000 =           \ 8MHz ?
-        IF  R@ BAD_SPEED    \ abort
-        THEN
-        R@ 16000 =
+        R@ #16000 =
         IF  $3              \ TERM_BRW
             $2100           \ TERM_MCTLW
-        ELSE R@ 24000 <>
+        ELSE R@ #24000 <>
             IF  BAD_MHz
             THEN
             $4              \ TERM_BRW
@@ -67,16 +65,13 @@ ELSE 1 - ?DUP 0=            \ select 5MBds ?
         THEN
     ELSE 1 - ?DUP 0=            \ select 4MBds ?
         IF  ." 4 MBds"
-            R@ 4000 =           \ 4MHz ?
-            IF  R@ BAD_SPEED    \ abort
-            THEN
-            R@ 8000 =
+            R@ #16000 <
             IF  R@ BAD_SPEED    \ abort
             THEN
-            R@ 16000 =
+            R@ #16000 =
                 IF  $4          \ TERM_BRW
                     $0          \ TERM_MCTLW
-                ELSE R@ 24000 <>
+                ELSE R@ #24000 <>
                     IF  BAD_MHz
                     THEN
                     $6          \ TERM_BRW
@@ -84,16 +79,16 @@ ELSE 1 - ?DUP 0=            \ select 5MBds ?
                 THEN
         ELSE 1 - ?DUP 0=            \ select 2457600 ?
             IF  ." 2457600 Bds"
-                R@ 4000 =           \ 4MHz ?
+                R@ #4000 =           \ 4MHz ?
                 IF  R@ BAD_SPEED    \ abort
                 THEN
-                R@ 8000 =
+                R@ #8000 =
                 IF  $3              \ TERM_BRW
                     $4400           \ TERM_MCTLW
-                ELSE R@ 16000 =
+                ELSE R@ #16000 =
                     IF  $6          \ TERM_BRW
                         $AA00       \ TERM_MCTLW
-                    ELSE R@ 24000 <>
+                    ELSE R@ #24000 <>
                         IF  BAD_MHz
                         THEN
                         $9          \ TERM_BRW
@@ -102,17 +97,17 @@ ELSE 1 - ?DUP 0=            \ select 5MBds ?
                 THEN
             ELSE 1 - ?DUP 0=                \ select 921600 ?
                 IF  ." 921600 Bds"
-                    R@ 4000 =               \ 4MHz ?
+                    R@ #4000 =               \ 4MHz ?
                     IF  4                   \ TERM_BRW
                         $4900               \ TERM_MCTLW
                     ELSE
-                        R@ 8000 =
+                        R@ #8000 =
                         IF  8               \ TERM_BRW
                             $D600           \ TERM_MCTLW
-                        ELSE R@ 16000 =
+                        ELSE R@ #16000 =
                             IF  $11         \ TERM_BRW
                                 $4A00       \ TERM_MCTLW
-                            ELSE R@ 24000 <>
+                            ELSE R@ #24000 <>
                                 IF  BAD_MHz
                                 THEN
                                 $1          \ TERM_BRW
@@ -120,28 +115,49 @@ ELSE 1 - ?DUP 0=            \ select 5MBds ?
                             THEN
                         THEN
                     THEN
-                ELSE 1 - ?DUP 0=                \ select 115200 ?
-                    IF  ." 115200 Bds"
-                        R@ 4000  =
-                        IF  2                   \ TERM_BRW
-                            $BB21               \ TERM_MCTLW
+                ELSE 1 - ?DUP 0=                \ select 230400 ?
+                    IF  ." 230400 Bds"
+                        R@ #4000  =
+                        IF  17                  \ TERM_BRW
+                            $4A00               \ TERM_MCTLW
                         ELSE
-                            R@ 8000  =
-                            IF  4               \ TERM_BRW
-                                $5551           \ TERM_MCTLW
-                            ELSE R@ 16000 =
-                                IF  8           \ TERM_BRW
-                                    $F7A1       \ TERM_MCTLW
-                                ELSE R@ 24000 <>
+                            R@ #8000  =
+                            IF  2               \ TERM_BRW
+                                $BB21           \ TERM_MCTLW
+                            ELSE R@ #16000 =
+                                IF  4           \ TERM_BRW
+                                    $5551       \ TERM_MCTLW
+                                ELSE R@ #24000 <>
                                     IF  BAD_MHz
                                     THEN
-                                    $0D         \ TERM_BRW
-                                    $4901       \ TERM_MCTLW
+                                    6           \ TERM_BRW
+                                    $0001       \ TERM_MCTLW
+                                THEN
+                            THEN
+                        THEN
+                    ELSE 1 - ?DUP 0=                \ select 115200 ?
+                        IF  ." 115200 Bds"
+                            R@ #4000  =
+                            IF  2                   \ TERM_BRW
+                                $BB21               \ TERM_MCTLW
+                            ELSE
+                                R@ #8000  =
+                                IF  4               \ TERM_BRW
+                                    $5551           \ TERM_MCTLW
+                                ELSE R@ #16000 =
+                                    IF  8           \ TERM_BRW
+                                        $F7A1       \ TERM_MCTLW
+                                    ELSE R@ #24000 <>
+                                        IF  BAD_MHz
+                                        THEN
+                                        $0D         \ TERM_BRW
+                                        $4901       \ TERM_MCTLW
+                                    THEN
                                 THEN
                             THEN
+                        ELSE                    \ other selected 
+                            ." abort" CR ABORT
                         THEN
-                    ELSE                    \ other selected 
-                        ." abort" CR ABORT
                     THEN
                 THEN
             THEN
@@ -154,4 +170,4 @@ R> DROP                     \ clear stacks
 CR ."    Change baudrate in Teraterm, save its setup then reboot."
 ;
 
-CHNGBAUD
+CHNGBAUD