易语言汇编置入代码版 取字节集内长整数() / 置字节集内长整数() (带是否反转字节序)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 字节集, 字节集
    
15. .局部变量 长整数, 长整数型
    
16. 
    
17. 字节集 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 }
    
18. 长整数 ＝ 取字节集内长整数 (字节集, 0)
    
19. 
    
20. 
    
21. 
    
22. 置字节集内长整数 (字节集, 2, 长整数, 真)
    
23. 调试输出 (字节集)
    
24. 
    
25. .子程序 取字节集内长整数, 长整数型, 公开, 与 取字节集内整数 () 功能相同
    
26. .参数 待处理的字节集, 字节集
    
27. .参数 欲获取长整数所处偏移, 整数型, , 严禁负数或越界否则会取出错误的数据
    
28. .参数 是否反转字节序, 逻辑型, 可空
    
29. 
    
30. 置入代码 ({ 86, 87, 81, 139, 125, 8, 139, 63, 131, 199, 8, 139, 117, 12, 139, 4, 62, 139, 84, 62, 4, 138, 77, 16, 128, 249, 1, 117, 5, 232, 7, 0, 0, 0, 89, 95, 94, 201, 194, 16, 0, 134, 196, 193, 192, 16, 134, 196, 134, 214, 193, 194, 16, 134, 214, 146, 195 })
    
31. ' push esi
    
32. ' push edi
    
33. ' push ecx
    
34. ' mov edi,[ebp+8]
    
35. ' mov edi,[edi]
    
36. ' add edi,8
    
37. ' mov esi,[ebp+12]
    
38. ' mov eax,[edi+esi]
    
39. ' mov edx,[edi+esi+4]
    
40. ' mov cl,[ebp+16]
    
41. ' .if cl == 1
    
42. ' call RLB
    
43. ' .endif
    
44. ' pop ecx
    
45. ' pop edi
    
46. ' pop esi
    
47. ' leave
    
48. ' retn 16
    
49. ' RLB:
    
50. ' xchg al,ah
    
51. ' rol eax,16
    
52. ' xchg al,ah
    
53. ' xchg dl,dh
    
54. ' rol edx,16
    
55. ' xchg dl,dh
    
56. ' xchg eax,edx
    
57. ' ret
    
58. 
    
59. 返回 (0)
    
60. 
    
61. 
    
62. .子程序 置字节集内长整数, , 公开, 与 置字节集内整数 () 功能相同
    
63. .参数 待处理的字节集, 字节集
    
64. .参数 欲设置长整数所处偏移, 整数型, , 严禁负数或越界否则会造成程序异常
    
65. .参数 欲设置的长整数值, 长整数型
    
66. .参数 是否反转字节序, 逻辑型, 可空
    
67. 
    
68. 置入代码 ({ 96, 139, 125, 8, 139, 63, 131, 199, 8, 139, 117, 12, 139, 69, 16, 139, 85, 20, 138, 77, 24, 128, 249, 1, 117, 5, 232, 12, 0, 0, 0, 137, 4, 62, 137, 84, 62, 4, 97, 201, 194, 20, 0, 134, 196, 193, 192, 16, 134, 196, 134, 214, 193, 194, 16, 134, 214, 146, 195 })
    
69. ' pushad
    
70. ' mov edi,[ebp+8]
    
71. ' mov edi,[edi]
    
72. ' add edi,8
    
73. ' mov esi,[ebp+12]
    
74. ' mov eax,[ebp+16]
    
75. ' mov edx,[ebp+20]
    
76. ' mov cl,[ebp+24]
    
77. ' .if cl == 1
    
78. ' call RLB
    
79. ' .endif
    
80. ' mov [edi+esi],eax
    
81. ' mov [edi+esi+4],edx
    
82. ' popad
    
83. ' leave
    
84. ' retn 20
    
85. ' RLB:
    
86. ' xchg al,ah
    
87. ' rol eax,16
    
88. ' xchg al,ah
    
89. ' xchg dl,dh
    
90. ' rol edx,16
    
91. ' xchg dl,dh
    
92. ' xchg eax,edx
    
93. ' ret
    
94. 
    

复制代码

小莉今年7岁

沙发

朵朵

66666666