command swap47 headnum

ulcl uch
ulcl ulh
ulcl ua
ulcl ub
ulcl ucnt
ulcl ucnt1
ulcl ulimt

uch=24;
ulh=38;
ulimt=headnum;

rdfl 0x47
copy rbfr,wbfr

//code 1

ua=uch+ulh*(ulimt+1)
ub=uch+ulh*ulimt

for (ucnt=0;ucnt<(5-ulimt);ucnt+=1)
    copy rbfr:ua,wbfr:ub,ulh
    ua+=ulh;
    ub+=ulh;
efor

//code 2

  ulh=6;
  ub=ua;
  ua+=ulh*(ulimt+1);
  ub+=ulh*ulimt;


  for (ucnt=0;ucnt<(5-ulimt);ucnt+=1)

     copy rbfr:ua,wbfr:ub,ulh
     ua+=ulh;
     ub+=ulh;
  efor

//code 3

  ulh=2;
  ub=ua;
  ua+=ulh*(ulimt+1);
  ub+=ulh*ulimt;


  for (ucnt=0;ucnt<(5-ulimt);ucnt+=1)

     copy rbfr:ua,wbfr:ub,ulh
     ua+=ulh;
     ub+=ulh;
  efor

chksum
wrfl 0x47

ecommand


command swap4a headnum

ulcl uch
ulcl ulh
ulcl ua
ulcl ub
ulcl ucnt
ulcl ucnt1
ulcl ulimt

uch=26;
ulh=254;
ulimt=headnum;

rdfl 0x4a
copy rbfr,wbfr



ua=uch+ulh*(ulimt+1)
ub=uch+ulh*ulimt

for (ucnt=0;ucnt<(5-ulimt);ucnt+=1)
    copy rbfr:ua,wbfr:ub,ulh
    ua+=ulh;
    ub+=ulh;
efor
chksum
wrfl 0x4a
ecommand

command swap49 headnum

ulcl uch
ulcl ulh
ulcl ua
ulcl ub
ulcl ucnt
ulcl ucnt1
ulcl ulimt

uch=40;
ulh=2;
ulimt=headnum;

rdfl 0x49
copy rbfr,wbfr



ua=uch+ulh*(ulimt+1)
ub=uch+ulh*ulimt

for (ucnt=0;ucnt<(5-ulimt);ucnt+=1)
    copy rbfr:ua,wbfr:ub,ulh
    ua+=ulh;
    ub+=ulh;
efor

chksum
wrfl 0x49

不懂，这中代码应该不属于C语言论坛的范围吧

楼主，你发帖发错地方了吧~~~

好像在那里见过这个语言的关键字..好像是C#吧..

这是c论坛。。。

貌似我C#里面也没见过 - -