WebSVN – Kolibri OS – Diff – /programs/develop/mtdbg/gui.inc

 ; in: ebp->index, ebx = coord
 draw_fpu_register_2:
+.str_buf  equ esp
-.str_buf  equ esp
+.cvt_buf  equ .str_buf+32
-.bcd_man  equ .str_buf+32
+.bcd_man  equ .cvt_buf+16
-.bcd_exp  equ .bcd_man+12
+.bcd_exp  equ .bcd_man+10
+.exp      equ .bcd_exp+10
-.exp      equ .bcd_exp+12
+.tmp      equ .exp+4
-.tmp      equ .exp+4
 .lcl_end  equ .tmp+4
+        sub     esp, 32+16+10+10+4+4
+        mov     edi, .str_buf
+        shl     ebp, 16
-        sub     esp, 32+12+12+4+4
+        lea     eax, ['ST0:'+ebp]
         stosd
         mov     eax, 0x20202020
-        mov     edi, .str_buf
+        stosd
         stosd
         stosd
-        stosd
-        stosd
-        ;int3
+        stosd
-        ;nop
+        stosd
+        ;int3
-        mov     edx, ebp
+        ;nop
-        shl     edx, 4
         movzx   eax, word [_fsw]
         shr     eax, 11
         add     eax, ebp
-        and     eax, 7
+        shr     ebp, 12
+        and     eax, 7
         bt      dword [_ftw], eax
         jc     .A6M
-        mov     dword [.str_buf],' emp'
+        mov     dword [.str_buf+8],' emp'
-        mov     word [.str_buf+4],'ty'
+        mov     word [.str_buf+8+4],'ty'
         jmp     .display
-        mov     cx, [_st0+edx+8]
+        mov     cx, [_st0+ebp+8]
         and     cx, 0x7FFF              ;clear sign flag
         jz      .A6M
         cmp     cx, 0x7FFF
         jne     .decode
-        mov     dword [.str_buf], ' inv'
+        mov     dword [.str_buf+6], ' inv'
-        mov     dword [.str_buf+4], 'alid'
+        mov     dword [.str_buf+6+4], 'alid'
         jmp     .display
 .A6M:
         fstp st0
         inc     dword [.exp]
         fild    dword [.exp]
         fld     st0
-        fbstp tword [.bcd_exp]
+        fbstp   tword [.bcd_exp]
         fldl2t
         fmulp
         fld st0
         frndint
         fxch
-        fsub st,st1
+        fsub    st,st1
         f2xm1
         fld1
         faddp
         fscale
-        fstp st1
+        fstp    st1
         fdivp
 .done:
-        fimul dword [n_digits]
+        fimul   dword [n_digits]
-        fbstp   tword [.bcd_man]
+        fbstp   tword [.bcd_man]
-        lea     esi, [.bcd_man-1]
-        mov     edi, .str_buf
-        mov     ecx, 9
-        mov     eax, 0x10000
-        mov     al, [esi+ecx+1]
-        cmp     al, 0x80            ; check for sign
-        jne     .mantis_2_str
-        mov     al, '-'
-        stosb
-.mantis_2_str:
-        mov     al, [esi+ecx]
-        test    al, al
         jnz     @f
