; Timer routines for Ultrabasic
; Gabriel Fernandez 2001

; Standard timer
; The same as qb
tdiv DQ 0.055

Timer:
  mov eax, 0
  int 1ah
  mov [tmp], dx
  mov [tmp+2], cx
  Fild dword [tmp]
  Fmul qword [tdiv]
RET
