WebSVN – Kolibri OS – Diff – /programs/calc/trunk/calc.asm

-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
 ;;   Calculator for MenuetOS
-;;
+;;  (c)Ville Turjanmaa
 ;;   Compile with FASM for Menuet
 ;;
+;;    «ìªã«ïâ®à 1.1 alpha
+;;  (c)Pavel Rymovski aka Heavyiron
+;;What's new:1)changed design
+;;           2)new procedure of draw window (10 decimal digits, 23 binary, "+" not displayed now)
+;;           3)window with skin
+;;           4)I had used macroses
+;;   Calc 1.2 alpha
+;;           1)added some useful functions, such as arcsin, arccos, arctg, 1/x, x^2
+;;   Calc 1.3
+;;           1)optimised program
-use32
 use32
-               org    0x0
+							 org    0x0
-               db     'MENUET01'              ; 8 byte id
+               db    'MENUET01'               ; 8 byte id
                dd     0x01                    ; header version
                dd     START                   ; start of code
                dd     I_END                   ; size of image
                dd     0x1000                  ; memory for app
-               dd     0x1000                  ; esp
-               dd     0x0 , 0x0               ; I_Param , I_Icon
+               dd     0x1000                  ; esp
+               dd     0x0 , 0x0               ; I_Param , I_Icon
-include 'lang.inc'
+include 'macros.inc'
 include 'macros.inc'
+START:
+red:
+    call draw_window
+still:
+    push 10
-START:                          ; start of execution
+    pop eax
-     call draw_window
-still:
-    mov  eax,10                 ; wait here for event
+    int 40h
-    int  0x40
-    cmp  eax,1                  ; redraw request ?
+    dec eax
-    je   red
-    cmp  eax,2                  ; key in buffer ?
-    je   key
-    cmp  eax,3                  ; button in buffer ?
+    jz red
-    je   button
+    dec eax
-    jmp  still
+    jz key
-  red:                          ; redraw
+button:
-    call draw_window
+    mcall 17 	  ; ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à  ¦ â®© ª®¯ª¨
-    jmp  still
+    shr  eax,8
     jmp  testbut
   key:                          ; key
-    mov  eax,2
+ key:
-    int  0x40
+    mcall 2         ; ¯®«ãç¨âì ASCII-ª®¤  ¦ â®© ª« ¢¨è¨
     shr  eax,8
-    mov  edi,asci             ;translation & emulation
+    mov  edi,asci	  ; ¯¥à¥¢®¤ ASCII ¢ ¨¤¥â¨ä¨ª â®à ª®¯ª¨
-    mov  ecx,35               ;of button ID's
+    mov  ecx,18
-    cld
-    repne scasb
-    jne  still
-    sub  edi,asci
-    dec  edi
-    mov  esi,butid
-    add  esi,edi
+    cld
-    lodsb
+    repne scasb
-    jmp  testbut
+    jne  still
-  button:                       ; button
-    mov  eax,17                 ; get id
+    sub  edi,asci
+    dec  edi
-    int  0x40
+    mov  esi,butid
     add  esi,edi
-    shr  eax,8
+    lodsb
   testbut:
-    cmp  eax,1                   ; button id=1 ?
+  testbut:
-    jne  noclose
+  	cmp  eax,1	  ; ª®¯ª  1 - § ªàëâ¨¥ ¯à®£à ¬¬ë
-    mov  eax,-1                  ; close this program
-    int  0x40
+    jne  noclose
-  noclose:
+    mcall -1
-    cmp  eax,2
+  noclose:
-    jne  no_reset
-    call clear_all
+    cmp  eax,2
-    jmp  still
+    jne  no_reset
-  no_reset:
+    call clear_all
+    jmp  still
-    finit
-    mov    ebx,muuta1    ; Transform to fpu format
-    mov    esi,18
-    call   atof
+  no_reset:
-    fstp   [trans1]
+    finit
     mov    ebx,muuta1	 ; ¥à¥¢®¤ ¢ ä®à¬ â FPU
-    mov    ebx,muuta2
+    mov    esi,18
-    mov    esi,18
+    call   atof
-    call   atof
+    fstp   [trans1]
+    mov    ebx,muuta2
-    fstp   [trans2]
+    mov    esi,18
     call   atof
-    fld    [trans2]
+    fst    [trans2]
     cmp  eax,33
