超级实用模块-2.0版本已经完成！

nwzhi

下来看看这个超级模块和精易有啥区别

笨来无一悟

  

子程序名	返回值类型	公开	备 注
逻辑运算_取反	逻辑型		如果参数值为真则返回假，如果参数值为假则返回真。
参数名	类 型	参考	可空	数组	备 注
被反转的逻辑值	逻辑型

置入代码 ({ 139, 69, 8, 131, 240, 1, 201, 194, 4, 0 })
' MOV EAX,[EBP+8]
' XOR EAX, 1
' LEAVE
' RET 4
返回 (假)  ' 这个直接用易语言自带的 取反( ) 更简单吧~~~

.版本 2<br /> <br /> .子程序 逻辑运算_取反, 逻辑型, 公开, 如果参数值为真则返回假，如果参数值为假则返回真。<br /> .参数 被反转的逻辑值, 逻辑型<br /> <br /> 置入代码 ({ 139, 69, 8, 131, 240, 1, 201, 194, 4, 0 })<br /> ' MOV EAX,[EBP+8]<br /> ' XOR EAX, 1<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (假)  ' 这个直接用易语言自带的 取反( ) 更简单吧~~~

笨来无一悟

  

子程序名	返回值类型	公开	备 注
逻辑运算_到整数	整数型		将逻辑值转换为整数
参数名	类 型	参考	可空	数组	备 注
逻辑值	逻辑型

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
' MOV EAX,[EBP+8]
' LEAVE
' RET 4
返回 (0)

.版本 2<br /> <br /> .子程序 逻辑运算_到整数, 整数型, 公开, 将逻辑值转换为整数<br /> .参数 逻辑值, 逻辑型<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> ' MOV EAX,[EBP+8]<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (0)

笨来无一悟

  

子程序名	返回值类型	公开	备 注
文本_到逻辑	逻辑型		兼容 1 0 真 假 四个字符中间掺杂其他字符 以首次出现的字符为准 若皆无 视作假
参数名	类 型	参考	可空	数组	备 注
处理文本	文本型

置入代码 ({ 139, 85, 8, 139, 18, 15, 182, 2, 133, 192, 116, 61, 131, 248, 48, 116, 56, 131, 248, 49, 116, 42, 61, 213, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 230, 0, 0, 0, 116, 24, 15, 182, 2, 61, 188, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 217, 0, 0, 0, 116, 12, 66, 235, 197, 184, 1, 0, 0, 0, 201, 194, 4, 0, 184, 0, 0, 0, 0, 201, 194, 4, 0 })
' MOV EDX,[EBP+8]
' MOV EDX,[EDX]
' 循环:
' MOVZX EAX,BYTE[EDX]
' TEST EAX,EAX
' JE 假
' CMP EAX,48
' JE 假
' CMP EAX,49
' JE 真
' CMP EAX,213
' JNE 非真前
' MOVZX EAX,BYTE[EDX+1]
' CMP EAX,230
' JE 真
' 非真前:
' MOVZX EAX,BYTE[EDX]
' CMP EAX,188
' JNE 非假前
' MOVZX EAX,BYTE[EDX+1]
' CMP EAX,217
' JE 假
' 非假前:
' INC EDX
' JMP 循环
' 真:
' MOV EAX,1
' LEAVE
' RET 4
' 假:
' MOV EAX,0
' LEAVE
' RET 4
返回 (假)

.版本 2<br /> <br /> .子程序 文本_到逻辑, 逻辑型, 公开, 兼容 1 0 真 假 四个字符中间掺杂其他字符 以首次出现的字符为准 若皆无 视作假<br /> .参数 处理文本, 文本型<br /> <br /> 置入代码 ({ 139, 85, 8, 139, 18, 15, 182, 2, 133, 192, 116, 61, 131, 248, 48, 116, 56, 131, 248, 49, 116, 42, 61, 213, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 230, 0, 0, 0, 116, 24, 15, 182, 2, 61, 188, 0, 0, 0, 117, 11, 15, 182, 66, 1, 61, 217, 0, 0, 0, 116, 12, 66, 235, 197, 184, 1, 0, 0, 0, 201, 194, 4, 0, 184, 0, 0, 0, 0, 201, 194, 4, 0 })<br /> ' MOV EDX,[EBP+8]<br /> ' MOV EDX,[EDX]<br /> ' 循环:<br /> ' MOVZX EAX,BYTE[EDX]<br /> ' TEST EAX,EAX<br /> ' JE 假<br /> ' CMP EAX,48<br /> ' JE 假<br /> ' CMP EAX,49<br /> ' JE 真<br /> ' CMP EAX,213<br /> ' JNE 非真前<br /> ' MOVZX EAX,BYTE[EDX+1]<br /> ' CMP EAX,230<br /> ' JE 真<br /> ' 非真前:<br /> ' MOVZX EAX,BYTE[EDX]<br /> ' CMP EAX,188<br /> ' JNE 非假前<br /> ' MOVZX EAX,BYTE[EDX+1]<br /> ' CMP EAX,217<br /> ' JE 假<br /> ' 非假前:<br /> ' INC EDX<br /> ' JMP 循环<br /> ' 真:<br /> ' MOV EAX,1<br /> ' LEAVE<br /> ' RET 4<br /> ' 假:<br /> ' MOV EAX,0<br /> ' LEAVE<br /> ' RET 4<br /> 返回 (假)

