From 13388e2db301265317bd11dcef59e0342700ac6f Mon Sep 17 00:00:00 2001
From: Ivan Baravy <dunkaist@gmail.com>
Date: Tue, 4 Jun 2019 01:04:46 +0000
Subject: [PATCH] spiral demo: Replace P6 fcomip instruction with pre-P6 ones.

git-svn-id: svn://kolibrios.org@7665 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/demos/spiral/spiral.asm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/programs/demos/spiral/spiral.asm b/programs/demos/spiral/spiral.asm
index b7aa721513..2183a6cc5f 100644
--- a/programs/demos/spiral/spiral.asm
+++ b/programs/demos/spiral/spiral.asm
@@ -285,16 +285,18 @@ endp
 proc waiting
         fld     [max_frame_rate]
         fld     [instant]
-        fcomip  st1
-        fstp    st0
-        jna     @f
+        fcompp
+        fstsw   ax
+        sahf
+        jc      @f
         inc     [sleep_time]
         jmp     .end
     @@:
         fld     [min_frame_rate]
         fld     [instant]
-        fcomip  st1
-        fstp    st0
+        fcompp
+        fstsw   ax
+        sahf
         jnc     .end
         cmp     [sleep_time], 0
         jz      .end
@@ -372,7 +374,7 @@ start:
         mcall   26, 9
         mov     [frame_start], eax
   .still:
-	mcall	11
+        mcall   11
         dec     eax
         js      .draw_spiral    ; no event
         jnz     .quit