ace-dent/kolibrios-gitea
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity
main
kolibrios-gitea/programs/other/calc/trunk/calc.asm
Andrew Dent a53bea545e Fix EN typos 
- Corrections for en_US language.
- Some whitespace sanitation.

git-svn-id: svn://kolibrios.org@10064 a494cfbc-eb01-0410-851d-a64ba20cac60
2024-05-29 21:37:05 +00:00

860 lines
20 KiB
NASM
Raw Permalink Blame History

;; Calculator for MenuetOS (c) Ville Turjanmaa
;;
;; Compile with FASM
;;
;; Pavel Rymovski (Heavyiron) - version for KolibriOS
;;
;; What's new:
;; Calc 1.1
;; 1) changed design
;; 2) new procedure of draw window (10 decimal digits, 23 binary, "+" not displayed now)
;; 3) window with skin
;; Calc 1.2
;; 1) added some useful functions, such as arcsin, arccos, arctg, 1/x, x^2
;; Calc 1.31
;; 1) optimized program
;; 2) new type of window (you need kernel 114 revision or higher)
;; Calc 1.32
;; 1) fixed arccos
;; Calc 1.33
;; 1) align button captions in proper way, finally!
;; Calc 1.4 - Leency
;; 1) better GUI, big fonts
use32
org 0x0
db 'MENUET01' ; 8 byte id
dd 0x01 ; header version
dd START ; start of code
dd I_END ; size of image
dd E_END ; memory for app
dd E_END ; esp
dd 0x0,0x0 ; I_Param , I_Icon
include '../../../macros.inc'
include '../../../gui_patterns.inc'
include '../../../KOSfuncs.inc'
hotkeys_count equ 26
asci: db 49, 50, 51, 52, 53, 54, 55, 56, 57, 48, 43, 61, 13, 45, 42, 47, 44, 46, 27, 182, \
97, 98, 99,100,101,102
butid: db 12, 13, 14, 19, 20, 21, 26, 27, 28, 34, 15, 39, 39, 22, 36, 29, 35, 35, 1, 2 , \
6, 7, 8, 9, 10, 11
START:
red:
call draw_window
still:
mcall 10
dec eax
jz red
dec eax
jz key
button:
mcall 17 ; get button id
shr eax, 8
jmp testbut
key:
mcall 2 ; get ASCII key code
and eax, 0xffff ; supress scancodes
shr eax, 8
mov edi, asci ; convert ASCII into button id
mov ecx, hotkeys_count
cld
repne scasb
jne still
sub edi, asci
dec edi
mov esi, butid
add esi, edi
lodsb
testbut:
cmp eax, 1 ; button 1 -- exit
jne noexit
mcall -1
noexit:
cmp eax, 2
jne no_reset
call clear_all
jmp still
no_reset:
finit
mov ebx, muuta1 ; convert to FPU format
mov esi, 18
call atof
fstp [trans1]
mov ebx, muuta2
mov esi, 18
call atof
fst [trans2]
cmp eax, 33
jne no_sign
cmp [dsign], byte '-'
jne no_m
mov [dsign], byte '+'
call print_display
jmp still
no_m:
mov [dsign], byte '-'
call print_display
jmp still
no_sign:
cmp eax, 3
jne no_display_change
inc [display_type]
cmp [display_type], 2
jbe display_continue
mov [display_type], 0
display_continue:
mov eax, [display_type]
mov eax, [multipl + eax*4]
mov [entry_multiplier], eax
call print_display
jmp still
no_display_change:
cmp eax, 6
jb no_a_f
cmp eax, 11
jg no_a_f
add eax, 4
call number_entry
jmp still
no_a_f:
cmp eax, 12
jb no_13
cmp eax, 14
jg no_13
sub eax, 11
call number_entry
jmp still
no_13:
cmp eax, 19
jb no_46
cmp eax, 21
jg no_46
sub eax, 15
call number_entry
jmp still
no_46:
cmp eax, 26
jb no_79
cmp eax, 28
jg no_79
sub eax, 19
call number_entry
jmp still
no_79:
cmp eax, 34
jne no_0
xor eax, eax
call number_entry
jmp still
no_0:
cmp eax, 35
jne no_id
inc [id]
and [id], 1
mov [new_dec], 100000
jmp still
no_id:
cmp eax, 17
jne no_sin
fld [trans1]
fsin
jmp show_result
no_sin:
cmp eax, 18
jne no_asin
fld [trans1]
fld st0
fmul st, st1
fld1
fsubrp st1, st0
fsqrt
fpatan
jmp show_result
no_asin:
cmp eax, 16
jne no_int
fld [trans1]
frndint
jmp show_result
no_int:
cmp eax, 23
jne no_1x
fld1
fdiv [trans1]
jmp show_result
no_1x:
cmp eax, 24
jne no_cos
fld [trans1]
fcos
jmp show_result
no_cos:
cmp eax, 25
jne no_acos
fld [trans1]
fld st0
fmul st, st1
fld1
fsubrp st1, st0
fsqrt
fxch st1
fpatan
jmp show_result
no_acos:
cmp eax, 30
jne no_x2
fld [trans1]
fmul st, st0
jmp show_result
no_x2:
cmp eax, 31
jne no_tan
fld [trans1]
fptan
fstp st2
jmp show_result
no_tan:
cmp eax, 32
jne no_atan
fld [trans1]
fld1
fpatan
jmp show_result
no_atan:
cmp eax, 38
jne no_pi
fldpi
jmp show_result
no_pi:
cmp eax, 37
jne no_sqrt
fld [trans1]
fsqrt
jmp show_result
no_sqrt:
cmp eax, 15
jne no_add
call calculate
call new_entry
mov [calc], '+'
call print_display
jmp still
no_add:
cmp eax, 22
jne no_sub
call calculate
call new_entry
mov [calc], '-'
call print_display
jmp still
no_sub:
cmp eax, 29
jne no_div
call calculate
call new_entry
mov [calc], '/'
call print_display
jmp still
no_div:
cmp eax, 36
jne no_mul
call calculate
mov [calc], '*'
call new_entry
call print_display
jmp still
no_mul:
cmp eax, 39
jne no_calc
call calculate
jmp still
no_calc:
jmp still
show_result:
call ftoa
call print_display
jmp still
error:
jmp still
calculate:
pusha
cmp [calc], ' '
je no_calculation
cmp [calc], '/'
jne no_cdiv
fdiv [trans1]
no_cdiv:
cmp [calc], '*'
jne no_cmul
fmul [trans1]
no_cmul:
cmp [calc], '+'
jne no_cadd
fadd [trans1]
no_cadd:
cmp [calc], '-'
jne no_cdec
fsub [trans1]
no_cdec:
call ftoa
no_calculation:
call print_display
popa
ret
number_entry:
pusha
cmp eax, [entry_multiplier]
jge no_entry
cmp [id], 1
je decimal_entry
mov ebx, [integer]
test ebx, 0xf0000000
jnz no_entry
mov ebx, eax
mov eax, [integer]
mov ecx, [entry_multiplier]
mul ecx
add eax, ebx
mov [integer], eax
call print_display
call to_muuta
popa
ret
decimal_entry:
imul eax, [new_dec]
add [decimal], eax
mov eax, [new_dec]
xor edx, edx
mov ebx, [entry_multiplier]
div ebx
mov [new_dec], eax
call print_display
call to_muuta
popa
ret
no_entry:
call print_display
call to_muuta
popa
ret
to_muuta:
pusha
mov al, [dsign]
mov esi, muuta0
mov edi, muuta1
mov ecx, 18
cld
rep movsb
mov [muuta1], al
mov edi, muuta1+10 ; []
mov eax, [integer]
new_to_muuta1:
mov ebx, 10
xor edx, edx
div ebx
mov [edi], dl
add [edi], byte 48
dec edi
cmp edi, muuta1+1
jge new_to_muuta1
mov edi, muuta1+17 ; {}
mov eax, [decimal]
new_to_muuta2:
mov ebx, 10
xor edx, edx
div ebx
mov [edi], dl
add [edi], byte 48
dec edi
cmp edi, muuta1+12
jge new_to_muuta2
popa
ret
new_entry:
pusha
mov esi, muuta1
mov edi, muuta2
mov ecx, 18
cld
rep movsb
mov esi, muuta0
mov edi, muuta1
mov ecx, 18
cld
rep movsb
mov [integer], 0
mov [decimal], 0
mov [id], 0
mov [new_dec], 100000
mov [sign], byte '+'
popa
ret
ftoa: ; fpu st0 -> [integer],[decimal]
pusha
fst [tmp2]
fstcw [controlWord] ; set truncate integer mode
mov ax, [controlWord]
mov [tmp], ax
or [tmp], word 0x0c00
fldcw [tmp]
ftst ; test if st0 is negative
fstsw ax
and ax, 0x4500
mov [sign], 0
cmp ax, 0x0100
jne no_neg
mov [sign], 1
no_neg:
fld [tmp2]
cmp byte [sign], 0 ; change fraction to positive
je no_neg2
fchs
no_neg2:
fadd [smallValueForRounding]
fist [integer]
fisub [integer]
mov [res], 0 ; convert 6 decimal numbers
mov edi, 6
newd:
fimul [kymppi]
fist [decimal]
mov ebx, [res]
imul ebx, 10
mov [res], ebx
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
real_done:
fldcw [controlWord]
mov eax, [res]
mov [decimal], eax
cmp [integer], 0x80000000
jne no_error
call clear_all
mov [calc], 'E'
no_error:
mov [dsign], byte '+'
cmp [sign], byte 0 ; convert negative result
je no_negative
; mov eax, [integer]
; not eax
; inc eax
; mov [integer], eax
mov [dsign], byte '-'
no_negative:
call to_muuta
popa
ret
atof:
push ax
push di
fldz
mov di, 0
cmp si, 0
je .error ; Jump if string has 0 length.
mov byte [sign], 0
cmp byte [bx], '+' ; Take care of leading '+' or '-'.
jne .noPlus
inc di
jmp .noMinus
.noPlus:
cmp byte [bx], '-'
jne .noMinus
mov byte [sign], 1 ; Number is negative.
inc di
.noMinus:
cmp si, di
je .error
call atof_convertWholePart
jc .error
call atof_convertFractionalPart
jc .error
cmp byte [sign], 0
je .dontNegate
fchs ; Negate value
.dontNegate:
mov bh, 0 ; Set bh to indicate the string is a valid number.
jmp .exit
.error:
mov bh, 1 ; Set error code.
; fstp st0 ; Pop top of fpu stack.
.exit:
pop di
pop ax
ret
atof_convertWholePart:
; Convert the whole number part (the part preceding the decimal
; point) by reading a digit at a time, multiplying the current
; value by 10, and adding the digit.
.mainLoop:
mov al, [bx + di]
cmp al, '.'
je .exit
cmp al, '0' ; Make sure character is a digit.
jb .error
cmp al, '9'
ja .error
; Convert single character to digit and save to memory for
; transfer to the FPU.
sub al, '0'
mov ah, 0
mov [tmp], ax
; Multiply current value by 10 and add in digit.
fmul dword [ten]
fiadd word [tmp]
inc di
cmp si, di ; Jump if end of string has been reached.
je .exit
jmp .mainLoop
.error:
stc ; Set error (carry) flag.
ret
.exit:
clc ; Clear error (carry) flag.
ret
atof_convertFractionalPart:
fld1 ; Load 1 to TOS. This will be the value of the decimal place.
.mainLoop:
cmp si, di ; Jump if end of string has been reached.
je .exit
inc di ; Move past the decimal point.
cmp si, di ; Jump if end of string has been reached.
je .exit
mov al, [bx + di]
cmp al, '0' ; Make sure character is a digit.
jb .error
cmp al, '9'
ja .error
fdiv dword [ten] ; Next decimal place
sub al, '0'
mov ah, 0
mov [tmp], ax
; Load digit, multiply by value for appropriate decimal place,
; and add to current total.
fild word [tmp]
fmul st0, st1
faddp st2, st0
jmp .mainLoop
.error:
stc ; Set error (carry) flag.
fstp st0 ; Pop top of fpu stack.
ret
.exit:
clc ; Clear error (carry) flag.
fstp st0 ; Pop top of fpu stack.
ret
; *********************************************
; ******* WINDOW DEFINITIONS AND DRAW *********
; *********************************************
BTNSP_X equ 39
DISPLAY_X equ 20
DISPLAY_Y equ 18
DISPLAY_W equ 208
DISPLAY_H equ 26
draw_window:
mcall 12, 1
mcall 48, 3, sc, sizeof.system_colors
mcall SF_STYLE_SETTINGS, SSF_GET_SKIN_HEIGHT
mov ecx, 200 shl 16 + 210
add ecx, eax ; add skin height to window height
mov edx, [sc.work]
or edx, 0x34000000
mov edi, title
mcall 0, <250, 317>
mov eax, SF_DEFINE_BUTTON
mov ebx, 19 shl 16 + 36
mov ecx, 55 shl 16 + 22
mov edx, 6
mov esi, [sc.work_button]
mov edi, 7
newbutton:
dec edi
jnz no_new_row
mov edi, 7
mov ebx, 19 shl 16 + 36
add ecx, 28 shl 16
no_new_row:
mcall
add ebx, BTNSP_X shl 16
inc edx
cmp edx, BTNSP_X
jbe newbutton
mcall , <253, 36>, <55, 22>, 2, 0xF0969D ; 'C'
mov ecx, [sc.work_button_text]
or ecx, 0x10000000
mov edx, text
mov edi, 31
next_line:
inc edx
and edi, 0x0000ffff
add edi, 24 SHL 16 + 28
next_button:
movzx esi, byte[edx - 1]
imul eax, esi, 8
neg eax
add eax, 29
shr eax, 1
shl eax, 16
mov ebx, edi
add ebx, eax
mcall 4
add edx, esi
inc edx
add edi, BTNSP_X SHL 16
cmp [edx - 1], byte 0
jne next_button
cmp [edx], byte 'x'
jne next_line
DrawRectangle3D DISPLAY_X-1,DISPLAY_Y-1,DISPLAY_W+2,DISPLAY_H+2, [sc.work_dark], [sc.work_light]
DrawRectangle DISPLAY_X,DISPLAY_Y,DISPLAY_W,DISPLAY_H, [sc.work_graph]
mcall 38, < DISPLAY_X+1, DISPLAY_W+DISPLAY_X-1>, <DISPLAY_Y+1, DISPLAY_Y+1>, 0xE0E0E0 ; internal shadow
mcall , < DISPLAY_X+1, DISPLAY_X+1>, <DISPLAY_Y+2, DISPLAY_Y+DISPLAY_H-1>, ; internal shadow
call print_display
mcall 12, 2
ret
print_display:
pusha
mcall 13, < DISPLAY_X+2, DISPLAY_W-2>, <DISPLAY_Y+2, DISPLAY_H-2>, 0xFFFfff ; background
mcall 8, <236,53>, <DISPLAY_Y,DISPLAY_H>, 3, [sc.work] ; 'dec-bin-hex'
mov ecx, [sc.work_text]
or ecx, 0x40000000
mcall 4, <135,6>,,calc,1,[sc.work]
mov edx, [display_type]
shl edx, 2
add edx, display_type_text
mov esi, 3
mov ecx, [sc.work_text]
or ecx, 0x10000000
mcall 4,<250,DISPLAY_Y+(DISPLAY_H-14)/2>
cmp [dsign], byte '+'
je positive
mcall , <23, 26>, 0, dsign, 1
positive:
cmp [display_type], 0
jne no_display_decimal
cmp [decimal], 0
je whole
mcall , <144, 26>, [number_color], dot, 1
mcall 47, <10, 0>, [integer], <26, 26>, [number_color]
mcall , <6, 0>, [decimal], <151, 26>, [number_color]
popa
ret
whole:
mcall , <214, 26>, [number_color], dot, 1
cmp [integer], 0
je null
mcall 47, <10, 0>, [integer], <94, 26>, [number_color]
popa
ret
no_display_decimal:
cmp [display_type], 1
jne no_display_hexadecimal
cmp [integer], 0
je null
mcall 47, <8, 256>, [integer], <130, 26>, [number_color]
popa
ret
no_display_hexadecimal:
cmp [integer], 0
je null
mcall 47, <32, 2*256>, [integer], <32, 30>, 0
popa
ret
null:
mcall 47, <1, 0>, 0, <202, 26>, [number_color]
popa
ret
clear_all:
pusha
mov [calc], ' '
mov [integer], 0
mov [decimal], 0
mov [id], 0
mov [dsign], byte '+'
mov esi, muuta0
mov edi, muuta1
mov ecx, 18
cld
rep movsb
mov esi, muuta0
mov edi, muuta2
mov ecx, 18
cld
rep movsb
call print_display
popa
ret
;data
title db 'Calc 1.45', 0
display_type dd 0 ; 0 = decimal, 1 = hexadecimal, 2= binary
entry_multiplier dd 10
display_type_text db 'dec hex bin'
number_color dd 0x81333333
dot db '.',0
calc db ' ',0
integer dd 0
decimal dd 0
kymppi dd 10
ten dd 10.0, 0
tmp dw 1, 0
sign db 1, 0
tmp2 dq 0, 0
exp dd 0, 0
new_dec dd 100000, 0
id db 0, 0
res dd 0
trans1 dq 0
trans2 dq 0
controlWord dw 1
smallValueForRounding dq 0.0000005 ; 1/2 from last significant digit
multipl dd 10,16,2
dsign:
muuta1 db '+0000000000.000000'
muuta2 db '+0000000000.000000'
muuta0 db '+0000000000.000000'
text:
db 1,'A', 1,'B', 1,'C', 1,'D', 1,'E', 1,'F', 3,'CLR', 0
db 1,'1', 1,'2', 1,'3', 1,'+', 3,'Int', 3,'Sin', 4,'Asin', 0
db 1,'4', 1,'5', 1,'6', 1,'-', 3,'1/x', 3,'Cos', 4,'Acos', 0
db 1,'7', 1,'8', 1,'9', 1,'/', 3,'x^2', 3,'Tan', 4,'Atan', 0
db 3,'+/-', 1,'0', 1,'.', 1,'*', 4,'Sqrt',2,'Pi', 1,'=', 0
db 'x'
I_END:
sc system_colors
rb 0x200 ; stack
E_END:
View Git Blame Copy Permalink