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

QAQ

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

复制代码

小莉今年7岁

沙发