la der de der

[fast-forth/master.git] / inc / MSP430FR57xx.pat

diff --git a/inc/MSP430FR57xx.pat b/inc/MSP430FR57xx.pat
index 4464d1e..e372eb6 100644 (file)
--- a/inc/MSP430FR57xx.pat
+++ b/inc/MSP430FR57xx.pat
@@ -1,9 +1,23 @@
-
 @set-syntax{C;\;}!  tell GEMA to replace default Comment separator '!' by ';'
+
 ;MSP430FR57xx.pat
 
+; ============================================
+; RAM
+; ============================================
+
 ; ----------------------------------------------
-; FastForth RAM memory map (= 1k):
+; FORTH RAM areas :
+; ----------------------------------------------
+LSTACK_SIZE=\#16; words
+PSTACK_SIZE=\#48; words
+RSTACK_SIZE=\#48; words
+PAD_LEN=\#84; bytes
+CIB_LEN=\#84; bytes
+HOLD_SIZE=\#34; bytes
+;
+; ----------------------------------------------
+; FastForth RAM memory map (>= 1k):
 ; ----------------------------------------------
 LEAVEPTR=\$1C00;        Leave-stack pointer, init by QUIT
 LSATCK=\$1C00;          leave stack,      grow up
@@ -14,7 +28,7 @@ PAD_I2CADR=\$1CE0;      RX I2C address
 PAD_I2CCNT=\$1CE2;      count max
 PAD_ORG=\$1CE4;         user scratch pad buffer, 84 bytes, grow up
 ;
-TIB_I2CADR=\$1D38;      TX I2C address
+TIB_I2CADR=\$1D38;      TX I2C address 
 TIB_I2CCNT=\$1D3A;      count of bytes
 TIB_ORG=\$1D3C;         Terminal input buffer, 84 bytes, grow up
 ;
@@ -24,31 +38,30 @@ HOLD_BASE=\$1DB2;       BASE HOLD area, grow down
 HP=\$1DB2;              HOLD ptr
 STATEADR=\$1DB4;        Interpreter state
 BASEADR=\$1DB6;         base
-CAPS=\$1DB8;            CAPS ON/OFF
-SOURCE_LEN=\$1DBA;      len of input stream
-SOURCE_ORG=\$1DBC;      adr of input stream
-TOIN=\$1DBE;            >IN
+SOURCE_LEN=\$1DB8;      len of input stream
+SOURCE_ORG=\$1DBA;      adr of input stream
+TOIN=\$1DBC;            >IN
 ;
-DP=\$1DC0;              dictionary ptr
-LASTVOC=\$1DC2;         keep VOC-LINK
-CURRENT=\$1DC4;         CURRENT dictionnary ptr
-CONTEXT=\$1DC6;         CONTEXT dictionnary space (8 + Null CELLS)
+DP=\$1DBE;              dictionary ptr
+LASTVOC=\$1DC0;         keep VOC-LINK
+CURRENT=\$1DC2;         CURRENT dictionnary ptr
+CONTEXT=\$1DC4;         CONTEXT dictionnary space (8 + Null CELLS)
 ;
 ; ---------------------------------------
-; RAM_ORG + $1DD8 : may be shared between FORTH compiler and user application
+; RAM_ORG + $1D8 : may be shared between FORTH compiler and user application
 ; ---------------------------------------
-LAST_NFA=\$1DD8;
-LAST_THREAD=\$1DDA;
-LAST_CFA=\$1DDC;
-LAST_PSP=\$1DDE;
-ASMBW1=\$1DE0;          3 backward labels
-ASMBW2=\$1DE2;
-ASMBW3=\$1DE4;
-ASMFW1=\$1DE6;          3 forward labels
-ASMFW2=\$1DE8;
-ASMFW3=\$1DEA;
-;
+LAST_NFA=\$1DD6;
+LAST_THREAD=\$1DD8;
+LAST_CFA=\$1DDA;
+LAST_PSP=\$1DDC;
+ASMBW1=\$1DDE;          3 backward labels
+ASMBW2=\$1DE0;
+ASMBW3=\$1DE2;
+ASMFW1=\$1DE4;          3 forward labels
+ASMFW2=\$1DE6;
+ASMFW3=\$1DE8;
+PREV_TOIN=\$1DEA;
 ; ---------------------------------------
-; RAM_ORG + $1DEC RAM free 
+; RAM_ORG + $1EC RAM free 
 ; ---------------------------------------
 ;