program WIN32CUI 'Basic Syntax test';

#include 'console.zir';

.DATA {
var      DB 64     ; Declare a byte, referred to as location var, containing the value 64.
var2     DB ?      ; Declare an uninitialized byte, referred to as location var2.
         DB 10     ; Declare a byte with no label, containing the value 10. Its location is var2 + 1.
X        DW ?      ; Declare a 2-byte uninitialized value, referred to as location X.
Y        DD 30000  ; Declare a 4-byte value, referred to as location Y, initialized to 30000.

Z        DD 1, 2, 3     ; Declare three 4-byte values, initialized to 1, 2, and 3. The value of location Z + 8 will be 3.
bytes    DB 10 DUP(?)   ; Declare 10 uninitialized bytes starting at location bytes.
arr      DD 100 DUP(0)  ; Declare 100 4-byte words starting at location arr, all initialized to 0
str1     DB 'hello',0   ; Declare 6 bytes starting at the address str, initialized to the ASCII character values for hello and the null (0) byte.
}


.CODE {
PUBLIC _myFunc
_myFunc PROC
  ; Subroutine Prologue
  
  mov eax,5
  ret
_myFunc ENDP
}

wait_key(nil);
ExitProcess(0);

function event_Data() {
  uses edi;
  char buf[2048];
  char val[255];
  char var[255];
  boolean Flg = true;  
  
  if(Flg)
   {
      eax = Ziron_ExpectNextToken(zirBraceOpen);    
      if (eax == -1) {
          Ziron_FatalError('Expected { symbol');
          return true;
       }
       Ziron_ShowMessage(Ziron_GetStringValue());
       
       repeat { 
              // found '}' so let's finished
             eax = Ziron_PeekNextToken(); 
             if (eax == zirBraceClose)
              {
                 Ziron_GetNextToken(); 
                 Ziron_ShowMessage(Ziron_GetStringValue());
                 break;
              } 
              
              // get the variable name and hold it in Var 
              eax = Ziron_ExpectNextToken(zirIdent);
              if (eax == -1) {
                  Ziron_FatalError('Expected Variable Name');
                  return true;
               }
              H_strcpy(@var,Ziron_GetStringValue());     
              Ziron_ShowMessage(@var);
              
              // get DB or DW or DD or DQ
              eax = Ziron_ExpectNextToken(zirIdent);
              if (eax == -1) {
                  Ziron_FatalError('Expected Variable Name');
                  return true;
               }
              boolean TypeFlg;
              TypeFlg = strCmp('DB',Ziron_GetStringValue()); 
              if(TypeFlg)
               { 
                   eax = Ziron_GetNextToken();  
                   case (eax) {
                          state zirHEXADECIMAL:
                    state zirNUMBER:
                        H_strcpy(@val,Ziron_GetStringValue()); 
                        Ziron_ShowMessage(@val);  
                        buf=0;
                              H_strjoin(@buf, 'byte ' , @var, ' = ' , @val, ';' );
                              Ziron_ShowMessage(@buf);
                              Ziron_Exec(@buf);
                              break;       
                          default:
                              Ziron_FatalError('Expected number');
                              return true;
                    }      
               }
       };            
      return true;
   }
  else
   {   
      return false;                           // let Ziron handle the line  
   }  
}

program WIN32CUI 'Basic Syntax test';

#include 'console.zir';


.DATA 
{

var      DB 64     

}

eax = 0;
al = var;
print('var = ', Eax); 

wait_key(nil);
ExitProcess(0);