char strArr[10240]; storage for hold all string array each one is 128 byte len
   dword cnt;
   dword disp;
   ..........
   .........
   //later
    eax = Ziron_GetNextToken();
    ebx = 0; 
    cnt = 0;
    edi = @strArr;
    while( eax != zirParenClose)
     {
        H_strcpy( [edi+ebx],Ziron_GetStringValue());
        ebx += 128;
        cnt++;
        eax = Ziron_GetNextToken(); 
     }

inline function ptrAt($base) {
  lea eax, $base
  $return eax;
}

H_strcpy( [edi+ebx],Ziron_GetStringValue());

H_strcpy( ptrAt([edi+ebx]),Ziron_GetStringValue());

inline function laddr($reg, $base) {
  lea $reg, $base
  $return $reg;
}

H_strcpy( laddr(eax, [edi+ebx]),Ziron_GetStringValue());

while( eax != zirParenClose)
     {
        H_strcpy( edi,Ziron_GetStringValue());
        edi += 128;
        cnt++;
        eax = Ziron_GetNextToken(); 
     }

  eax = Ziron_GetNextToken();
  esi = 0;
  edi = @parArr;
  while( eax != zirParenClose)
  {
    H_strcpy( edi, Ziron_GetStringValue());
    edi += 128;
    esi++;
    eax = Ziron_GetNextToken();          
  }
  cnt = esi;

  cnt = esi;

  mov cnt,eas

DWord cnt = 10;

for (edi = 0 to cnt) {
  print('Hello\r\n');
}

     // adding '$' to param
     edi = cnt;
     ebx = @parArr;
     while(edi>0)
      { 
         if(strCmp(ebx, Ziron_GetStringValue()))    
          {
             H_strcat(@val,' $'); 
             break; 
          }     
         ebx += 128;       
         edi--;
      }