Sweetbread/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

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

Browse Source 
git-svn-id: svn://kolibrios.org@7665 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Ivan Baravy 2019-06-04 01:04:46 +00:00
parent 8a54de90d7
commit 13388e2db3
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
programs/demos/spiral/spiral.asm
View File

@ -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