|
- .版本 2
- .支持库 spec
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 A, 字节集
- A = { 1, 2, 3, 4, 5, 6 }
- 置字节集内短整数 (A, 0, 12345, 假)
- 调试输出 (取字节集内短整数 (A, 0))
- 调试输出 (A, 取字节集数据 (A, 2, 1))
- .子程序 取字节集内短整数, 短整数型, 公开, 功能与核心库自带 取字节集内整数() 相同
- .参数 待处理的字节集, 字节集
- .参数 欲获取短整数所处偏移, 整数型, , 严禁负数或越界否则会取出错误的数据
- .参数 是否反转字节序, 逻辑型, 可空
- 置入代码 ({ 81, 86, 87, 139, 125, 8, 139, 63, 131, 199, 8, 139, 117, 12, 51, 192, 102, 139, 4, 62, 138, 77, 16, 128, 249, 1, 117, 2, 134, 196, 95, 94, 89, 201, 194, 12, 0 })
- ' push ecx
- ' push esi
- ' push edi
- ' mov edi,[ebp+8]
- ' mov edi,[edi]
- ' add edi,8
- ' mov esi,[ebp+12]
- ' xor eax,eax
- ' mov ax,[edi+esi]
- ' mov cl,[ebp+16]
- ' .if cl == 1
- ' xchg al,ah
- ' .endif
- ' pop edi
- ' pop esi
- ' pop ecx
- ' leave
- ' retn 12
- 返回 (0)
- .子程序 置字节集内短整数, , 公开, 功能与核心库自带 置字节集内整数 () 相同
- .参数 待处理的字节集, 字节集, , 必须为字节集变量
- .参数 欲设置短整数所处偏移, 整数型, , 严禁负数或越界否则会造成程序异常
- .参数 欲设置的短整数值, 短整数型
- .参数 是否反转字节序, 逻辑型, 可空
- 置入代码 ({ 81, 86, 87, 80, 139, 117, 8, 139, 54, 131, 198, 8, 139, 125, 12, 51, 192, 102, 139, 69, 16, 138, 77, 20, 128, 249, 1, 117, 2, 134, 196, 102, 137, 4, 55, 88, 95, 94, 89, 201, 194, 16, 0 })
- ' push ecx
- ' push esi
- ' push edi
- ' push eax
- ' mov esi,[ebp+8]
- ' mov esi,[esi]
- ' add esi,8
- ' mov edi,[ebp+12]
- ' xor eax,eax
- ' mov ax,[ebp+16]
- ' mov cl,[ebp+20]
- ' .if cl == 1
- ' xchg al,ah
- ' .endif
- ' mov [esi+edi],ax
- ' pop eax
- ' pop edi
- ' pop esi
- ' pop ecx
- ' leave
- ' retn 16
复制代码 |
|