易语言MASM置入代码实现字节型、短整数型的 ROL循环左移 与 ROR循环右移 循环移位运算

EAX

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 A, 字节型
    
14. .局部变量 B, 字节型
    
15. .局部变量 C, 短整数型
    
16. .局部变量 D, 短整数型
    
17. 
    
18. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
19. A ＝ 1
    
20. B ＝ 1
    
21. .计次循环首 (8, )
    
22.     A ＝ 字节型_循环左移 (A, 1)
    
23.     B ＝ 字节型_循环右移 (B, 1)
    
24.     调试输出 (A, B)
    
25. .计次循环尾 ()
    
26. 调试输出 ()
    
27. C ＝ 1
    
28. D ＝ 1
    
29. .计次循环首 (16, )
    
30.     C ＝ 短整数型_循环左移 (C, 1)
    
31.     D ＝ 短整数型_循环右移 (D, 1)
    
32.     调试输出 (C, D)
    
33. .计次循环尾 ()
    
34. 
    
35. .子程序 字节型_循环左移, 字节型, 公开
    
36. .参数 欲移动的字节, 字节型
    
37. .参数 欲移动的位数, 字节型
    
38. 
    
39. 置入代码 ({ 81, 138, 109, 8, 138, 77, 12, 210, 197, 15, 182, 197, 89, 201, 194, 8, 0 })
    
40. ' push ecx
    
41. ' mov ch,[ebp+8]
    
42. ' mov cl,[ebp+12]
    
43. ' rol ch,cl
    
44. ' movzx eax,ch
    
45. ' pop ecx
    
46. ' leave
    
47. ' retn 8
    
48. 返回 (0)
    
49. 
    
50. .子程序 字节型_循环右移, 字节型, 公开
    
51. .参数 欲移动的字节, 字节型
    
52. .参数 欲移动的位数, 字节型
    
53. 
    
54. 置入代码 ({ 81, 138, 109, 8, 138, 77, 12, 210, 205, 15, 182, 197, 89, 201, 194, 8, 0 })
    
55. ' push ecx
    
56. ' mov ch,[ebp+8]
    
57. ' mov cl,[ebp+12]
    
58. ' ror ch,cl
    
59. ' movzx eax,ch
    
60. ' pop ecx
    
61. ' leave
    
62. ' retn 8
    
63. 返回 (0)
    
64. 
    
65. .子程序 短整数型_循环左移, 短整数型, 公开
    
66. .参数 欲移动的短整数, 短整数型
    
67. .参数 欲移动的位数, 字节型
    
68. 
    
69. 置入代码 ({ 81, 102, 139, 69, 8, 138, 77, 12, 102, 211, 192, 15, 183, 192, 89, 201, 194, 8, 0 })
    
70. ' push ecx
    
71. ' mov ax,[ebp+8]
    
72. ' mov cl,[ebp+12]
    
73. ' rol ax,cl
    
74. ' movzx eax,ax
    
75. ' pop ecx
    
76. ' leave
    
77. ' retn 8
    
78. 返回 (0)
    
79. 
    
80. .子程序 短整数型_循环右移, 短整数型, 公开
    
81. .参数 欲移动的短整数, 短整数型
    
82. .参数 欲移动的位数, 字节型
    
83. 
    
84. 置入代码 ({ 81, 102, 139, 69, 8, 138, 77, 12, 102, 211, 200, 15, 183, 192, 89, 201, 194, 8, 0 })
    
85. ' push ecx
    
86. ' mov ax,[ebp+8]
    
87. ' mov cl,[ebp+12]
    
88. ' ror ax,cl
    
89. ' movzx eax,ax
    
90. ' pop ecx
    
91. ' leave
    
92. ' retn 8
    
93. 返回 (0)
    

复制代码