zyp3696 发表于 2015-8-20 19:35:42

自由type无bug版

以下给出无bug自由Type程序
.版本 2


.子程序 自由TYpe, 字节集, , 返回12字节数据段
.参数 属性结构, 属性结构, 数组
.参数 指定地址, , 可空
.局部变量 d1
.局部变量 d2
.局部变量 d3
.局部变量 d4
.局部变量 s1
.局部变量 s2
.局部变量 s3
.局部变量 s4


.如果 (是否为空 (指定地址))
内存操作.打开进程 (进程ID)
d1 ＝ 内存操作.创建内存 (4096)
.否则
d1 ＝ 指定地址 ' 空白地址
.如果结束
d4 ＝ d1 ＋ 取数组成员数 (属性结构) × 68 ' 表明一个结构是68字节?
.计次循环首 (取数组成员数 (属性结构), s1) ' s1是属性结构的递增变量
d2 ＝ d4 ' d2是d4的备份算是前一个
d4 ＝ d4 ＋ 取数组成员数 (属性结构 .整数段) × 20 ' d4递增？整数段的乘20？一个整数段是多少字节？属性结构[].整数段是20字节
内存操作.写整数 (d1 ＋ (s1 － 1) × 68, d1 ＋ 16 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 16 ＋ (s1 － 1) × 68, d1 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 4 ＋ (s1 － 1) × 68, d2)
内存操作.写整数 (d1 ＋ 8 ＋ (s1 － 1) × 68, d4)
内存操作.写整数 (d1 ＋ 12 ＋ (s1 － 1) × 68, d4)
内存操作.写整数 (d1 ＋ 20 ＋ (s1 － 1) × 68, d1 ＋ 36 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 36 ＋ (s1 － 1) × 68, d1 ＋ 20 ＋ (s1 － 1) × 68)
.计次循环首 (取数组成员数 (属性结构 .整数段), s2)
内存操作.写整数 (d2, d2 ＋ 16)
内存操作.写整数 (d2 ＋ 16, d2)
内存操作.写整数 (d2 ＋ 4, d4)
.计次循环首 (取数组成员数 (属性结构 .整数段 .参数), s3)
内存操作.写整数 (d4, 属性结构 .整数段 .参数 )
d4 ＝ d4 ＋ 4
.计次循环尾 ()
内存操作.写整数 (d2 ＋ 8, d4)
内存操作.写整数 (d2 ＋ 12, d4)
d2 ＝ d2 ＋ 20
.计次循环尾 ()
d2 ＝ d4
d4 ＝ d4 ＋ 取数组成员数 (属性结构 .小数段) × 20
内存操作.写整数 (d1 ＋ 24 ＋ (s1 － 1) × 68, d2)
内存操作.写整数 (d1 ＋ 28 ＋ (s1 － 1) × 68, d4)
内存操作.写整数 (d1 ＋ 32 ＋ (s1 － 1) × 68, d4)
.计次循环首 (取数组成员数 (属性结构 .小数段), s2)
d3 ＝ d4
d4 ＝ d4 ＋ 取数组成员数 (属性结构 .小数段 .小数) × 20
内存操作.写整数 (d2, d2 ＋ 16)
内存操作.写整数 (d2 ＋ 16, d2)
内存操作.写整数 (d2 ＋ 4, d3)
内存操作.写整数 (d2 ＋ 8, d4)
内存操作.写整数 (d2 ＋ 12, d4)
d2 ＝ d2 ＋ 20
.计次循环首 (取数组成员数 (属性结构 .小数段 .小数), s3)
内存操作.写整数 (d3, d3 ＋ 16)
内存操作.写整数 (d3 ＋ 16, d3)
内存操作.写整数 (d3 ＋ 4, d4)
.计次循环首 (取数组成员数 (属性结构 .小数段 .小数 .参数), s4)
内存操作.写小数 (d4, 属性结构 .小数段 .小数 .参数 )
d4 ＝ d4 ＋ 4
.计次循环尾 ()
内存操作.写整数 (d3 ＋ 8, d4)
内存操作.写整数 (d3 ＋ 12, d4)
d3 ＝ d3 ＋ 20
.计次循环尾 ()
.计次循环尾 ()
内存操作.写整数 (d1 ＋ 40 ＋ (s1 － 1) × 68, d1 ＋ 56 ＋ (s1 － 1) × 68)
内存操作.写整数 (d1 ＋ 56 ＋ (s1 － 1) × 68, d1 ＋ 40 ＋ (s1 － 1) × 68)
.计次循环尾 ()
返回 (到字节集 (d1) ＋ 到字节集 (到整数 (d1 ＋ 取数组成员数 (属性结构) × 68)) ＋ 到字节集 (到整数 (d1 ＋ 取数组成员数 (属性结构) × 68)))

3642604393 发表于 2015-8-23 14:55:45

帖子不错 万一火了呢

316165716 发表于 2015-8-26 12:30:16


路过帮顶！

632008524 发表于 2015-8-26 12:31:34

回帖纯属支持楼主，希望楼主多奉献好的作品。

ydlydl330000 发表于 2015-8-26 12:46:44

回帖纯属支持楼主，希望楼主多奉献好的作品。

ydlydl330000 发表于 2015-8-26 12:47:03

回帖纯属支持楼主，希望楼主多奉献好的作品。

ydlydl330000 发表于 2015-8-26 12:47:56

回帖纯属支持楼主，希望楼主多奉献好的作品。

ydlydl330000 发表于 2015-8-26 12:48:07

震撼啊!今天让我看到这样的好帖子!

ydlydl330000 发表于 2015-8-26 12:48:25

回帖纯属支持楼主，希望楼主多奉献好的作品。

ydlydl330000 发表于 2015-8-26 12:48:42

今日小生得以一见楼主大贴实在是惶恐至急，何否，楼主此贴实在妙哉!
页: [1] 2
查看完整版本: 自由type无bug版