易语言MASM置入代码实现带逻辑型进位标志的 整数型循环左移与右移1位运算(返回整数型)

EAX

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 A, 整数型
    
14. .局部变量 进位, 逻辑型
    
15. 
    
16. A ＝ 1234567
    
17. 进位 ＝ 假
    
18. A ＝ 整数型_带进位循环右移1位 (A, 进位)
    
19. 调试输出 (A, 进位)
    
20. A ＝ 整数型_带进位循环左移1位 (A, 进位)
    
21. 调试输出 (A, 进位)
    
22. 
    
23. .子程序 整数型_带进位循环左移1位, 整数型, 公开
    
24. .参数 欲移动的整数, 整数型
    
25. .参数 进位标志变量, 逻辑型, 参考, 移入最低位，移出最高位(必须是逻辑型变量)
    
26. 
    
27. 置入代码 ({ 83, 81, 139, 69, 8, 131, 248, 0, 125, 4, 181, 1, 235, 2, 50, 237, 209, 224, 139, 93, 12, 138, 11, 10, 201, 116, 3, 131, 200, 1, 15, 182, 205, 137, 11, 89, 91, 201, 194, 8, 0 })
    
28. ' push ebx
    
29. ' push ecx
    
30. ' mov eax,[ebp+8]
    
31. ' .if sdword ptr eax < 0
    
32. ' mov ch,1
    
33. ' .else
    
34. ' xor ch,ch
    
35. ' .endif
    
36. ' shl eax,1
    
37. ' mov ebx,[ebp+12]
    
38. ' mov cl,[ebx]
    
39. ' .if cl
    
40. ' or eax,1
    
41. ' .endif
    
42. ' movzx ecx,ch
    
43. ' mov [ebx],ecx
    
44. ' pop ecx
    
45. ' pop ebx
    
46. ' leave
    
47. ' retn 8
    
48. 返回 (0)
    
49. 
    
50. .子程序 整数型_带进位循环右移1位, 整数型, 公开
    
51. .参数 欲移动的整数, 整数型
    
52. .参数 进位标志变量, 逻辑型, 参考, 移入最高位，移出最低位(必须是逻辑型变量)
    
53. 
    
54. 置入代码 ({ 83, 81, 139, 69, 8, 139, 93, 12, 138, 200, 128, 225, 1, 138, 43, 209, 232, 10, 237, 116, 5, 13, 0, 0, 0, 128, 15, 182, 201, 137, 11, 89, 91, 201, 194, 8, 0 })
    
55. ' push ebx
    
56. ' push ecx
    
57. ' mov eax,[ebp+8]
    
58. ' mov ebx,[ebp+12]
    
59. ' mov cl,al
    
60. ' and cl,1
    
61. ' mov ch,[ebx]
    
62. ' shr eax,1
    
63. ' .if ch
    
64. ' or eax,80000000H
    
65. ' .endif
    
66. ' movzx ecx,cl
    
67. ' mov [ebx],ecx
    
68. ' pop ecx
    
69. ' pop ebx
    
70. ' leave
    
71. ' retn 8
    
72. 返回 (0)
    

复制代码