基于STM32F1 的BASIC解码实验

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

2、程序文件存储在sd卡

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

/ H( j8 ^" o6 K' ~9 c0 w& d1 N

主函数部分

1. int main(void)
   ( x* ?9 j- J, L
2. {
   7 Z  `2 ?0 K- |* p6 ~& y1 T( M) }
3. u16 i,j;
   
4. 
   
5. delay_init(72);        //延时初始化
   & Q- Z$ X/ n# n0 B# _5 H
6. Init_Io();
   % |6 V% y  l5 z1 W- I
7. GLCD_Init();        //初始化液晶
   
8. 
   1 b- \- a$ b5 l9 p/ o
9. BACK_COLOR=0x001F;
   
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    3 }1 t! g1 ^8 {8 T: ]+ e! j
11. LCD_ShowString(30,30,__DATE__);
    
12. LCD_ShowString(150,30,__TIME__);
    6 h9 u% G& K  @* _  u
13. 
    
14. ffext_mount(0, &fs);
    
15. 
    
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    2 J3 W* y( K$ I
17. BACK_COLOR=0x001F;
    
18. POINT_COLOR=0xF800;
    : |6 }4 \0 R2 e  X% p, B4 g$ v2 k
19. 
    
20. basic(wbuff2);
    
21. 
    
22. while (1)
    7 @6 B- t1 i2 p8 V7 D3 O
23. {
    7 F, X) `% W, {' O
24. 
    
25. }
    
26. }

复制代码

basic关键字部分

1. 
   
2. struct commands /* 关键字查找表 */
   
3. {
   4 h6 c" U9 C: C. g+ v2 H9 h
4. char command[20];
   ! q0 C8 `7 j( f, z
5. char tok;
   ( y9 C% ]. o# n9 b+ l# N& [* }
6. }table[] ={ /* 命令必须输入小写 */
   " F1 r  m4 n0 Y% t1 o# E
7. "print", PRINT,
   
8. "input", INPUT,
   , _. c1 Q4 o$ s6 i
9. "if", IF,
   0 g7 u! e+ t. L& G! Z+ @
10. "then", THEN,
    1 O7 r' ]& Q: J/ s) I3 I6 E
11. "goto", GOTO,
    ! F) [8 q$ ]! {( Z2 R$ `
12. "for", FOR,
    
13. "next", NEXT,
    8 d5 q. s$ G4 t& V* Y$ V
14. "to", TO,
    % Q( ^% H. K) u% p0 k0 t- X' ]
15. "gosub", GOSUB,
    
16. "return", RETURN,
    ) e! t  d6 r  L" m( s1 [0 m- t8 p: u
17. "end", END,
    
18. "", END /* 单词表的结束 */
    
19. };

复制代码

) {1 @' C3 m6 ~

执行部分

1. 
   % n; F! Q% T1 ^% }
2. void basic(char *buf)
   
3. {
   
4. char *p_buf;
   ( A4 b, M( U7 {* x; u0 l
5. 
   9 Z4 R0 y$ L8 J9 h* Y4 w0 w
6. 
   
7. /* 载入源文件 */
   " H& @9 X* E+ o/ b; N: K
8. 
   
9. p_buf=buf;
   8 T1 m& n& S. I4 R/ O: T
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    
11. 
    
12. prog = p_buf;
    # f* o) K" o1 G$ J* o( E
13. scan_labels(); /* 在程序中找到标签 */
    
14. ftos = 0; /* 初始化FOR堆栈索引 */
    
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    
16. do
    0 {* l3 ^. e4 g7 O8 _, K2 ?$ M
17. {
    
18. token_type = get_token();
    
19. /* 检查赋值语句 */
    
20. if(token_type==VARIABLE)
    
21. {
    0 E+ l4 v% U8 L0 w
22. putback(); /* 将变量返回到输入流 */
    
23. assignment(); /* 必须是赋值语句 */
    4 ^$ }+ ]( Q% w" |0 C6 t" v% M
24. }
    
25. else /* 是命令 */
    
26. switch(tok)
    . |! i# C, p+ I: R  a& d& h2 `
27. {
    1 q0 w. o  n; L: v
28. case PRINT:
    9 q- D) x+ W) o
29. print();
    1 T0 `. o$ c! h6 r8 X* {# |1 K
30. break;
    
31. case GOTO:
    5 A* D: D) W8 g& j! W  T
32. exec_goto();
    9 m7 G1 _/ P' ~) A8 {
33. break;
    
34. case IF:
    # b- E8 M. Z3 l" \7 a
35. exec_if();
    
36. break;
    
37. case FOR:
    
38. exec_for();
    
39. break;
    
40. case NEXT:
    
41. next();
    ! N1 S; m: T8 [/ V3 f& A0 F" [' r
42. break;
    8 B! @5 }2 f" r3 F5 u
43. case INPUT:
    - d3 V  q' \/ R. u. g3 T) V% n
44. input();
    * Q" Y6 s7 }. b2 P2 P8 ?
45. break;
    * e5 M# K: ]+ y) L* v9 t
46. case GOSUB:
    
47. gosub();
    
48. break;
    
49. case RETURN:
    % x1 P1 a/ }1 e
50. greturn();
    7 y* w. }' y9 [# |8 u3 h) q! }  X
51. break;
    . Q* @! I$ C6 A3 C
52. case END:
    
53. printf("run basic end!");
    ( B& r8 v; W- ], N4 {9 P: q8 J$ p
54. while(1);
    
55. exit(0);
    
56. }
    
57. }while (tok != FINISHED);
    
58. 
    
59. }

复制代码

2 Q* c) X( _$ x. \3 r2 T9 h

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

2015-3-30 11:32 上传

点击文件名下载附件

; t+ U0 H4 j8 p# \3 q2 m: T1 i0 J' [

谢谢楼主代码啦

学习了，表示看不懂

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