|
- .版本 2
- .支持库 spec
- .程序集 程序集1
- .程序集变量 内存池, 字节型, , "65536"
- .程序集变量 已占用块, 逻辑型, , "256", 每个块256字节
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 块地址, 整数型
- 申请块内存 ()
- 块地址 = 申请块内存 ()
- 写内存字节 (块地址, 123)
- 写内存字节 (块地址 + 1, 234)
- 调试输出 (读内存字节 (块地址))
- 调试输出 (读内存字节 (块地址 + 1))
- 释放块内存 (块地址)
- 调试输出 (读内存字节 (块地址))
- 调试输出 (读内存字节 (块地址 + 1))
- .子程序 申请块内存, 整数型, , 每个块256字节,成功返回地址(0~65535) 失败返回-1
- .局部变量 块地址, 整数型
- .局部变量 字节地址, 整数型
- .如果真 (是否有可用块 () = 假)
- 返回 (-1)
- .如果真结束
- 块地址 = 取未占用块地址 ()
- 字节地址 = 左移 (块地址, 8)
- 已占用块 [块地址 + 1] = 真
- 擦除块内存 (块地址)
- 返回 (字节地址)
- .子程序 释放块内存, 逻辑型
- .参数 地址, 整数型
- .局部变量 块地址, 整数型
- 块地址 = 右移 (地址, 8)
- .如果真 (已占用块 [块地址 + 1] = 假)
- 返回 (假)
- .如果真结束
- 已占用块 [块地址 + 1] = 假
- 地址 = 左移 (块地址, 8)
- 擦除块内存 (块地址)
- 返回 (真)
- .子程序 取未占用块地址, 字节型
- .局部变量 地址, 整数型
- .循环判断首 ()
- 地址 = 地址 + 1
- .循环判断尾 (已占用块 [地址])
- 返回 (地址 - 1)
- .子程序 是否有可用块, 逻辑型
- .局部变量 计数, 整数型
- .计次循环首 (256, 计数)
- .如果真 (已占用块 [计数] = 假)
- 返回 (真)
- .如果真结束
- .计次循环尾 ()
- 返回 (假)
- .子程序 擦除块内存
- .参数 块地址, 字节型
- .局部变量 字节地址, 整数型
- .局部变量 地址, 整数型
- 字节地址 = 左移 (块地址, 8)
- .变量循环首 (字节地址, 字节地址 + 255, 1, 地址)
- 内存池 [地址 + 1] = 0
- .变量循环尾 ()
- .子程序 读内存字节, 字节型
- .参数 地址, 整数型
- 返回 (内存池 [地址 + 1])
- .子程序 写内存字节
- .参数 地址, 整数型
- .参数 值, 字节型
- 内存池 [地址 + 1] = 值
复制代码
|
|