楼主最近还看过
(* 是从DT0-DT9共计10个寄存器,批量传送到文件号所对应的寄存器,如文件号数据为0,所传送到对应的寄存器起始为DT1000--DT1009 *)
(* IX是索引寄存器 *)
if (初次运行)=0 then
初次运行:=12333 ;
当前文件号:=1;
要复制文件号:=2;
end_if;
if (写入) AND 当前文件号>0 then
IX:=(当前文件号-1)*10+1000;
F10_BKMV_NUMBER_OFFSET(s1_Start := DT0, s2_Number := 10, d_Offset := IX);
elsif (读出)AND 当前文件号>0 then
IX:=(当前文件号-1)*10;
F10_BKMV(s1_Start := IXDT1000, s2_End := IXDT1009, d_Start => DT0);
elsif (复制)AND 当前文件号>0 AND 要复制文件号>0 then
IX:=(当前文件号-1)*10;
IY:=(要复制文件号-1)*10;
F10_BKMV(s1_Start := IXDT1000, s2_End := IXDT1009, d_Start => IYDT1000);
elsif (删除)AND 当前文件号>0 then
IX:=(当前文件号-1)*10;
F11_COPY(s := 0, d1_Start => IXDT1000, d2_End => IXDT1009);
ELSE
IX:=0;
IY:=0;
end_if;