spiral demo: Replace P6 fcomip instruction with pre-P6 ones.

git-svn-id: svn://kolibrios.org@7665 a494cfbc-eb01-0410-851d-a64ba20cac60
2019-06-04 01:04:46 +00:00 · 2019-06-04 01:04:46 +00:00 · 13388e2db3
commit 13388e2db3
parent 8a54de90d7
1 changed files with 8 additions and 6 deletions
--- 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