基于STM32F1 的BASIC解码实验

1、basic程序以文件形式存储

2、程序文件存储在sd卡

3、解释结果显示在液晶屏上

% E9 c9 s1 ?0 X4 a0 L. X

主函数部分

1. int main(void)
   $ ~( h6 e* @$ M5 C4 O* s
2. {
   
3. u16 i,j;
   
4. 
   # ?0 E( F7 {8 W9 W! P. ?+ H
5. delay_init(72);        //延时初始化
   
6. Init_Io();
   ! s' T; \* B$ L( a* W! [2 l
7. GLCD_Init();        //初始化液晶
   
8. 
   
9. BACK_COLOR=0x001F;
   
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    0 |7 v1 p# T' t# ^& g1 Z
11. LCD_ShowString(30,30,__DATE__);
    ; f: c+ z1 I* Y- J" J" i/ r. D
12. LCD_ShowString(150,30,__TIME__);
    
13. 
    
14. ffext_mount(0, &fs);
    
15. 
    , i: L( c' d/ t; S, p
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    
17. BACK_COLOR=0x001F;
    $ n* F1 T( y& N
18. POINT_COLOR=0xF800;
    9 l0 v$ Z% i2 U
19. 
    + l+ T' ]% a2 t4 U. Y, O5 N8 t
20. basic(wbuff2);
    
21. 
    
22. while (1)
    
23. {
    % J1 f6 J+ u( ]4 n" A- ?8 H6 v& q6 c
24. 
    
25. }
    
26. }

复制代码

basic关键字部分

1. 
   
2. struct commands /* 关键字查找表 */
   , A' M/ }; ?! t$ R
3. {
   6 W$ V& B1 U. _  K
4. char command[20];
   
5. char tok;
   
6. }table[] ={ /* 命令必须输入小写 */
   2 {4 [$ p2 t  B4 _. _
7. "print", PRINT,
   * E. T* L% Y0 v" G9 |
8. "input", INPUT,
   
9. "if", IF,
   
10. "then", THEN,
      p. N0 i- h* l8 H9 ?( @
11. "goto", GOTO,
    / g( e: [+ P0 F. L4 y' J
12. "for", FOR,
    
13. "next", NEXT,
    9 Y+ ~7 k' G1 K5 N: ]% V8 |$ I
14. "to", TO,
    
15. "gosub", GOSUB,
    
16. "return", RETURN,
    
17. "end", END,
    % g" b& b( ~. p7 X
18. "", END /* 单词表的结束 */
    
19. };

复制代码

执行部分

1. 
   
2. void basic(char *buf)
   
3. {
   2 ~6 x! I- T4 l) L8 ]$ b1 P% Q
4. char *p_buf;
   8 g) s- m" M0 k+ L
5. 
   
6. 
   . u1 d; Z, o+ v: v. u$ a
7. /* 载入源文件 */
   
8. 
   
9. p_buf=buf;
   
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    4 ^- T' {! P  n- O! r
11. 
      ]& J4 W( g' K( U. N4 M
12. prog = p_buf;
    
13. scan_labels(); /* 在程序中找到标签 */
    8 Y' ]1 u  F# F. Y! k5 t. G
14. ftos = 0; /* 初始化FOR堆栈索引 */
    
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    ) J7 K5 r6 _9 o6 }- F  n- t/ r
16. do
    # I( l1 x) U: {
17. {
    
18. token_type = get_token();
    - K& j+ A$ g: D- e( `8 f, ^
19. /* 检查赋值语句 */
    
20. if(token_type==VARIABLE)
    ; v4 |" ^) R$ ^1 @
21. {
    3 ~9 b1 i$ i' l) e- q1 k2 ^
22. putback(); /* 将变量返回到输入流 */
    
23. assignment(); /* 必须是赋值语句 */
    & S8 y* z" ]. J  d- r
24. }
    
25. else /* 是命令 */
    
26. switch(tok)
    ; ~# c2 O/ I+ \0 y7 M7 e
27. {
    : ]8 j7 L8 @$ S0 N! `: L9 k5 ?
28. case PRINT:
    
29. print();
    
30. break;
    8 k# W' Q" s+ u# k
31. case GOTO:
    
32. exec_goto();
    
33. break;
    
34. case IF:
    2 H2 Y( l& _: F5 U2 {# C
35. exec_if();
    ( B. I  P2 c; J9 p, Q
36. break;
    
37. case FOR:
    ( W. l; x6 c- Q/ q' H' X
38. exec_for();
    
39. break;
    
40. case NEXT:
    ' B8 r# `2 q8 @; [4 Z
41. next();
    
42. break;
    
43. case INPUT:
    
44. input();
    
45. break;
    
46. case GOSUB:
    + l+ D+ C1 l' V: J
47. gosub();
    8 E4 x' w: w* `' G2 ]7 E; `
48. break;
    . r2 G% {1 U. V
49. case RETURN:
    
50. greturn();
    5 P: c. ~1 h" }* P& `% Y
51. break;
    
52. case END:
    " K& T. {: P& G, d- @
53. printf("run basic end!");
    ; A' b% Y, o$ V
54. while(1);
    
55. exit(0);
    7 e+ F0 A' A+ ?% l9 `7 K1 I
56. }
    
57. }while (tok != FINISHED);
    
58. 
    
59. }

复制代码

" P8 z, D$ y& Z/ q' D

参考资料： 测试手册.pdf (1.17 MB, 下载次数: 10)

2015-3-30 11:32 上传

点击文件名下载附件

+ G) W# i0 c  v% z4 S2 w& T
0 |7 D: G8 V8 q5 v7 F

谢谢楼主代码啦

学习了，表示看不懂

学习了，似成相识，好多年以前学过BASIC