-    cmp  eax,30
+    jne  no_sign
-    jne  no_sign
+    cmp  [dsign],byte '-'
-    cmp  [dsign],byte '-'
+    jne  no_m
-    jne  no_m
+    mov  [dsign],byte '+'
-    mov  [dsign],byte '+'
+    call print_display
-    call print_display
+    jmp  still
     jmp  still
+  no_m:
-  no_m:
+    mov  [dsign],byte '-'
-    mov  [dsign],byte '-'
+    call print_display
-    call print_display
+    jmp  still
     jmp  still
   no_sign:
     cmp  eax,3
-    cmp  eax,3
+    jne  no_display_change
-    jne  no_display_change
+    inc  [display_type]
-    inc  [display_type]
-    cmp  [display_type],2
-    jbe  display_continue
+    cmp  [display_type],2
-    mov  [display_type],0
+    jbe  display_continue
-  display_continue:
+    mov  [display_type],0
-    mov  eax,[display_type]
-    mov  eax,[multipl+eax*4]
+  display_continue:
-    mov  [entry_multiplier],eax
+    mov  eax,[display_type]
-    call print_display
+    mov  eax,[multipl+eax*4]
-    jmp  still
+    mov  [entry_multiplier],eax
-  multipl:  dd  10,16,2
+    call print_display
     jmp  still
-  no_display_change:
+  multipl:  dd	10,16,2
   no_display_change:
     cmp  eax,6
-    jb   no_10_15
+    jb	 no_a_f
-    cmp  eax,11
+    cmp  eax,11
-    jg   no_10_15
+    jg	 no_a_f
     add  eax,4
     call number_entry
     jmp  still
-   no_10_15:
    no_a_f:
     cmp  eax,12
-    jb   no_13
+    jb	 no_13
     cmp  eax,14
-    jg   no_13
+    jg	 no_13
     sub  eax,11
     call number_entry
     jmp  still
    no_13:
    no_13:
-    cmp  eax,12+6
+    cmp  eax,19
-    jb   no_46
+    jb	 no_46
-    cmp  eax,14+6
+    cmp  eax,21
-    jg   no_46
+    jg	 no_46
-    sub  eax,11+3
+    sub  eax,15
     call number_entry
-    jmp  still
+    jmp  still
-   no_46:
    no_46:
-    cmp  eax,12+12
+    cmp  eax,26
-    jb   no_79
+    jb	 no_79
-    cmp  eax,14+12
+    cmp  eax,28
-    jg   no_79
+    jg	 no_79
-    sub  eax,11+6
+    sub  eax,19
     call number_entry
     jmp  still
    no_79:
    no_79:
-    cmp  eax,13+18
+    cmp  eax,34
+    jne  no_0
-    jne  no_0
+    mov  eax,0
+    call number_entry
+    jmp  still
+   no_0:
+    cmp  eax,35
+    jne  no_id
+    inc  [id]
+    and  [id],1
+    mov  [new_dec],100000
+    jmp  still
-    mov  eax,0
+  no_id:
-    call number_entry
+    cmp  eax,17
-    jmp  still
+    jne  no_sin
-    no_0:
+    fld  [trans1]
     fsin
+    jmp  show_result
     cmp  eax,32
+  no_sin:
+    cmp  eax,18
+    jne  no_asin
+    fld  [trans1]
+    fld  st0
+    fmul st,st1
+    fld1
-    jne  no_id
+    fsubrp  st1,st0
-    inc  [id]
+    fsqrt
-    and  [id],1
+    fpatan
-    mov  [new_dec],100000
+    jmp  show_result
     jmp  still
+  no_asin:
-  no_id:
+    cmp  eax,16
+    jne  no_int
+    fld  [trans1]
+    frndint
+    jmp  show_result
+  no_int:
+    cmp  eax,23
+    jne  no_1x
+    fld  [trans1]
+    fld1
+    fdiv st,st1
+    jmp  show_result
+  no_1x:
-    cmp  eax,16
+    cmp  eax,24
+    jne  no_cos
-    jne  no_sin
+    fld  [trans1]
-    fld  [trans1]
+    fcos
-    fsin
+    jmp  show_result
-    jmp  show_result
-  no_sin:
+  no_cos:
     cmp  eax,25
-    cmp  eax,17
+    jne  no_acos
-    jne  no_int
+    fld  [trans1]
-    fld  [trans1]
-    frndint
-    jmp  show_result
-  no_int:
+    fld1
+    fsub st,st1
     fsqrt
