易语言MASM置入代码16位有符号短整数型数组取绝对值/ABS运算计算模块算法 (无返回值)

QAQ

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 A, 短整数型, , "0"
    
15. 
    
16. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
17. A ＝ { 0, 1, 2, 3, 4, 5, -1, -2, -3, -4, -5, 123, -123, 12345, -12345, 23456, -23456 }
    
18. 调试输出 (A)
    
19. 短整数型数组_取绝对值 (A)
    
20. 调试输出 (A)
    
21. 
    
22. .子程序 短整数型数组_取绝对值, , 公开
    
23. .参数 短整数型数组, 短整数型, 参考 数组
    
24. 
    
25. 置入代码 ({ 80, 83, 81, 82, 86, 87, 139, 117, 8, 11, 246, 117, 2, 235, 52, 139, 54, 11, 246, 117, 2, 235, 44, 139, 126, 4, 11, 255, 117, 2, 235, 35, 131, 198, 8, 51, 201, 235, 24, 102, 139, 4, 78, 102, 61, 0, 128, 114, 9, 102, 139, 216, 102, 51, 192, 102, 43, 195, 102, 137, 4, 78, 65, 59, 207, 114, 228, 95, 94, 90, 89, 91, 88 })
    
26. ' push eax
    
27. ' push ebx
    
28. ' push ecx
    
29. ' push edx
    
30. ' push esi
    
31. ' push edi
    
32. ' mov esi,[ebp+8]
    
33. ' .if esi == 0
    
34. ' jmp ASM_END
    
35. ' .endif
    
36. ' mov esi,[esi]
    
37. ' .if esi == 0
    
38. ' jmp ASM_END
    
39. ' .endif
    
40. ' mov edi,[esi+4]
    
41. ' .if edi == 0
    
42. ' jmp ASM_END
    
43. ' .endif
    
44. ' add esi,8
    
45. ' xor ecx,ecx
    
46. ' .while ecx < edi
    
47. ' mov ax,[esi+ecx*2]
    
48. ' .if ax >= 8000H
    
49. ' mov bx,ax
    
50. ' xor ax,ax
    
51. ' sub ax,bx
    
52. ' .endif
    
53. ' mov [esi+ecx*2],ax
    
54. ' inc ecx
    
55. ' .endw
    
56. ' ASM_END:
    
57. ' pop edi
    
58. ' pop esi
    
59. ' pop edx
    
60. ' pop ecx
    
61. ' pop ebx;
    
62. ' pop eax
    
63. 
    

复制代码