  % filename "t.exe"

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


  function f1()
  mov ecx,1e8
  (
  mov esi,12335
  imul eax,esi,2
  dec ecx
  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
  'RTL32' 32bitRegs 94  93  94  109
  'RTL64' 32bitRegs 93  93  94  110
  'RTL64' 64bitRegs 93  93 110  93



