易语言MASM汇编置入代码无需除法指令实现获取字节型的个位数,十位数,百位数(无返回值)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 个位数, 整数型
    
15. .局部变量 十位数, 整数型
    
16. .局部变量 百位数, 整数型
    
17. .局部变量 A, 整数型
    
18. .局部变量 B, 字节型
    
19. 
    
20. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
21. .变量循环首 (0, 255, 1, A)
    
22.     取个十百位数_易源码 (A, 个位数, 十位数, 百位数)
    
23. 
    
24.     检查 (A ＝ 百位数 × 100 ＋ 十位数 × 10 ＋ 个位数)
    
25.     取个十百位数_置入代码 (A, 个位数, 十位数, 百位数)
    
26.     检查 (A ＝ 百位数 × 100 ＋ 十位数 × 10 ＋ 个位数)
    
27.     调试输出 (A, 百位数, 十位数, 个位数)
    
28. 
    
29. 
    
30. .变量循环尾 ()
    
31. 
    
32. .子程序 取个十百位数_易源码, , 公开
    
33. .参数 AL, 字节型, , 字节
    
34. .参数 AH, 字节型, 参考, 个位数
    
35. .参数 BL, 字节型, 参考, 十位数
    
36. .参数 BH, 字节型, 参考, 百位数
    
37. .局部变量 CL, 整数型
    
38. .局部变量 CH, 字节型
    
39. .局部变量 DL, 字节型
    
40. 
    
41. DL ＝ AL
    
42. AH ＝ 0
    
43. BL ＝ 0
    
44. BH ＝ 0
    
45. .判断开始 (AL ≥ 0 且 AL ≤ 9)
    
46.     AH ＝ AL
    
47.     返回 ()
    
48. .判断 (AL ≥ 10 且 AL ≤ 99)
    
49.     CH ＝ 9
    
50.     CL ＝ 90
    
51.     .判断循环首 (CL ≥ 10)
    
52.         .如果真 (AL ≥ CL)
    
53.             AH ＝ AL
    
54.             AH ＝ AH － CL
    
55.             BL ＝ CH
    
56.             返回 ()
    
57.         .如果真结束
    
58.         CH ＝ CH － 1
    
59.         CL ＝ CL － 10
    
60.     .判断循环尾 ()
    
61. .判断 (AL ≥ 100 且 AL ≤ 255)
    
62.     CH ＝ 2
    
63.     CL ＝ 200
    
64.     .判断循环首 (CL ≥ 100)
    
65.         .如果真 (AL ≥ CL)
    
66.             BH ＝ CH
    
67.             CH ＝ 9
    
68.             AL ＝ AL － CL
    
69.             CL ＝ 90
    
70.             .判断循环首 (CL ≥ 0)
    
71.                 .如果真 (AL ≥ CL)
    
72.                     AH ＝ AL
    
73.                     AH ＝ AH － CL
    
74.                     BL ＝ CH
    
75.                     返回 ()
    
76.                 .如果真结束
    
77.                 CH ＝ CH － 1
    
78.                 CL ＝ CL － 10
    
79.             .判断循环尾 ()
    
80.         .如果真结束
    
81.         CH ＝ CH － 1
    
82.         CL ＝ CL － 100
    
83.     .判断循环尾 ()
    
84. .默认
    
85. 
    
86. .判断结束
    
87. 
    
88. 
    
89. 
    
90. .子程序 取个十百位数_置入代码, , 公开
    
91. .参数 字节, 字节型, , 0~255
    
92. .参数 个位数, 字节型, 参考, 0~9
    
93. .参数 十位数, 字节型, 参考, 0~9
    
94. .参数 百位数, 字节型, 参考, 0~2
    
95. 
    
96. 置入代码 ({ 96, 138, 69, 8, 232, 20, 0, 0, 0, 139, 77, 12, 136, 33, 139, 77, 16, 136, 25, 139, 77, 20, 136, 57, 97, 201, 194, 16, 0, 81, 82, 138, 208, 50, 228, 50, 219, 50, 255, 60, 0, 114, 10, 60, 9, 119, 6, 138, 224, 235, 100, 235, 98, 60, 10, 114, 34, 60, 99, 119, 30, 181, 9, 177, 90, 235, 17, 56, 200, 114, 8, 138, 224, 42, 225, 138, 221, 235, 72, 254, 205, 128, 233, 10, 128, 249, 10, 115, 234, 235, 60, 60, 100, 114, 56, 60, 255, 119, 52, 181, 2, 177, 200, 235, 41, 56, 200, 114, 32, 138, 253, 181, 9, 42, 193, 177, 90, 235, 17, 56, 200, 114, 8, 138, 224, 42, 225, 138, 221, 235, 20, 254, 205, 128, 233, 10, 128, 249, 0, 115, 234, 254, 205, 128, 233, 100, 128, 249, 100, 115, 210, 138, 194, 90, 89, 195 })
    
97. ' pushad
    
98. ' mov al,[ebp+8]
    
99. ' call GET_BYTE_UTH
    
100. ' mov ecx,[ebp+12]
     
101. ' mov [ecx],ah
     
102. ' mov ecx,[ebp+16]
     
103. ' mov [ecx],bl
     
104. ' mov ecx,[ebp+20]
     
105. ' mov [ecx],bh
     
106. ' popad
     
107. ' leave
     
108. ' retn 16
     
109. ' GET_BYTE_UTH:
     
110. ' push ecx
     
111. ' push edx
     
112. ' mov dl,al
     
113. ' xor ah,ah
     
114. ' xor bl,bl
     
115. ' xor bh,bh
     
116. ' .if al >= 0  && al <= 9
     
117. ' mov ah,al
     
118. ' jmp GBU_END
     
119. ' .elseif al >= 10 && al <= 99
     
120. ' mov ch,9
     
121. ' mov cl,90
     
122. ' .while cl >= 10
     
123. ' .if al >= cl
     
124. ' mov ah,al
     
125. ' sub ah,cl
     
126. ' mov bl,ch
     
127. ' jmp GBU_END
     
128. ' .endif
     
129. ' dec ch
     
130. ' sub cl,10
     
131. ' .endw
     
132. ' .elseif al >= 100 && al <=255
     
133. ' mov ch,2
     
134. ' mov cl,200
     
135. ' .while cl >= 100
     
136. ' .if al >= cl
     
137. ' mov bh,ch
     
138. ' mov ch,9
     
139. ' sub al,cl
     
140. ' mov cl,90
     
141. ' .while cl >= 0
     
142. ' .if al >= cl
     
143. ' mov ah,al
     
144. ' sub ah,cl
     
145. ' mov bl,ch
     
146. ' jmp GBU_END
     
147. ' .endif
     
148. ' dec ch
     
149. ' sub cl,10
     
150. ' .endw
     
151. ' .endif
     
152. ' dec ch
     
153. ' sub cl,100
     
154. ' .endw
     
155. ' .endif
     
156. ' GBU_END:
     
157. ' mov al,dl
     
158. ' pop edx
     
159. ' pop ecx
     
160. ' ret
     
161. 
     

复制代码

小莉今年7岁

那里面的UTH，GBU啥意思