MSP430-FORTH/SD_430FR5994/BOOT.4TH

   1
   2 ; --------
   3 ; BOOT.4th for MSP_EXP430FR5994
   4 ; --------
   5
   6 ; ------------------------------------------------------------------
   7 ; first we download the set of definitions we need (from CORE_ANS.4th for MSP_EXP430FR5994)
   8 ; ------------------------------------------------------------------
   9
  10     [UNDEFINED] DUP [IF]
  11     CODE DUP
  12 BW1 SUB #2,R15
  13     MOV R14,0(R15)
  14     MOV @R13+,R0
  15     ENDCODE
  16
  17     CODE ?DUP
  18     CMP #0,R14
  19     0<> ?GOTO BW1
  20     MOV @R13+,R0
  21     ENDCODE
  22     [THEN]
  23
  24     [UNDEFINED] DROP [IF]
  25     CODE DROP
  26     MOV @R15+,R14
  27     MOV @R13+,R0
  28     ENDCODE
  29     [THEN]
  30
  31     [UNDEFINED] = [IF]
  32     CODE =
  33     SUB @R15+,R14
  34     SUB #1,R14
  35     SUBC R14,R14
  36     MOV @R13+,R0
  37     ENDCODE
  38     [THEN]
  39
  40     [UNDEFINED] + [IF]
  41     CODE +
  42     ADD @R15+,R14
  43     MOV @R13+,R0
  44     ENDCODE
  45     [THEN]
  46
  47     [UNDEFINED] EXECUTE [IF]
  48     CODE EXECUTE
  49     PUSH R14
  50     MOV @R15+,R14
  51     MOV @R1+,R0
  52     ENDCODE
  53     [THEN]
  54
  55 ; --------------------------
  56 ; end of definitions we need
  57 ; --------------------------
  58
  59 ; ------------------------------------------------------------------------------
  60 ; WARNING !
  61 ; ------------------------------------------------------------------------------
  62 ; it is not recommended here to compile then execute a definition
  63 ; because the risk of crushing thereafter.
  64 ; Interpreting mode as below is required:
  65 ; ------------------------------------------------------------------------------
  66
  67     DUP 6 =
  68     [IF]
  69         DROP
  70         RST_RET
  71         LOAD" SD_TEST.4TH"
  72     [ELSE]
  73         ' SYS $0E + EXECUTE
  74     [THEN]