Replace ABOVE? and BELOW? with analogues

git-svn-id: svn://kolibrios.org@7316 a494cfbc-eb01-0410-851d-a64ba20cac60
2018-08-13 09:03:48 +00:00 · 2018-08-13 09:03:48 +00:00 · dcb4bb8624
commit dcb4bb8624
parent 8924de4eb3
1 changed files with 2 additions and 2 deletions
--- a/programs/demos/PlasmaEffect/PlasmaEffect.asm
+++ b/programs/demos/PlasmaEffect/PlasmaEffect.asm
@ -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