eax = 10;
 emit byte 0x100; // we insert hex value of any instruction directly in out code
 emit word 0x200;  
 ecx = [eax + 3]

blob 1,0x90; //single nop
blob 4,0x90909090; //4 nops

inline op procedure _or(reg1, reg2) { 
  $expect sizeof $reg1 as sizeof $reg2: 'Operands must be equal size';

  $if sizeof $reg1 == 32:
    blob 1,0x0B 1,0xC0 + (($reg1*8)+$reg2); 
  $elseif sizeof $reg1 == 16:
    blob 1,0x66 1,0x0B 1,0xC0+(($reg1*8)+$reg2);
  $else
    blob 1,0x0A 1,0xC0+(($reg1*8)+$reg2);
  $end
}

program WIN32DLL 'EMIT PLUGIN';

#include 'ziron32.zir';

///////////////////

enum ZirToken: DWord {
  zirSEMI_COLON, zirCOMMA, zirDATA_TYPE, zirREGISTER, zirNUMBER, zirHEXADECIMAL
}

enum ZirFWID: DWord {
  //settings
  idCPU_MODE = 10,  

  //functions
  idFATAL_ERROR = 1000,
  idSHOW_MESSAGE = 1001,
  
  //special functions
  idREGISTER_KEYWORD = 2000,
  
  idEXPECT_NEXT_TOKEN = 5000,
  idGET_NEXT_TOKEN = 5001,
  idIS_DATA_FLOAT = 5002,
  idGET_INTVALUE = 5003,
  idGET_DATA_SIZE = 5004,
  idEMIT_CODE = 5005
}

///////////////////

const strLoaded = 'Emit plugin has loaded!';

//////////////////////////////
function* Ziron_Get(ZirFWID funcID): DWord; stdcall;

////
procedure* Ziron_FatalError(char* str); stdcall;
procedure* Ziron_ShowMessage(char* str); stdcall;

//
function* Ziron_ExpectNextToken(ZirToken tt): DWord; stdcall;
function* Ziron_GetNextToken(): DWord; stdcall;
function* Ziron_GetIntValue(): Int32; stdcall;
function* Ziron_GetDataSize(DWord id): DWord; stdcall;

function* Ziron_RegisterKeyword(char* name; pointer callback): DWord; stdcall;
procedure* Ziron_EmitCode(char* buffer; DWord len); stdcall;
////


function event_Emit() { //always stdcall; return false to allow the assembler to use the default processor for this keyword
  uses edi;
  
  char codeBuf[4];

  eax = Ziron_ExpectNextToken(zirDATA_TYPE);
  if (eax == -1) {
    Ziron_FatalError('Expected data type');
    return true;
  }
  edi = Ziron_GetDataSize(eax);
  
  
  repeat {
    eax = Ziron_GetNextToken();
      
    case (eax) {
      state zirHEXADECIMAL:
      state zirNUMBER:
        codeBuf = Ziron_GetIntValue();
                  
        Ziron_EmitCode(@codeBuf, edi);
        break;
      
      default:
        Ziron_FatalError('Unexpected token type');
        return true;
    }
    
    eax = Ziron_GetNextToken();
    
    if (eax == zirSEMI_COLON) {
      break;
    } elseif (eax != zirCOMMA) {
      Ziron_FatalError('Unexpected token type');
      break;
    }
  };
  return true;
}


function InitPlugin(pointer pGetF) {
  Ziron_Get = pGetF;
  
  //get the functions this plugin will require - see plugin_interface.txt
  Ziron_FatalError = Ziron_Get(idFATAL_ERROR);
  Ziron_ShowMessage = Ziron_Get(idSHOW_MESSAGE);
  
  Ziron_RegisterKeyword = Ziron_Get(idREGISTER_KEYWORD);
  Ziron_ExpectNextToken = Ziron_Get(idEXPECT_NEXT_TOKEN);
  Ziron_GetNextToken = Ziron_Get(idGET_NEXT_TOKEN);
  Ziron_GetIntValue = Ziron_Get(idGET_INTVALUE);
  Ziron_GetDataSize = Ziron_Get(idGET_DATA_SIZE);
  Ziron_EmitCode = Ziron_Get(idEMIT_CODE);

  //register our keyword
  Ziron_RegisterKeyword('emit', @event_Emit);
  
  return strLoaded;
}

entry function DLLMain(DWord iDLL; DWord iReason; Pointer iResult) {
  if (iReason == DLL_PROCESS_ATTACH) {
    return true;
  }

  return false;
}

exports InitPlugin;

//lets do a push eax; pop eax
emit byte 0x50, 0x58;