Компиляция Inline assembler (вставки ассемблера)

#include <stdio.h>
#include <././sys/stat.h>
 
#include <fcntl.h>
#include <streambuf>
 
#include <dirent.h>
 
#include <vector>
#include <string>
 
 
#include <cstdlib>
 
#include "Unit1.h"
 
 
bool bFind = false, bCsv = false, bFilter = false, bCDRHeader = false;
bool bCDRExchangeID = false, bCDR_SWversion = false, bCDR_FileName = false;
int iInterFieldSize = 0;  // число байт между первыми полями A3
int bufPos = 0;  // текущая позиция в буфере чтения из файла =0
int iFilePos = 0; // текущая позиция в файле =0
int findRecSize =0;   // размер найденной записи
int iSpaceNumber = 0;
int iFoundRecordsNumber = 1; //, iCDRHeaderLength;
long int iFileSize =0;
 
 
//------------- ф-ция нахождения длины строки ------------------
int find_length(char* input)
{
 int length;
 __asm__ (
     "leal $input, %edi           \n\t"
     "xorl %ecx,%ecx              \n\t"
     "movl (%edi), %edi           \n\t" 
"nexch2:                          \n\t"
     "movb (%edi), %al            \n\t"
     "incl %edi                   \n\t"
     "incl %ecx                   \n\t" // длина
     "testb %al,%al               \n\t"
     "jnz nexch2                  \n\t"
     
     "decl %ecx                   \n\t" // длина найдена
     "leal $length, %edx          \n\t"
     "movl %ecx, (%edx)           \n\t" 
  );
 return length;    // в eax 
}
 
//------- ф-ция преобразования строки из 10-тичных цифр в целое число ---------
 
int char2int(char* input)
{
 int output, ilength;
 ilength = find_length(input);
  __asm__ (
  " movl ($input), %edi           \n\t"
  "movl ($ilength), %ecx       \n\t"
 
  "xorl %eax,%eax              \n\t"
  "incl %eax                   \n\t" // al =1
  "xorl %esi,%esi              \n\t" // esi =0 , [edi-ecx] = input
  "addl %ecx,%edi              \n\t"
  "decl %edi                   \n\t" // [edi] = last char in string input = "1048576"
  "movb (%edi), %dl            \n\t"
  "andl $0x0f,%edx             \n\t" // edx = last char of input without fist semibyte of ASCII
  "addl %edx,%esi              \n\t" // esi = ------"---------"--------
  "decl %edi                   \n\t" //  [edi] = next char begining from end of input
  "decl %ecx                   \n\t"
 
"begint:                     \n\t"
 
  "movb (%edi), %bl       \n\t"
  "andl $0x0f,%ebx             \n\t" // ebx = next char begining from end of input without first semibyte
  "imull $10,%eax              \n\t" // eax = eax * 10
  "imull %eax,%ebx             \n\t" // ebx = ebx * eax
  "addl %ebx,%esi              \n\t" // esi = esi + ebx * eax
  "decl %edi                   \n\t" // [edi] = next char begining from end of input
  "decl %ecx                   \n\t" // ecx = number of char in input begining from start
  "jnz begint                  \n\t" // number != 0 ?
 
//!!!"leal $output, %edx          \n\t"
  "movl %esi, (%edx)           \n\t"
    );
  return output;
}
 
//------ ф-ция преобразования ASCII строки из цифр в TBCD строку ------
// например, ASCII код 32 36 35 38 30 33 = TBCD код 26 58 03
void char2tbcd(char* input, int &ilength, void *SubNBuf)
{
 ilength = find_length(input); 
 __asm__ (
  "movl $ilength, %eax         \n\t"
 
  "movl (%eax), %ecx           \n\t"
  "movl $input, %eax           \n\t"
  "movl $SubNBuf, %edi         \n\t"
  "xorl %ebx,%ebx              \n\t"
 
"begin1:                     \n\t"
 
  "movb (%eax), %bl           \n\t"
  "shlb $4,%bl                 \n\t"
 
  "movb (%eax,1), %bh          \n\t"
  "andb $0x0f,%bh              \n\t"
  "orb %bh,%bl                 \n\t"
 
  "movb %bl, (%edi)            \n\t"
 
  "incl %eax                   \n\t"
  "incl %eax                   \n\t"
  "incl %edi                   \n\t"
  "decl %ecx                   \n\t"
  "decl %ecx                   \n\t"
  "jnle begin1                 \n\t" // если не меньше или равно 0, т.е. >  =0
 );
 
 if(ilength>0) {
  ilength = ilength+1;
  ilength = ilength-1;
 } 
}
 
//------------------- функция сравнение строки с шаблоном -------------------
 
int wildcmp(const char *wild, const char *string) 
{
 const char *cp, *mp;
 while ((*string) && (*wild != '*'))    {
  if ((*wild != *string) && (*wild != '?')) return 0;
  wild++;
  string++;
 }
 while (*string)        {
  if (*wild == '*')  {
   if (!*++wild) return 1;
   mp = wild;
   cp = string+1;
  }
  else if ((*wild == *string) || (*wild == '?'))        {
   wild++;
   string++;
  }
  else  {
   wild = mp;
   string = cp++;
  }
 }
 while (*wild == '*')  wild++;
 return !*wild;
}
 
//-------------------------- ГЛАВНАЯ ФУНКЦИЯ ---------------------------------
 
int main(int argc, char* argv[])
 
{
 int handle, handle2, bytes, iTBCDlen; //, endig, numparts;
 
 int ic_blength, ic_Nlength;
 void *xNsubsc, *xNsubsc2;
 char cTimebuf[32];  // для показа времени
 long iTimeValue;    // для показа времени
 
 int recordsize = 0x100;  // размер find_rec_buf =256 байт для найденной записи 
 
 
 
 bool bOdd;  // признак нечетного номера - другой способ поиска
 bool bNsub, bAsub;
 bool bMultyFiles = false, bFileNamesMatch = false;
 char *arg, *cbufsize = "1048576", *cSubsc, *cNsubsc, *cOddEven;
 char *sTime = " ";
 char *cInputFileName ="11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111";
 
 struct stat statbuf;
 int bufsize=0;
 
 void *buf;  // буфер для файла размером bufsize
 
 char *path = NULL;
 size_t size;
 DIR *dir;
 struct dirent *ent;
 using namespace std;
 
  vector<string> FileNameList;
 
 if(argc==1) {
  printf(         //ShowHelp:
  "Q.825 CDR decoder and filter program, version 2.3 (build 40)\n\
Usage:\n\n\
   cdrdec -f inputfile arguments > outputfile\n\n");
 
  return 1;
 }
 printf("Input parameters are:\n");
 for(int i=1;i<argc;i++)  {    // цикл введенных параметров
  arg = argv[i];
  if(arg[0]=='-') {  // если начинается на '-'
  switch (arg[1]) {
   case 'f':
        cInputFileName = argv[i+1];
           // поиск и подсчет символа * внутри строки
          __asm__ (
           "movb $'*', %al              \n\t" // 0x2A
           "xorl %ecx,%ecx              \n\t"
           "movl ($cInputFileName), %edi   \n\t"
 
"scasbInputFileName:         \n\t"
           "incl %ecx                   \n\t" // счетчик символов внутри cInputFileName
           "scasb                       \n\t"          
           "jz SymbolFound              \n\t"
           "cmpb $0, (%edi)   \n\t"
           "jz EndSearchSymbolInFileName \n\t"
           "jmp ScasbInputFileName      \n\t"
 
"SymbolFound:                \n\t"
           "movb $1, $bMultyFiles   \n\t"
           "movl %ecx,%ebx              \n\t" // сохраним позицию '*' внутри cInputFileName
 
"EndSearchSymbolInFileName:   \n\t" // ecx - позиция '*' внутри cInputFileName
       );
                     
        if(bMultyFiles) {   // если много входных файлов
         path = getcwd(path, size);
         if ((dir = opendir(path)) == NULL) {
         perror("Unable to open directory");
     exit(1);
         }
         printf(" input files:\n");
         while ((ent = readdir(dir)) != NULL) {
           if(wildcmp(cInputFileName, ent->d_name)) {
           printf("  %s\n",ent->d_name);
           FileNameList.insert(FileNameList.end(),ent->d_name);
           bFileNamesMatch = 1;
          }
         }
         if(!bFileNamesMatch) {
          printf("  no match.\n");
          return 1;
         }
 
         if (closedir(dir) != 0) {
          perror("Unable to close directory");
          return 1;
         }
        }
        else     // если один входной файл
         if ((handle = open(cInputFileName, O_RDONLY)) != -1) {
          printf(" input file - %s\n", cInputFileName);
          FileNameList.insert(FileNameList.end(),cInputFileName);
         }
         else {
          perror("open input file failed, error");
          return 1;
         }
   break;
 
   case 'o':
    handle2 = open(argv[i+1], O_CREAT |O_APPEND);
    if (handle2 != -1)  {       // argv[i+1] - выходной файл
     printf(" output file - %s\n", argv[i+1]);
    }
    else {
     perror("create output file failed, error");
     return 1;
    }
   break;
   case 'b':
    cbufsize = argv[i+1];   // argv[i+1] - размер буфера
   break;
   case 'A':   // фильтр поиска аб-та А
        bFilter = 1;
        cSubsc = "A";
        bAsub = true;
        bNsub = false;
        cNsubsc = argv[i+1];
        break;
   case 'B':  // фильтр поиска аб-та Б
        bFilter = 1;
        cSubsc = "B";
        bAsub = false;
        bNsub = false;
        cNsubsc = argv[i+1];
   break;
   case 'N':  // фильтр поиска номера любого аб-та
    bFilter = 1;
        cSubsc = "N";
        bAsub = false;
        bNsub = true;
        cNsubsc = argv[i+1];
        break;
   case 'c':
    bCsv = true;
   break;
  } // конец если начинается на '-'
  } // конец switch
 }  // конец цикла
 
}

