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