+    fld1
+    fadd st,st2
+    fsqrt
+    fpatan
+    fadd st,st0
+    jmp  show_result
-    cmp  eax,22
+  no_acos:
-    jne  no_cos
+    cmp  eax,30
-    fld  [trans1]
+    jne  no_x2
-    fcos
+    fld  [trans1]
-    jmp  show_result
+    fmul st,st0
-  no_cos:
+    jmp  show_result
-    cmp  eax,23
+  no_x2:
-    jne  no_lg2
+    cmp  eax,31
-    fldlg2
+    jne  no_tan
-    jmp  show_result
+    fld  [trans1]
-  no_lg2:
+    fptan
     fstp st2
-    cmp  eax,28
+    jmp  show_result
-    jne  no_tan
     fld  [trans1]
-    fcos
+  no_tan:
-    fstp [tmp2]
+    cmp  eax,32
-    fld  [trans1]
+    jne  no_atan
-    fsin
+    fld  [trans1]
-    fdiv [tmp2]
+    fld1
-    jmp  show_result
+    fpatan
-  no_tan:
     jmp  show_result
     cmp  eax,29
-    jne  no_pi
+   no_atan:
-    fldpi
+    cmp  eax,38
-    jmp  show_result
+    jne  no_pi
-   no_pi:
+    fldpi
     jmp  show_result
-    cmp  eax,34
     jne  no_sqrt
-    fld  [trans1]
+   no_pi:
-    fsqrt
+    cmp  eax,37
-    jmp  show_result
+    jne  no_sqrt
-  no_sqrt:
+    fld  [trans1]
     fsqrt
-    cmp  eax,15
+    jmp  show_result
-    jne  no_add
     call calculate
-    call print_display
+  no_sqrt:
-    call new_entry
+    cmp  eax,15
-    mov  [calc],'+'
+    jne  no_add
-    jmp  still
+    call calculate
-  no_add:
+    call new_entry
     mov  [calc],'+'
-    cmp  eax,21
+    jmp  still
-    jne  no_sub
-    call calculate
+  no_add:
-    call print_display
+    cmp  eax,22
-    call new_entry
-    mov  [calc],'-'
+    jne  no_sub
-    jmp  still
+    call calculate
-  no_sub:
     call new_entry
-    cmp  eax,27
+    mov  [calc],'-'
-    jne  no_div
-    call calculate
+    jmp  still
-    call print_display
     call new_entry
-    mov  [calc],'/'
-    jmp  still
+  no_sub:
-  no_div:
     cmp  eax,29
-    cmp  eax,33
+    jne  no_div
-    jne  no_mul
     call calculate
-    call print_display
+    call new_entry
-    mov  [calc],'*'
+    mov  [calc],'/'
-    call new_entry
+    jmp  still
     jmp  still
-  no_mul:
+  no_div:
     cmp  eax,36
-    cmp    eax,35
+    jne  no_mul
-    jne    no_calc
+    call calculate
-    call   calculate
+    mov  [calc],'*'
-    jmp    still
+    call new_entry
-  no_calc:
+    jmp  still
-    jmp  still
+  no_mul:
     cmp    eax,39
-  show_result:
+    jne    no_calc
     call   calculate
-    call   ftoa
-    call   print_display
+    jmp    still
-    jmp    still
+  no_calc:
-error:
+    jmp  still
-    jmp  still
   show_result:
-calculate:
+    call   ftoa
     call   print_display
-    pusha
     jmp    still
     cmp  [calc],' '
-    je   no_calculation
 error:
-    cmp  [calc],'/'
+    jmp  still
     jne  no_cdiv
-    fdiv [trans1]
-  no_cdiv:
+calculate:
     pusha
-    cmp  [calc],'*'
+    cmp  [calc],' '
-    jne  no_cmul
+    je	 no_calculation
-    fmul [trans1]
+    cmp  [calc],'/'
-  no_cmul:
+    jne  no_cdiv
     fdiv [trans1]
-    cmp  [calc],'+'
     jne  no_cadd
-    fadd [trans1]
-  no_cadd:
+  no_cdiv:
     cmp  [calc],'*'
-    cmp  [calc],'-'
+    jne  no_cmul
-    jne  no_cdec
+    fmul [trans1]
     fsub [trans1]
-  no_cdec:
   no_cmul:
-    call   ftoa
+    cmp  [calc],'+'
-    call   print_display
+    jne  no_cadd
     fadd [trans1]
   no_calculation:
-    popa
+  no_cadd:
-    ret
+    cmp  [calc],'-'
     jne  no_cdec
