基于STM32F1 的BASIC解码实验

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

2、程序文件存储在sd卡

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

主函数部分

1. int main(void)
   
2. {
   9 V' H6 u& i# w" G
3. u16 i,j;
   
4. 
   4 b% b2 a; n' G/ r5 `8 e5 c
5. delay_init(72);        //延时初始化
   
6. Init_Io();
   * g2 b& _& E- A1 s- C
7. GLCD_Init();        //初始化液晶
   7 q% o  C  {( j" Z
8. 
   7 Q3 I: @4 L2 X: P
9. BACK_COLOR=0x001F;
   
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    6 v- }; I$ [! L9 P
11. LCD_ShowString(30,30,__DATE__);
    ) \" @; Q4 _2 f2 j6 p& ^* S% i2 E
12. LCD_ShowString(150,30,__TIME__);
    5 w9 U! a7 B5 r
13. 
    
14. ffext_mount(0, &fs);
    
15. 
    
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    ; `  L8 S3 `% D7 u
17. BACK_COLOR=0x001F;
    # G9 M% p3 L0 ^/ X& R7 @' M& ]) t: R
18. POINT_COLOR=0xF800;
    / A( ?0 R# T" G' o
19. 
    
20. basic(wbuff2);
      x+ ?* q, b1 H+ C* M
21. 
    
22. while (1)
    
23. {
    ; f0 y# M+ [1 H, e, O
24. 
    % r9 l8 g4 c7 o9 O
25. }
    # V# s$ b, E8 @" j7 b
26. }

复制代码

basic关键字部分

1. 
   
2. struct commands /* 关键字查找表 */
   
3. {
   
4. char command[20];
   
5. char tok;
   
6. }table[] ={ /* 命令必须输入小写 */
   ! ?" i7 i. @# r; Y, X# y; C
7. "print", PRINT,
   5 j0 u8 t" a) }; N" A1 d/ }4 I* I( |
8. "input", INPUT,
   $ I) w- \5 ?% f$ h9 C6 ?1 X# M( D6 D
9. "if", IF,
   . p$ S1 i+ K4 P+ d
10. "then", THEN,
    ' p; f' C4 U$ L) s5 u# A6 S
11. "goto", GOTO,
    
12. "for", FOR,
    3 S  B* {  `1 W& O# a
13. "next", NEXT,
    
14. "to", TO,
    
15. "gosub", GOSUB,
    
16. "return", RETURN,
    
17. "end", END,
    7 k! t5 S& ], d4 U- x7 l
18. "", END /* 单词表的结束 */
    
19. };

复制代码

执行部分

1. 
   ( L7 t" P  F# o0 I" C& ~
2. void basic(char *buf)
   
3. {
   
4. char *p_buf;
   : y; D. @2 ?) c! G- _- x
5. 
   
6. 
   9 U# h* Z; R8 B/ ?( ^6 Q
7. /* 载入源文件 */
   
8. 
   ( Z: q2 g  }' T" x7 P
9. p_buf=buf;
   
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    
11. 
    
12. prog = p_buf;
      g+ r- V$ S- b" o
13. scan_labels(); /* 在程序中找到标签 */
    
14. ftos = 0; /* 初始化FOR堆栈索引 */
    
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    
16. do
    " A9 R  ^  P9 j4 |
17. {
    & d. F, _. U( z' F1 Z
18. token_type = get_token();
      j1 X9 N8 Q9 J6 P# d; A# U. W
19. /* 检查赋值语句 */
    , v0 ?: }  t+ {; P" W
20. if(token_type==VARIABLE)
    3 i4 n/ R$ K4 I9 p( c& c
21. {
      f  a/ V* \( r$ ^4 L/ E& z/ ^! q; L
22. putback(); /* 将变量返回到输入流 */
    ! n$ l- R  k( f: ~* \
23. assignment(); /* 必须是赋值语句 */
    / Q% C5 I, O0 u' [( ~  x
24. }
    8 \4 y, Y2 o* r7 x0 k
25. else /* 是命令 */
    
26. switch(tok)
    
27. {
    
28. case PRINT:
    
29. print();
    
30. break;
    
31. case GOTO:
    
32. exec_goto();
    
33. break;
    
34. case IF:
    4 H! L( h5 {- B+ y4 E; `
35. exec_if();
    
36. break;
    ' H, B% f: O; [+ `6 F# E! r# C/ P; D
37. case FOR:
    
38. exec_for();
    
39. break;
    7 L( T3 y1 L0 h
40. case NEXT:
    0 r0 m+ s9 ~& _  q7 n9 L( K
41. next();
    8 w5 g+ h- D6 ?) S$ }7 }
42. break;
    
43. case INPUT:
    1 {7 ^/ W) `- M# _$ B$ Z4 Y9 r# i
44. input();
    
45. break;
    
46. case GOSUB:
    3 |7 l: t5 Z* ~; I2 N
47. gosub();
    - b9 B/ c6 }; w/ Q
48. break;
    
49. case RETURN:
    2 Y& g/ v5 a+ `+ l: H$ w7 d0 e
50. greturn();
    
51. break;
    
52. case END:
    
53. printf("run basic end!");
    
54. while(1);
    4 c4 ]" R* {+ z# }1 _
55. exit(0);
    # d  n- D! Q+ W, i
56. }
    
57. }while (tok != FINISHED);
    
58. 
      x/ S* i5 f- e" @
59. }

复制代码

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

2015-3-30 11:32 上传

点击文件名下载附件

" ]: D" i: I5 v9 t2 f" M9 L3 u4 r

谢谢楼主代码啦

学习了，表示看不懂

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