Subversion Repositories Kolibri OS

Rev

Rev 7315 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7315 Rev 7316
Line 234... Line 234...
234 
; Keep the FrameRate around 40-50 FPS
 234 
; Keep the FrameRate around 40-50 FPS
235 
  fld Float_50
 235 
  fld Float_50
236 
  fld Instant
 236 
  fld Instant
237 
  fcomip st(0), st(1)
 237 
  fcomip st(0), st(1)
238 
  fstp st(0)
 238 
  fstp st(0)
239 
  .If ABOVE?
 239 
  .If !CARRY? && !ZERO?
240 
    inc SleepTime
 240 
    inc SleepTime
241 
  .Else
 241 
  .Else
242 
    fld Float_40
 242 
    fld Float_40
243 
    fld Instant
 243 
    fld Instant
244 
    fcomip st(0), st(1)
 244 
    fcomip st(0), st(1)
245 
    fstp st(0)
 245 
    fstp st(0)
246 
    .If BELOW? && (SleepTime != 0)
 246 
    .If CARRY? && (SleepTime != 0)
247 
      dec SleepTime
 247 
      dec SleepTime
248 
    .EndIf
 248 
    .EndIf
249 
  .EndIf
 249 
  .EndIf
250 
  Invoke Sleep, SleepTime
 250 
  Invoke Sleep, SleepTime
251 
  ret
 251 
  ret