基于STM32F1 的BASIC解码实验

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

2、程序文件存储在sd卡

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

& |7 Z2 i# g! l' e& N3 d

主函数部分

1. int main(void)
   
2. {
   , t. ^0 x- z# F# K! g4 S1 \3 v* z
3. u16 i,j;
   , u- X. l. v2 a! u) C
4. 
   
5. delay_init(72);        //延时初始化
   ( V; B3 Z( W  c  g
6. Init_Io();
   
7. GLCD_Init();        //初始化液晶
   
8. 
   
9. BACK_COLOR=0x001F;
   # n* n4 [. S" e" V$ N9 y
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    4 U! J8 P! n. R( w- ~
11. LCD_ShowString(30,30,__DATE__);
    
12. LCD_ShowString(150,30,__TIME__);
    * h4 i: l& }. _5 {7 \
13. 
    
14. ffext_mount(0, &fs);
    
15. 
    
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    & X1 v4 u* r; H
17. BACK_COLOR=0x001F;
    & o$ _4 _( F/ p# F
18. POINT_COLOR=0xF800;
    
19. 
    
20. basic(wbuff2);
    6 _4 V5 l; v; Q0 \$ g  G
21. 
    $ N% i8 {+ d* L
22. while (1)
    9 \7 O% a. k# l: W3 B
23. {
    
24. 
    ! Y+ h. X2 A! v. w/ S; c
25. }
    
26. }

复制代码

basic关键字部分

1. 
   : X& ]! l6 s3 Z! I
2. struct commands /* 关键字查找表 */
   $ S7 j8 j& q1 Q9 X7 P, C0 g: L3 g
3. {
   
4. char command[20];
   
5. char tok;
   4 C9 G$ y3 A  b7 h& K. J  \$ ~) f
6. }table[] ={ /* 命令必须输入小写 */
   
7. "print", PRINT,
   
8. "input", INPUT,
   
9. "if", IF,
   
10. "then", THEN,
    4 c8 u/ }( f- A- n
11. "goto", GOTO,
    8 m3 O% @  b; |% [2 `
12. "for", FOR,
    
13. "next", NEXT,
    ( z2 ]3 T/ i. }: N
14. "to", TO,
    ) ?. J8 W3 d3 P5 l! M
15. "gosub", GOSUB,
    $ W2 |0 k. r; x, [, N- c
16. "return", RETURN,
    
17. "end", END,
    
18. "", END /* 单词表的结束 */
    * C/ ~: |5 c: L# n, e& |
19. };

复制代码

执行部分

1. 
   3 E: O# N4 a) q3 w& a0 }
2. void basic(char *buf)
   
3. {
   , L. T6 c5 v7 W! G7 h, M7 M( H
4. char *p_buf;
   # t1 O2 b4 J1 O  i4 {: k
5. 
   4 E6 ]$ M5 H% S. S' j4 I
6. 
   3 q6 x1 `# m6 n) x! G0 H, d, N# _: E
7. /* 载入源文件 */
   
8. 
   
9. p_buf=buf;
   + R' W7 s: W0 W% V
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    
11. 
    
12. prog = p_buf;
    4 y' A9 s8 f; V' F1 o( R0 u# K
13. scan_labels(); /* 在程序中找到标签 */
    : o; ^" B2 D$ E* t8 y2 o; ^
14. ftos = 0; /* 初始化FOR堆栈索引 */
    
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    / H, K$ v/ t: G6 X; g1 D
16. do
    
17. {
    ; F) g* s# M. N3 l9 e3 p9 l" M
18. token_type = get_token();
    & v& P- x2 h* j; ]$ u7 N0 k
19. /* 检查赋值语句 */
    
20. if(token_type==VARIABLE)
    
21. {
    - b6 z: g+ E& |$ C) t! b# z- v
22. putback(); /* 将变量返回到输入流 */
    2 t! o' J8 Z* v: w
23. assignment(); /* 必须是赋值语句 */
    . b% |0 r3 t/ o, t! v" v
24. }
    & U2 u% K# q/ p, J6 K
25. else /* 是命令 */
    2 g) @0 f: e" c9 ~
26. switch(tok)
    
27. {
    : D# d/ r/ |/ S: i  @$ E/ b
28. case PRINT:
    
29. print();
    1 @1 F0 }" ^" X% N1 s% \+ D1 C
30. break;
    ) B. K7 o$ S: M( O5 a
31. case GOTO:
    
32. exec_goto();
    
33. break;
    
34. case IF:
      r2 K" O5 ?; ~( b* n( }
35. exec_if();
    7 n* U6 s+ B" d' W% N" v
36. break;
    
37. case FOR:
    2 h- @8 T6 H/ D! P; j
38. exec_for();
    
39. break;
    
40. case NEXT:
    
41. next();
    # K% ^1 S. w1 {5 E" m9 ]3 G3 T
42. break;
    
43. case INPUT:
    ; y9 `# u! ]  ]! o& }1 y4 S8 Q" S7 X
44. input();
    
45. break;
    
46. case GOSUB:
    
47. gosub();
    
48. break;
    
49. case RETURN:
    & \# v8 a$ A* z6 X. y
50. greturn();
    ' O* I( D  ~, \
51. break;
    
52. case END:
    
53. printf("run basic end!");
    
54. while(1);
    $ S0 {3 c* d/ C% @' A8 K" [
55. exit(0);
    
56. }
    
57. }while (tok != FINISHED);
    
58. 
    8 J& z  j5 B. @" A; g) I: c; n" D
59. }

复制代码

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

2015-3-30 11:32 上传

点击文件名下载附件

% o! e2 o7 }% K
9 t7 X( }( F, c0 |5 P* S6 A
* a. @6 m9 n8 b# }8 K, B+ \  e

谢谢楼主代码啦

学习了，表示看不懂

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