PageRenderTime 46ms CodeModel.GetById 20ms RepoModel.GetById 0ms app.codeStats 0ms

/MSP-EXP430FR6989/MSP-EXP430FR6989_8MHz_SD_Card/SD_TESTS.4TH

https://gitlab.com/Jean-Michel/FastForthForMSP430fr5xxx
Forth | 90 lines | 77 code | 13 blank | 0 comment | 1 complexity | f79acc4b5b6c186a2a26ee4022c8b4ee MD5 | raw file
Possible License(s): GPL-3.0 
    

  1. ; -----------------------------
    2. 

  2. ; MSP-EXP430FR5969_SD_TESTS.4TH
    3. 

  3. ; -----------------------------
    4. 

  4. 

  5. ; compile SD_TEST which display a choice to test the embedded driver for FAT16 SD_CARD
    6. 

  6. 

  7. STOP        ; to stop any interrupt in progress
    8. 

  8. WIPE        ;
    9. 

  9. NOECHO      ; comment to debug
    10. 

  10. 

  11. 

  12. ; TODO
    13. 

  13. ; ====
    14. 

  14. 

  15. ; your launchpad is running the right Fast Forth For MSP430FRxxxx, 8MHz version,
    16. 

  16. 

  17. ; -connect your USBtoUART bridge on to the eZ-FET_UART
    18. 

  18. ; -format a SD Card memory (no more 2 Gb, to ensure FAT16 format)
    19. 

  19. ; -copy the content of the MSP-EXP430FRxxxx_SD_CARD folder in root directory of SD_CARD (a:\)
    20. 

  20. ; -wire SD_CARD adapter on MSP-EXP430FR5969 launchpad
    21. 

  21. ; -put SD_CARD memory in its adapter (may be VCC will fall below the brownout threshold, that causes a RESET)
    22. 

  22. ; -press <RESET> to initialize correctly the SD CARD memory
    23. 

  23. ; then, from teraterm terminal, type : LOAD" a:\SD_TEST.4TH"
    24. 

  24. 

  25. 

  26. ; all wiring is described in MSP-EXP430FR5969.inc file
    27. 

  27. ; serial configuration is described in the start of DTCforthMSP430FR5xxx.asm file
    28. 

  28. 

  29. 

  30. ; so you can load any source file, as RC5toLCD.4th, from your memory card
    31. 

  31. ; with the command : LOAD" [drive:]\path\file.ext"
    32. 

  32. 

  33. ; -----------------------------------------------------------------------
    34. 

  34. ; SD_CARD TESTS 
    35. 

  35. ; -----------------------------------------------------------------------
    36. 

  36. 

  37. : SD_TEST
    38. 

  38.     CR
    39. 

  39.     ."    1 Load ANS core tests" CR
    40. 

  40.     ."    2 Load, compile and run a 10k program "
    41. 

  41.             ." from its 223k source file (quiet mode)" CR
    42. 

  42.     ."    3 Read only this source file (quiet mode)" CR
    43. 

  43.     ."    4 Write a dump of the FORTH kernel to yourfile.txt" CR
    44. 

  44.     ."    5 append a dump of the FORTH kernel to yourfile.txt" CR
    45. 

  45.     ."    6 Load truc (test error)" CR
    46. 

  46.     ."    your choice : "
    47. 

  47.     KEY
    48. 

  48.     48 - 
    49. 

  49.     DUP 1 = 
    50. 

  50.     IF  .                               \  display choice
    51. 

  51.         LOAD" a:\CORETEST.4TH"          \  open pathname and interpret it
    52. 

  52.     ELSE DUP 2 =
    53. 

  53.         IF  .                           \  display choice
    54. 

  54.             LOAD" b:\Prog10k.4th"       \  compile about 180k of source code ==> 10.4k program (11 slices of RC5toLCD.4th)
    55. 

  55.         ELSE DUP 3 =
    56. 

  56.             IF  .                       \  display choice 
    57. 

  57.                 READ" c:\Prog10k.4th"   \  open pathname as read file and load first sector in buffer
    58. 

  58.                 BEGIN
    59. 

  59.                     READ                \  sequentially load one sector in buffer
    60. 

  60.                 UNTIL                   \  until CurrentHdl is closed and previous handle restored
    61. 

  61.             ELSE DUP 4 =
    62. 

  62.                 IF  .                   \  display choice
    63. 

  63.                     DEL" d:\yourfile.txt"       \ DEL then WRITE operations
    64. 

  64.                     WRITE" d:\yourfile.txt" 
    65. 

  65.                     0x4400 HERE OVER - DUMP
    66. 

  66.                     CLOSE
    67. 

  67.                 ELSE DUP 5 =
    68. 

  68.                     IF  .                       \  display choice
    69. 

  69.                         WRITE" d:\yourfile.txt" \ only WRITE operation
    70. 

  70.                         0x4400 HERE OVER - DUMP
    71. 

  71.                         CLOSE
    72. 

  72.                     ELSE DUP 6 =
    73. 

  73.                         IF  .                   \  display choice 
    74. 

  74.                             LOAD" e:\truc"
    75. 

  75.                         ELSE 
    76. 

  76.                             DROP ." ?"      \  all other choices
    77. 

  77.                             CR ."    loading TSTWORDS.4th..."
    78. 

  78.                             LOAD" TSTWORDS.4TH"
    79. 

  79.                         THEN
    80. 

  80.                     THEN
    81. 

  81.                 THEN
    82. 

  82.             THEN
    83. 

  83.         THEN
    84. 

  84.     THEN
    85. 

  85.     CR
    86. 

  86. ;
    87. 

  87. 

  88. ECHO
    89. 

  89. PWR_HERE    ;
    90. 

  90. SD_TEST     ; type CR
    91.