【蠢新学汇编】整数数组 按值换值 / 换位

笨来无一悟

问题:数组成员换位置
https://bbs.125.la/forum.php?mod=viewthread&tid=14852858
(出处: 精易论坛)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数组	整数型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

数组 ＝ { 123, 345, 345, 322, 5567, 889 }
整数数组按值换值 (数组, 345, 5567)
调试输出 (数组)
数组 ＝ { 123, 345, 345, 322, 5567, 889 }
整数数组按值换位 (数组, 345, 5567)
调试输出 (数组)

子程序名	返回值类型	公开	备 注
整数数组按值换值			不存在也赋值
参数名	类 型	参考	可空	数组	备 注
参_整数数组	整数型
参_数值一	整数型
参_数值二	整数型

置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 133, 201, 116, 33, 139, 117, 12, 139, 125, 16 })
' MOV EAX,[EBP+8]
' MOV EAX,[EAX]
' MOV ECX,[EAX+4]
' TEST ECX,ECX
' JE 结束
' MOV ESI,[EBP+12]
' MOV EDI,[EBP+16]
置入代码 ({ 59, 52, 136, 116, 7, 59, 60, 136, 116, 7, 235, 8, 137, 60, 136, 235, 3, 137, 52, 136, 73, 133, 201, 116, 2, 235, 229, 201, 194, 12, 0 })
' 循环:
' CMP ESI,[EAX+ECX*4]
' JE 等一
' CMP EDI,[EAX+ECX*4]
' JE 等二
' JMP 减一
' 等一:
' MOV DWORD [EAX+ECX*4],EDI
' JMP 减一
' 等二:
' MOV DWORD [EAX+ECX*4],ESI
' 减一:
' DEC ECX
' TEST ECX,ECX
' JE 结束
' JMP 循环
' 结束:
' LEAVE
' RET 12

子程序名	返回值类型	公开	备 注
整数数组按值换位			若存在只交换首次出现的成员 需要全部交换 请用 整数数组按值换值( )
参数名	类 型	参考	可空	数组	备 注
参_整数数组	整数型
参_数值一	整数型
参_数值二	整数型