#include <stdio.h>
#include <././sys/stat.h> 
#include <fcntl.h>
#include <streambuf> 
#include <dirent.h> 
#include <vector>
#include <string> 
#include <cstdlib> 
#include "Unit1.h" 
 
bool bFind = false, bCsv = false, bFilter = false, bCDRHeader = false;
bool bCDRExchangeID = false, bCDR_SWversion = false, bCDR_FileName = false;
int iInterFieldSize = 0;  // число байт между первыми полями A3
int bufPos = 0;  // текущая позиция в буфере чтения из файла =0
int iFilePos = 0; // текущая позиция в файле =0
int findRecSize =0;   // размер найденной записи
int iSpaceNumber = 0;
int iFoundRecordsNumber = 1; //, iCDRHeaderLength;
long int iFileSize =0; 
 
//------------- ф-ция нахождения длины строки ------------------
int find_length(char* input)
{
 int length;
 __asm__ (
     //"leal $input, %edi           \n\t"      
     "movl $input, %eax           \n\t"
     "leal 1(%eax), %edi          \n\t"
     "xorl %ecx,%ecx              \n\t"
     "movl (%edi), %edi           \n\t" 
"nexch2:                          \n\t"
     "movb (%edi), %al            \n\t"
     "incl %edi                   \n\t"
     "incl %ecx                   \n\t" // длина
     "testb %al,%al               \n\t"
     "jnz nexch2                  \n\t"
     
     "decl %ecx                   \n\t" // длина найдена
     //"leal $length, %edx          \n\t"
     "movl $length, %eax          \n\t"
     "leal 1(%eax), %edx          \n\t"
     "movl %ecx, (%edx)           \n\t" 
  );
 return length;    // в eax 
}
 
//------- ф-ция преобразования строки из 10-тичных цифр в целое число ---------
 
int char2int(char* input)
{
 int output, ilength;
 ilength = find_length(input);
  __asm__ (
  " movl ($input), %edi           \n\t"
  "movl ($ilength), %ecx       \n\t"
 
  "xorl %eax,%eax              \n\t"
  "incl %eax                   \n\t" // al =1
  "xorl %esi,%esi              \n\t" // esi =0 , [edi-ecx] = input
  "addl %ecx,%edi              \n\t"
  "decl %edi                   \n\t" // [edi] = last char in string input = "1048576"
  "movb (%edi), %dl            \n\t"
  "andl $0x0f,%edx             \n\t" // edx = last char of input without fist semibyte of ASCII
  "addl %edx,%esi              \n\t" // esi = ------"---------"--------
  "decl %edi                   \n\t" //  [edi] = next char begining from end of input
  "decl %ecx                   \n\t"
 
"begint:                     \n\t"
 
  "movb (%edi), %bl       \n\t"
  "andl $0x0f,%ebx             \n\t" // ebx = next char begining from end of input without first semibyte
  "imull $10,%eax              \n\t" // eax = eax * 10
  "imull %eax,%ebx             \n\t" // ebx = ebx * eax
  "addl %ebx,%esi              \n\t" // esi = esi + ebx * eax
  "decl %edi                   \n\t" // [edi] = next char begining from end of input
  "decl %ecx                   \n\t" // ecx = number of char in input begining from start
  "jnz begint                  \n\t" // number != 0 ?
 
  //"leal $output, %edx        \n\t"
  "movl $output, %eax           \n\t"
  "leal 1(%eax), %edi          \n\t"
  "movl %esi, (%edx)           \n\t"
    );
  return output;
}
 
//------ ф-ция преобразования ASCII строки из цифр в TBCD строку ------
// например, ASCII код 32 36 35 38 30 33 = TBCD код 26 58 03
void char2tbcd(char* input, int &ilength, void *SubNBuf)
{
 ilength = find_length(input); 
 __asm__ (
  "movl $ilength, %eax         \n\t"
 
  "movl (%eax), %ecx           \n\t"
  "movl $input, %eax           \n\t"
  "movl $SubNBuf, %edi         \n\t"
  "xorl %ebx,%ebx              \n\t"
 
"begin1:                     \n\t"
 
  "movb (%eax), %bl           \n\t"
  "shlb $4,%bl                 \n\t"
 
  "movb (%eax,1), %bh          \n\t"
  "andb $0x0f,%bh              \n\t"
  "orb %bh,%bl                 \n\t"
 
  "movb %bl, (%edi)            \n\t"
 
  "incl %eax                   \n\t"
  "incl %eax                   \n\t"
  "incl %edi                   \n\t"
  "decl %ecx                   \n\t"
  "decl %ecx                   \n\t"
  "jnle begin1                 \n\t" // если не меньше или равно 0, т.е. >  =0
 );
 
 if(ilength>0) {
  ilength = ilength+1;
  ilength = ilength-1;
 } 
}
 
//------------------- функция сравнение строки с шаблоном -------------------
 
int wildcmp(const char *wild, const char *string) 
{
 const char *cp, *mp;
 while ((*string) && (*wild != '*'))    {
  if ((*wild != *string) && (*wild != '?')) return 0;
  wild++;
  string++;
 }
 while (*string)        {
  if (*wild == '*')  {
   if (!*++wild) return 1;
   mp = wild;
   cp = string+1;
  }
  else if ((*wild == *string) || (*wild == '?'))        {
   wild++;
   string++;
  }
  else  {
   wild = mp;
   string = cp++;
  }
 }
 while (*wild == '*')  wild++;
 return !*wild;
}
 
//-------------------------- ГЛАВНАЯ ФУНКЦИЯ ---------------------------------
 
int main(int argc, char* argv[])
 
