Sweetbread/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Issues Pull Requests Actions 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 proc waiting
fld [max_frame_rate] fld [max_frame_rate]
fld [instant] fld [instant]
fcomip st1 fcompp
fstp st0 fstsw ax
jna @f sahf
jc @f
inc [sleep_time] inc [sleep_time]
jmp .end jmp .end
@@: @@:
fld [min_frame_rate] fld [min_frame_rate]
fld [instant] fld [instant]
fcomip st1 fcompp
fstp st0 fstsw ax
sahf
jnc .end jnc .end
cmp [sleep_time], 0 cmp [sleep_time], 0
jz .end jz .end
@ -372,7 +374,7 @@ start:
mcall 26, 9 mcall 26, 9
mov [frame_start], eax mov [frame_start], eax
.still: .still:
mcall 11 mcall 11
dec eax dec eax
js .draw_spiral ; no event js .draw_spiral ; no event
jnz .quit jnz .quit