-number_entry:
+    fsub [trans1]
-    pusha
+  no_cdec:
-    cmp  eax,[entry_multiplier]
+    call   ftoa
-    jge  no_entry
-    cmp  [id],1
+  no_calculation:
-    je   decimal_entry
     call   print_display
-    mov  ebx,[integer]
+    popa
-    test ebx,0xF0000000
-    jnz  no_entry
+    ret
     mov  ebx,eax
-    mov  eax,[integer]
+number_entry:
     mov  ecx,[entry_multiplier]
-    mul  ecx
+    pusha
     add  eax,ebx
-    mov  [integer],eax
-    call print_display
+    cmp  eax,[entry_multiplier]
-    call to_muuta
+    jge  no_entry
     cmp  [id],1
+    je	 decimal_entry
-    popa
+    mov  ebx,[integer]
+    test ebx,0xc0000000
-    ret
+    jnz  no_entry
     mov  ebx,eax
-  decimal_entry:
+    mov  eax,[integer]
     mov  ecx,[entry_multiplier]
-    imul eax,[new_dec]
+    mul  ecx
-    add  [decimal],eax
+    add  eax,ebx
     mov  [integer],eax
-    mov  eax,[new_dec]
+    call print_display
-    xor  edx,edx
-    mov  ebx,[entry_multiplier]
+    call to_muuta
-    div  ebx
+    popa
+    ret
     mov  [new_dec],eax
+  decimal_entry:
-    call print_display
+    imul eax,[new_dec]
     add  [decimal],eax
-    call to_muuta
+    mov  eax,[new_dec]
     xor  edx,edx
-    popa
+    mov  ebx,[entry_multiplier]
     div  ebx
-    ret
+    mov  [new_dec],eax
-  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      ; INTEGER
-    mov  eax,[integer]
-  new_to_muuta1:
-    mov  ebx,10
-    xor  edx,edx
-    div  ebx
-    mov  [edi],dl
-    add  [edi],byte 48
+    call print_display
-    dec  edi
+    call to_muuta
-    cmp  edi,muuta1+1
-    jge  new_to_muuta1
     popa
-    mov  edi,muuta1+17      ; DECIMAL
+    ret
-    mov  eax,[decimal]
   new_to_muuta2:
-    mov  ebx,10
+  no_entry:
     xor  edx,edx
-    div  ebx
+    call print_display
-    mov  [edi],dl
+    call to_muuta
-    add  [edi],byte 48
-    dec  edi
+    popa
-    cmp  edi,muuta1+12
+    ret
     jge  new_to_muuta2
  to_muuta:
     call print_muuta
-    popa
+    pusha
-    ret
+    mov  al,[dsign]
     mov  esi,muuta0
     mov  edi,muuta1
     mov  ecx,18
-print_muuta:
     cld
-    pusha
+    rep  movsb
     mov  [muuta1],al
-    mov  eax,13
+    mov  edi,muuta1+10	    ; æ¥«®¥
-    mov  ebx,25*65536+125
+    mov  eax,[integer]
     mov  ecx,200*65536+22
-    mov  edx,0xffffff
+  new_to_muuta1:
     int  0x40
     mov  ebx,10
-    mov  eax,4
-    mov  ebx,25*65536+200
-    mov  ecx,0x0
-    mov  edx,muuta1
-    mov  esi,18
+    xor  edx,edx
-    int  0x40
     div  ebx
-    mov  eax,4
+    mov  [edi],dl
-    mov  ebx,25*65536+210
-    mov  ecx,0x0
+    add  [edi],byte 48
-    mov  edx,muuta2
-    mov  esi,18
-    int  0x40
     dec  edi
-    popa
-    ret
+    cmp  edi,muuta1+1
     jge  new_to_muuta1
-new_entry:
+    mov  edi,muuta1+17	    ; ¤à®¡®¥
     mov  eax,[decimal]
     pusha
+  new_to_muuta2:
     mov  esi,muuta1
-    mov  edi,muuta2
-    mov  ecx,18
+    mov  ebx,10
-    cld
+    xor  edx,edx
-    rep  movsb
+    div  ebx
     mov  [edi],dl
-    mov  esi,muuta0
+    add  [edi],byte 48
-    mov  edi,muuta1
+    dec  edi
-    mov  ecx,18
+    cmp  edi,muuta1+12
-    cld
-    rep  movsb
+    jge  new_to_muuta2
     popa