{
 int handle, handle2, bytes, iTBCDlen; 
 
 int ic_blength, ic_Nlength;
 void *xNsubsc, *xNsubsc2;
 char cTimebuf[32];  // для показа времени
 long iTimeValue;    // для показа времени
 
 int recordsize = 0x100;  // размер find_rec_buf =256 байт для найденной записи 
 
 
 
 bool bOdd;  // признак нечетного номера - другой способ поиска
 bool bNsub, bAsub;
 bool bMultyFiles = false, bFileNamesMatch = false;
 char *arg, *cbufsize = "1048576", *cSubsc, *cNsubsc, *cOddEven;
 char *sTime = " ";
 char *cInputFileName ="11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111";
 
 struct stat statbuf;
 int bufsize=0;
 
 void *buf;  // буфер для файла размером bufsize
 
 char *path = NULL;
 size_t size;
 DIR *dir;
 struct dirent *ent;
 using namespace std;
 
  vector<string> FileNameList;
 
 if(argc==1) {
  printf(         //ShowHelp:
  "Q.825 CDR decoder and filter program, version 2.3 (build 40)\n\
Usage:\n\n\
   cdrdec -f inputfile arguments > outputfile\n\n");
 
  return 1;
 }
 printf("Input parameters are:\n");
 for(int i=1;i<argc;i++)  {    // цикл введенных параметров
  arg = argv[i];
  if(arg[0]=='-') {  // если начинается на '-'
  switch (arg[1]) {
   case 'f':
        cInputFileName = argv[i+1];
           // поиск и подсчет символа * внутри строки
          __asm__ (
           "movb $'*', %al              \n\t" // 0x2A
           "xorl %ecx,%ecx              \n\t"
           "movl ($cInputFileName), %edi   \n\t"
 
"scasbInputFileName:         \n\t"
           "incl %ecx                   \n\t" // счетчик символов внутри cInputFileName
           "scasb                       \n\t"          
           "jz SymbolFound              \n\t"
           "cmpb $0, (%edi)   \n\t"
           "jz EndSearchSymbolInFileName \n\t"
           "jmp ScasbInputFileName      \n\t"
 
"SymbolFound:                \n\t"
           //"movb $1, $bMultyFiles   \n\t"
           "movl $bMultyFiles, %eax   \n\t"
           "movb $1, (%eax)   \n\t"
           "movl %ecx,%ebx              \n\t" // сохраним позицию '*' внутри cInputFileName
 
"EndSearchSymbolInFileName:   \n\t" // ecx - позиция '*' внутри cInputFileName
       );
                     
        if(bMultyFiles) {   // если много входных файлов
         path = getcwd(path, size);
         if ((dir = opendir(path)) == NULL) {
         perror("Unable to open directory");
     exit(1);
         }
         printf(" input files:\n");
         while ((ent = readdir(dir)) != NULL) {
           if(wildcmp(cInputFileName, ent->d_name)) {
           printf("  %s\n",ent->d_name);
                   FileNameList.insert(FileNameList.end(),ent->d_name);
           bFileNamesMatch = 1;
          }
         }
         if(!bFileNamesMatch) {
          printf("  no match.\n");
          return 1;
         }
 
         if (closedir(dir) != 0) {
          perror("Unable to close directory");
          return 1;
         }
        }
        else     // если один входной файл
                 if ((handle = open(cInputFileName, O_RDONLY)) != -1) {
          printf(" input file - %s\n", cInputFileName);
                  FileNameList.insert(FileNameList.end(),cInputFileName);
         }
         else {
          perror("open input file failed, error");
          return 1;
         }
   break;
 
   case 'o':
        handle2 = open(argv[i+1], O_CREAT |O_APPEND);
    if (handle2 != -1)  {       // argv[i+1] - выходной файл
     printf(" output file - %s\n", argv[i+1]);
    }
    else {
     perror("create output file failed, error");
     return 1;
    }
   break;
   case 'b':
    cbufsize = argv[i+1];   // argv[i+1] - размер буфера
   break;
   case 'A':   // фильтр поиска аб-та А
        bFilter = 1;
        cSubsc = "A";
        bAsub = true;
        bNsub = false;
        cNsubsc = argv[i+1];
        break;
   case 'B':  // фильтр поиска аб-та Б
        bFilter = 1;
        cSubsc = "B";
        bAsub = false;
        bNsub = false;
        cNsubsc = argv[i+1];
   break;
   case 'N':  // фильтр поиска номера любого аб-та
    bFilter = 1;
        cSubsc = "N";
        bAsub = false;
        bNsub = true;
        cNsubsc = argv[i+1];
        break;
   case 'c':
    bCsv = true;
   break;
  } // конец если начинается на '-'
  } // конец switch
 }  // конец цикла
 
}

#include <stdio.h>
#include <././sys/stat.h>
#include <fcntl.h>
#include <streambuf>
#include <dirent.h>
#include <vector>
#include <string>
#include <cstdlib>
#include "Unit1.h"
 
bool bFind = false, bCsv = false, bFilter = false, bCDRHeader = false;
bool bCDRExchangeID = false, bCDR_SWversion = false, bCDR_FileName = false;
int iInterFieldSize = 0;  // число байт между первыми полями A3
int bufPos = 0;  // текущая позиция в буфере чтения из файла =0
int iFilePos = 0; // текущая позиция в файле =0
int findRecSize =0;   // размер найденной записи
int iSpaceNumber = 0;
int iFoundRecordsNumber = 1; //, iCDRHeaderLength;
long int iFileSize =0;
 
//------------- ф-ция нахождения длины строки ------------------
int find_length(char* input) {
    int length;
    __asm__  (
        //"leal $input, %edi           \n\t"
        //"movl $input, %eax           \n\t"
        //"leal 1(%eax), %edi          \n\t"
        "xorl %%ecx, %%ecx              \n\t"
        "movl (%%edi), %%esi           \n\t"
        "nexch2:                          \n\t"
        "movb (%%esi), %%al            \n\t"
        "incl %%esi                   \n\t"
        "incl %%ecx                   \n\t" // длина
        "testb %%al, %%al               \n\t"
        "jnz nexch2                  \n\t"
 
        "decl %%ecx                   \n\t" // длина найдена
        //"leal $length, %edx          \n\t"
        //"movl $length, %eax          \n\t"
        //"leal 1(%eax), %edx          \n\t"
        "movl %%ecx, (%%edx)           \n\t"
        : "=d"(length)     // output
        : "D"(input)      // input
        :              // modified
    );
    return length;    // в eax
}
 
//------- ф-ция преобразования строки из 10-тичных цифр в целое число ---------
 
int char2int(char* input) {
    int output, ilength;
    ilength = find_length(input);
    __asm__ (
        //"movl ($input), %edi           \n\t"
        //"movl ($ilength), %ecx       \n\t"
 
        "xorl %%eax, %%eax              \n\t"
        "incl %%eax                   \n\t" // al =1
        "xorl %%esi, %%esi              \n\t" // esi =0 , [edi-ecx] = input
        "addl %%ecx, %%edi              \n\t"
        "decl %%edi                   \n\t" // [edi] = last char in string input = "1048576"
        "movb (%%edi), %%dl            \n\t"
        "andl $0x0f, %%edx             \n\t" // edx = last char of input without fist semibyte of ASCII
        "addl %%edx, %%esi              \n\t" // esi = ------"---------"--------
        "decl %%edi                   \n\t" //  [edi] = next char begining from end of input
        "decl %%ecx                   \n\t"
 
        "begint:                     \n\t"
 
        "movb (%%edi), %%bl       \n\t"
        "andl $0x0f, %%ebx             \n\t" // ebx = next char begining from end of input without first semibyte
        "imull $10, %%eax              \n\t" // eax = eax * 10
        "imull %%eax, %%ebx             \n\t" // ebx = ebx * eax
        "addl %%ebx, %%esi              \n\t" // esi = esi + ebx * eax
        "decl %%edi                   \n\t" // [edi] = next char begining from end of input
        "decl %%ecx                   \n\t" // ecx = number of char in input begining from start
        "jnz begint                  \n\t" // number != 0 ?
 
        //"leal $output, %edx        \n\t"
        //"movl $output, %eax           \n\t"
        //"leal 1(%eax), %edi          \n\t"
        "movl %%esi, (%%edx)           \n\t"
        : "=d" (output)     // output
        : "D" (input), "c" (ilength)   // input
        :    // modify
    );
}
 
//------ ф-ция преобразования ASCII строки из цифр в TBCD строку ------
// например, ASCII код 32 36 35 38 30 33 = TBCD код 26 58 03
void char2tbcd(char* input, int &ilength, void *SubNBuf) {
    ilength = find_length(input);
    __asm__ (
        //"movl $ilength, %eax         \n\t"
 
        //"movl (%eax), %ecx           \n\t"
        //"movl $input, %eax           \n\t"
        //"movl $SubNBuf, %edi         \n\t"
        "xorl %%ebx, %%ebx              \n\t"
 
        "begin1:                     \n\t"
 
        "movb (%%eax), %%bl           \n\t"
        "shlb $4, %%bl                 \n\t"
 
        "movb (%%eax,1), %%bh          \n\t"
        "andb $0x0f, %%bh              \n\t"
        "orb %%bh, %%bl                 \n\t"
 
        "movb %%bl, (%%edi)            \n\t"
 
        "incl %%eax                   \n\t"
        "incl %%eax                   \n\t"
        "incl %%edi                   \n\t"
        "decl %%ecx                   \n\t"
        "decl %%ecx                   \n\t"
        "jnle begin1                 \n\t" // если не меньше или равно 0, т.е. >  =0
        : "=D" (SubNBuf)   // output
        : "a" (ilength), "c" (input)      // input
        :         // modify
    );
 
    if(ilength>0) {
        ilength = ilength+1;
        ilength = ilength-1;
    }
}
 
