设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 542|回复: 0
收起左侧

易语言MASM置入代码实现长整数型的 min(A,B) / max(A,B) 函数比较 (返回长整数型)

[复制链接]
发表于 2022-12-11 11:07:06 | 显示全部楼层 |阅读模式
1.png
  1. .版本 2

  2. .程序集 程序集1

  3. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

  4. 置随机数种子 ()
  5. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
  6. 返回 (0)  ' 可以根据您的需要返回任意数值

  7. .子程序 _临时子程序
  8. .局部变量 A, 长整数型
  9. .局部变量 B, 长整数型
  10. .局部变量 次数, 整数型
  11. .局部变量 时间, 整数型

  12. 时间 = 取启动时间 ()
  13. .判断循环首 (真)
  14.     A = 取随机长整数 ()
  15.     B = 取随机长整数 ()
  16.     .如果真 (长整数型_min (A, B) ≠ 选择 (A < B, A, B))
  17.         输出调试文本 (“错误:min”)
  18.         跳出循环 ()
  19.     .如果真结束
  20.     .如果真 (长整数型_max (A, B) ≠ 选择 (A > B, A, B))
  21.         输出调试文本 (“错误:max”)
  22.         跳出循环 ()
  23.     .如果真结束
  24.     次数 = 次数 + 1
  25.     .如果真 (次数 ≤ 0)
  26.         输出调试文本 (“正确”)
  27.         跳出循环 ()
  28.     .如果真结束
  29.     .如果真 (次数 % 1000000 = 0)
  30.         输出调试文本 (次数)
  31.     .如果真结束

  32. .判断循环尾 ()
  33. 输出调试文本 (“耗时(秒):” + 到文本 ((取启动时间 () - 时间) ÷ 1000))


  34. .子程序 长整数型_min, 长整数型, 公开
  35. .参数 A, 长整数型
  36. .参数 B, 长整数型

  37. 置入代码 ({ 83, 81, 139, 69, 8, 139, 85, 12, 139, 93, 16, 139, 77, 20, 59, 202, 124, 8, 59, 202, 117, 8, 59, 216, 115, 4, 139, 195, 139, 209, 89, 91, 201, 194, 16, 0 })
  38. ' push ebx
  39. ' push ecx
  40. ' mov eax,[ebp+8]
  41. ' mov edx,[ebp+12]
  42. ' mov ebx,[ebp+16]
  43. ' mov ecx,[ebp+20]
  44. ' .if sdword ptr ecx < edx || (ecx == edx && ebx < eax)
  45. ' mov eax,ebx
  46. ' mov edx,ecx
  47. ' .endif
  48. ' pop ecx
  49. ' pop ebx
  50. ' leave
  51. ' retn 16
  52. 返回 (0)


  53. .子程序 长整数型_max, 长整数型, 公开
  54. .参数 A, 长整数型
  55. .参数 B, 长整数型

  56. 置入代码 ({ 83, 81, 139, 69, 8, 139, 85, 12, 139, 93, 16, 139, 77, 20, 59, 202, 127, 8, 59, 202, 117, 8, 59, 216, 118, 4, 139, 195, 139, 209, 89, 91, 201, 194, 16, 0 })
  57. ' push ebx
  58. ' push ecx
  59. ' mov eax,[ebp+8]
  60. ' mov edx,[ebp+12]
  61. ' mov ebx,[ebp+16]
  62. ' mov ecx,[ebp+20]
  63. ' .if sdword ptr ecx > edx || (ecx == edx && ebx > eax)
  64. ' mov eax,ebx
  65. ' mov edx,ecx
  66. ' .endif
  67. ' pop ecx
  68. ' pop ebx
  69. ' leave
  70. ' retn 16
  71. 返回 (0)

  72. .子程序 取随机长整数, 长整数型
  73. .局部变量 字节集, 字节集
  74. .局部变量 计数, 整数型

  75. 字节集 = 取空白字节集 (8)
  76. .计次循环首 (8, 计数)
  77.     字节集 [计数] = 取随机数 (, )
  78. .计次循环尾 ()
  79. 返回 (取字节集数据 (字节集, #长整数型, ))
复制代码

相关帖子

您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 18:48 , Processed in 0.448026 second(s), 22 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表