Subversion Repositories Kolibri OS

Rev

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

Rev 4901 Rev 4902
Line 108... Line 108...
108 
; TODO: split all gui part in independent function, move entry point into mtdbg.asm
 108 
; TODO: split all gui part in independent function, move entry point into mtdbg.asm
Line 109... Line 109...
109 
 
 109 
 
110 
start:
 110 
start:
111 
        ; initialize process heap
 111 
        ; initialize process heap
- 
 
 112 
        mcall   68, 11
- 
 
 113 
 
- 
 
 114 
        push    eax
- 
 
 115 
        fstcw   word [esp]
- 
 
 116 
        or      word [esp], 3 shl 10    ; set round-to-zero mode
- 
 
 117 
        fldcw   word [esp]
- 
 
 118 
        pop     eax
112 
        mcall   68, 11
 119 
 
113 
        mov     edi, messages
 120 
        mov     edi, messages
114 
        mov     ecx, messages_width*messages_height
 121 
        mov     ecx, messages_width*messages_height
115 
        mov     al, ' '
 122 
        mov     al, ' '
116 
        rep stosb
 123 
        rep stosb
Line 757... Line 764...
757 
draw_fpu_register_2:
 764 
draw_fpu_register_2:
Line 758... Line 765...
758 
 
 765 
 
759 
.str_buf  equ esp
 766 
.str_buf  equ esp
760 
.bcd_man  equ esp+32
 767 
.bcd_man  equ esp+32
- 
 
 768 
.bcd_exp  equ esp+32+12
Line 761... Line 769...
761 
.bcd_exp  equ esp+32+12
 769 
.exp_v    equ esp+32+12+12
762 
 
 - 
 
Line 763... Line 770...
763 
        sub     esp, 32+12+12
 770 
 
764 
 
 771 
        sub     esp, 32+12+12+4
765 
 
 772 
 
766 
        mov     eax, 0x20202020
 773 
        mov     eax, 0x20202020
Line 814... Line 821...
814 
        jnc @f
 821 
        jnc @f
815 
        fabs
 822 
        fabs
816 
@@:
 823 
@@:
817 
        fyl2x
 824 
        fyl2x
818 
        frndint
 825 
        frndint
- 
 
 826 
        fist    dword [.exp_v]
819 
        fld     st0
 827 
        fld     st0
820 
        fbstp   tword [.bcd_exp]
 828 
        fbstp   tword [.bcd_exp]
821 
        fldl2t
 829 
        fldl2t
822 
        fmulp
 830 
        fmulp
823 
        fld     st0
 831 
        fld     st0
Line 887... Line 895...
887 
        stosb
 895 
        stosb
Line 888... Line 896...
888 
 
 896 
 
889 
.skip_lb:
 897 
.skip_lb:
Line -... Line 898...
- 
 
 898 
        loop    .mantis_2_str
- 
 
 899 
 
- 
 
 900 
        mov     eax, [.exp_v]
- 
 
 901 
        test    eax, eax
890 
        loop    .mantis_2_str
 902 
        jz      .display
891 
 
 903 
 
Line 892... Line 904...
892 
        mov     ax, ' e'
 904 
        mov     ax, ' e'
893 
        stosw
 905 
        stosw
Line 978... Line 990...
978 
        mov     edx, .str_buf
 990 
        mov     edx, .str_buf
979 
        add     ebx, 0x180000
 991 
        add     ebx, 0x180000
980 
        int     0x40
 992 
        int     0x40
Line 981... Line 993...
981 
 
 993 
 
982 
        sub     ebx, 0x180000
 994 
        sub     ebx, 0x180000
Line 983... Line 995...
983 
        add     esp, 32+12+12
 995 
        add     esp, 32+12+12+4
Line 984... Line 996...
984 
 
 996