wuhaibo

太棒了~~~~

苏轶

笨来无一悟 发表于 2025-4-12 20:59
汇编的求余比易语言自带的快很多很多
[e=4].版本 2

好的，2.1版本会更新

笨来无一悟

汇编的求余比易语言自带的快很多很多

  

子程序名	返回值类型	公开	备 注
算术运算_取数值类型	整数型		取出指定的数值是奇数还是偶数，0=偶数，1=奇数
参数名	类 型	参考	可空	数组	备 注
欲检查的数值	整数型

返回 (求余 (欲检查的数值, 2))

子程序名	返回值类型	公开	备 注
求余	整数型
参数名	类 型	参考	可空	数组	备 注
被除	整数型
除数	整数型

置入代码 ({ 49, 210, 54, 139, 69, 8, 54, 139, 77, 12, 227, 2, 247, 241, 137, 208, 201, 194, 8, 0 })
返回 (0)
' XOR EDX, EDX
' MOV EAX, DWORD PTR SS:[EBP+0X08]
' MOV ECX, DWORD PTR SS:[EBP+0X0C]
' JECXZ END
' DIV ECX
' END:
' MOV EAX, EDX
' LEAVE
' RET 0X08

.版本 2<br /> <br /> .子程序 算术运算_取数值类型, 整数型, 公开, 取出指定的数值是奇数还是偶数，0=偶数，1=奇数<br /> .参数 欲检查的数值, 整数型<br /> <br /> 返回 (求余 (欲检查的数值, 2))<br /> <br /> .子程序 求余, 整数型, 公开<br /> .参数 被除, 整数型<br /> .参数 除数, 整数型<br /> <br /> 置入代码 ({ 49, 210, 54, 139, 69, 8, 54, 139, 77, 12, 227, 2, 247, 241, 137, 208, 201, 194, 8, 0 })<br /> 返回 (0)<br /> ' XOR EDX, EDX<br /> ' MOV EAX, DWORD PTR SS:[EBP+0X08]<br /> ' MOV ECX, DWORD PTR SS:[EBP+0X0C]<br /> ' JECXZ END<br /> ' DIV ECX<br /> ' END:<br /> ' MOV EAX, EDX<br /> ' LEAVE<br /> ' RET 0X08

笨来无一悟

炒鸡食用

  

子程序名	返回值类型	公开	备 注
算术运算_求平均数	双精度小数型		返回一个数值型数组的平均数
参数名	类 型	参考	可空	数组	备 注
欲求平均数的数组	双精度小数型

返回 (双精度数组求和 (欲求平均数的数组) ÷ 取数组成员数 (欲求平均数的数组))

子程序名	返回值类型	公开	备 注
双精度数组求和	双精度小数型
参数名	类 型	参考	可空	数组	备 注
双精度小数数组	双精度小数型

置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 141, 88, 8, 133, 201, 126, 79 })
' MOV EAX,[EBP+8]
' MOV EAX,[EAX]
' MOV ECX,[EAX+4]
' LEA EBX,[EAX+8]
' TEST ECX, ECX
' JLE 零
置入代码 ({ 131, 249, 1, 116, 95, 137, 202, 137, 216, 102, 15, 239, 201, 209, 234, 193, 226, 4, 1, 218 })
' CMP ECX, 1
' JE 一
' MOV EDX, ECX
' MOV EAX, EBX
' PXOR XMM1, XMM1
' SHR EDX, 1
' SAL EDX, 4
' ADD EDX, EBX
置入代码 ({ 102, 15, 16, 16, 131, 192, 16, 102, 15, 88, 202, 57, 194, 117, 241 })
' 循环:
' MOVUPD XMM2, XMMWORD PTR [EAX]
' ADD EAX, 16
' ADDPD XMM1, XMM2
' CMP EDX, EAX
' JNE 循环
置入代码 ({ 137, 200, 102, 15, 40, 193, 102, 15, 21, 193, 131, 224, 254, 131, 225, 1, 102, 15, 88, 193, 116, 5 })
' MOV EAX, ECX
' MOVAPD XMM0, XMM1
' UNPCKHPD XMM0, XMM1
' AND EAX, -2
' AND ECX, 1
' ADDPD XMM0, XMM1
' JE 结束
置入代码 ({ 242, 15, 88, 4, 195, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })
' 剩:
' ADDSD XMM0, QWORD PTR [EBX+EAX*8]
' 结束:
' MOVD EAX,XMM0
' PSHUFD XMM0, XMM0, 1
' MOVD EDX,XMM0
' LEAVE
' RET 4
置入代码 ({ 102, 15, 239, 192, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })
' 零:
' PXOR XMM0, XMM0
' MOVD EAX,XMM0
' PSHUFD XMM0, XMM0, 1
' MOVD EDX,XMM0
' LEAVE
' RET 4
置入代码 ({ 49, 192, 102, 15, 239, 192, 235, 205 })
' 一:
' XOR EAX, EAX
' PXOR XMM0, XMM0
' JMP 剩
返回 (0)

