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 fld Instant
fcomip st(0), st(1) fcomip st(0), st(1)
fstp st(0) fstp st(0)
.If ABOVE? .If !CARRY? && !ZERO?
inc SleepTime inc SleepTime
.Else .Else
fld Float_40 fld Float_40
fld Instant fld Instant
fcomip st(0), st(1) fcomip st(0), st(1)
fstp st(0) fstp st(0)
.If BELOW? && (SleepTime != 0) .If CARRY? && (SleepTime != 0)
dec SleepTime dec SleepTime
.EndIf .EndIf
.EndIf .EndIf