置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 133, 201, 116, 35, 139, 117, 12, 139, 125, 16, 49, 219, 49, 210 })
' MOV EAX,[EBP+8]
' MOV EAX,[EAX]
' MOV ECX,[EAX+4]
' TEST ECX,ECX
' JE 结束
' MOV ESI,[EBP+12]
' MOV EDI,[EBP+16]
' XOR EBX,EBX
' XOR EDX,EDX
置入代码 ({ 59, 52, 136, 116, 7, 59, 60, 136, 116, 6, 235, 6, 137, 203, 235, 2, 137, 202, 73, 133, 201, 116, 2, 235, 231 })
' 循环:
' CMP ESI,[EAX+ECX*4]
' JE 等一
' CMP EDI,[EAX+ECX*4]
' JE 等二
' JMP 减一
' 等一:
' MOV EBX,ECX
' JMP 减一
' 等二:
' MOV EDX,ECX
' 减一:
' DEC ECX
' TEST ECX,ECX
' JE 结束
' JMP 循环
置入代码 ({ 133, 219, 116, 10, 133, 210, 116, 6, 137, 60, 152, 137, 52, 144, 201, 194, 12, 0 })
' 结束:
' TEST EBX,EBX
' JE 非法
' TEST EDX,EDX
' JE 非法
' MOV DWORD [EAX+EBX*4],EDI
' MOV DWORD [EAX+EDX*4],ESI
' 非法:
' LEAVE
' RET 12

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数组, 整数型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 数组 ＝ { 123, 345, 345, 322, 5567, 889 }<br /> 整数数组按值换值 (数组, 345, 5567)<br /> 调试输出 (数组)<br /> <br /> 数组 ＝ { 123, 345, 345, 322, 5567, 889 }<br /> 整数数组按值换位 (数组, 345, 5567)<br /> 调试输出 (数组)<br /> <br /> .子程序 整数数组按值换值, , , 不存在也赋值<br /> .参数 参_整数数组, 整数型, 数组<br /> .参数 参_数值一, 整数型<br /> .参数 参_数值二, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 133, 201, 116, 33, 139, 117, 12, 139, 125, 16 })<br /> ' MOV EAX,[EBP+8]<br /> ' MOV EAX,[EAX]<br /> ' MOV ECX,[EAX+4]<br /> ' TEST ECX,ECX<br /> ' JE 结束<br /> ' MOV ESI,[EBP+12]<br /> ' MOV EDI,[EBP+16]<br /> 置入代码 ({ 59, 52, 136, 116, 7, 59, 60, 136, 116, 7, 235, 8, 137, 60, 136, 235, 3, 137, 52, 136, 73, 133, 201, 116, 2, 235, 229, 201, 194, 12, 0 })<br /> ' 循环:<br /> ' CMP ESI,[EAX+ECX*4]<br /> ' JE 等一<br /> ' CMP EDI,[EAX+ECX*4]<br /> ' JE 等二<br /> ' JMP 减一<br /> ' 等一:<br /> ' MOV DWORD [EAX+ECX*4],EDI<br /> ' JMP 减一<br /> ' 等二:<br /> ' MOV DWORD [EAX+ECX*4],ESI<br /> ' 减一:<br /> ' DEC ECX<br /> ' TEST ECX,ECX<br /> ' JE 结束<br /> ' JMP 循环<br /> ' 结束:<br /> ' LEAVE<br /> ' RET 12<br /> <br /> .子程序 整数数组按值换位, , , 若存在只交换首次出现的成员 需要全部交换 请用 整数数组按值换值( )<br /> .参数 参_整数数组, 整数型, 数组<br /> .参数 参_数值一, 整数型<br /> .参数 参_数值二, 整数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 133, 201, 116, 35, 139, 117, 12, 139, 125, 16, 49, 219, 49, 210 })<br /> ' MOV EAX,[EBP+8]<br /> ' MOV EAX,[EAX]<br /> ' MOV ECX,[EAX+4]<br /> ' TEST ECX,ECX<br /> ' JE 结束<br /> ' MOV ESI,[EBP+12]<br /> ' MOV EDI,[EBP+16]<br /> ' XOR EBX,EBX<br /> ' XOR EDX,EDX<br /> 置入代码 ({ 59, 52, 136, 116, 7, 59, 60, 136, 116, 6, 235, 6, 137, 203, 235, 2, 137, 202, 73, 133, 201, 116, 2, 235, 231 })<br /> ' 循环:<br /> ' CMP ESI,[EAX+ECX*4]<br /> ' JE 等一<br /> ' CMP EDI,[EAX+ECX*4]<br /> ' JE 等二<br /> ' JMP 减一<br /> ' 等一:<br /> ' MOV EBX,ECX<br /> ' JMP 减一<br /> ' 等二:<br /> ' MOV EDX,ECX<br /> ' 减一:<br /> ' DEC ECX<br /> ' TEST ECX,ECX<br /> ' JE 结束<br /> ' JMP 循环<br /> 置入代码 ({ 133, 219, 116, 10, 133, 210, 116, 6, 137, 60, 152, 137, 52, 144, 201, 194, 12, 0 })<br /> ' 结束:<br /> ' TEST EBX,EBX<br /> ' JE 非法<br /> ' TEST EDX,EDX<br /> ' JE 非法<br /> ' MOV DWORD [EAX+EBX*4],EDI<br /> ' MOV DWORD [EAX+EDX*4],ESI<br /> ' 非法:<br /> ' LEAVE<br /> ' RET 12

来自群组: 热心网友

胖子葛格

感谢大神分享~！

please

感谢分享，支持开源！！！

查过

下个学习一下

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

wjswzj0

支持开源~！感谢分享

沐白

支持开源~！感谢分享

happyweeks365

66666666666666666666666

year1970

感谢分享

查过

感谢发布原创作品，精易因你更精彩！6666666666666