//------------------- функция сравнение строки с шаблоном -------------------
 
int wildcmp(const char *wild, const char *string) {
    const char *cp, *mp;
    while ((*string) && (*wild != '*'))    {
        if ((*wild != *string) && (*wild != '?')) return 0;
        wild++;
        string++;
    }
    while (*string)        {
        if (*wild == '*')  {
            if (!*++wild) return 1;
            mp = wild;
            cp = string+1;
        } else if ((*wild == *string) || (*wild == '?'))        {
            wild++;
            string++;
        } else  {
            wild = mp;
            string = cp++;
        }
    }
    while (*wild == '*')  wild++;
    return !*wild;
}
 
//-------------------------- ГЛАВНАЯ ФУНКЦИЯ ---------------------------------
 
int main(int argc, char* argv[])
 
{
    int handle, handle2, bytes, iTBCDlen;
 
    int ic_blength, ic_Nlength;
    void *xNsubsc, *xNsubsc2;
    char cTimebuf[32];  // для показа времени
    long iTimeValue;    // для показа времени
 
    int recordsize = 0x100;  // размер find_rec_buf =256 байт для найденной записи
 
 
 
    bool bOdd;  // признак нечетного номера - другой способ поиска
    bool bNsub, bAsub;
    bool bMultyFiles = false, bFileNamesMatch = false;
    char *arg, *cbufsize = "1048576", *cSubsc, *cNsubsc, *cOddEven;
    char *sTime = " ";
    char *cInputFileName ="11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111";
 
    struct stat statbuf;
    int bufsize=0;
 
    void *buf;  // буфер для файла размером bufsize
 
    char *path = NULL;
    size_t size;
    DIR *dir;
    struct dirent *ent;
    using namespace std;
 
    vector<string> FileNameList;
 
    if(argc==1) {
        printf(         //ShowHelp:
            "Q.825 CDR decoder and filter program, version 2.3 (build 40)\n\
Usage:\n\n\
   cdrdec -f inputfile arguments > outputfile\n\n");
 
        return 1;
    }
    printf("Input parameters are:\n");
    for(int i=1; i<argc; i++)  {  // цикл введенных параметров
        arg = argv[i];
        if(arg[0]=='-') {  // если начинается на '-'
            switch (arg[1]) {
            case 'f':
                cInputFileName = argv[i+1];
                // поиск и подсчет символа * внутри строки
                __asm__ (
                    "movb $'*', %%al              \n\t" // 0x2A
                    "xorl %%ecx, %%ecx              \n\t"
                    //"movl ($cInputFileName), %edi   \n\t"
 
                    "ScasbInputFileName:         \n\t"
                    "incl %%ecx                   \n\t" // счетчик символов внутри cInputFileName
                    "scasb                       \n\t"
                    "jz SymbolFound              \n\t"
                    "cmpb $0, (%%edi)   \n\t"
                    "jz EndSearchSymbolInFileName \n\t"
                    "jmp ScasbInputFileName      \n\t"
 
                    "SymbolFound:                \n\t"
                    //"movb $1, $bMultyFiles   \n\t"
                    //"movl $bMultyFiles, %eax   \n\t"
                    "movb $1, (%%eax)   \n\t"
                    "movl %%ecx, %%ebx              \n\t" // сохраним позицию '*' внутри cInputFileName
 
                    "EndSearchSymbolInFileName:   \n\t" // ecx - позиция '*' внутри cInputFileName
                    : "=a" (bMultyFiles)   // output
                    : "D" (cInputFileName)   // input
                    :
                );
 
                if(bMultyFiles) {   // если много входных файлов
                    path = getcwd(path, size);
                    if ((dir = opendir(path)) == NULL) {
                        perror("Unable to open directory");
                        exit(1);
                    }
                    printf(" input files:\n");
                    while ((ent = readdir(dir)) != NULL) {
                        if(wildcmp(cInputFileName, ent->d_name)) {
                            printf("  %s\n",ent->d_name);
                            FileNameList.insert(FileNameList.end(),ent->d_name);
                            bFileNamesMatch = 1;
                        }
                    }
                    if(!bFileNamesMatch) {
                        printf("  no match.\n");
                        return 1;
                    }
 
                    if (closedir(dir) != 0) {
                        perror("Unable to close directory");
                        return 1;
                    }
                } else   // если один входной файл
                    if ((handle = open(cInputFileName, O_RDONLY)) != -1) {
                        printf(" input file - %s\n", cInputFileName);
                        FileNameList.insert(FileNameList.end(),cInputFileName);
                    } else {
                        perror("open input file failed, error");
                        return 1;
                    }
                break;
 
            case 'o':
                handle2 = open(argv[i+1], O_CREAT |O_APPEND);
                if (handle2 != -1)  {       // argv[i+1] - выходной файл
                    printf(" output file - %s\n", argv[i+1]);
                } else {
                    perror("create output file failed, error");
                    return 1;
                }
                break;
            case 'b':
                cbufsize = argv[i+1];   // argv[i+1] - размер буфера
                break;
            case 'A':   // фильтр поиска аб-та А
                bFilter = 1;
                cSubsc = "A";
                bAsub = true;
                bNsub = false;
                cNsubsc = argv[i+1];
                break;
            case 'B':  // фильтр поиска аб-та Б
                bFilter = 1;
                cSubsc = "B";
                bAsub = false;
                bNsub = false;
                cNsubsc = argv[i+1];
                break;
            case 'N':  // фильтр поиска номера любого аб-та
                bFilter = 1;
                cSubsc = "N";
                bAsub = false;
                bNsub = true;
                cNsubsc = argv[i+1];
                break;
            case 'c':
                bCsv = true;
                break;
            } // конец если начинается на '-'
        } // конец switch
    }  // конец цикла
 
}

#include <stdio.h>
#include <././sys/stat.h> 
#include <fcntl.h>
#include <streambuf> 
#include <dirent.h> 
#include <vector>
#include <string> 
#include <cstdlib> 
#include "Unit1.h" 
 
bool bFind = false, bCsv = false, bFilter = false, bCDRHeader = false;
bool bCDRExchangeID = false, bCDR_SWversion = false, bCDR_FileName = false;
int iInterFieldSize = 0;  // число байт между первыми полями A3
int bufPos = 0;  // текущая позиция в буфере чтения из файла =0
int iFilePos = 0; // текущая позиция в файле =0
int findRecSize =0;   // размер найденной записи
int iSpaceNumber = 0;
int iFoundRecordsNumber = 1; //, iCDRHeaderLength;
long int iFileSize =0; 
 
//------------- ф-ция нахождения длины строки ------------------
int find_length(char* input)
{
 int length;
 __asm__  volatile ( 
     //"leal $input, %edi           \n\t"
     //"movl $input, %eax           \n\t"
     //"leal 1(%eax), %edi          \n\t"
     "movl %1, %%eax                 \n\t"
     "leal 1(%%eax), %%edi            \n\t"
     "xorl %%ecx, %%ecx              \n\t"
     "movl (%%edi), %%esi           \n\t" 
"nexch2:                          \n\t"
     "movb (%%esi), %%al            \n\t"
     "incl %%esi                   \n\t"
     "incl %%ecx                   \n\t" // длина
     "testb %%al, %%al               \n\t"
     "jnz nexch2                  \n\t"
     
     "decl %%ecx                   \n\t" // длина найдена
     //"leal $length, %edx          \n\t"
     //"movl $length, %eax          \n\t"
     //"leal 1(%eax), %edx          \n\t"
     "movl %0, %%eax         \n\t"
     "leal 1(%%eax), %%edx          \n\t"
     "movl %%ecx, (%%edx)           \n\t"
     : "=&d"(length)     // output
     : "D"(input)      // input
     :              // modified
  );
 return length;    // в eax 
}
 
