求自动T做原盘的方法！

anpengcy · 发表于 2017-9-2 10:30:18

Command re7
uLcl ulcI = 0
uLcl ulcBfrPtr
      ulcl ulcfiletype

rdfl 0xE7
            copy rbfr, wbfr
            ulcfiletype = *(rbfr + BmGenericHdr.file_header_version)
            if ( ulcfiletype == HEADERCHECK )
                     ulcBfrPtr = wbfr + HDR_II_SIZE; // point just past header II
else
ulcBfrPtr = wbfr + HDR_I_SIZE; // point just past header I
eIf
            ulcBfrPtr += 4
            for(ulci=0;ulci<1000;ulci +=1)
               ptrmode short;var1 = *ulcBfrPtr; ulcBfrPtr +=12;
               if(var1==0);break;eif
               ptrmode long;  *ulcBfrPtr = 0;ulcBfrPtr += 12
            efor
WrFl 0xE7
            ve7
eCommand