-    mov  [integer],0
-    mov  [decimal],0
+    ret
     mov  [id],0
-    mov  [new_dec],100000
-    mov  [sign],byte '+'
+new_entry:
     popa
-    ret
+    pusha
     mov  esi,muuta1
-ten        dd    10.0,0
+    mov  edi,muuta2
-tmp        dw       1,0
+    mov  ecx,18
-sign       db       1,0
+    cld
-tmp2       dq     0x0,0
+    rep  movsb
-exp        dd     0x0,0
-new_dec    dd  100000,0
+    mov  esi,muuta0
-id         db     0x0,0
+    mov  edi,muuta1
-k8         dd 10000000
+    mov  ecx,18
-k8r        dq 0
+    cld
     rep  movsb
-res     dd   0
     mov  [integer],0
-trans1  dq   0
+    mov  [decimal],0
-trans2  dq   0
     mov  [id],0
-controlWord dw 1
     mov  [new_dec],100000
     mov  [sign],byte '+'
-ftoa:     ; fpu st0 -> [integer],[decimal]
-    pusha
-    fst    [tmp2]
+    popa
     ret
-    fstcw  [controlWord]      ; set truncate integer mode
     mov    ax,[controlWord]
-    mov    [tmp], ax
+ten	   dd	 10.0,0
-    or     [tmp], word 0x0C00
-    fldcw  [tmp]
+tmp	   dw	    1,0
 sign	   db	    1,0
-    ftst                      ; test if st0 is negative
-    fstsw  ax
+tmp2	   dq	  0x0,0
-    and    ax, 4500h
+exp	   dd	  0x0,0
-    mov    [sign], 0
-    cmp    ax, 0100h
-    jne    no_neg
+new_dec    dd  100000,0
-    mov    [sign],1
+id	   db	  0x0,0
-  no_neg:
+res	dd   0
 trans1	dq   0
-    fld    [tmp2]
+trans2	dq   0
-    fistp  [integer]
+controlWord dw 1
-    fld    [tmp2]
+ftoa:                         ; fpu st0 -> [integer],[decimal]
-    fisub  [integer]
+    pusha
     fst    [tmp2]
-    fldcw  [controlWord]
+    fstcw  [controlWord]      ; set truncate integer mode
+    mov    ax,[controlWord]
-    cmp  byte [sign], 0     ; change fraction to positive
+    mov    [tmp], ax
-    je   no_neg2
-    fchs
+    or	   [tmp], word 0x0c00
-  no_neg2:
+    fldcw  [tmp]
-    mov    [res],0          ; convert 6 decimal numbers
+    ftst                      ; test if st0 is negative
-    mov    edi,6
     fstsw  ax
-   newd:
+    and    ax, 0x4500
-    fimul  [kymppi]
+    mov    [sign], 0
-    fist   [decimal]
+    cmp    ax, 0x0100
     jne    no_neg
-    mov    ebx,[res]
+    mov    [sign],1
-    imul   ebx,10
     mov    [res],ebx
-    mov    eax,[decimal]
+  no_neg:
-    add    [res],eax
+    fistp  [integer]
     fld    [tmp2]
-    fisub  [decimal]
+    fisub  [integer]
+    fldcw  [controlWord]
-    fst    [tmp2]
+    cmp  byte [sign], 0     ; change fraction to positive
     je	 no_neg2
-    ftst
+    fchs
     fstsw  ax
-    test   ax,1
+  no_neg2:
-    jnz    real_done
+    mov    [res],0	    ; convert 6 decimal numbers
     mov    edi,6
-    fld    [tmp2]
-    dec    edi
+   newd:
-    jz     real_done
     fimul  [kymppi]
-    jmp    newd
+    fist   [decimal]
-  real_done:
+    mov    ebx,[res]
     imul   ebx,10
-    mov    eax,[res]
+    mov    [res],ebx
-    mov    [decimal],eax
+    mov    eax,[decimal]
     add    [res],eax
-    cmp    [integer],0x80000000      ; out of fpu limits
+    fisub  [decimal]
-    jne    no_error
+    ftst
-    mov    [integer],0
+    fstsw  ax
     mov    [decimal],0
-    call   clear_all
+    dec    edi
-    mov    [calc],'E'
+    jz	   real_done
-  no_error:
+    jmp    newd
     mov    [dsign],byte '+'