//------- ф-ция преобразования строки из 10-тичных цифр в целое число ---------
 
int char2int  (char* input)
{
 int output, ilength;
 ilength = find_length(input);
  __asm__ (
  //"movl ($input), %edi           \n\t"
  //"movl ($ilength), %ecx       \n\t"
  "movl (%1), %%edi           \n\t"
  "movl (%2), %%ecx           \n\t"
 
  "xorl %%eax, %%eax              \n\t"
  "incl %%eax                   \n\t" // al =1
  "xorl %%esi, %%esi              \n\t" // esi =0 , [edi-ecx] = input
  "addl %%ecx, %%edi              \n\t"
  "decl %%edi                   \n\t" // [edi] = last char in string input = "1048576"
  "movb (%%edi), %%dl            \n\t"
  "andl $0x0f, %%edx             \n\t" // edx = last char of input without fist semibyte of ASCII
  "addl %%edx, %%esi              \n\t" // esi = ------"---------"--------
  "decl %%edi                   \n\t" //  [edi] = next char begining from end of input
  "decl %%ecx                   \n\t"
 
"begint:                     \n\t"
 
  "movb (%%edi), %%bl       \n\t"
  "andl $0x0f, %%ebx             \n\t" // ebx = next char begining from end of input without first semibyte
  "imull $10, %%eax              \n\t" // eax = eax * 10
  "imull %%eax, %%ebx             \n\t" // ebx = ebx * eax
  "addl %%ebx, %%esi              \n\t" // esi = esi + ebx * eax
  "decl %%edi                   \n\t" // [edi] = next char begining from end of input
  "decl %%ecx                   \n\t" // ecx = number of char in input begining from start
  "jnz begint                  \n\t" // number != 0 ?
 
  //"leal $output, %edx        \n\t"
  //"movl $output, %eax           \n\t"
  //"leal 1(%eax), %edi          \n\t"
  "movl %0, %%eax           \n\t"
  "leal 1(%%eax), %%edi          \n\t"
  "movl %%esi, (%%edx)           \n\t"
  : "=&d" (output)     // output
  : "D" (input), "c" (ilength)   // input
  :    // modify
  );
}
 
//------ ф-ция преобразования ASCII строки из цифр в TBCD строку ------
// например, ASCII код 32 36 35 38 30 33 = TBCD код 26 58 03
void char2tbcd(char* input, int &ilength, void *SubNBuf)
{
 ilength = find_length(input); 
 __asm__ volatile (
  //"movl $ilength, %eax         \n\t" 
  //"movl (%eax), %ecx           \n\t"
  "movl %1, %%eax              \n\t" 
  "movl (%%eax), %%ecx         \n\t"
  
  //"movl $input, %eax           \n\t"
  "movl %2, %%eax              \n\t"
  
  //"movl $SubNBuf, %edi         \n\t"  
  "movl %0, %%edi              \n\t"
  
  "xorl %%ebx, %%ebx           \n\t"
 
"begin1:                       \n\t"
 
  "movb (%%eax), %%bl          \n\t"
  "shlb $4, %%bl               \n\t"
 
  "movb (%%eax,1), %%bh        \n\t"
  "andb $0x0f, %%bh            \n\t"
  "orb %%bh, %%bl              \n\t"
 
  "movb %%bl, (%%edi)          \n\t"
 
  "incl %%eax                  \n\t"
  "incl %%eax                  \n\t"
  "incl %%edi                  \n\t"
  "decl %%ecx                  \n\t"
  "decl %%ecx                  \n\t"
  "jnle begin1                 \n\t" // если не меньше или равно 0, т.е. >  =0
  : "=&D" (SubNBuf)   // output
  : "a" (ilength), "c" (input)      // input
  :         // modify
 );
 
 if(ilength>0) {
  ilength = ilength+1;
  ilength = ilength-1;
 } 
}
 
//------------------- функция сравнение строки с шаблоном -------------------
 
int wildcmp(const char *wild, const char *string) 
{
 const char *cp, *mp;
 while ((*string) && (*wild != '*'))    {
  if ((*wild != *string) && (*wild != '?')) return 0;
  wild++;
  string++;
 }
 while (*string)        {
  if (*wild == '*')  {
   if (!*++wild) return 1;
   mp = wild;
   cp = string+1;
  }
  else if ((*wild == *string) || (*wild == '?'))        {
   wild++;
   string++;
  }
  else  {
   wild = mp;
   string = cp++;
  }
 }
 while (*wild == '*')  wild++;
 return !*wild;
}
 
//-------------------------- ГЛАВНАЯ ФУНКЦИЯ ---------------------------------
 
int main(int argc, char* argv[])
 
{
 int handle, handle2, bytes, iTBCDlen, iLength; 
 
 int ic_blength, ic_Nlength;
 void *xNsubsc, *xNsubsc2;
 char cTimebuf[32];  // для показа времени
 long iTimeValue;    // для показа времени
 
 int recordsize = 0x100;  // размер find_rec_buf =256 байт для найденной записи 
 
 
 
 bool bOdd;  // признак нечетного номера - другой способ поиска
 bool bNsub, bAsub;
 bool bMultyFiles = false, bFileNamesMatch = false;
 char *arg, *cbufsize = "1048576", *cSubsc, *cNsubsc, *cOddEven;
 char *sTime = " ";
 char *cInputFileName ="11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111";
 
 struct stat statbuf;
 int bufsize=0;
 
 void *buf;  // буфер для файла размером bufsize
 
 char *path = NULL;
 size_t size;
 DIR *dir;
 struct dirent *ent;
 using namespace std;
 
  vector<string> FileNameList;
 
 if(argc==1) {
  printf(         //ShowHelp:
  "Q.825 CDR decoder and filter program, version 2.3 (build 40)\n\
Usage:\n\n\
   cdrdec -f inputfile arguments > outputfile\n\n");
 
  return 1;
 }
 printf("Input parameters are:\n");
 for(int i=1;i<argc;i++)  {    // цикл введенных параметров
  arg = argv[i];
  if(arg[0]=='-') {  // если начинается на '-'
  switch (arg[1]) {
   case 'f':
        cInputFileName = argv[i+1];
    iLength = find_length(cInputFileName);  
           // поиск и подсчет символа * внутри строки
          __asm__  volatile (
           "movb $'*', %%al                \n\t" // 0x2A
           "xorl %%ecx, %%ecx              \n\t"
           //"movl ($cInputFileName), %edi   \n\t"
           "movl (%1), %%edi   \n\t"
 
"ScasbInputFileName:                       \n\t"
           "incl %%ecx                     \n\t" // счетчик символов внутри cInputFileName
           "scasb                          \n\t"          
           "jz SymbolFound                 \n\t"
           "cmpb $0, (%%edi)   \n\t"
           "jz EndSearchSymbolInFileName   \n\t"
           "jmp ScasbInputFileName         \n\t"
 
"SymbolFound:                              \n\t"
           //"movb $1, $bMultyFiles          \n\t"
           //"movl $bMultyFiles, %eax        \n\t"
           
           //"movl %0, %%eax                 \n\t"                      
           //"movb $1, (%%eax)               \n\t"
           
           "movb $1, %0               \n\t"
           
           "movl %%ecx, %%ebx              \n\t" // сохраним позицию '*' внутри cInputFileName
 
"EndSearchSymbolInFileName:                \n\t" // ecx - позиция '*' внутри cInputFileName
       : "=&a" (bMultyFiles)   // output
       : "D" (cInputFileName)   // input
       : 
       );
                     
        if(bMultyFiles) {   // если много входных файлов
         path = getcwd(path, size);
         if ((dir = opendir(path)) == NULL) {
         perror("Unable to open directory");
     exit(1);
         }
         printf(" input files:\n");
         while ((ent = readdir(dir)) != NULL) {
           if(wildcmp(cInputFileName, ent->d_name)) {
           printf("  %s\n",ent->d_name);
                   FileNameList.insert(FileNameList.end(),ent->d_name);
           bFileNamesMatch = 1;
          }
         }
         if(!bFileNamesMatch) {
          printf("  no match.\n");
          return 1;
         }
 
         if (closedir(dir) != 0) {
          perror("Unable to close directory");
          return 1;
         }
        }
        else     // если один входной файл
                 if ((handle = open(cInputFileName, O_RDONLY)) != -1) {
          printf(" input file - %s\n", cInputFileName);
                  FileNameList.insert(FileNameList.end(),cInputFileName);
         }
         else {
          perror("open input file failed, error");
          return 1;
         }
   break;
 
   case 'o':
        handle2 = open(argv[i+1], O_CREAT |O_APPEND);
    if (handle2 != -1)  {       // argv[i+1] - выходной файл
     printf(" output file - %s\n", argv[i+1]);
    }
    else {
     perror("create output file failed, error");
     return 1;
    }
   break;
   case 'b':
    cbufsize = argv[i+1];   // argv[i+1] - размер буфера
   break;
   case 'A':   // фильтр поиска аб-та А
        bFilter = 1;
        cSubsc = "A";
        bAsub = true;
        bNsub = false;
        cNsubsc = argv[i+1];
        break;
   case 'B':  // фильтр поиска аб-та Б
        bFilter = 1;
        cSubsc = "B";
        bAsub = false;
        bNsub = false;
        cNsubsc = argv[i+1];
   break;
   case 'N':  // фильтр поиска номера любого аб-та
    bFilter = 1;
        cSubsc = "N";
        bAsub = false;
        bNsub = true;
        cNsubsc = argv[i+1];
        break;
   case 'c':
    bCsv = true;
   break;
  } // конец если начинается на '-'
  } // конец switch
 }  // конец цикла
 
}