.版本 2<br /> <br /> .子程序 算术运算_求平均数, 双精度小数型, 公开, 返回一个数值型数组的平均数<br /> .参数 欲求平均数的数组, 双精度小数型, 数组<br /> <br /> 返回 (双精度数组求和 (欲求平均数的数组) ÷ 取数组成员数 (欲求平均数的数组))<br /> <br /> .子程序 双精度数组求和, 双精度小数型, 公开<br /> .参数 双精度小数数组, 双精度小数型, 数组<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 141, 88, 8, 133, 201, 126, 79 })<br /> ' MOV EAX,[EBP+8]<br /> ' MOV EAX,[EAX]<br /> ' MOV ECX,[EAX+4]<br /> ' LEA EBX,[EAX+8]<br /> ' TEST ECX, ECX<br /> ' JLE 零<br /> 置入代码 ({ 131, 249, 1, 116, 95, 137, 202, 137, 216, 102, 15, 239, 201, 209, 234, 193, 226, 4, 1, 218 })<br /> ' CMP ECX, 1<br /> ' JE 一<br /> ' MOV EDX, ECX<br /> ' MOV EAX, EBX<br /> ' PXOR XMM1, XMM1<br /> ' SHR EDX, 1<br /> ' SAL EDX, 4<br /> ' ADD EDX, EBX<br /> 置入代码 ({ 102, 15, 16, 16, 131, 192, 16, 102, 15, 88, 202, 57, 194, 117, 241 })<br /> ' 循环:<br /> ' MOVUPD XMM2, XMMWORD PTR [EAX]<br /> ' ADD EAX, 16<br /> ' ADDPD XMM1, XMM2<br /> ' CMP EDX, EAX<br /> ' JNE 循环<br /> 置入代码 ({ 137, 200, 102, 15, 40, 193, 102, 15, 21, 193, 131, 224, 254, 131, 225, 1, 102, 15, 88, 193, 116, 5 })<br /> ' MOV EAX, ECX<br /> ' MOVAPD XMM0, XMM1<br /> ' UNPCKHPD XMM0, XMM1<br /> ' AND EAX, -2<br /> ' AND ECX, 1<br /> ' ADDPD XMM0, XMM1<br /> ' JE 结束<br /> 置入代码 ({ 242, 15, 88, 4, 195, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })<br /> ' 剩:<br /> ' ADDSD XMM0, QWORD PTR [EBX+EAX*8]<br /> ' 结束:<br /> ' MOVD EAX,XMM0<br /> ' PSHUFD XMM0, XMM0, 1<br /> ' MOVD EDX,XMM0<br /> ' LEAVE<br /> ' RET 4<br /> 置入代码 ({ 102, 15, 239, 192, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })<br /> ' 零:<br /> ' PXOR XMM0, XMM0<br /> ' MOVD EAX,XMM0<br /> ' PSHUFD XMM0, XMM0, 1<br /> ' MOVD EDX,XMM0<br /> ' LEAVE<br /> ' RET 4<br /> 置入代码 ({ 49, 192, 102, 15, 239, 192, 235, 205 })<br /> ' 一:<br /> ' XOR EAX, EAX<br /> ' PXOR XMM0, XMM0<br /> ' JMP 剩<br /> 返回 (0)

笨来无一悟

你这里面的 求平均数 用汇编相加了再除成员数只执行一次除法 汇编还是易语言 没啥区别

  

子程序名	返回值类型	公开	备 注
双精度数组求和	双精度小数型
参数名	类 型	参考	可空	数组	备 注
双精度小数数组	双精度小数型

