DNF自由TYPE还有人玩吗？有偿

8530

好几年前的了，目前只能遍历出来，但是写入就不行！来大佬更新一下，有偿。






.版本 2

.子程序 自由TYPE, 字节集, , 重装模拟
.参数 属性结构, 属性结构, 数组
.参数 指定地址, 整数型, 可空
.参数 结构参数, 整数型, 可空
.局部变量 空白地址, 整数型
.局部变量 整数地址, 整数型
.局部变量 小数地址, 整数型
.局部变量 属性地址, 整数型
.局部变量 属性计次, 整数型
.局部变量 整数段计次, 整数型
.局部变量 整数参数计次, 整数型
.局部变量 小数参数计次, 整数型

.如果 (是否为空 (指定地址))
    空白地址 ＝ 内存_创建内存 (4)
.否则
    空白地址 ＝ 指定地址
.如果结束
.如果真 (是否为空 (结构参数))
    结构参数 ＝ 60
.如果真结束

属性地址 ＝ 空白地址 ＋ 取数组成员数 (属性结构) × 结构参数
.计次循环首 (取数组成员数 (属性结构), 属性计次)
    整数地址 ＝ 属性地址
    属性地址 ＝ 属性地址 ＋ 取数组成员数 (属性结构 [属性计次].整数) × 20
    写整数型 (空白地址 ＋ (属性计次 － 1) × 结构参数, 空白地址 ＋ 16 ＋ (属性计次 － 1) × 结构参数)
    写整数型 (空白地址 ＋ 16 ＋ (属性计次 － 1) × 结构参数, 空白地址 ＋ (属性计次 － 1) × 结构参数)
    写整数型 (空白地址 ＋ 4 ＋ (属性计次 － 1) × 结构参数, 整数地址)
    写整数型 (空白地址 ＋ 8 ＋ (属性计次 － 1) × 结构参数, 属性地址)
    写整数型 (空白地址 ＋ 12 ＋ (属性计次 － 1) × 结构参数, 属性地址)
    写整数型 (空白地址 ＋ 20 ＋ (属性计次 － 1) × 结构参数, 空白地址 ＋ 36 ＋ (属性计次 － 1) × 结构参数)
    写整数型 (空白地址 ＋ 36 ＋ (属性计次 － 1) × 结构参数, 空白地址 ＋ 20 ＋ (属性计次 － 1) × 结构参数)
    .计次循环首 (取数组成员数 (属性结构 [属性计次].整数), 整数段计次)
        写整数型 (整数地址, 整数地址 ＋ 16)
        写整数型 (整数地址 ＋ 16, 整数地址)
        写整数型 (整数地址 ＋ 4, 属性地址)
        .计次循环首 (取数组成员数 (属性结构 [属性计次].整数 [整数段计次].参数), 整数参数计次)
            写整数型 (属性地址, 属性结构 [属性计次].整数 [整数段计次].参数 [整数参数计次])
            属性地址 ＝ 属性地址 ＋ 4
        .计次循环尾 ()
        写整数型 (整数地址 ＋ 8, 属性地址)
        写整数型 (整数地址 ＋ 12, 属性地址)
        整数地址 ＝ 整数地址 ＋ 20
    .计次循环尾 ()
    整数地址 ＝ 属性地址
    属性地址 ＝ 属性地址 ＋ 取数组成员数 (属性结构 [属性计次].小数段) × 20
    写整数型 (空白地址 ＋ 24 ＋ (属性计次 － 1) × 结构参数, 整数地址)
    写整数型 (空白地址 ＋ 28 ＋ (属性计次 － 1) × 结构参数, 属性地址)
    写整数型 (空白地址 ＋ 32 ＋ (属性计次 － 1) × 结构参数, 属性地址)
    .计次循环首 (取数组成员数 (属性结构 [属性计次].小数段), 整数段计次)
        小数地址 ＝ 属性地址
        属性地址 ＝ 属性地址 ＋ 取数组成员数 (属性结构 [属性计次].小数段 [整数段计次].小数) × 20
        写整数型 (整数地址, 整数地址 ＋ 16)
        写整数型 (整数地址 ＋ 16, 整数地址)
        写整数型 (整数地址 ＋ 4, 小数地址)
        写整数型 (整数地址 ＋ 8, 属性地址)
        写整数型 (整数地址 ＋ 12, 属性地址)
        整数地址 ＝ 整数地址 ＋ 20
        .计次循环首 (取数组成员数 (属性结构 [属性计次].小数段 [整数段计次].小数), 整数参数计次)
            写整数型 (小数地址, 小数地址 ＋ 16)
            写整数型 (小数地址 ＋ 16, 小数地址)
            写整数型 (小数地址 ＋ 4, 属性地址)
            .计次循环首 (取数组成员数 (属性结构 [属性计次].小数段 [整数段计次].小数 [整数参数计次].参数), 小数参数计次)
                写小数型 (属性地址, 属性结构 [属性计次].小数段 [整数段计次].小数 [整数参数计次].参数 [小数参数计次])
                属性地址 ＝ 属性地址 ＋ 4
            .计次循环尾 ()
            写整数型 (小数地址 ＋ 8, 属性地址)
            写整数型 (小数地址 ＋ 12, 属性地址)
            小数地址 ＝ 小数地址 ＋ 20
        .计次循环尾 ()
    .计次循环尾 ()
    写整数型 (空白地址 ＋ 40 ＋ (属性计次 － 1) × 结构参数, 空白地址 ＋ 56 ＋ (属性计次 － 1) × 结构参数)
    写整数型 (空白地址 ＋ 56 ＋ (属性计次 － 1) × 结构参数, 空白地址 ＋ 40 ＋ (属性计次 － 1) × 结构参数)
.计次循环尾 ()
返回 (到字节集 (空白地址) ＋ 到字节集 (到整数 (空白地址 ＋ 取数组成员数 (属性结构) × 结构参数)) ＋ 到字节集 (到整数 (空白地址 ＋ 取数组成员数 (属性结构) × 结构参数)))