Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 175 → Rev 153

/programs/other/calc/trunk/calc.asm
196,8 → 196,9
no_int:
cmp eax,23
jne no_1x
fld [trans1]
fld1
fdiv [trans1]
fdiv st,st1
jmp show_result
no_1x:
346,7 → 347,7
cmp [id],1
je decimal_entry
mov ebx,[integer]
test ebx,0xF0000000
test ebx,0xc0000000
jnz no_entry
mov ebx,eax
mov eax,[integer]
469,7 → 470,6
mov [sign],1
no_neg:
fld [tmp2]
fistp [integer]
fld [tmp2]
fisub [integer]
491,12 → 491,9
mov eax,[decimal]
add [res],eax
fisub [decimal]
fst [tmp2]
ftst
fstsw ax
test ax,1
jnz real_done
fld [tmp2]
dec edi
jz real_done
jmp newd
661,7 → 658,7
mov ebx,1
int 0x40
xor eax,eax
mov eax,0
mov ebx,200*65536+255
mov ecx,200*65536+180
mov edx,[sc.work]