-    cmp    [sign],byte 0             ; convert negative result
-    je     no_negative
-    mov    eax,[integer]
+  real_done:
-    not    eax
+    mov    eax,[res]
-    inc    eax
+    mov    [decimal],eax
-    mov    [integer],eax
+    cmp    [integer],0x80000000
-    mov    [dsign],byte '-'
+    jne    no_error
-  no_negative:
     call   clear_all
-    call   to_muuta
+    mov    [calc],'E'
-    popa
-    ret
+  no_error:
     mov    [dsign],byte '+'
     cmp    [sign],byte 0	     ; convert negative result
     je	   no_negative
     ; Multiply current value by 10 and add in digit.
-    fmul dword [ten]
-    fiadd word [tmp]
+    fmul dword [ten]
     fiadd word [tmp]
     inc di
-    cmp si, di     ; Jump if end of string has been reached.
+    cmp si, di	   ; Jump if end of string has been reached.
-    clc            ; Clear error (carry) flag.
+    clc 	   ; Clear error (carry) flag.
     ret
 atof_convertFractionalPart:
 atof_convertFractionalPart:
-    fld1      ; Load 1 to TOS.  This will be the value of the decimal place.
     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.
+  .mainLoop:
-    je .exit
+    cmp si, di	   ; Jump if end of string has been reached.
     je .exit
-    inc di         ; Move past the decimal point.
+    inc di	       ; Move past the decimal point.
-    cmp si, di     ; Jump if end of string has been reached.
-    je .exit
+    cmp si, di	   ; Jump if end of string has been reached.
-    mov al, [bx + di]
+    je .exit
     mov al, [bx + di]
     cmp al, '0'    ; Make sure character is a digit.
-    jb .error
-    cmp al, '9'
+    jb .error
-    ja .error
     cmp al, '9'
-    fdiv dword [ten]     ; Next decimal place
+    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.
     ; and add to current total.
     fild  word [tmp]
-    fmul  st0, st1
-    faddp st2, st0
+    fild  word [tmp]
     fmul  st0, st1
-    jmp .mainLoop
+    faddp st2, st0
     jmp .mainLoop
-  .error:
-    stc            ; Set error (carry) flag.
+  .error:
-    fstp st0       ; Pop top of fpu stack.
+    stc 	       ; Set error (carry) flag.
-    ret
-  .exit:
     fstp st0	   ; Pop top of fpu stack.
-    clc            ; Clear error (carry) flag.
+    ret
     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 ********
-;   *********************************************
-draw_window:
-    mov  eax,12                    ; function 12:tell os about windowdraw
-    mov  ebx,1                     ; 1, start of draw
-    int  0x40
-                                   ; DRAW WINDOW
-    mov  eax,0                     ; function 0 : define and draw window
-    mov  ebx,100*65536+230         ; [x start] *65536 + [x size]
-    mov  ecx,100*65536+185         ; [y start] *65536 + [y size]
-    mov  edx,0x02ffffff            ; color of work area RRGGBB,8->color gl
-    mov  esi,0x805977bb            ; color of grab bar  RRGGBB,8->color gl
-    mov  edi,0x005977bb            ; color of frames    RRGGBB
-    int  0x40
-                                   ; CLOSE BUTTON
-    mov  eax,8                     ; function 8 : define and draw button
-    mov  ebx,(230-18)*65536+12     ; [x start] *65536 + [x size]
-    mov  ecx,4*65536+12            ; [y start] *65536 + [y size]
-    mov  edx,1                     ; button id
-    mov  esi,0x335599              ; button color RRGGBB
-    int  0x40
+;   *********************************************
 ;   *******     ********
-                                   ; WINDOW LABEL
+;   *********************************************
     mov  eax,4                     ; function 4 : write text to window
-    mov  ebx,8*65536+8             ; [x start] *65536 + [y start]
+draw_window:
     mov  ecx,0x00ddeeff            ; color of text RRGGBB
