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     MOV #\+$28,R0
  50     ENDCODE
  51     [THEN]
  52
  53 ; --------------------------
  54 ; end of definitions we need
  55 ; --------------------------
  56
  57 ; ------------------------------------------------------------------------------
  58 ; WARNING !
  59 ; ------------------------------------------------------------------------------
  60 ; it is not recommended here to compile then execute a definition
  61 ; because the risk of crushing thereafter.
  62 ; Interpreting mode as below is required:
  63 ; ------------------------------------------------------------------------------
  64
  65     DUP 6 =
  66     [IF]
  67         DROP
  68         RST_RET
  69         LOAD" SD_TEST.4TH"
  70     [ELSE]
  71         ' SYS $0E + EXECUTE
  72     [THEN]