這個匯編程序讀入一個字符串，并計算結果。支持加減乘除括號，不支持浮點數，不支持查錯。以下是匯編以及注釋。匯編程序使用
這篇文章的程序編譯并執行。
這個程序可以覆蓋除了浮點以外的幾乎所有參數格式，用于測試匯編器是否正確。
1 CONSTANT
2 INPUT stra:(11+22)*(33+44)
3 VARIABLE
4 RESULT int32
5 CODE
6
7 MOV EDI, int32 INPUT //將輸入的字符串指針放入EDI
8 CALL @GETEXP //EAX=GETEXP
9 MOV int32 [RESULT], EAX //輸出結果
10 MOV EAX, int32 RESULT
11 RET
12
13 @GETEXP: //從EDI讀取一個表達式，結果放入EAX，偏移
14 PUSH EDX
15 CALL @GETTERM
16 @GETEXP_LOOP_BEGIN:
17 CMP int8 [EDI], int8 $+ //檢查操作符是否'+'
18 JE @GETEXP_ADD //是則跳往GETEXP_ADD
19 CMP int8 [EDI], int8 $- //檢查操作符是否'-'
20 JE @GETEXP_SUB //是則跳往GETEXP_SUB
21 @GETEXP_FINISHED: //否則直接退出
22 POP EDX
23 RET
24 @GETEXP_ADD:
25 INC EDI //跳過加號
26 MOV EDX, EAX //EDX=EAX
27 CALL @GETTERM //EAX=GETTERM
28 ADD EAX, EDX //EAX=EAX+EDX
29 JMP @GETEXP_LOOP_BEGIN //繼續循環
30 @GETEXP_SUB:
31 INC EDI //跳過減號
32 MOV EDX, EAX //EDX=EAX
33 CALL @GETTERM //EAX=GETTERM
34 SUB EDX, EAX //EDX=EDX-EAX
35 MOV EAX, EDX //EAX=EDX
36 JMP @GETEXP_LOOP_BEGIN //繼續循環
37
38 @GETTERM: //從EDI讀取一個只含有乘除法的字符串，結果放入EAX，偏移
39 PUSH EDX
40 PUSH EBX
41 CALL @GETFACTOR //讀取一個factor
42 @GETTERM_LOOP_BEGIN:
43 CMP int8 [EDI], int8 $* //檢查操作符是否'*'
44 JE @GETTERM_MULTIPLE //是則跳往GETTERM_MULTIPLE
45 CMP int8 [EDI], int8 $/ //檢查操作符是否'/'
46 JE @GETTERM_DIVID //是則跳往GETTERM_DIVID
47 @GETTERM_FINISHED: //否則直接退出
48 POP EBX
49 POP EDX
50 RET
51 @GETTERM_MULTIPLE:
52 INC EDI //跳過乘號
53 MOV EDX, EAX //EDX=EAX
54 CALL @GETFACTOR //EAX=GETFACTOR
55 IMUL EAX, EDX //EDX:EAX=EAX*EDX
56 JMP @GETTERM_LOOP_BEGIN //繼續循環
57 @GETTERM_DIVID:
58 INC EDI //跳過除號
59 MOV EBX, EAX //EBX=EAX
60 CALL @GETFACTOR //EAX=GETFACTOR
61 XCHG EAX, EBX //交換EAX和EBX，EAX是被除數，EBX是除數
62 XOR EDX, EDX //EDX=0
63 IDIV EBX //EAX=EDX:EAX/EBX
64 JMP @GETTERM_LOOP_BEGIN //繼續循環
65
66 @GETFACTOR: //從EDI讀取一個數字或被括號包圍的字符串，結果放入EAX，偏移EDI
67 CMP int8 [EDI], int8 $( //檢查第一個字符是否'('
68 JE @GETFACTOR_BRACKED //是則跳往GETFACTOR_BRACKED
69 JMP @CONVERT //否則直接使用CONVERT代替
70 @GETFACTOR_BRACKED:
71 INC EDI //跳過括號
72 CALL @GETEXP //調用GETEXP計算一個表達式
73 INC EDI //跳過右括號
74 RET //退出
75
76 @CONVERT: //同UNSIGNED_CONVERT，支持負號
77 CMP int8 [EDI], int8 $- //檢查第一個符號是不是負號
78 JE @CONVERT_NEGATIVE //是則跳往CONVERT_NEGATIVE處理負號
79 CALL @UNSIGNED_CONVERT //否則調用UNSIGNED_CONVERT
80 RET //退出
81 @CONVERT_NEGATIVE:
82 INC EDI //略過負號
83 CALL @UNSIGNED_CONVERT //調用UNSIGNED_CONVERT
84 NEG EAX //將EAX變負
85 RET //退出
86
87 @UNSIGNED_CONVERT: //將EDI指向的字符串轉成整數，放入EAX，并偏移EDI至末尾
88 XOR EAX, EAX
89 PUSH EDX
90 @UNSIGNED_CONVERT_LOOP_BEGIN:
91 CMP int8 [EDI], int8 $0 //檢查字符是否大于等于'0'
92 JB @UNSIGNED_CONVERT_LOOP_END //失敗則退出
93 CMP int8 [EDI], int8 $9 //檢查字符是否小于等于'9'
94 JA @UNSIGNED_CONVERT_LOOP_END //失敗則退出
95 MOV EDX, int32 10 //EDX=10
96 MUL EDX //EDX:EAX = EAX*EDX
97 XOR EDX, EDX //EDX=0
98 MOV DL, int8 [EDI] //DL=*EDI
99 SUB EDX, int32 $0 //EDX-='0'
100 ADD EAX, EDX //EAX=EAX+EDX
101 INC EDI //EDI++
102 JMP @UNSIGNED_CONVERT_LOOP_BEGIN //再次執行循環
103 @UNSIGNED_CONVERT_LOOP_END:
104 POP EDX
105 RET
posted on 2009-02-26 09:05
陳梓瀚(vczh) 閱讀(2213)
評論(0) 編輯 收藏 引用 所屬分類:
JIT