function strVal(char* str) {
  uses ebx esi edx ecx;
  
  esi = str;
  eax = xor;
  
  ecx = esi;
  while (char[ecx] <> 0) {
    ecx++;
  }
  sub ecx, esi
  
  if (ecx == 0) {
    return 0;
  }
  
  ebx = xor;
  edx = xor;

  if (char[esi] == "-") {
    edx--; 
    esi++;
    ecx--;
  }

  while (ecx <> 0) {
    bl = [esi];
    imul eax, 10
    sub bl, 48
    eax += ebx;
    
    esi++;
    ecx--;
  }
  
  ecx = eax;
  emit byte 0x23, 0xCA;  //temporary fix 
  shl ecx, 1
  sub eax, ecx
}

ecx = strVal('123455');
ecx += 10;
print('ecx = ', ecx:int, '\r\n');

function  strchr(char *s, int cha)
 {
         /* scan from left to right */
         uses esi
         esi = s
         while (char[esi] != nil) {
                 /* if we hit it, return it */
                 if (char[esi]==cha) {
                         return esi;
                 }
                 esi++;
         }
 
         /* if we were looking for the 0, return that */
         if (char[esi]==cha) {
                 return esi;
         }
 
         /* didn't find it */
         return nil;
}

function atoi(char* s)
{
         uses esi
         const digits[10] = '0123456789';  /* legal digits in order */
         DWord val=0;         /* value we're accumulating */
         int32 _neg=0;              /* set to true if we see a minus sign */

         /* skip whitespace */
         esi = s;
         while ( char[esi] == " ") {
                 esi++;
         }
    
         /* check for sign */
         if (char[esi] == "-") {
                 _neg=1;
                 esi++;
         }
        else if (char[esi] == "+") {
                 esi++;
        }
 
        /* process each digit */
        while (char[esi] != nil) {
                 char* where;
                 DWord digit;
                 
                 /* look for the digit in the list of digits */
                 where = strchr(@digits, char[esi]);
                 if (where==nil) {
                         /* not found; not a digit, so stop */
                         break;
                 }
 
                 /* get the index into the digit list, which is the value */
                 digit = (where - digits);
 
                 /* could (should?) check for overflow here */
 
                 /* shift the number over and add in the new digit */
                 val = val*10 + digit;
 
                 /* look at the next character */
                 esi++;
         }
         
         /* handle negative numbers */
         if (_neg) {
                 return -val;
         }
         
         /* done */
         return val;
}

function strVal(char* str) {
  uses ebx esi ecx;
  
  esi = str;
  eax = xor;
  
  if (ecx == 0) {
    return 0;
  }
  
  ebx = xor;
  ecx = xor;

  if (char[esi] == "-") {
    ecx--; 
    esi++;
  }

  while (char[esi] <> 0) {
    bl = [esi];
    
    if (bl => "0" and bl <= "9") {
      imul eax, 10
      sub bl, 48
      eax += ebx;
    }
    esi++;
  }
  
  ebx = eax;
  emit byte 0x23, 0xD9;  //temporary fix 
  shl ebx, 1
  sub eax, ebx
}

emit byte 0x23, 0xCA;  //temporary fix 

and ebx, ecx