基于STM32F1 的BASIC解码实验

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

2、程序文件存储在sd卡

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

( [2 h5 [9 y4 f, i! Z$ w

主函数部分

1. int main(void)
   
2. {
   
3. u16 i,j;
   
4. 
   8 D% |) k6 |: g
5. delay_init(72);        //延时初始化
   
6. Init_Io();
   
7. GLCD_Init();        //初始化液晶
   
8. 
   & p2 a; N* p( ~
9. BACK_COLOR=0x001F;
   
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    
11. LCD_ShowString(30,30,__DATE__);
    + o  k  s$ d8 Y  W. o$ g+ A
12. LCD_ShowString(150,30,__TIME__);
    9 x6 y8 F3 x. n9 E, f7 z
13. 
    
14. ffext_mount(0, &fs);
    " n' Z9 ?, A/ R, q6 P) }/ _) }( F" E
15. 
    . k8 M! U# N, M$ O
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    + E. F+ e" H) c9 p
17. BACK_COLOR=0x001F;
    
18. POINT_COLOR=0xF800;
    2 S5 P! e% g" r
19. 
    0 z. V/ a, D2 X) M& _3 k
20. basic(wbuff2);
    $ U7 @2 b5 t; [5 M& B/ Q+ `) V* N
21. 
    ' u. C# `. Q: j) N- Y, g! G
22. while (1)
    
23. {
    
24. 
    5 N! G: V7 D1 `! x0 R
25. }
    
26. }

复制代码

basic关键字部分

1. 
   : @/ s$ ?( S! R7 k
2. struct commands /* 关键字查找表 */
   3 }5 k4 |7 [/ J$ a
3. {
   
4. char command[20];
   
5. char tok;
   
6. }table[] ={ /* 命令必须输入小写 */
   
7. "print", PRINT,
   
8. "input", INPUT,
   * J" i4 E; {5 W" P; f) {1 \
9. "if", IF,
   
10. "then", THEN,
    1 T' Q, A) c% N( \/ n
11. "goto", GOTO,
    
12. "for", FOR,
    
13. "next", NEXT,
    
14. "to", TO,
    
15. "gosub", GOSUB,
    ( u$ w! V& A2 L" O9 G
16. "return", RETURN,
    4 ~% O9 |/ b) {& a2 B5 |7 r
17. "end", END,
    
18. "", END /* 单词表的结束 */
    
19. };

复制代码

2 E3 P) j6 Q, s6 q" o# \* G

执行部分

1. 
   9 p, _7 M1 P: v2 W7 i& v
2. void basic(char *buf)
   
3. {
   
4. char *p_buf;
   
5. 
   
6. 
   
7. /* 载入源文件 */
   ' i$ t* k( Y! \& m9 B9 t$ w( H% x7 @  ~/ o
8. 
   
9. p_buf=buf;
   
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    0 W0 F/ N% F  n/ k  l& v5 n
11. 
    ( E7 F4 p/ D) T2 H8 E, r/ ?
12. prog = p_buf;
    ( t* ~- w+ ?; B9 g& a+ p( H
13. scan_labels(); /* 在程序中找到标签 */
    
14. ftos = 0; /* 初始化FOR堆栈索引 */
    1 l7 q2 v/ L" e( T3 _( L
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    & ^+ D3 x1 J. E  y' E+ s
16. do
    & Q( J1 ~/ {6 ?3 E  Q1 l9 T
17. {
    ( U% U0 J' R( a* A
18. token_type = get_token();
    
19. /* 检查赋值语句 */
    3 y7 u( ]3 J, M, z
20. if(token_type==VARIABLE)
    
21. {
    0 C0 O1 \% ?$ c0 g
22. putback(); /* 将变量返回到输入流 */
    , V$ f( g  n1 U  {
23. assignment(); /* 必须是赋值语句 */
    4 O. B! J: s. h2 H/ b/ w
24. }
    7 ?- Y0 h. u+ F- {  g
25. else /* 是命令 */
    
26. switch(tok)
    ( w; ]) z/ W) R; G1 p4 M* i
27. {
    
28. case PRINT:
    3 J) P1 @9 P* U- h$ t; G
29. print();
    
30. break;
    
31. case GOTO:
    % s: U+ Q7 J8 v
32. exec_goto();
    " J. ?9 K3 q: K0 `+ ~
33. break;
    ' p8 @/ A% f: G
34. case IF:
    . l) f) E$ P6 ~& E9 @) ]6 ~8 q. ~, y
35. exec_if();
    8 c  V) _- N: k! Y, w+ k* M
36. break;
    - c7 S7 I' j' P" }# S& U
37. case FOR:
    6 o! c9 Y5 L; e) }: F4 h
38. exec_for();
    3 p  X+ y& B6 ?0 l4 F0 |0 h! q
39. break;
    
40. case NEXT:
    # P# d; D3 n: u$ {
41. next();
    
42. break;
    , t" X! X- V' @$ z9 Z" x) e  [& i
43. case INPUT:
    2 w( R; c# z; V8 r
44. input();
    
45. break;
    
46. case GOSUB:
    
47. gosub();
    
48. break;
    ) ^& y! i0 T) q
49. case RETURN:
    
50. greturn();
    : ~- d) n, w* @- j# v$ W
51. break;
    
52. case END:
    # H+ t$ Y) p0 U; h' F3 T6 L/ i
53. printf("run basic end!");
    
54. while(1);
    1 c( }# ^& \& [! i8 B- @
55. exit(0);
    
56. }
    
57. }while (tok != FINISHED);
    3 R# }6 ]" V1 e- F# d4 N: \! S2 o  I
58. 
    
59. }

复制代码

/ i- N  Q9 R6 C) Q! @. n* t

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

2015-3-30 11:32 上传

点击文件名下载附件

: f" H) X9 Y4 P' e$ j1 ~+ }7 Q
( N/ m/ @2 T9 {3 L

谢谢楼主代码啦

学习了，表示看不懂

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