Functions.php

<?hh

  require_once('Registers.php');

  function recursive_array_search($needle,$haystack)
  {
      foreach($haystack as $key=>$value)
      {
          $current_key=$key;
          if($needle===$value || ( is_array($value) && recursive_array_search($needle,$value) !== false ) )
          {
              return $current_key;
          }
      }
      return false;
  }

  function LDA ($Variable)
  {
    // $Variable hold the data which need to be Moved to A register
    if( preg_match('/^[#]/', $Variable) )
    {
      //$Variable contains a immediate value
      $Chars = preg_split('/^[#]/',$Variable);
      //var_dump($Chars);
      $GLOBALS['Register']['A']['CurrentValue'] = $Chars['1'];
      $GLOBALS['Flages']['N']['Value'] = 0;
    }
    else if(preg_match('/^[@]/',$Variable))
    {
      $Chars = preg_split('/^[#]/',$Variable);
      //var_dump($Chars);
      $GLOBALS['Register']['A']['CurrentValue'] = $Chars['1'];
      $GLOBALS['Flages']['I']['Value'] = 0;
    }
    else
    {
      $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Variables'][$Variable]['CurrentValue'];
    }
  }

  function ADD ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] + $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function ADDF ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] + $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function ADDR ($Variable)
  {
    $Chars = preg_split('/[,]/',$Variable);
    $GLOBALS['Register'][$Chars['1']]['CurrentValue'] = $GLOBALS['Register'][$Chars['1']]['CurrentValue'] + $GLOBALS['Register'][$Chars['0']]['CurrentValue'];
  }

  function DIV ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] / $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function DIVF ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] / $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function DIVR ($Variable)
  {
    $Chars = preg_split('/[,]/',$Variable);
    $GLOBALS['Register'][$Chars['1']]['CurrentValue'] = $GLOBALS['Register'][$Chars['1']]['CurrentValue'] / $GLOBALS['Register'][$Chars['0']]['CurrentValue'];
  }

  function MUL ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] * $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function MULF ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] * $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function MULR ($Variable)
  {
    $Chars = preg_split('/[,]/',$Variable);
    $GLOBALS['Register'][$Chars['1']]['CurrentValue'] = $GLOBALS['Register'][$Chars['1']]['CurrentValue'] * $GLOBALS['Register'][$Chars['0']]['CurrentValue'];
  }

  function SUB ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] - $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function SUBF ($Variable)
  {
    $GLOBALS['Register']['A']['CurrentValue'] = $GLOBALS['Register']['A']['CurrentValue'] - $GLOBALS['Variables'][$Variable]['CurrentValue'];
  }

  function SUBR ($Variable)
  {
    $Chars = preg_split('/[,]/',$Variable);
    $GLOBALS['Register'][$Chars['1']]['CurrentValue'] = $GLOBALS['Register'][$Chars['1']]['CurrentValue'] - $GLOBALS['Register'][$Chars['0']]['CurrentValue'];
  }