-    mov  edx,labelt                ; pointer to text beginning
+    mcall 12,1
-    mov  esi,labellen-labelt       ; text length
+    mcall 0,200*65536+255,200*65536+180,0x03ddeeff   ; äãªæ¨ï 0: ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª®
-    int  0x40
+    mcall 4,8*65536+8,0x10000000,labelt,label_len    ;
-    mov  ebx,24*65536+25+3
+    mov  ebx,24*65536+28
-    mov  ecx,70*65536+17
+    mov  ecx,70*65536+18
-    mov  edx,6
-    mov  esi,0x303090;cc2211
+    mov  edx,6
-    mov  edi,7
+    mov  esi,0x0066ee
-  newbutton:
+    mov  edi,7
-    dec  edi
+  newbutton:
-    jnz  no_new_row
+    dec  edi
-    mov  edi,6
-    mov  ebx,24*65536+25+3
-    add  ecx,20*65536
-  no_new_row:
-    mov  eax,8
-    int  0x40
+    jnz  no_new_row
-    add  ebx,30*65536
-    inc  edx
-    cmp  edx,11+24
-    jbe  newbutton
+    mov  edi,7
-    mov  eax,8                     ; CLEAR ALL
+    mov  ebx,24*65536+25+3
-    mov  ebx,25*65536+27
+    add  ecx,20*65536
-    mov  ecx,41*65536+15
+  no_new_row:
+    mcall 8
-    mov  edx,2
+    add  ebx,30*65536
-    int  0x40
+    inc  edx
-    mov  eax,8                     ; CHANGE DISPLAY TYPE
+    cmp  edx,39
-    mov  ebx,203*65536+7
+    jbe  newbutton
     mov  ecx,28*65536+7
-    mov  edx,3
+    mcall 8,225*65536+8,28*65536+8,3                    ; 'dec-bin-hex'
-    int  0x40
     mcall 8,204*65536+28,70*65536+18,2,0xcc0000         ; 'C'
-    mov  ebx,25*65536+35           ; draw info text with function 4
-    mov  ecx,0xffffff ; 224466
-    mov  edx,text
-    mov  esi,30
-  newline:
-    mov  eax,4
+    mov  ebx,25*65536+75                                ; à®à¨á®¢ª  ¯®¤¯¨á¥© ª®¯®ª
-    int  0x40
-    add  ebx,10
-    add  edx,30
+    mov  ecx,0xffffff
-    cmp  [edx],byte 'x'
-    jne  newline
+    mov  edx,text
-    call print_display
+    mov  esi,34
-    mov  eax,12                    ; function 12:tell os about windowdraw
-    mov  ebx,2                     ; 2, end of draw
+  newline:
-    int  0x40
-    ret
+    mcall 4
+    add  ebx,20
-print_display:
-    pusha
-    mov  eax,13
-    mov  ebx,59*65536+143
+    add  edx,34
-    mov  ecx,24*65536+44
+    cmp  [edx],byte 'x'
-    mov  edx,0xffffff
+    jne  newline
-    int  0x40
+    call print_display
     mcall 12,2
-    mov  eax,4
+    ret
-    mov  ebx,120*65536+28
-    mov  ecx,0
-    mov  edx,calc
-    mov  esi,1
-    int  0x40
-    mov  eax,4
-    mov  ebx,175*65536+28
+print_display:
-    mov  ecx,0
-    mov  edx,[display_type]
-    shl  edx,2
-    add  edx,display_type_text
-    mov  esi,3
-    int  0x40
+    pusha
-    cmp  [display_type],0   ; display as desimal
-    jne  no_display_decimal
+    mcall 13,100*65536+120,25*65536+13,0x00ddeeff
+    mcall 13,23*65536+210,40*65536+13,0xffffff
+    mcall 4,140*65536+28,0,calc,1
-    mov  eax,47
+    mov  eax,4
-    mov  ebx,11*65536   ; 11 decimal digits for 32 bits
+    mov  ebx,203*65536+29
+    mov  ecx,0
+    mov  edx,[display_type]
+    shl  edx,2
-    mov  ecx,[integer]
+    add  edx,display_type_text
-    mov  edx,84*65536+44
+    mov  esi,3
-    mov  esi,0x0
+    int  0x40
-    int  0x40
+    cmp  [dsign],byte '+'
+    je  positive
-    mov  eax,47
+    mcall 4,28*65536+43,0x0,dsign,1
-    mov  ebx,6*65536
-    mov  ecx,[decimal]
+positive:
-    mov  edx,156*65536+44
+    cmp  [display_type],0                            ; ¤¥áïâ¨ç ï á¨áâ¥¬  áç¨á«¥¨ï
+    jne  no_display_decimal
-    mov  esi,0x0
+    cmp  [decimal],0
-    int  0x40
+    je   whole
     mcall 47,10*65536,[integer],125*65536+43,0x0     ; ®â®¡à ¦ âì 10 æ¨äà
