MSP430-FORTH/FastForthSpecs.4th

   1
   2 ; ------------------
   3 ; FastForthSpecs.4th
   4 ; ------------------
   5
   6 ; display all FastForth compilation options
   7
   8 0 CONSTANT CASE IMMEDIATE
   9
  10 : OF
  11 1+
  12 >R
  13 POSTPONE OVER POSTPONE =
  14 POSTPONE IF
  15 POSTPONE DROP
  16 R>
  17 ; IMMEDIATE
  18
  19 : ENDOF
  20 >R
  21 POSTPONE ELSE
  22 R>
  23 ; IMMEDIATE
  24
  25 : ENDCASE
  26 POSTPONE DROP
  27 0 DO
  28     POSTPONE THEN
  29 LOOP
  30 ; IMMEDIATE
  31
  32 : BS 8 EMIT ;
  33 : ESC #27 EMIT ;
  34
  35 : ADDONS
  36 ESC ." [7m"
  37 ." KERNEL ADD-ON:"
  38 ESC ." [0m"
  39 $1812 @
  40     DUP + DUP 0< IF CR ." TERMINAL5WIRES" THEN
  41     DUP + DUP 0< IF CR ." TERMINAL4WIRES" THEN
  42     DUP + DUP 0< IF CR ." TERMINAL3WIRES" THEN
  43     DUP + DUP 0< IF CR ." TOTAL" THEN
  44     DUP + DUP 0< IF CR ." QUIETBOOT" THEN
  45     DUP + DUP 0< IF CR ." BOOTLOADER" THEN
  46     DUP + DUP 0< IF CR ." SD_CARD_READ_WRITE" THEN
  47     DUP + DUP 0< IF CR ." SD_CARD_LOADER" THEN
  48     DUP + DUP 0< IF CR ." FIXPOINT_INPUT" THEN
  49     DUP + DUP 0< IF CR ." DOUBLE_INPUT" THEN
  50     DUP + DUP 0< IF CR ." VOCABULARY_SET" THEN
  51     DUP + DUP 0< IF CR ." NONAME" THEN
  52     DUP + DUP 0< IF CR ." EXTENDED_ASSEMBLER" THEN
  53     DUP + DUP 0< IF CR ." ASSEMBLER" THEN
  54     DUP + DUP 0< IF CR ." CONDCOMP" THEN
  55     0<
  56 IF CR CR
  57 ESC ." [7m"
  58 ." OTHER ADD-ON:"
  59 ESC ." [0m"
  60     [DEFINED] {ANS_COMP} [IF] CR ." ANS_COMPLEMENT" [THEN]
  61     [DEFINED] {TOOLS}    [IF] CR ." UTILITY" [THEN]
  62     [DEFINED] {FIXPOINT} [IF] CR ." FIXPOINT" [THEN]
  63     [DEFINED] {SD_TOOLS} [IF] CR ." SD_TOOLS" [THEN]
  64 THEN
  65 ;
  66
  67 : specs
  68 PWR_STATE
  69 ESC ." [1J"
  70 ESC ." [H"
  71 ESC ." [7m"
  72 CR ." FastForth V"
  73 $1810 @ U.
  74 ." for MSP430FR"
  75 HERE
  76 $1A04 @
  77 CASE
  78 $830C OF ." 2355" $8000 ENDOF
  79 $8240 OF ." 2433" $C400 ENDOF
  80 $81F0 OF ." 4133" $C400 ENDOF
  81 $8103 OF ." 5739" $C200 ENDOF
  82 $8102 OF ." 5738" $C200 ENDOF
  83 $8169 OF ." 5969" $4400 ENDOF
  84 $8160 OF ." 5948" $4400 ENDOF
  85 $82A1 OF ." 5994" $4000 ENDOF
  86 $81A8 OF ." 6989" $4400 ENDOF
  87 ABORT" xxxx <-- unrecognized device!"
  88 ENDCASE SPACE
  89 $1806 @ 0 1000 UM/MOD U. BS
  90 ?DUP
  91 IF   ." ," U. BS
  92 THEN ." MHz, "
  93 $1800 @ U. BS ." -Entry Vocabularies, "
  94 - U. ." bytes, "
  95 $FF80 HERE - U. ." bytes free"
  96 CR
  97 ESC ." [0m"
  98 CR ADDONS CR
  99 ;
 100
 101 ECHO
 102 specs