  % filename "t.exe"

  includepath "$/inc/"
 'include     "RTL32.inc"
  include     "RTL64.inc"
  include     "MinWin.inc"


  function f1()
  sys i,j
  mov qword i,1e8
  (
  mov qword j,12335
  imul rax,j,2
  mov  j,rax
  dec qword i
  jg repeat
  )
  end function

  int t1=gettickcount
  f1
  int t2=gettickcount

  print t2-t1

  'RESULTS
  '=======

  'LAPSED TIME FOR 10^8 LOOPS IN MILLISECS

  'expression j*=2 'LOCAL VARIABLES
  'RTL32' 32bitVars 281 286 281 297
  'RTL64' 32bitvars 281 281 280 296
  'RTL64' 64bitVars 265 281 265 281



