Replace ABOVE? and BELOW? with analogues

git-svn-id: svn://kolibrios.org@7316 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
0CodErr 2018-08-13 09:03:48 +00:00
parent 8924de4eb3
commit dcb4bb8624

View File

@ -236,14 +236,14 @@ Waiting Proc
fld Instant
fcomip st(0), st(1)
fstp st(0)
.If ABOVE?
.If !CARRY? && !ZERO?
inc SleepTime
.Else
fld Float_40
fld Instant
fcomip st(0), st(1)
fstp st(0)
.If BELOW? && (SleepTime != 0)
.If CARRY? && (SleepTime != 0)
dec SleepTime
.EndIf
.EndIf