XenOn/kolibrios-fun
1
1
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Wiki Activity

small fixes

Browse Source 
git-svn-id: svn://kolibrios.org@175 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
heavyiron 2006-10-10 22:20:38 +00:00
parent de97cea06c
commit ab3caba8a7
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
programs/other/calc/trunk/calc.asm
View File

@ -196,9 +196,8 @@ key:
no_int: no_int:
cmp eax,23 cmp eax,23
jne no_1x jne no_1x
fld [trans1]
fld1 fld1
fdiv st,st1 fdiv [trans1]
jmp show_result jmp show_result
no_1x: no_1x:
@ -347,7 +346,7 @@ number_entry:
cmp [id],1 cmp [id],1
je decimal_entry je decimal_entry
mov ebx,[integer] mov ebx,[integer]
test ebx,0xc0000000 test ebx,0xF0000000
jnz no_entry jnz no_entry
mov ebx,eax mov ebx,eax
mov eax,[integer] mov eax,[integer]
@ -470,6 +469,7 @@ ftoa: ; fpu st0 -> [integer],[decimal]
mov [sign],1 mov [sign],1
no_neg: no_neg:
fld [tmp2]
fistp [integer] fistp [integer]
fld [tmp2] fld [tmp2]
fisub [integer] fisub [integer]
@ -491,11 +491,14 @@ ftoa: ; fpu st0 -> [integer],[decimal]
mov eax,[decimal] mov eax,[decimal]
add [res],eax add [res],eax
fisub [decimal] fisub [decimal]
fst [tmp2]
ftst ftst
fstsw ax fstsw ax
test ax,1
jnz real_done
fld [tmp2]
dec edi dec edi
jz real_done jz real_done
jmp newd jmp newd
real_done: real_done:
@ -658,7 +661,7 @@ draw_window:
mov ebx,1 mov ebx,1
int 0x40 int 0x40
mov eax,0 xor eax,eax
mov ebx,200*65536+255 mov ebx,200*65536+255
mov ecx,200*65536+180 mov ecx,200*65536+180
mov edx,[sc.work] mov edx,[sc.work]