-    mov  eax,4
-    mov  ebx,150*65536+44
-    mov  ecx,0x0
-    mov  edx,dot
-    mov  esi,1
-    int  0x40
-    mov  eax,4
-    mov  ebx,77*65536+44
-    mov  ecx,0x0
+    mcall 4,185*65536+43,0x0,dot,1
-    mov  edx,dsign
-    mov  esi,1
-    int  0x40
+    mcall 47,6*65536,[decimal],192*65536+43,0x0      ; ®â®¡à ¦ âì 6 æ¨äà ¯®á«¥ § ¯ïâ®©
+    popa
-  no_display_decimal:
+    ret
-    cmp  [display_type],1
+whole:
-    jne  no_display_hexadecimal
+    cmp  [integer],0
-    mov  eax,4
-    mov  ebx,138*65536+44
-    mov  ecx,0x0
-    mov  edx,dsign
-    mov  esi,1
-    int  0x40
+    je  null
-    mov  eax,47
-    mov  ebx,1*256+8*65536   ; 8 hexadecimal digits for 32 bits
-    mov  ecx,[integer]
+    mcall 47,10*65536,[integer],165*65536+43,0x0
-    mov  edx,144*65536+44
-    mov  esi,0x0
-    int  0x40
+    mcall 4,225*65536+43,0x0,dot,1
+    popa
+    ret
-  no_display_hexadecimal:
+  no_display_decimal:
+    cmp  [integer],0
+    je  null
+    cmp  [display_type],1
     jne  no_display_hexadecimal
     mcall 47,1*256+8*65536,[integer],178*65536+43,0x0    ; ®â®¡à ¦ âì 8 è¥áâ ¤æ â¨à¨çëå æ¨äà
-    cmp  [display_type],2
-    jne  no_display_binary
+    popa
-    mov  eax,4
+    ret
-    mov  ebx,96*65536+44
     mov  ecx,0x0
-    mov  edx,dsign
+  no_display_hexadecimal:
-    mov  esi,1
+    cmp  [integer],0
-    int  0x40
+    je  null
     cmp  [display_type],2
     mov  esi,muuta0
     mov  edi,muuta2
     mov  ecx,18
     cld
     rep  movsb
-    call print_muuta
     call print_display
     popa
     ret
-; DATA AREA
+;¡« áâì ¤ ëå
-display_type       dd   0   ; 0 = decimal, 1 = hexadecimal, 2= binary
+display_type       dd  0    ; 0 = decimal, 1 = hexadecimal, 2= binary
 entry_multiplier   dd  10
 display_start_y    dd  0x0
-display_type_text  db 'dec hex bin'
 display_start_y    dd  0x0
-dot     db  '.'
+display_type_text  db  'dec hex bin'
 calc    db  ' '
 dot	db  '.'
-integer dd    0
+calc	db  ' '
-decimal dd    0
+integer dd    0
 decimal dd    0
-kymppi  dd   10
 kymppi  dd   10
-dsign:
-muuta1  db   '+0000000000.000000'
-muuta2  db   '+0000000000.000000'
-muuta0  db   '+0000000000.000000'
-text:
+dsign:
-    db '                              '
-    db '  C                           '
+muuta1	db   '+0000000000.000000'
-    db '                              '
-    db '                              '
+muuta2	db   '+0000000000.000000'
-    db '  A    B    C    D    E    F  '
-    db '                              '
+muuta0	db   '+0000000000.000000'
-    db '  1    2    3    +   SIN  INT '
-    db '                              '
-    db '  4    5    6    -   COS  LG2 '
-    db '                              '
-    db '  7    8    9    /   TAN   P  '
-    db '                              '
+text:
+    db '  A    B    C    D    E    F    C '
-    db ' -/+   0    .    *   SQR   =  '
+    db '  1    2    3    +   Int  Sin Asin'
-    db '                              '
+    db '  4    5    6    -   1/x  Cos Acos'
-    db 'x <- END MARKER, DONT DELETE  '
+    db '  7    8    9    /   x^2  Tan Atan'
-asci:  db 49,50,51,52,53,54,55,56,57,48,43,61,45,42,47,44,46,52,13,97,98,99,100
-       db 101,102,65,66,67,68,69,70,112,80,27,182
+    db ' +/-   0    .    *   Sqr  Pi    = '
-butid: db 12,13,14,18,19,20,24,25,26,31,15,35,21,33,27,32,32,33,35,6,7,8,9,10,11
-       db 6,7,8,9,10,11,29,29,2,2
-labelt:
-      db   'FPU CALCULATOR'

Subversion Repositories Kolibri OS

(root)/programs/calc/trunk/calc.asm – Rev 31 → 107