#include <stdio.h>
#include <././sys/stat.h> 
#include <fcntl.h>
#include <streambuf> 
#include <dirent.h> 
#include <vector>
#include <string> 
#include <cstdlib> 
#include "Unit1.h" 
 
bool bFind = false, bCsv = false, bFilter = false, bCDRHeader = false;
bool bCDRExchangeID = false, bCDR_SWversion = false, bCDR_FileName = false;
int iInterFieldSize = 0;  // число байт между первыми полями A3
int bufPos = 0;  // текущая позиция в буфере чтения из файла =0
int iFilePos = 0; // текущая позиция в файле =0
int findRecSize =0;   // размер найденной записи
int iSpaceNumber = 0;
int iFoundRecordsNumber = 1; //, iCDRHeaderLength;
long int iFileSize =0; 
 
//------------- ф-ция нахождения длины строки ------------------
int find_length(char* input)
{
 int length;
 __asm__  volatile ( 
     //"leal $input, %edi           \n\t"
     //"movl $input, %eax           \n\t"
     //"leal 1(%eax), %edi          \n\t"
     "movl %1, %%eax                 \n\t"
     "leal 1(%%eax), %%edi            \n\t"
     "xorl %%ecx, %%ecx              \n\t"
     "movl (%%edi), %%esi           \n\t" 
"nexch2:                          \n\t"
     "movb (%%esi), %%al            \n\t"
     "incl %%esi                   \n\t"
     "incl %%ecx                   \n\t" // длина
     "testb %%al, %%al               \n\t"
     "jnz nexch2                  \n\t"
     
     "decl %%ecx                   \n\t" // длина найдена
     //"leal $length, %edx          \n\t"
     //"movl $length, %eax          \n\t"
     //"leal 1(%eax), %edx          \n\t"
     "movl %0, %%eax         \n\t"
     "leal 1(%%eax), %%edx          \n\t"
     "movl %%ecx, (%%edx)           \n\t"
     : "=&d"(length)     // output
     : "D"(input)      // input
     :              // modified
  );
 return length;    // в eax 
}
 
//------- ф-ция преобразования строки из 10-тичных цифр в целое число ---------
 
int char2int  (char* input)
{
 int output, ilength;
 ilength = find_length(input);
  __asm__ (
  //"movl ($input), %edi           \n\t"
  //"movl ($ilength), %ecx       \n\t"
  "movl (%1), %%edi           \n\t"
  "movl (%2), %%ecx           \n\t"
 
  "xorl %%eax, %%eax              \n\t"
  "incl %%eax                   \n\t" // al =1
  "xorl %%esi, %%esi              \n\t" // esi =0 , [edi-ecx] = input
  "addl %%ecx, %%edi              \n\t"
  "decl %%edi                   \n\t" // [edi] = last char in string input = "1048576"
  "movb (%%edi), %%dl            \n\t"
  "andl $0x0f, %%edx             \n\t" // edx = last char of input without fist semibyte of ASCII
  "addl %%edx, %%esi              \n\t" // esi = ------"---------"--------
  "decl %%edi                   \n\t" //  [edi] = next char begining from end of input
  "decl %%ecx                   \n\t"
 
"begint:                     \n\t"
 
  "movb (%%edi), %%bl       \n\t"
  "andl $0x0f, %%ebx             \n\t" // ebx = next char begining from end of input without first semibyte
  "imull $10, %%eax              \n\t" // eax = eax * 10
  "imull %%eax, %%ebx             \n\t" // ebx = ebx * eax
  "addl %%ebx, %%esi              \n\t" // esi = esi + ebx * eax
  "decl %%edi                   \n\t" // [edi] = next char begining from end of input
  "decl %%ecx                   \n\t" // ecx = number of char in input begining from start
  "jnz begint                  \n\t" // number != 0 ?
 
  //"leal $output, %edx        \n\t"
  //"movl $output, %eax           \n\t"
  //"leal 1(%eax), %edi          \n\t"
  "movl %0, %%eax           \n\t"
  "leal 1(%%eax), %%edi          \n\t"
  "movl %%esi, (%%edx)           \n\t"
  : "=&d" (output)     // output
  : "D" (input), "c" (ilength)   // input
  :    // modify
  );
}
 
//------ ф-ция преобразования ASCII строки из цифр в TBCD строку ------
// например, ASCII код 32 36 35 38 30 33 = TBCD код 26 58 03
void char2tbcd(char* input, int &ilength, void *SubNBuf)
{
 ilength = find_length(input); 
 __asm__ volatile (
  //"movl $ilength, %eax         \n\t" 
  //"movl (%eax), %ecx           \n\t"
  "movl %1, %%eax              \n\t" 
  "movl (%%eax), %%ecx         \n\t"
  
  //"movl $input, %eax           \n\t"
  "movl %2, %%eax              \n\t"
  
  //"movl $SubNBuf, %edi         \n\t"  
  "movl %0, %%edi              \n\t"
  
  "xorl %%ebx, %%ebx           \n\t"
 
"begin1:                       \n\t"
 
  "movb (%%eax), %%bl          \n\t"
  "shlb $4, %%bl               \n\t"
 
  "movb (%%eax,1), %%bh        \n\t"
  "andb $0x0f, %%bh            \n\t"
  "orb %%bh, %%bl              \n\t"
 
  "movb %%bl, (%%edi)          \n\t"
 
  "incl %%eax                  \n\t"
  "incl %%eax                  \n\t"
  "incl %%edi                  \n\t"
  "decl %%ecx                  \n\t"
  "decl %%ecx                  \n\t"
  "jnle begin1                 \n\t" // если не меньше или равно 0, т.е. >  =0
  : "=&D" (SubNBuf)   // output
  : "a" (ilength), "c" (input)      // input
  :         // modify
 );
 
 if(ilength>0) {
  ilength = ilength+1;
  ilength = ilength-1;
 } 
}
 
//------------------- функция сравнение строки с шаблоном -------------------
 
int wildcmp(const char *wild, const char *string) 
{
 const char *cp, *mp;
 while ((*string) && (*wild != '*'))    {
  if ((*wild != *string) && (*wild != '?')) return 0;
  wild++;
  string++;
 }
 while (*string)        {
  if (*wild == '*')  {
   if (!*++wild) return 1;
   mp = wild;
   cp = string+1;
  }
  else if ((*wild == *string) || (*wild == '?'))        {
   wild++;
   string++;
  }
  else  {
   wild = mp;
   string = cp++;
  }
 }
 while (*wild == '*')  wild++;
 return !*wild;
}
 
//-------------------------- ГЛАВНАЯ ФУНКЦИЯ ---------------------------------
 
int main(int argc, char* argv[])
 
