Subversion Repositories Kolibri OS

Rev

Rev 5547 | Rev 6214 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5547 Rev 5673
Line 641... Line 641...
641
        mcall   48, 4
641
        mcall   48, 4
Line 642... Line 642...
642
 
642
 
643
        mov     ecx, eax
643
        mov     ecx, eax
644
        xor     eax, eax                     
644
        xor     eax, eax                     
645
        mov     ebx, 200 shl 16 + 256
645
        mov     ebx, 200 shl 16 + 256
646
        add     ecx, 200 shl 16 + 158
646
        add     ecx, 200 shl 16 + 163
647
        mov     edx, [sc.work]
647
        mov     edx, [sc.work]
648
        or      edx, 0x34000000
648
        or      edx, 0x34000000
649
        mov     edi, title
649
        mov     edi, title
Line 650... Line 650...
650
        mcall
650
        mcall
651
 
651
 
652
        mov     eax, 8
652
        mov     eax, 8
653
        mov     ebx, 19 shl 16 + 28
653
        mov     ebx, 19 shl 16 + 28
654
        mov     ecx, 49 shl 16 + 18
654
        mov     ecx, 55 shl 16 + 18
655
        mov     edx, 6
655
        mov     edx, 6
656
        mov     esi, [sc.work_button]
656
        mov     esi, [sc.work_button]
657
        mov     edi, 7
657
        mov     edi, 7
Line 666... Line 666...
666
        add     ebx, 30 shl 16
666
        add     ebx, 30 shl 16
667
        inc     edx
667
        inc     edx
668
        cmp     edx, 39
668
        cmp     edx, 39
669
        jbe     newbutton
669
        jbe     newbutton
Line 670... Line 670...
670
 
670
 
671
        mcall   , <199, 28>, <49, 18>, 2        ; 'C'
671
        mcall   , <199, 28>, <55, 18>, 2        ; 'C'
Line 672... Line 672...
672
        mcall   , <220,  8>, < 7,  8>, 3        ; 'dec-bin-hex'
672
        mcall   , <220,  8>, < 7,  8>, 3        ; 'dec-bin-hex'
673
 
673
 
674
 
674
 
675
        mov     ecx, [sc.work_button_text]
675
        mov     ecx, [sc.work_button_text]
676
        mov     edx, text
676
        mov     edx, text
677
        mov     edi, 55 - 20
677
        mov     edi, 55 - 15
678
next_line:
678
next_line:
679
        inc     edx
679
        inc     edx
Line 702... Line 702...
702
        mcall   12, 2
702
        mcall   12, 2
703
        ret
703
        ret
Line 704... Line 704...
704
 
704
 
705
print_display:
705
print_display:
706
        pusha
706
        pusha
707
        mcall   13, < 20, 207>, <21, 17>, 0xFFFfff
707
        mcall   13, < 21, 206>, <22, 24>, 0xFFFfff
-
 
708
        mcall   38, < 19, 227>, <20, 20>, [sc.work_graph]
708
        mcall   38, < 19, 227>, <20, 20>, [sc.work_graph]
709
        mcall   38, < 20, 226>, <21, 21>, 0xE0E0E0 ; internal shadow
709
        mcall   38, < 19, 227>, <38, 38>, [sc.work_graph]
710
        mcall   38, < 19, 227>, <45, 45>, [sc.work_graph]
-
 
711
        mcall   38, < 19,  19>, <21, 44>, [sc.work_graph]
710
        mcall   38, < 19,  19>, <21, 37>, [sc.work_graph]
712
		mcall   38, < 20,  20>, <23, 43>, 0xE0E0E0 ; internal shadow
Line 711... Line 713...
711
        mcall   38, <227, 227>, <21, 37>, [sc.work_graph]
713
        mcall   38, <227, 227>, <21, 44>, [sc.work_graph]
712
 
714
		
713
        mov     eax, 4
715
        mov     eax, 4
714
        mov     ebx, 135 shl 16 + 7
716
        mov     ebx, 135 shl 16 + 7
Line 735... Line 737...
735
        cmp     [display_type], 0
737
        cmp     [display_type], 0
736
        jne     no_display_decimal
738
        jne     no_display_decimal
737
        cmp     [decimal], 0
739
        cmp     [decimal], 0
738
        je      whole
740
        je      whole
Line 739... Line 741...
739
 
741
 
740
        mcall   , <180, 26>, 0, dot, 1
742
        mcall   , <144, 26>, [number_color], dot, 1
741
        mcall   47, <10, 0>, [integer], <120, 22>, 0
743
        mcall   47, <10, 0>, [integer], <26, 26>, [number_color]
Line 742... Line 744...
742
        mcall   , <6, 0>, [decimal], <187, 22>, 0
744
        mcall   , <6, 0>, [decimal], <151, 26>, [number_color]
743
 
745
 
Line 744... Line 746...
744
        popa
746
        popa
745
        ret
747
        ret
Line 746... Line 748...
746
 
748
 
747
whole:
749
whole:
748
        mcall   , <220, 26>, 0, dot, 1
750
        mcall   , <214, 26>, [number_color], dot, 1
749
 
751
 
750
        cmp     [integer], 0
752
        cmp     [integer], 0
Line 751... Line 753...
751
        je      null
753
        je      null
752
        mcall   47, <10, 0>, [integer], <160, 26>, 0
754
        mcall   47, <10, 0>, [integer], <94, 26>, [number_color]
753
        popa
755
        popa
754
        ret
756
        ret
755
 
757
 
756
no_display_decimal:
758
no_display_decimal:
757
        cmp     [display_type], 1
759
        cmp     [display_type], 1
758
        jne     no_display_hexadecimal
760
        jne     no_display_hexadecimal
Line 759... Line 761...
759
        cmp     [integer], 0
761
        cmp     [integer], 0
760
        je      null
762
        je      null
761
        mcall   47, <8, 256>, [integer], <173, 26>, 0
763
        mcall   47, <8, 256>, [integer], <130, 26>, [number_color]
762
        popa
764
        popa
763
        ret
765
        ret
764
 
766
 
Line 765... Line 767...
765
no_display_hexadecimal:
767
no_display_hexadecimal:
766
        cmp     [integer], 0
768
        cmp     [integer], 0
767
        je      null
769
        je      null
768
        mcall   47, <32, 2*256>, [integer], <32, 26>, 0
770
        mcall   47, <32, 2*256>, [integer], <32, 30>, 0
Line 769... Line 771...
769
        popa
771
        popa
770
        ret
772
        ret
Line 796... Line 798...
796
        ret
798
        ret
Line 797... Line 799...
797
 
799
 
Line 798... Line 800...
798
 
800
 
Line 799... Line 801...
799
;data
801
;data
800
 
802
 
801
title   db 'Calc 1.33', 0
803
title   db 'Calc 1.35', 0
-
 
804
 
Line 802... Line 805...
802
 
805
display_type            dd  0    ; 0 = decimal, 1 = hexadecimal, 2= binary
803
display_type            dd  0    ; 0 = decimal, 1 = hexadecimal, 2= binary
806
entry_multiplier        dd  10
804
entry_multiplier        dd  10
807
display_type_text       db  'dec hex bin'
805
display_type_text       db  'dec hex bin'
808
number_color            dd 0x81333333
806
 
809
 
807
dot             db  '.'
810
dot             db  '.',0
808
calc            db  ' '
811
calc            db  ' ',0