-        bt      eax, 16
-        jc      .skip_lb
-@@:
-        mov     ah, al
-        shr     al, 4
-        jnz     .write_h
-        bt      eax, 16
-        jc      .skip_hb
+        lea     edi, [.cvt_buf]
-.write_h:
-        add     al, 0x30
-        stosb
-        btr     eax, 16
-        jnc     .skip_hb
-        mov     al, '.'
-        stosb
+        mov     edx, dword [.bcd_man]
-.skip_hb:
-        mov     al, ah
-        and     al, 0x0F
-        jnz     .write_lb
-        bt      eax, 16
-        jc      .skip_lb
-.write_lb:
-        add     al,0x30
-        stosb
+        mov     ecx, 8
+@@:
+        xor     eax, eax
+        shld    eax, edx, 4
+        stosb
+        shl     edx, 4
+        loop    @B
-        btr     eax, 16
+        lea     esi, [.cvt_buf+7]
+        lea     edi, [.str_buf+13]
+        mov     ecx, 7
+        mov     ah, 0x30
-        jnc     .skip_lb
+        std
-        mov     al, '.'
+.skip_z:
-        stosb
+        lodsb
+        test    al, al
+        jnz     .body
+        loop    .skip_z
-.skip_lb:
+.body:
-        loop    .mantis_2_str
+        add     al, ah
+        stosb
+        lodsb
+        jcxz    .point
-        mov     eax, [.exp]
+        loop    .body
-        test    eax, eax
-        jz      .display
-        mov     ax, ' e'
+.point:
-        stosw
+        dec     edi
-        lea     esi, [.bcd_exp-1]
+        add     al, ah
-        mov     ecx, 9
-        mov     eax,0x10000
-        mov     al, [esi+ecx+1]
-        cmp     al, 0x80
-        jne     .exp_2_str
-        mov     al, '-'
-        stosb
-.exp_2_str:
-        mov     al, [esi+ecx]
-        test    al, al
+        mov     ah, '.'
-        jnz     @f
-        bt      eax, 16
-        jc      .skip_lb2
-@@:
-        mov     ah, al
-        shr     al, 4
-        jnz     .write_h2
-        bt      eax, 16
-        jc      .skip_hb2
-.write_h2:
+        stosw
-        add     al, 0x30
-        stosb
+        bt      word [_st0+ebp+8], 15
-        btr     eax, 16
+        jnc     .m_sign
+        mov     al, '-'
+        mov     [edi+1], al
+.m_sign:
-.skip_hb2:
+        cld
+        mov     dx, word [.bcd_exp]
-        mov     al, ah
+        test    dx, dx
-        and     al, 0x0F
+        jz      .display
-        jnz     .write_lb2
+        lea     edi, [.str_buf+15]
+        mov     ax, 'E '
+        cmp     byte [.bcd_exp+9], 0x80
+        jne     .w_e_sign
+        mov     ax, 'E-'
+.w_e_sign:
+        stosw
+        mov     ecx, 4
+.skip_lz:
+        xor     eax, eax
+        shld    ax,dx,4
-        bt      eax, 16
+        shl     dx, 4
-        jc      .skip_lb2
+        test al, al
         jnz     .w_exp
         cmp     [bSuspended], 0
         jz      .do_label
         mov     ecx, (COLOR_TXT_NORMAL or 0x40000000)
-        mov     eax, dword [_st0+edx]
+        mov     eax, dword [_st0+ebp]
-        cmp     eax, dword [_st0+(oldcontext-context)+edx]
+        cmp     eax, dword [_st0+(oldcontext-context)+ebp]
         jne     .scol
-        mov     eax, dword [_st0+edx+4]
+        mov     eax, dword [_st0+ebp+4]
-        cmp     eax, dword [_st0+(oldcontext-context)+edx+4]
+        cmp     eax, dword [_st0+(oldcontext-context)+ebp+4]
         jne     .scol
-        mov     ax, word [_st0+edx+8]
+        mov     ax, word [_st0+ebp+8]
-        cmp     ax, word [_st0+(oldcontext-context)+edx+8]
+        cmp     ax, word [_st0+(oldcontext-context)+ebp+8]
         je      .do_label
-.scol:
-        mov     ecx, (COLOR_TXT_CHANGED or 0x40000000)
-.do_label:
-        ; draw a text string in the window
+.scol:
-        mov     eax, 4
+        mov     ecx, (COLOR_TXT_CHANGED or 0x40000000)
-        mov     esi, eax
-        lea     edx, [fpu_strs+ebp*4]
+.do_label:
-        mov     edi, COLOR_BG_NORMAL
+        ; draw a text string in the window
-        int     0x40
         mov     eax, 4
-        mov     esi, 16
+        mov     esi, 21

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/gui.inc – Rev 4911 → 4912