{
 int handle, handle2, bytes, iTBCDlen, iLength; 
 
 int ic_blength, ic_Nlength;
 void *xNsubsc, *xNsubsc2;
 char cTimebuf[32];  // для показа времени
 long iTimeValue;    // для показа времени
 
 int recordsize = 0x100;  // размер find_rec_buf =256 байт для найденной записи 
 
 
 
 bool bOdd;  // признак нечетного номера - другой способ поиска
 bool bNsub, bAsub;
 bool bMultyFiles = false, bFileNamesMatch = false;
 char *arg, *cbufsize = "1048576", *cSubsc, *cNsubsc, *cOddEven;
 char *sTime = " ";
 char *cInputFileName ="11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111";
 
 struct stat statbuf;
 int bufsize=0;
 
 void *buf;  // буфер для файла размером bufsize
 
 char *path = NULL;
 size_t size;
 DIR *dir;
 struct dirent *ent;
 using namespace std;
 
  vector<string> FileNameList;
 
 if(argc==1) {
  printf(         //ShowHelp:
  "Q.825 CDR decoder and filter program, version 2.3 (build 40)\n\
Usage:\n\n\
   cdrdec -f inputfile arguments > outputfile\n\n");
 
  return 1;
 }
 printf("Input parameters are:\n");
 for(int i=1;i<argc;i++)  {    // цикл введенных параметров
  arg = argv[i];
  if(arg[0]=='-') {  // если начинается на '-'
  switch (arg[1]) {
   case 'f':
        cInputFileName = argv[i+1];
    iLength = find_length(cInputFileName);  
           // поиск и подсчет символа * внутри строки
          __asm__  volatile (
           "movb $'*', %%al                \n\t" // 0x2A
           "xorl %%ecx, %%ecx              \n\t"
           //"movl ($cInputFileName), %edi   \n\t"
           "movl (%1), %%edi   \n\t"
 
"ScasbInputFileName:                       \n\t"
           "incl %%ecx                     \n\t" // счетчик символов внутри cInputFileName
           "scasb                          \n\t"          
           "jz SymbolFound                 \n\t"
           "cmpb $0, (%%edi)   \n\t"
           "jz EndSearchSymbolInFileName   \n\t"
           "jmp ScasbInputFileName         \n\t"
 
"SymbolFound:                              \n\t"
           //"movb $1, $bMultyFiles          \n\t"
           //"movl $bMultyFiles, %eax        \n\t"
           
           //"movl %0, %%eax                 \n\t"                      
           //"movb $1, (%%eax)               \n\t"
           
           "movb $1, %0               \n\t"
           
           "movl %%ecx, %%ebx              \n\t" // сохраним позицию '*' внутри cInputFileName
 
"EndSearchSymbolInFileName:                \n\t" // ecx - позиция '*' внутри cInputFileName
       : "=&a" (bMultyFiles)   // output
       : "D" (cInputFileName)   // input
       : 
       );
                     
        if(bMultyFiles) {   // если много входных файлов
         path = getcwd(path, size);
         if ((dir = opendir(path)) == NULL) {
         perror("Unable to open directory");
     exit(1);
         }
         printf(" input files:\n");
         while ((ent = readdir(dir)) != NULL) {
           if(wildcmp(cInputFileName, ent->d_name)) {
           printf("  %s\n",ent->d_name);
                   FileNameList.insert(FileNameList.end(),ent->d_name);
           bFileNamesMatch = 1;
          }
         }
         if(!bFileNamesMatch) {
          printf("  no match.\n");
          return 1;
         }
 
         if (closedir(dir) != 0) {
          perror("Unable to close directory");
          return 1;
         }
        }
        else     // если один входной файл
                 if ((handle = open(cInputFileName, O_RDONLY)) != -1) {
          printf(" input file - %s\n", cInputFileName);
                  FileNameList.insert(FileNameList.end(),cInputFileName);
         }
         else {
          perror("open input file failed, error");
          return 1;
         }
   break;
 
   case 'o':
        handle2 = open(argv[i+1], O_CREAT |O_APPEND);
    if (handle2 != -1)  {       // argv[i+1] - выходной файл
     printf(" output file - %s\n", argv[i+1]);
    }
    else {
     perror("create output file failed, error");
     return 1;
    }
   break;
   case 'b':
    cbufsize = argv[i+1];   // argv[i+1] - размер буфера
   break;
   case 'A':   // фильтр поиска аб-та А
        bFilter = 1;
        cSubsc = "A";
        bAsub = true;
        bNsub = false;
        cNsubsc = argv[i+1];
        break;
   case 'B':  // фильтр поиска аб-та Б
        bFilter = 1;
        cSubsc = "B";
        bAsub = false;
        bNsub = false;
        cNsubsc = argv[i+1];
   break;
   case 'N':  // фильтр поиска номера любого аб-та
    bFilter = 1;
        cSubsc = "N";
        bAsub = false;
        bNsub = true;
        cNsubsc = argv[i+1];
        break;
   case 'c':
    bCsv = true;
   break;
  } // конец если начинается на '-'
  } // конец switch
 }  // конец цикла
 
}

#include <stdio.h>
#include <././sys/stat.h> 
#include <fcntl.h>
#include <streambuf> 
#include <dirent.h> 
#include <vector>
#include <string> 
#include <cstdlib> 
#include "Unit1.h" 
 
bool bFind = false, bCsv = false, bFilter = false, bCDRHeader = false;
bool bCDRExchangeID = false, bCDR_SWversion = false, bCDR_FileName = false;
int iInterFieldSize = 0;  // число байт между первыми полями A3
int bufPos = 0;  // текущая позиция в буфере чтения из файла =0
int iFilePos = 0; // текущая позиция в файле =0
int findRecSize =0;   // размер найденной записи
int iSpaceNumber = 0;
int iFoundRecordsNumber = 1; //, iCDRHeaderLength;
long int iFileSize =0; 
 
//------------- ф-ция нахождения длины строки ------------------
int find_length(char* input)
{
 int length;
 __asm__  volatile ( 
     //"leal $input, %edi           \n\t"
     //"movl $input, %eax           \n\t"
     //"leal 1(%eax), %edi          \n\t"
     "movl %1, %%eax                 \n\t"
     "leal 1(%%eax), %%edi            \n\t"
     "xorl %%ecx, %%ecx              \n\t"
     "movl (%%edi), %%esi           \n\t" 
"nexch2:                          \n\t"
     "movb (%%esi), %%al            \n\t"
     "incl %%esi                   \n\t"
     "incl %%ecx                   \n\t" // длина
     "testb %%al, %%al               \n\t"
     "jnz nexch2                  \n\t"
     
     "decl %%ecx                   \n\t" // длина найдена
     //"leal $length, %edx          \n\t"
     //"movl $length, %eax          \n\t"
     //"leal 1(%eax), %edx          \n\t"
     "movl %0, %%eax         \n\t"
     "leal 1(%%eax), %%edx          \n\t"
     "movl %%ecx, (%%edx)           \n\t"
     : "=&d"(length)     // output
     : "D"(input)      // input
     :              // modified
  );
 return length;    // в eax 
}
 
//------- ф-ция преобразования строки из 10-тичных цифр в целое число ---------
 
int char2int  (char* input)
{
 int output, ilength;
 ilength = find_length(input);
  __asm__ (
  //"movl ($input), %edi           \n\t"
  //"movl ($ilength), %ecx       \n\t"
  "movl (%1), %%edi           \n\t"
  "movl (%2), %%ecx           \n\t"
 
  "xorl %%eax, %%eax              \n\t"
  "incl %%eax                   \n\t" // al =1
  "xorl %%esi, %%esi              \n\t" // esi =0 , [edi-ecx] = input
  "addl %%ecx, %%edi              \n\t"
  "decl %%edi                   \n\t" // [edi] = last char in string input = "1048576"
  "movb (%%edi), %%dl            \n\t"
  "andl $0x0f, %%edx             \n\t" // edx = last char of input without fist semibyte of ASCII
  "addl %%edx, %%esi              \n\t" // esi = ------"---------"--------
  "decl %%edi                   \n\t" //  [edi] = next char begining from end of input
  "decl %%ecx                   \n\t"
 
"begint:                     \n\t"
 
  "movb (%%edi), %%bl       \n\t"
  "andl $0x0f, %%ebx             \n\t" // ebx = next char begining from end of input without first semibyte
  "imull $10, %%eax              \n\t" // eax = eax * 10
  "imull %%eax, %%ebx             \n\t" // ebx = ebx * eax
  "addl %%ebx, %%esi              \n\t" // esi = esi + ebx * eax
  "decl %%edi                   \n\t" // [edi] = next char begining from end of input
  "decl %%ecx                   \n\t" // ecx = number of char in input begining from start
  "jnz begint                  \n\t" // number != 0 ?
 
  //"leal $output, %edx        \n\t"
  //"movl $output, %eax           \n\t"
  //"leal 1(%eax), %edi          \n\t"
  "movl %0, %%eax           \n\t"
  "leal 1(%%eax), %%edi          \n\t"
  "movl %%esi, (%%edx)           \n\t"
  : "=&d" (output)     // output
  : "D" (input), "c" (ilength)   // input
  :    // modify
  );
}
 
