|
本帖最后由 EAX 于 2022-8-6 12:25 编辑
- .版本 2
- .支持库 spec
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 bit, 逻辑型
- bit = 真
- 输出调试文本 (_testbit_ (bit))
- 输出调试文本 (bit)
- 输出调试文本 (_testbit_ (bit))
- 输出调试文本 (bit)
- bit = 真
- .循环判断首 ()
- 调试输出 (“@”)
- .循环判断尾 (_testbit_ (bit))
- .子程序 _testbit_, 逻辑型, 公开, 如果bit为真,则返回真,并将bit置假,否则返回假
- .参数 bit, 逻辑型, 参考, 必须是逻辑型变量,不得使用常量或表达式,否则会出错
- 置入代码 ({ 83, 81, 139, 93, 8, 185, 1, 0, 0, 0, 33, 11, 139, 3, 51, 201, 137, 11, 89, 91, 201, 194, 4, 0 })
- ' push ebx
- ' push ecx
- ' mov ebx,[ebp+8]
- ' mov ecx,1
- ' and [ebx],ecx
- ' mov eax,[ebx]
- ' xor ecx,ecx
- ' mov [ebx],ecx
- ' pop ecx
- ' pop ebx
- ' leave
- ' retn 4
- 返回 (假)
复制代码 |
|