置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 141, 88, 8, 133, 201, 126, 79 })
' MOV EAX,[EBP+8]
' MOV EAX,[EAX]
' MOV ECX,[EAX+4]
' LEA EBX,[EAX+8]
' TEST ECX, ECX
' JLE 零
置入代码 ({ 131, 249, 1, 116, 95, 137, 202, 137, 216, 102, 15, 239, 201, 209, 234, 193, 226, 4, 1, 218 })
' CMP ECX, 1
' JE 一
' MOV EDX, ECX
' MOV EAX, EBX
' PXOR XMM1, XMM1
' SHR EDX, 1
' SAL EDX, 4
' ADD EDX, EBX
置入代码 ({ 102, 15, 16, 16, 131, 192, 16, 102, 15, 88, 202, 57, 194, 117, 241 })
' 循环:
' MOVUPD XMM2, XMMWORD PTR [EAX]
' ADD EAX, 16
' ADDPD XMM1, XMM2
' CMP EDX, EAX
' JNE 循环
置入代码 ({ 137, 200, 102, 15, 40, 193, 102, 15, 21, 193, 131, 224, 254, 131, 225, 1, 102, 15, 88, 193, 116, 5 })
' MOV EAX, ECX
' MOVAPD XMM0, XMM1
' UNPCKHPD XMM0, XMM1
' AND EAX, -2
' AND ECX, 1
' ADDPD XMM0, XMM1
' JE 结束
置入代码 ({ 242, 15, 88, 4, 195, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })
' 剩:
' ADDSD XMM0, QWORD PTR [EBX+EAX*8]
' 结束:
' MOVD EAX,XMM0
' PSHUFD XMM0, XMM0, 1
' MOVD EDX,XMM0
' LEAVE
' RET 4
置入代码 ({ 102, 15, 239, 192, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })
' 零:
' PXOR XMM0, XMM0
' MOVD EAX,XMM0
' PSHUFD XMM0, XMM0, 1
' MOVD EDX,XMM0
' LEAVE
' RET 4
置入代码 ({ 49, 192, 102, 15, 239, 192, 235, 205 })
' 一:
' XOR EAX, EAX
' PXOR XMM0, XMM0
' JMP 剩
返回 (0)

.版本 2<br /> <br /> .子程序 双精度数组求和, 双精度小数型<br /> .参数 双精度小数数组, 双精度小数型, 数组<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 0, 139, 72, 4, 141, 88, 8, 133, 201, 126, 79 })<br /> ' MOV EAX,[EBP+8]<br /> ' MOV EAX,[EAX]<br /> ' MOV ECX,[EAX+4]<br /> ' LEA EBX,[EAX+8]<br /> ' TEST ECX, ECX<br /> ' JLE 零<br /> 置入代码 ({ 131, 249, 1, 116, 95, 137, 202, 137, 216, 102, 15, 239, 201, 209, 234, 193, 226, 4, 1, 218 })<br /> ' CMP ECX, 1<br /> ' JE 一<br /> ' MOV EDX, ECX<br /> ' MOV EAX, EBX<br /> ' PXOR XMM1, XMM1<br /> ' SHR EDX, 1<br /> ' SAL EDX, 4<br /> ' ADD EDX, EBX<br /> 置入代码 ({ 102, 15, 16, 16, 131, 192, 16, 102, 15, 88, 202, 57, 194, 117, 241 })<br /> ' 循环:<br /> ' MOVUPD XMM2, XMMWORD PTR [EAX]<br /> ' ADD EAX, 16<br /> ' ADDPD XMM1, XMM2<br /> ' CMP EDX, EAX<br /> ' JNE 循环<br /> 置入代码 ({ 137, 200, 102, 15, 40, 193, 102, 15, 21, 193, 131, 224, 254, 131, 225, 1, 102, 15, 88, 193, 116, 5 })<br /> ' MOV EAX, ECX<br /> ' MOVAPD XMM0, XMM1<br /> ' UNPCKHPD XMM0, XMM1<br /> ' AND EAX, -2<br /> ' AND ECX, 1<br /> ' ADDPD XMM0, XMM1<br /> ' JE 结束<br /> 置入代码 ({ 242, 15, 88, 4, 195, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })<br /> ' 剩:<br /> ' ADDSD XMM0, QWORD PTR [EBX+EAX*8]<br /> ' 结束:<br /> ' MOVD EAX,XMM0<br /> ' PSHUFD XMM0, XMM0, 1<br /> ' MOVD EDX,XMM0<br /> ' LEAVE<br /> ' RET 4<br /> 置入代码 ({ 102, 15, 239, 192, 102, 15, 126, 192, 102, 15, 112, 192, 1, 102, 15, 126, 194, 201, 194, 4, 0 })<br /> ' 零:<br /> ' PXOR XMM0, XMM0<br /> ' MOVD EAX,XMM0<br /> ' PSHUFD XMM0, XMM0, 1<br /> ' MOVD EDX,XMM0<br /> ' LEAVE<br /> ' RET 4<br /> 置入代码 ({ 49, 192, 102, 15, 239, 192, 235, 205 })<br /> ' 一:<br /> ' XOR EAX, EAX<br /> ' PXOR XMM0, XMM0<br /> ' JMP 剩<br /> 返回 (0)

艾玛克138

感谢老大，太好了