//------ ф-ция преобразования ASCII строки из цифр в TBCD строку ------
// например, ASCII код 32 36 35 38 30 33 = TBCD код 26 58 03
void char2tbcd(char* input, int &ilength, void *SubNBuf)
{
 ilength = find_length(input); 
 __asm__ volatile (
  //"movl $ilength, %eax         \n\t" 
  //"movl (%eax), %ecx           \n\t"
  "movl %1, %%eax              \n\t" 
  "movl (%%eax), %%ecx         \n\t"
  
  //"movl $input, %eax           \n\t"
  "movl %2, %%eax              \n\t"
  
  //"movl $SubNBuf, %edi         \n\t"  
  "movl %0, %%edi              \n\t"
  
  "xorl %%ebx, %%ebx           \n\t"
 
"begin1:                       \n\t"
 
  "movb (%%eax), %%bl          \n\t"
  "shlb $4, %%bl               \n\t"
 
  "movb (%%eax,1), %%bh        \n\t"
  "andb $0x0f, %%bh            \n\t"
  "orb %%bh, %%bl              \n\t"
 
  "movb %%bl, (%%edi)          \n\t"
 
  "incl %%eax                  \n\t"
  "incl %%eax                  \n\t"
  "incl %%edi                  \n\t"
  "decl %%ecx                  \n\t"
  "decl %%ecx                  \n\t"
  "jnle begin1                 \n\t" // если не меньше или равно 0, т.е. >  =0
  : "=&D" (SubNBuf)   // output
  : "a" (ilength), "c" (input)      // input
  :         // modify
 );
 
 if(ilength>0) {
  ilength = ilength+1;
  ilength = ilength-1;
 } 
}
 
//------------------- функция сравнение строки с шаблоном -------------------
 
int wildcmp(const char *wild, const char *string) 
{
 const char *cp, *mp;
 while ((*string) && (*wild != '*'))    {
  if ((*wild != *string) && (*wild != '?')) return 0;
  wild++;
  string++;
 }
 while (*string)        {
  if (*wild == '*')  {
   if (!*++wild) return 1;
   mp = wild;
   cp = string+1;
  }
  else if ((*wild == *string) || (*wild == '?'))        {
   wild++;
   string++;
  }
  else  {
   wild = mp;
   string = cp++;
  }
 }
 while (*wild == '*')  wild++;
 return !*wild;
}
 
//-------------------------- ГЛАВНАЯ ФУНКЦИЯ ---------------------------------
 
int main(int argc, char* argv[])
 
{
 int handle, handle2, bytes, iTBCDlen, iLength; 
 
 int ic_blength, ic_Nlength;
 void *xNsubsc, *xNsubsc2;
 char cTimebuf[32];  // для показа времени
 long iTimeValue;    // для показа времени
 
 int recordsize = 0x100;  // размер find_rec_buf =256 байт для найденной записи 
 
 
 
 bool bOdd;  // признак нечетного номера - другой способ поиска
 bool bNsub, bAsub;
 bool bMultyFiles = false, bFileNamesMatch = false;
 char *arg, *cbufsize = "1048576", *cSubsc, *cNsubsc, *cOddEven;
 char *sTime = " ";
 char *cInputFileName ="11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111\
 11111111111111111111111111111111111111";
 
 struct stat statbuf;
 int bufsize=0;
 
 void *buf;  // буфер для файла размером bufsize
 
 char *path = NULL;
 size_t size;
 DIR *dir;
 struct dirent *ent;
 using namespace std;
 
  vector<string> FileNameList;
 
 if(argc==1) {
  printf(         //ShowHelp:
  "Q.825 CDR decoder and filter program, version 2.3 (build 40)\n\
Usage:\n\n\
   cdrdec -f inputfile arguments > outputfile\n\n");
 
  return 1;
 }
 printf("Input parameters are:\n");
 for(int i=1;i<argc;i++)  {    // цикл введенных параметров
  arg = argv[i];
  if(arg[0]=='-') {  // если начинается на '-'
  switch (arg[1]) {
   case 'f':
        cInputFileName = argv[i+1];
    iLength = find_length(cInputFileName);  
           // поиск и подсчет символа * внутри строки
          __asm__  volatile (
           "movb $'*', %%al                \n\t" // 0x2A
           "xorl %%ecx, %%ecx              \n\t"
           //"movl ($cInputFileName), %edi   \n\t"
           "movl (%1), %%edi   \n\t"
 
"ScasbInputFileName:                       \n\t"
           "incl %%ecx                     \n\t" // счетчик символов внутри cInputFileName
           "scasb                          \n\t"          
           "jz SymbolFound                 \n\t"
           "cmpb $0, (%%edi)   \n\t"
           "jz EndSearchSymbolInFileName   \n\t"
           "jmp ScasbInputFileName         \n\t"
 
"SymbolFound:                              \n\t"
           //"movb $1, $bMultyFiles          \n\t"
           //"movl $bMultyFiles, %eax        \n\t"
           
           //"movl %0, %%eax                 \n\t"                      
           //"movb $1, (%%eax)               \n\t"
           
           "movb $1, %0               \n\t"
           
           "movl %%ecx, %%ebx              \n\t" // сохраним позицию '*' внутри cInputFileName
 
"EndSearchSymbolInFileName:                \n\t" // ecx - позиция '*' внутри cInputFileName
       : "=&a" (bMultyFiles)   // output
       : "D" (cInputFileName)   // input
       : 
       );
                     
        if(bMultyFiles) {   // если много входных файлов
         path = getcwd(path, size);
         if ((dir = opendir(path)) == NULL) {
         perror("Unable to open directory");
     exit(1);
         }
         printf(" input files:\n");
         while ((ent = readdir(dir)) != NULL) {
           if(wildcmp(cInputFileName, ent->d_name)) {
           printf("  %s\n",ent->d_name);
                   FileNameList.insert(FileNameList.end(),ent->d_name);
           bFileNamesMatch = 1;
          }
         }
         if(!bFileNamesMatch) {
          printf("  no match.\n");
          return 1;
         }
 
         if (closedir(dir) != 0) {
          perror("Unable to close directory");
          return 1;
         }
        }
        else     // если один входной файл
                 if ((handle = open(cInputFileName, O_RDONLY)) != -1) {
          printf(" input file - %s\n", cInputFileName);
                  FileNameList.insert(FileNameList.end(),cInputFileName);
         }
         else {
          perror("open input file failed, error");
          return 1;
         }
   break;
 
   case 'o':
        handle2 = open(argv[i+1], O_CREAT |O_APPEND);
    if (handle2 != -1)  {       // argv[i+1] - выходной файл
     printf(" output file - %s\n", argv[i+1]);
    }
    else {
     perror("create output file failed, error");
     return 1;
    }
   break;
   case 'b':
    cbufsize = argv[i+1];   // argv[i+1] - размер буфера
   break;
   case 'A':   // фильтр поиска аб-та А
        bFilter = 1;
        cSubsc = "A";
        bAsub = true;
        bNsub = false;
        cNsubsc = argv[i+1];
        break;
   case 'B':  // фильтр поиска аб-та Б
        bFilter = 1;
        cSubsc = "B";
        bAsub = false;
        bNsub = false;
        cNsubsc = argv[i+1];
   break;
   case 'N':  // фильтр поиска номера любого аб-та
    bFilter = 1;
        cSubsc = "N";
        bAsub = false;
        bNsub = true;
        cNsubsc = argv[i+1];
        break;
   case 'c':
    bCsv = true;
   break;
  } // конец если начинается на '-'
  } // конец switch
 }  // конец цикла
 
}