基于STM32F1 的BASIC解码实验

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

2、程序文件存储在sd卡

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

主函数部分

1. int main(void)
   
2. {
   " ^/ E' ~- ~- X% q8 m
3. u16 i,j;
   7 w. N8 o9 r. @
4. 
   9 ~6 W4 W5 b. B8 r* i0 b
5. delay_init(72);        //延时初始化
   : o# Q  P9 D. F" u1 _% D5 Y3 L
6. Init_Io();
   
7. GLCD_Init();        //初始化液晶
   
8. 
   7 i" e2 k2 ?8 N
9. BACK_COLOR=0x001F;
   - w4 u& D" Z: ], W! h
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    ; _' D$ \! M4 y/ Z) m4 N5 L
11. LCD_ShowString(30,30,__DATE__);
    
12. LCD_ShowString(150,30,__TIME__);
    
13. 
    
14. ffext_mount(0, &fs);
    
15. 
    4 |- a! m/ [' `, S0 u3 i' l% p1 t
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    ! h/ ]" y- ~+ ]8 H4 q
17. BACK_COLOR=0x001F;
    / x+ b1 D1 @2 B/ p  V3 V5 Q) h
18. POINT_COLOR=0xF800;
    
19. 
    
20. basic(wbuff2);
    
21. 
    
22. while (1)
    + G# H! ]' q+ A  A+ F% c
23. {
    
24. 
    4 E& F* {. r+ A" D+ Z; a. _( G
25. }
    , I' ^& U7 q5 s1 A2 ]
26. }

复制代码

basic关键字部分

1. 
   
2. struct commands /* 关键字查找表 */
   
3. {
   1 R$ a6 j! Y" Z- g# J
4. char command[20];
   
5. char tok;
   
6. }table[] ={ /* 命令必须输入小写 */
   * Q7 k. H7 u3 P9 `$ p9 U# `8 L2 |1 c7 m
7. "print", PRINT,
   9 x2 E6 f: B; H  Y
8. "input", INPUT,
   7 z+ X7 W+ `% @" @; {
9. "if", IF,
   ' b) z" M4 ]* \  U* m1 {/ c$ n
10. "then", THEN,
    0 ~$ K) e3 f5 W2 o" y' y
11. "goto", GOTO,
    
12. "for", FOR,
    
13. "next", NEXT,
    2 _2 U7 a0 p) M, d1 @* z. K+ n& i
14. "to", TO,
    ' H. S1 O2 m* N
15. "gosub", GOSUB,
    5 s" }9 K: D! W( i% P5 L" ?, u
16. "return", RETURN,
    2 I" F6 I' C: t
17. "end", END,
    
18. "", END /* 单词表的结束 */
    1 ?9 ]) W3 K; G8 {
19. };

复制代码

执行部分

1. 
   & }3 _* h8 S+ h0 R1 O
2. void basic(char *buf)
   
3. {
   
4. char *p_buf;
   : W. P' A5 @# F3 ^* G; G# i! T
5. 
   . S( K" I1 j7 j" _3 N
6. 
   8 `4 d! ?" v3 G3 T1 t
7. /* 载入源文件 */
   
8. 
   ) S; h- u6 d, Y' ~3 A6 Y
9. p_buf=buf;
   4 F! m" P3 s  m( ^- t; B: B! T" u$ z
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    
11. 
    
12. prog = p_buf;
    
13. scan_labels(); /* 在程序中找到标签 */
    
14. ftos = 0; /* 初始化FOR堆栈索引 */
    
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    9 W" l5 @, K. l3 Y3 e
16. do
    ( a( U9 \5 g! ]/ ~2 \# T
17. {
    
18. token_type = get_token();
    ! F( e% G; e( M' C/ b1 e$ j7 o2 S
19. /* 检查赋值语句 */
    . b5 x! g3 f+ ^0 T9 A
20. if(token_type==VARIABLE)
    
21. {
    
22. putback(); /* 将变量返回到输入流 */
    
23. assignment(); /* 必须是赋值语句 */
    # t0 C+ T3 Y& O4 ~
24. }
    . Z7 p- }# T8 Q4 U$ g: D) \4 S& y0 V
25. else /* 是命令 */
    9 _! G* l( B7 B  E1 U
26. switch(tok)
    
27. {
    ( M0 Q7 K+ j  q& g, K
28. case PRINT:
    
29. print();
    3 u. D, t, \* M* x7 I8 y
30. break;
    
31. case GOTO:
    8 |+ ~$ h- M* t( h( ^9 T" ]3 @7 S
32. exec_goto();
    9 z9 }4 o- d! S
33. break;
    9 e# y0 d$ G& U5 _3 g! h( y
34. case IF:
    $ D4 @  d; P$ u4 O3 O( g
35. exec_if();
    
36. break;
    2 r+ M' u1 n. z- E$ M+ L
37. case FOR:
    
38. exec_for();
    
39. break;
    ) G2 Q/ F7 {" H* m; |
40. case NEXT:
    
41. next();
    , H' P. {; H" l* @
42. break;
    5 {( W% i! l9 [; F8 [3 C
43. case INPUT:
    
44. input();
    + u* K) r) _( E4 x
45. break;
    & f! Y  ]" F  S# w3 W
46. case GOSUB:
    
47. gosub();
    
48. break;
    
49. case RETURN:
    4 v+ \. ~4 C1 R( B# O
50. greturn();
    2 S/ e& V3 @* z
51. break;
    9 t: u) @, _$ B) b; K
52. case END:
    4 o. N; ?1 K* |/ \- c9 D! o, t& _
53. printf("run basic end!");
    
54. while(1);
    ! Z4 ?# a  s9 B6 s8 O
55. exit(0);
    
56. }
    1 e$ k& c- ]2 [, ~  V- M
57. }while (tok != FINISHED);
    6 N7 k$ @6 \7 f! G$ j, S
58. 
    
59. }

复制代码

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

2015-3-30 11:32 上传

点击文件名下载附件

7 v* u. A( {& p1 M
4 w# o& C$ E/ x. ]5 U

谢谢楼主代码啦

学习了，表示看不懂

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