基于STM32F1 的BASIC解码实验

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

2、程序文件存储在sd卡

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

主函数部分

1. int main(void)
   
2. {
   
3. u16 i,j;
   
4. 
   
5. delay_init(72);        //延时初始化
   
6. Init_Io();
   
7. GLCD_Init();        //初始化液晶
   
8. 
   
9. BACK_COLOR=0x001F;
   
10. LCD_ShowString(30,10,"Mini STM32 SD Card TEST");
    
11. LCD_ShowString(30,30,__DATE__);
    
12. LCD_ShowString(150,30,__TIME__);
    
13. 
    
14. ffext_mount(0, &fs);
    
15. 
    
16. ffext_read("0:3.bas", wbuff2, 1024, FA_OPEN_ALWAYS | FA_READ);
    
17. BACK_COLOR=0x001F;
    
18. POINT_COLOR=0xF800;
    
19. 
    
20. basic(wbuff2);
    
21. 
    
22. while (1)
    
23. {
    
24. 
    
25. }
    
26. }

复制代码

basic关键字部分

1. 
   
2. struct commands /* 关键字查找表 */
   
3. {
   
4. char command[20];
   
5. char tok;
   
6. }table[] ={ /* 命令必须输入小写 */
   
7. "print", PRINT,
   
8. "input", INPUT,
   
9. "if", IF,
   
10. "then", THEN,
    
11. "goto", GOTO,
    
12. "for", FOR,
    
13. "next", NEXT,
    
14. "to", TO,
    
15. "gosub", GOSUB,
    
16. "return", RETURN,
    
17. "end", END,
    
18. "", END /* 单词表的结束 */
    
19. };

复制代码

执行部分

1. 
   
2. void basic(char *buf)
   
3. {
   
4. char *p_buf;
   
5. 
   
6. 
   
7. /* 载入源文件 */
   
8. 
   
9. p_buf=buf;
   
10. if(setjmp(e_buf)) exit(1); /* 初始化长跳缓冲区 */
    
11. 
    
12. prog = p_buf;
    
13. scan_labels(); /* 在程序中找到标签 */
    
14. ftos = 0; /* 初始化FOR堆栈索引 */
    
15. gtos = 0; /* 初始化GOSUB堆栈索引 */
    
16. do
    
17. {
    
18. token_type = get_token();
    
19. /* 检查赋值语句 */
    
20. if(token_type==VARIABLE)
    
21. {
    
22. putback(); /* 将变量返回到输入流 */
    
23. assignment(); /* 必须是赋值语句 */
    
24. }
    
25. else /* 是命令 */
    
26. switch(tok)
    
27. {
    
28. case PRINT:
    
29. print();
    
30. break;
    
31. case GOTO:
    
32. exec_goto();
    
33. break;
    
34. case IF:
    
35. exec_if();
    
36. break;
    
37. case FOR:
    
38. exec_for();
    
39. break;
    
40. case NEXT:
    
41. next();
    
42. break;
    
43. case INPUT:
    
44. input();
    
45. break;
    
46. case GOSUB:
    
47. gosub();
    
48. break;
    
49. case RETURN:
    
50. greturn();
    
51. break;
    
52. case END:
    
53. printf("run basic end!");
    
54. while(1);
    
55. exit(0);
    
56. }
    
57. }while (tok != FINISHED);
    
58. 
    
59. }

复制代码

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

2015-3-30 11:32 上传

点击文件名下载附件

谢谢楼主代码啦

学习了，表示看不懂

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