WebSVN – Kolibri OS – Diff – /programs/develop/mtdbg/mtdbg.asm


;COLOR_THEME fix BLACK_ON_WHITE
COLOR_THEME fix MOVIEOS
 
format binary as ""
include '../../macros.inc'
use32
        db      'MENUET01'
        dd      1
        dd      start
        dd      i_end
        dd      used_mem
        dd      used_mem
        dd      i_param
        dd      0
 
;-----------------------------------------------------------------------------
 
REG_MODE_CPU equ 1
REG_MODE_MMX equ 2
REG_MODE_SSE equ 3
REG_MODE_AVX equ 4
 
;-----------------------------------------------------------------------------
 
include 'gui.inc' ; GUI routines
 
;-----------------------------------------------------------------------------
;                          Find command in list
 
find_cmd:
; all commands are case-insensitive
        push    edi
 
    .x4:
        mov     al, [edi]
        cmp     al, 0
        jz      .x5
        cmp     al, 'A'
        jb      @f
        cmp     al, 'Z'
        ja      @f
        or      al, 20h
 
    @@:
        stosb
        jmp     .x4
 
    ; find command
    .x5:
        pop     edi
 
    .x6:
        cmp     dword [esi], 0
        jz      .x7
        push    esi
        mov     esi, [esi]
        lodsb
        movzx   ecx, al
        push    edi
        repz cmpsb
        pop     edi
        pop     esi
        jz      .x8
        add     esi, 17
        jmp     .x6
 
    .x7:
        stc
 
    .x8:
        ret
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
;-----------------------------------------------------------------------------
;                                 Help event
 
OnHelp:
        mov     esi, help_msg
        mov     edi, [curarg]
        cmp     byte [edi], 0
        jz      .x
        mov     esi, help_groups
        call    find_cmd
        jc      .nocmd
        mov     esi, [esi+12]
 
    .x:
        jmp     put_message
 
    .nocmd:
        mov     esi, aUnknownCommand
        jmp     .x
 
;-----------------------------------------------------------------------------
;                                Quit event
OnQuit:
        mcall  -1
 
;-----------------------------------------------------------------------------
;                        Working with debug context
 
get_new_context:
        mov     esi, context
        mov     edi, oldcontext
        mov     ecx, (ctx_end-context)/4
        rep movsd
 
get_context:
        mcall   69, 1, [debuggee_pid], ctx_end-context, context
        ret
 
set_context:
 
 
 
 
 
 
 
 
        mcall    69, 2, [debuggee_pid], 28h, context
        ret
 
get_dump:
        mov     edi, dumpdata
        mov     esi, [edi-4]
        mov     edx, dump_height*10h
        mov     ecx, edx
        xor     eax, eax
        push    edi
        rep stosb
        pop     edi
 
 
 
 
        mcall    69, 6, [debuggee_pid]
        cmp     eax, -1
        jnz     @f
        mov     esi, read_mem_err
        call    put_message
        xor     eax, eax
 
    @@:
        mov     [edi-8], eax
;       call    restore_from_breaks
;       ret
 
; in: edi=buffer,eax=size,esi=address
restore_from_breaks:
        mov     ebx, breakpoints
 
    @@:
        test    byte [ebx+4], 1
        jz      .cont           ; ignore invalid
        test    byte [ebx+4], 2 or 8
        jnz     .cont           ; ignore disabled and memory breaks
        mov     ecx, [ebx]
        sub     ecx, esi
        cmp     ecx, eax
        jae     .cont
        mov     dl, [ebx+5]
        mov     [edi+ecx], dl
 
    .cont:
        add     ebx, 6
        cmp     ebx, breakpoints+breakpoints_n*6
        jb      @b
        ret
 
;-----------------------------------------------------------------------------
;                           Load executable event
 
OnLoad:
        mov     esi, [curarg]
 
OnLoadInit:
        mov     edi, loadname
        or      [prgname_len], -1
        mov     [prgname_ptr], edi
 
    .copyname:
        lodsb
        stosb
        inc     [prgname_len]
        cmp     al, '/'
        jnz     @f
        or      [prgname_len], -1
        mov     [prgname_ptr], edi
 
    @@:
        cmp     al, ' '
        ja      .copyname
        mov     byte [edi-1], 0
        and     [load_params], 0
        dec     esi
        call    get_arg.skip_spaces
        cmp     al, 0
        jz      @f
        mov     [load_params], esi
 
    @@:
        and     [dumppos], 0
        mov     ecx, [symbols]
        jecxz   do_reload
        mcall   68, 13
        and     [symbols], 0
        and     [num_symbols], 0
 
; TODO: make it local
do_reload:
        ;push    18
        ;pop     eax
        ;push    7
        ;pop     ebx
        mcall    18, 7
        mov     [dbgwnd], eax
        xchg    ecx, eax
        ;push    70
        ;pop     eax
        ;mov     ebx, fn70_load_block
        mcall    70, fn70_load_block
        test    eax, eax
        jns     .load_ok
 
    .load_err:
        push    eax
        mov     esi, load_err_msg
        call    put_message
        pop     eax
        not     eax
        cmp     eax, 0x20
        jae     .unk_err
        mov     esi, [load_err_msgs+eax*4]
        test    esi, esi
        jnz     put_message
 
    .unk_err:
        mov     esi, unk_err_msg
        inc     eax
        push    eax
        call    put_message_nodraw
        jmp     draw_messages
 
    .load_ok:
        mov     [debuggee_pid], eax
        mov     [bSuspended], 1
        mov     eax, 5
        mov     ebx, 20
        int     0x40
 
        push    ecx
        call    get_context
        mov     edi, oldcontext
        mov     ecx, (ctx_end-context)/4
        rep movsd
 
    ; activate debugger window
        pop     ecx
        ;mov     bl, 3
        ;push    18
        ;pop     eax
        mcall    18, 3
        call    redraw_title
        call    draw_registers.redraw
    ; read and draw dump of memory
        call    get_dump
        call    draw_dump.redraw
        call    update_disasm_eip_force
        mov     esi, load_succ_msg
        push    [debuggee_pid]
        call    put_message_nodraw
        call    draw_messages
    ; try to load symbols
        mov     esi, loadname
        mov     edi, symbolsfile
        push    edi
 
    @@:
        lodsb
        stosb
        test    al, al
        jnz     @b
        lea     ecx, [edi-1]
 
    @@:
        dec     edi
        cmp     edi, symbolsfile
        jb      @f
        cmp     byte [edi], '/'
        jz      @f
        cmp     byte [edi], '.'
        jnz     @b
        mov     ecx, edi
 
    @@:
        mov     dword[ecx], '.dbg'
        mov     byte[ecx+4], 0
        pop     esi
        mov     ebp, esi
        push    ecx esi
        call    OnLoadSymbols.silent            ; Try to load .dbg file
        pop     esi ecx
        xor     eax, eax
        cmp     [num_symbols], eax
        jne     @f
        mov     dword[ecx], '.map'              ; If failed, try .map file too
        call    OnLoadSymbols.silent
    @@:
 
    ; now test for packed progs
        cmp     [disasm_buf_size], 100h
        jz      @f
        ret
 
    @@:
        mov     esi, mxp_nrv_sig
        mov     ebp, disasm_buffer
        mov     edi, ebp
        push    3
        pop     ecx
        repz cmpsb
        jnz     .not_mxp_nrv
        cmpsb
        mov     cl, mxp_nrv_sig_size-4
        repz cmpsb
        mov     esi, mxp_nrv_name
        jz      .packed
 
    .not_mxp_nrv:
        mov     esi, mxp_sig
        mov     edi, ebp
        mov     cl, mxp_sig_size
        repz cmpsb
        mov     esi, mxp_name
        jz      .packed
 
    .not_mxp:
        mov     esi, mxp_lzo_sig1
        mov     edi, ebp
        mov     cl, mxp_lzo_sig1_size
        repz cmpsb
        mov     esi, mxp_lzo_name
        jz      .packed
        mov     esi, mxp_lzo_sig2
        mov     edi, ebp
        mov     cl, 8
        repz cmpsb
        jnz     .not_mxp_lzo
        cmpsb
        mov     cl, mxp_lzo_sig2_size - 9
        repz cmpsb
        mov     esi, mxp_lzo_name
        jz      .packed
 
    .not_mxp_lzo:
        mov     esi, mtappack_name
        cmp     dword [ebp], 0xBF5E246A
        jnz     .not_mtappack
        cmp     dword [ebp+8], 0xEC4E8B57
        jnz     .not_mtappack1
        cmp     dword [ebp+12], 0x8D5EA4F3
        jnz     .not_mtappack1
        cmp     byte [ebp+12h], 0xE9
        jz      .packed
 
    .not_mtappack1:
        cmp     word [ebp+8], 0xB957
        jnz     .not_mtappack
        cmp     dword [ebp+14], 0x575EA4F3
        jnz     .not_mtappack2
        cmp     byte [ebp+17h], 0xE9
        jz      .packed
 
    .not_mtappack2:
        cmp     dword [ebp+14], 0x5F8DA4F3
        jnz     .not_mtappack3
        cmp     word [ebp+18], 0xE9FC
        jz      .packed
 
    .not_mtappack3:
        cmp     word [ebp+14], 0xA4F3
        jnz     .not_mtappack
        cmp     byte [ebp+15h], 0xE9
        jz      .packed
 
    .not_mtappack:
        ret
 
    .packed:
        push    esi
        mov     esi, aPacked1
        call    put_message_nodraw
        pop     esi
        call    put_message_nodraw
        mov     esi, aPacked2
        call    put_message
        call    hide_cursor
        ;push    40
        ;pop     eax
        ;push    7
        ;pop     ebx
        mcall    40, 7
 
    .wait:
        ;push    10
        ;pop     eax
        mcall    10
        dec     eax
        jz      .redraw
        dec     eax
        jz      .key
        or      eax, -1
        mcall
 
    .redraw:
        call    draw_window
        call    hide_cursor
        jmp     .wait
 
    .key:
        mov     al, 2
        mcall
        cmp     ah, 'y'
        jz      .yes
        cmp     ah, 'Y'
        jz      .yes
        cmp     ah, 0xD
        jz      .yes
        cmp     ah, 'n'
        jz      .no
        cmp     ah, 'N'
        jnz     .wait
 
    .no:
        ;push    40
        ;pop     eax
        ;mov     ebx, 0x107
        mcall    40, 0x107
        call    draw_cursor
        mov     esi, aN_str
        jmp     put_message
 
    .yes:
        ;push    40
        ;pop     eax
        ;mov     ebx, 0x107
        mcall    40, 0x107
        call    draw_cursor
        mov     esi, aY_str
        call    put_message
        call    OnUnpack
        ret
 
;-----------------------------------------------------------------------------
;                       Searching signatures
 
mxp_nrv_sig:
        xor     eax, eax
        mov     ecx, 0x95       ; 0xA1 for programs with parameters
        mov     [eax], ecx
        add     ecx, [eax+24h]
        push    40h
        pop     esi
        mov     edi, [eax+20h]
        push    edi
        rep movsb
        jmp     dword [esp]
        pop     esi
        add     esi, [eax]
        xor     edi, edi
 
mxp_nrv_sig_size = $ - mxp_nrv_sig
 
mxp_sig:
        mov     ecx, 1CBh
        push    46h
        pop     esi
        mov     edi, [20h]
        rep movsb
        mov     ecx, [24h]
        rep movsb
        jmp     dword [20h]
        mov     eax, [20h]
        add     eax, 1CBh
        push    eax
        push    dword [24h]
        push    0
        push    8
        call    $+0x25
 
mxp_sig_size = $ - mxp_sig
 
mxp_lzo_sig1:
        xor     eax, eax
        mov     ebp, 0FFh
        mov     ecx, 175h
        mov     [eax], ecx
        add     ecx, [eax+24h]
        push    45h
        pop     esi
        mov     edi, [eax+20h]
        push    edi
        rep movsb
        jmp     dword [esp]
        pop     ebx
        add     ebx, [eax]
        xor     edi, edi
        cmp     byte [ebx], 11h
        jbe     $+0x1A
 
mxp_lzo_sig1_size = $ - mxp_lzo_sig1
 
mxp_lzo_sig2:
        xor     eax, eax
        mov     ebp, 0FFh
        mov     ecx, 188h       ; or 177h
        mov     [eax], ecx
        add     ecx, [eax+24h]
        push    44h
        pop     esi
        mov     edi, [eax+20h]
        rep movsb
        jmp     dword [eax+20h]
        mov     ebx, [eax+20h]
        add     ebx, [eax]
 
mxp_lzo_sig2_size = $ - mxp_lzo_sig2
 
;-----------------------------------------------------------------------------
;                         Reload executable event
 
OnReload:
        cmp     [debuggee_pid], 0
        jnz     terminate_reload
        mov     esi, need_debuggee
        cmp     byte [loadname], 0
        jnz     do_reload
        jz      put_message
 
; TODO: make it local
terminate_reload:
        mov     [bReload], 1
 
;-----------------------------------------------------------------------------
;                        Terminate process event
 
OnTerminate:
        ;mov     ecx, [debuggee_pid]
        ;push    8
        ;pop     ebx
        ;push    69
        ;pop     eax
        mcall    69, 8, [debuggee_pid]
        ret
;-----------------------------------------------------------------------------
;                         Suspend process event
 
AfterSuspend:
        mov     [bSuspended], 1
        call    get_new_context
        call    get_dump
        call    redraw_title
        call    draw_registers.redraw
        call    draw_dump.redraw
        call    update_disasm_eip
        ret
 
OnSuspend:
        ;mov     ecx, [debuggee_pid]
        ;push    4
        ;pop     ebx
        ;push    69
        ;pop     eax
        mcall    69, 4, [debuggee_pid]
        call    AfterSuspend
        mov     esi, aSuspended
        jmp     put_message
 
;-----------------------------------------------------------------------------
;                        Resume process event
 
DoResume:
        ;mov     ecx, [debuggee_pid]
        ;push    5
        ;pop     ebx
        ;push    69
        ;pop     eax
        mcall    69, 5, [debuggee_pid]
        mov     [bSuspended], 0
        ret
 
OnResume:
        mov     esi, [curarg]
        cmp     byte [esi], 0
        jz      GoOn
        call    calc_expression
        jc      .ret
        mov     eax, ebp
        push    eax
        call    find_enabled_breakpoint
        pop     eax
        jz      GoOn
        mov     bl, 5   ; valid enabled one-shot
        call    add_breakpoint
        jnc     GoOn
        mov     esi, aBreakpointLimitExceeded
        call    put_message
 
    .ret:
        ret
 
GoOn:
    ; test for enabled breakpoint at eip
        mov     eax, [_eip]
        call    find_enabled_breakpoint
        jnz     .nobreak
    ; temporarily disable breakpoint, make step, enable breakpoint, continue
        inc     eax
        mov     [temp_break], eax
        mov     [bAfterGo], 1
        dec     eax
        call    disable_breakpoint
        call    get_context
        or      byte [_eflags+1], 1             ; set TF
        call    set_context
        and     byte [_eflags+1], not 1
        call    DoResume
        ret
 
    .nobreak:
        call    DoResume
        call    redraw_title
        call    draw_registers.redraw
        call    draw_dump.redraw
        ret
 
;-----------------------------------------------------------------------------
;                        Detach process event
 
OnDetach:
        ;mov     ecx, [debuggee_pid]
        ;push    3
        ;pop     ebx
        ;push    69
        ;pop     eax
        mcall    69, 3, [debuggee_pid]
        and     [debuggee_pid], 0
        call    redraw_title
        call    draw_registers.redraw
        call    draw_dump.redraw
        call    free_symbols
        mov     esi, aContinued
        jmp     put_message
 
after_go_exception:
        push    eax
        mov     eax, [temp_break]
        dec     eax
        push    esi
        call    enable_breakpoint
    ; in any case, clear TF and RF
        call    get_new_context
        and     [_eflags], not 10100h           ; clear TF,RF
        call    set_context
        xor     edx, edx
        mov     [temp_break], edx
        xchg    dl, [bAfterGo]
        pop     esi
        pop     eax
        cmp     dl, 2
        jnz     @f
        lodsd
        push    esi
        call    get_dump
        jmp     exception.done
 
    @@:
        test    eax, eax
        jz      .notint1
    ; if exception is result of single step, simply ignore it and continue
        test    dword [esi], 0xF
        jnz     dbgmsgstart.5
        lodsd
        push    esi
        mov     esi, oldcontext
        mov     edi, context
        mov     ecx, 28h/4
        rep movsd
        call    DoResume
        jmp     dbgmsgend
 
    .notint1:
    ; in other case, work as without temp_break
        lodsd
        push    esi
        push    eax
        jmp     exception.4
 
    .notour:
 
; TODO: split it out
debugmsg:
        neg     [dbgbufsize]
        mov     esi, dbgbuf
 
; TODO: make it local
dbgmsgstart:
        lodsd
;       push    eax esi
;       push    dword [esi]
;       mov     esi, dbgmsg_str
;       call    put_message_nodraw
;       pop     esi eax
        add     esi, 4
        dec     eax
        jz      exception
        dec     eax
        jz      terminated
        dec     eax
        jnz     dbg_notify
 
        mov     [bSuspended], 1
        cmp     [bAfterGo], 0
        jnz     after_go_exception
        push    esi
        call    get_new_context
        and     [_eflags], not 10100h           ; clear TF,RF
        call    set_context
        pop     esi
 
    ; TODO: WTF? Need for meaning label names
    .5:
        push    esi
        call    get_dump
        pop     esi
        lodsd
        xor     ecx, ecx
 
    .6:
        bt      eax, ecx
        jnc     .7
        mov     ebx, [drx_break+ecx*4]
        test    ebx, ebx
        jz      .7
        pushad
        dec     ebx
        push    ebx
        mov     esi, aBreakStop
        call    put_message_nodraw
        popad
 
    .7:
        inc     ecx
        cmp     cl, 4
        jb      .6
        push    esi
        jmp     exception.done_draw
 
dbg_notify:
        int3
        add     esi, 32
        push    esi
        jmp     dbgmsgend
 
 
; TODO: make it local
terminated:
        push    esi
        mov     esi, terminated_msg
        call    put_message
        and     [debuggee_pid], 0
        and     [temp_break], 0
        mov     [bAfterGo], 0
        xor     eax, eax
        mov     ecx, breakpoints_n*6/4+4
        mov     edi, breakpoints
        rep stosd
        cmp     [bReload], 1
        sbb     [bReload], -1
        jnz     exception.done
        call    free_symbols
        jmp     exception.done
 
exception:
        mov     [bSuspended], 1
        cmp     [bAfterGo], 0
        jnz     after_go_exception
        lodsd
        push    esi
        push    eax
        call    get_new_context
        and     [_eflags], not 10100h           ; clear TF,RF
        call    set_context
 
    ; TODO: fix for useful name
    .4:
        call    get_dump
        pop     eax
    ; int3 command generates exception 0D, #GP
        push    eax
        cmp     al, 0Dh
        jnz     .notdbg
    ; check for 0xCC byte at eip
        push    0
        mcall   69, 6, [debuggee_pid], 1, [_eip], esp
        pop     eax
        cmp     al, 0xCC
        je      .int3
    ; check for 0xCD03 word at eip
        push    0
        inc     edx
        mcall   69;, 6, [debuggee_pid], 2, [_eip], esp
        pop     eax
        cmp     ax, 0x03CD
        jne     .notdbg
        mov     eax, [_eip]
        inc     [_eip]
        inc     [_eip]
        jmp     .user_int3_
    .int3:
    ; this is either dbg breakpoint or int3 cmd in debuggee
        mov     eax, [_eip]
        call    find_enabled_breakpoint
        jnz     .user_int3
    ; dbg breakpoint; clear if one-shot
        pop     ecx
        push    eax
        mov     esi, aBreakStop
        test    byte [edi+4], 4
        jz      .put_msg_eax
        pop     ecx
        call    clear_breakpoint
        jmp     .done
 
    .user_int3:
        mov     eax, [_eip]
        inc     [_eip]
    .user_int3_:
        pop     ecx
        push    eax
        call    set_context
        mov     esi, aUserBreak
        jmp     .put_msg_eax
 
    .notdbg:
        pop     eax
        push    eax
        push    eax
        mov     esi, aException
        call    put_message_nodraw
        pop     eax
 
        cmp     al, 16
        ja      .suspended
        mov     esi, [msg_fault_sel + eax*4]
        call    put_message_nodraw
 
    .suspended:
        mov     esi, aSuspended
 
    .put_msg_eax:
        call    put_message_nodraw
 
    .done_draw:
        call    draw_messages
 
    .done:
        mcall   18, 3, [dbgwnd]    ; activate dbg window
        call    redraw_title
        call    draw_registers.redraw
        call    draw_dump.redraw
        call    update_disasm_eip
 
dbgmsgend:
        pop     esi
        mov     ecx, [dbgbuflen]
        add     ecx, dbgbuf
        cmp     esi, ecx
        jnz     dbgmsgstart
        and     [dbgbuflen], 0
        neg     [dbgbufsize]
        cmp     [bReload], 2
        jnz     @f
        mov     [bReload], 0
        call    do_reload
 
    @@:
        jmp     waitevent
 
; TODO: make it local
F7:
        cmp     [debuggee_pid], 0
        jz      .no
        call    OnStep
 
    .no:
        jmp     waitevent
 
; TODO: make it local
F8:
        cmp     [debuggee_pid], 0
        jz      F7.no
        call    OnProceed
        jmp     F7.no
 
;-----------------------------------------------------------------------------
;                       Step execution event
 
;Here we get [] argument at do step  times
OnStepMultiple:
        cmp     [bSuspended], 0
        jz      OnStep.running
        mov     [step_num], 1
        mov     esi, [curarg]
        test    esi, esi
        jz      .do
        cmp     byte [esi], 0
        jz      .do
        call    get_hex_number
        jc      .ret
        cmp     eax, 0 ; check if lesser or equal than 0
        jle     .ret
        mov     [step_num], eax
.do:
        call    OnStep
        dec     [step_num]
        jnz     .do
.ret:
        ret
 
OnStep:
        cmp     [bSuspended], 0
        jz      .running
        call    get_context
        or      byte [_eflags+1], 1             ; set TF
        call    set_context
        and     byte [_eflags+1], not 1
    ; if instruction at eip is "int xx", set one-shot breakpoint immediately after
        mov     eax, [_eip]
        call    find_enabled_breakpoint
        jnz     @f
        cmp     byte [edi+5], 0xCD
        jz      .int
 
     @@:
        push    0
        ;push    69
        ;pop     eax
        ;push    6
        ;pop     ebx
        ;mov     ecx, [debuggee_pid]
        ;push    3
        ;pop     edx
        ;mov     edi, esp
        ;mov     esi, [_eip]
        mcall    69, 6, [debuggee_pid], 3, [_eip], esp
        cmp     eax, edx
        pop     eax
        jnz     .doit
        cmp     al, 0xCD
        jz      .int
        cmp     ax, 0x050F
        jz      .syscall
        cmp     ax, 0x340F
        jz      .sysenter
 
    ; resume process
    .doit:
        call    GoOn
        cmp     [bAfterGo], 0
        jz      @f
        mov     [bAfterGo], 2
 
    @@:
        ret
 
    ; return address is [ebp-4]
    .sysenter:
        push    0
        ;push    69
        ;pop     eax
        inc     edx     ; read 4 bytes
        mov     esi, [_ebp]
        sub     esi, 4
        mcall    69
        cmp     eax, edx
        pop     eax
        jnz     .syscall
        push    eax
        and     byte [_eflags+1], not 1
        call    set_context
        pop     eax
        jmp     @f
 
    .syscall:
        and     byte [_eflags+1], not 1 ; clear TF - avoid system halt (!)
        call    set_context
 
    .int:
        mov     eax, [_eip]
        inc     eax
        inc     eax
 
    @@:
        push    eax
        call    find_enabled_breakpoint
        pop     eax
        jz      .doit
    ; there is no enabled breakpoint yet; set temporary breakpoint
        mov     bl, 5
        call    add_breakpoint
        jmp     .doit
 
    .running:
        mov     esi, aRunningErr
        jmp     put_message
 
;-----------------------------------------------------------------------------
;                       Proceed process event
;Here we get [] argument at do step  times
OnProceedMultiple:
        cmp     [bSuspended], 0
        jz      OnStep.running
        mov     [proc_num], 1
        mov     esi, [curarg]
        test    esi, esi
        jz      .do
        cmp     byte [esi], 0
        jz      .do
        call    get_hex_number
        jc      .ret
        cmp     eax, 0 ; check if lesser or equal than 0
        jle     .ret
        mov     [proc_num], eax
        mov     [curarg], 0
.do:
        call    OnProceed
        dec     [proc_num]
        jnz     .do
.ret:
        ret
 
 
OnProceed:
        cmp     [bSuspended], 0
        jz      OnStep.running
        mov     esi, [_eip]
 
    @@:
        call    get_byte_nobreak
        jc      OnStep
        inc     esi
    ; skip prefixes
        call    is_prefix
        jz      @b
        cmp     al, 0xE8        ; call
        jnz     @f
        add     esi, 4
        jmp     .doit
 
    ; A4,A5 = movs; A6,A7 = cmps
    @@:
        cmp     al, 0xA4
        jb      @f
        cmp     al, 0xA8
        jb      .doit
 
    ; AA,AB = stos; AC,AD = lods; AE,AF = scas
    @@:
        cmp     al, 0xAA
        jb      @f
        cmp     al, 0xB0
        jb      .doit
 
    ; E0 = loopnz; E1 = loopz; E2 = loop
    @@:
        cmp     al, 0xE0
        jb      .noloop
        cmp     al, 0xE2
        ja      .noloop
        inc     esi
        jmp     .doit
 
    ; FF /2 = call
    .noloop:
        cmp     al, 0xFF
        jnz     OnStep
        call    get_byte_nobreak
        jc      OnStep
        inc     esi
        mov     cl, al
        and     al, 00111000b
        cmp     al, 00010000b
        jnz     OnStep
    ; skip instruction
        mov     al, cl
        and     eax, 7
        shr     cl, 6
        jz      .mod0
        jp      .doit
        cmp     al, 4
        jnz     @f
        inc     esi
 
    @@:
        inc     esi
        dec     cl
        jz      @f
        add     esi, 3
 
    @@:
        jmp     .doit
 
    .mod0:
        cmp     al, 4
        jnz     @f
        call    get_byte_nobreak
        jc      OnStep
        inc     esi
        and     al, 7
 
    @@:
        cmp     al, 5
        jnz     .doit
        add     esi, 4
 
    .doit:
    ; insert one-shot breakpoint at esi and resume
        call    get_byte_nobreak
        jc      OnStep
        mov     eax, esi
        call    find_enabled_breakpoint
        jz      @f
        mov     eax, esi
        mov     bl, 5
        call    add_breakpoint
        jmp     OnStep.doit
 
    @@:
        ret
 
;-----------------------------------------------------------------------------
;                        Read next byte of machine code
 
get_byte_nobreak:
        mov     eax, esi
        call    find_enabled_breakpoint
        jnz     .nobreak
        mov     al, [edi+5]
        clc
        ret
 
    .nobreak:
        ;push    69
        ;pop     eax
        ;push    6
        ;pop     ebx
        ;mov     ecx, [debuggee_pid]
        xor     edx, edx
        push    edx
        inc     edx
        mov     edi, esp
        mcall    69, 6, [debuggee_pid]
        dec     eax
        clc
        jz      @f
        stc
 
    @@:
        pop     eax
        ret
 
include 'parser.inc'
 
;-----------------------------------------------------------------------------
;                        Calculate expression event
 
OnCalc:
        mov     esi, [curarg]
        call    calc_expression
        jc      .ret
        push    ebp
        mov     esi, calc_string
        call    put_message_nodraw
        jmp     draw_messages
 
    .ret:
        ret
 
;-----------------------------------------------------------------------------
;                            Dump memory event
 
OnDump:
        mov     esi, [curarg]
        cmp     byte [esi], 0
        jnz     .param
        add     [dumppos], dump_height*10h
        jmp     .doit
 
    .param:
        call    calc_expression
        jc      .ret
        mov     [dumppos], ebp
 
    .doit:
        call    get_dump
        call    draw_dump.redraw
 
    .ret:
        ret
 
;-----------------------------------------------------------------------------
;                   Dissassemble block of executable event
 
OnUnassemble:
        mov     esi, [curarg]
        cmp     byte [esi], 0
        jnz     .param
        mov     eax, [disasm_start_pos]
        mov     ecx, [disasm_height_dd]
        mov     [disasm_cur_pos], eax
 
    .l:
        mov     eax, [disasm_cur_pos]
        call    find_symbol
        jc      @f
        dec     ecx
        jz      .m
 
    @@:
        push    ecx
        call    disasm_instr
        pop     ecx
        jc      .err
        loop    .l
 
    .m:
        mov     eax, [disasm_cur_pos]
        jmp     .doit
 
    .param:
        call    calc_expression
        jc      .ret
        mov     eax, ebp
 
    .doit:
        push    eax
        push    [disasm_start_pos]
        mov     [disasm_start_pos], eax
        call    update_disasm
        pop     [disasm_start_pos]
        pop     eax
        cmp     [disasm_cur_str], 0
        jz      @f
        mov     [disasm_start_pos], eax
 
    .ret:
        ret
 
    @@:
        call    update_disasm
 
    .err:
        mov     esi, aInvAddr
        jmp     put_message
 
;-----------------------------------------------------------------------------
;                       Access to register value event
 
OnReg:
        mov     esi, [curarg]
        call    get_arg.skip_spaces
        call    find_reg
        jnc     @f
 
    .err:
        mov     esi, RSyntax
        jmp     put_message
 
    @@:
        call    get_arg.skip_spaces
        test    al, al
        jz      .err
        cmp     al, '='
        jnz     @f
        inc     esi
        call    get_arg.skip_spaces
        test    al, al
        jz      .err
 
    @@:
        push    edi
        call    calc_expression
        pop     edi
        jc      .ret
    ; now edi=register id, ebp=value
        cmp     [bSuspended], 0
        mov     esi, aRunningErr
        jz      put_message
        xchg    eax, ebp
        cmp     edi, 24
        jz      .eip
        sub     edi, 4
        jb      .8lo
        sub     edi, 4
        jb      .8hi
        sub     edi, 8
        jb      .16
        mov     [_eax+edi*4], eax
        jmp     .ret
 
    .16:
        mov     word [_eax+(edi+8)*4], ax
        jmp     .ret
 
    .8lo:
        mov     byte [_eax+(edi+4)*4], al
        jmp     .ret
 
    .8hi:
        mov     byte [_eax+(edi+4)*4+1], al
        jmp     .ret
 
    .eip:
        mov     [_eip], eax
        call    update_disasm_eip
 
    .ret:
        call    set_context
        jmp     draw_registers.redraw
 
;-----------------------------------------------------------------------------
;                        Breakpoints manipulation
OnBp:
        mov     esi, [curarg]
        call    calc_expression
        jc      .ret
        xchg    eax, ebp
        push    eax
        call    find_breakpoint
        inc     eax
        pop     eax
        jz      .notfound
        mov     esi, aDuplicateBreakpoint
        jmp     .sayerr
 
    .notfound:
        mov     bl, 1
        call    add_breakpoint
        jnc     .ret
        mov     esi, aBreakpointLimitExceeded
 
    .sayerr:
        call    put_message
 
    .ret:
        jmp     draw_disasm
 
OnBpmb:
        mov     dh, 0011b
        jmp     DoBpm
 
OnBpmw:
        mov     dh, 0111b
        jmp     DoBpm
 
OnBpmd:
        mov     dh, 1111b
 
DoBpm:
        mov     esi, [curarg]
        cmp     byte [esi], 'w'
        jnz     @f
        and     dh, not 2
        inc     esi
 
    @@:
        push    edx
        call    calc_expression
        pop     edx
        jnc     @f
        ret
 
    ; ebp = expression, dh = flags
    @@:
        movzx   eax, dh
        shr     eax, 2
        test    ebp, eax
        jz      @f
        mov     esi, aUnaligned
        jmp     put_message
 
    @@:
        mov     eax, ebp
        mov     bl, 0Bh
        call    add_breakpoint
        jnc     @f
        mov     esi, aBreakpointLimitExceeded
        jmp     put_message
 
    ; now find index
    @@:
        push    eax
        xor     ecx, ecx
 
    .l1:
        cmp     [drx_break+ecx*4], 0
        jnz     .l2
        ;push    69
        ;pop     eax
        push    ecx
        mov     dl, cl
        ;mov     ecx, [debuggee_pid]
        mov     esi, ebp
        ;push    9
        ;pop     ebx
        mcall    69, 9, [debuggee_pid]
        test    eax, eax
        jz      .ok
        pop     ecx
 
    .l2:
        inc     ecx
        cmp     ecx, 4
        jb      .l1
        pop     eax
        call    clear_breakpoint
        mov     esi, aBreakpointLimitExceeded
        jmp     put_message
 
    .ok:
        pop     ecx
        pop     eax
        and     byte [edi], not 2       ; breakpoint is enabled
        shl     dl, 6
        or      dl, dh
        mov     byte [edi+1], dl
        inc     eax
        mov     [drx_break+ecx*4], eax
        ret
 
OnBc:
        mov     esi, [curarg]
 
    @@:
        call    get_hex_number
        jc      OnBp.ret
        call    clear_breakpoint
        jmp     @b
 
OnBd:
        mov     esi, [curarg]
 
    @@:
        call    get_hex_number
        jc      OnBp.ret
        call    disable_breakpoint
        jmp     @b
 
OnBe:
        mov     esi, [curarg]
 
    @@:
        call    get_hex_number
        jc      OnBp.ret
        push    eax
        call    find_enabled_breakpoint
        pop     eax
        jz      .err
        call    enable_breakpoint
        jmp     @b
 
    .err:
        mov     esi, OnBeErrMsg
        jmp     put_message
 
; TODO: split it out in parser.inc
get_hex_number:
        call    get_arg.skip_spaces
        xor     ecx, ecx
        xor     edx, edx
 
    @@:
        lodsb
        call    is_hex_digit
        jc      .ret
        shl     edx, 4
        or      dl, al
        inc     ecx
        jmp     @b
 
    .ret:
        dec     esi
        cmp     ecx, 1
        xchg    eax, edx
        ret
 
;-----------------------------------------------------------------------------
;                       Breakpoints list event
 
OnBl:
        mov     esi, [curarg]
        cmp     byte [esi], 0
        jz      .listall
        call    get_hex_number
        jc      .ret
        cmp     eax, breakpoints_n
        jae     .err
        push    eax
        add     eax, eax
        lea     edi, [breakpoints + eax + eax*2]
        pop     eax
        test    byte [edi+4], 1
        jz      .err
        call    show_break_info
 
    .ret:
        ret
 
    .err:
        mov     esi, aInvalidBreak
        jmp     put_message
 
    .listall:
        mov     edi, breakpoints
        xor     eax, eax
 
    @@:
        test    byte [edi+4], 1
        jz      .cont
        push    edi eax
        call    show_break_info
        pop     eax edi
 
    .cont:
        add     edi, 6
        inc     eax
        cmp     eax, breakpoints_n
        jb      @b
        ret
 
;-----------------------------------------------------------------------------
 
show_break_info:
        push    edi
        test    byte [edi+4], 8
        jnz     .dr
        push    dword [edi]
        push    eax
        mov     esi, aBreakNum
        call    put_message_nodraw
        jmp     .cmn
 
    .dr:
        push    eax
        mov     esi, aMemBreak1
        call    put_message_nodraw
        pop     edi
        push    edi
        mov     esi, aMemBreak2
        test    byte [edi+5], 2
        jz      @f
        mov     esi, aMemBreak3
 
    @@:
        call    put_message_nodraw
        pop     edi
        push    edi
        mov     esi, aMemBreak6
        test    byte [edi+5], 8
        jnz     @f
        mov     esi, aMemBreak5
        test    byte [edi+5], 4
        jnz     @f
        mov     esi, aMemBreak4
 
    @@:
        call    put_message_nodraw
        pop     edi
        push    edi
        push    dword [edi]
        mov     esi, aMemBreak7
        call    put_message_nodraw
 
    .cmn:
        pop     edi
        test    byte [edi+4], 2
        jz      @f
        push    edi
        mov     esi, aDisabled
        call    put_message_nodraw
        pop     edi
 
    @@:
        test    byte [edi+4], 4
        jz      @f
        mov     esi, aOneShot
        call    put_message_nodraw
 
    @@:
        mov     esi, newline
        jmp     put_message
 
;-----------------------------------------------------------------------------
;                        Add breakpoint
; in: EAX = address; BL = flags
; out: CF = 1 => error
;      CF = 0 and EAX = breakpoint number
 
add_breakpoint:
        xor     ecx, ecx
        mov     edi, breakpoints
 
    @@:
        test    byte [edi+4], 1
        jz      .found
        add     edi, 6
        inc     ecx
        cmp     ecx, breakpoints_n
        jb      @b
        stc
        ret
 
    .found:
        stosd
        xchg    eax, ecx
        mov     [edi], bl
        test    bl, 2
        jnz     @f
        or      byte [edi], 2
        push    eax
        call    enable_breakpoint
        pop     eax
 
    @@:
        clc
        ret
 
;-----------------------------------------------------------------------------
;                         Remove breakpoint
 
clear_breakpoint:
        cmp     eax, breakpoints_n
        jae     .ret
        mov     ecx, 4
        inc     eax
 
    .1:
        cmp     [drx_break-4+ecx*4], eax
        jnz     @f
        and     [drx_break-4+ecx*4], 0
 
    @@:
        loop    .1
        dec     eax
        push    eax
        add     eax, eax
        lea     edi, [breakpoints + eax + eax*2 + 4]
        test    byte [edi], 1
        pop     eax
        jz      .ret
        push    edi
        call    disable_breakpoint
        pop     edi
        mov     byte [edi], 0
 
    .ret:
        ret
 
;-----------------------------------------------------------------------------
;                          Disable breakpoint
 
disable_breakpoint:
        cmp     eax, breakpoints_n
        jae     .ret
        add     eax, eax
        lea     edi, [breakpoints + eax + eax*2 + 5]
        test    byte [edi-1], 1
        jz      .ret
        test    byte [edi-1], 2
        jnz     .ret
        or      byte [edi-1], 2
        test    byte [edi-1], 8
        jnz     .dr
        push    esi
        ;push    7
        ;pop     ebx
        ;push    69
        ;pop     eax
        ;mov     ecx, [debuggee_pid]
        ;xor     edx, edx
        ;inc     edx
        ;mov     esi, [edi-5]
        mcall    69, 7, [debuggee_pid], 1, [edi-5]
        pop     esi
 
    .ret:
        ret
 
    .dr:
        mov     dl, [edi]
        shr     dl, 6
        mov     dh, 80h
        ;push    69
        ;pop     eax
        ;push    9
        ;pop     ebx
        ;mov     ecx, [debuggee_pid]
        mcall    69, 9, [debuggee_pid]
        ret
 
;-----------------------------------------------------------------------------
;                           Enable breakpoint
 
enable_breakpoint:
        push    esi
        cmp     eax, breakpoints_n
        jae     .ret
        add     eax, eax
        lea     edi, [breakpoints + eax + eax*2 + 5]
        test    byte [edi-1], 1
        jz      .ret
        test    byte [edi-1], 2
        jz      .ret
        and     byte [edi-1], not 2
        test    byte [edi-1], 8
        jnz     .dr
        ;push    6
        ;pop     ebx
        ;push    69
        ;pop     eax
        ;mov     esi, [edi-5]
        ;mov     ecx, [debuggee_pid]
        ;xor     edx, edx
        ;inc     edx
        mcall    69, 6, [debuggee_pid], 1, [edi-5]
        dec     eax
        jnz     .err
        ;mov     al, 69
        push    0xCC
        mov     edi, esp
        inc     ebx
        mcall    69
        pop     eax
 
    .ret:
        pop     esi
        ret
 
    .err:
        or      byte [edi-1], 2
        mov     esi, aBreakErr
        call    put_message
        pop     esi
        ret
 
    .dr:
        ;push    9
        ;pop     ebx
        ;push    69
        ;pop     eax
        mov     esi, [edi-5]
        ;mov     ecx, [debuggee_pid]
        mov     dl, [edi]
        shr     dl, 6
        mov     dh, [edi]
        and     dh, 0xF
        mcall    69, 9, [debuggee_pid]
        test    eax, eax
        jnz     .err
        pop     esi
        ret
 
;-----------------------------------------------------------------------------
;                             Find breakpoint
 
find_breakpoint:
        xor     ecx, ecx
        xchg    eax, ecx
        mov     edi, breakpoints
 
    @@:
        test    byte [edi+4], 1
        jz      .cont
        test    byte [edi+4], 8
        jnz     .cont
        cmp     [edi], ecx
        jz      .found
 
    .cont:
        add     edi, 6
        inc     eax
        cmp     eax, breakpoints_n
        jb      @b
        or      eax, -1
 
    .found:
        ret
 
;-----------------------------------------------------------------------------
;
 
find_enabled_breakpoint:
        xor     ecx, ecx
        xchg    eax, ecx
        mov     edi, breakpoints
 
    @@:
        test    byte [edi+4], 1
        jz      .cont
        test    byte [edi+4], 2 or 8
        jnz     .cont
        cmp     [edi], ecx
        jz      .found
 
    .cont:
        add     edi, 6
        inc     eax
        cmp     eax, breakpoints_n
        jb      @b
        or      eax, -1
 
    .found:
        ret
 
; TODO: add find_disabled_breakpoint
 
;-----------------------------------------------------------------------------
;                       Unpack executable event
 
OnUnpack:
    ; program must be loaded - checked when command was parsed
    ; program must be stopped
        mov     esi, aRunningErr
        cmp     [bSuspended], 0
        jz      put_message
   ; all breakpoints must be disabled
        mov     edi, breakpoints
 
    @@:
        test    byte [edi+4], 1
        jz      .cont
        test    byte [edi+4], 2
        jnz     .cont
        mov     esi, aEnabledBreakErr
        jmp     put_message
 
    .cont:
        add     edi, 6
        cmp     edi, breakpoints+breakpoints_n*6
        jb      @b
    ; ok, now do it
    ; set breakpoint on 0xC dword access
        push    9
        pop     ebx
        mov     ecx, [debuggee_pid]
        mov     dx, 1111b*256
        push    0xC
        pop     esi
 
    @@:
        ;push    69
        ;pop     eax
        mcall    69
        test    eax, eax
        jz      .breakok
        inc     edx
        cmp     dl, 4
        jb      @b
 
    .breakok:
        call    GoOn
 
    ; now wait for event
    .wait:
        ;push    10
        ;pop     eax
        mcall    10
        dec     eax
        jz      .redraw
        dec     eax
        jz      .key
        dec     eax
        jnz     .debug
    ; button; we have only one button, close
        or      eax, -1
        mcall
 
    .redraw:
        call    draw_window
        jmp     .wait
 
    .key:
        mov     al, 2
        mcall
        cmp     ah, 3   ; Ctrl+C
        jnz     .wait
 
    .userbreak:
        mov     esi, aInterrupted
 
    .x1:
        push    edx esi
        call    put_message
        pop     esi edx
        or      dh, 80h
        ;push    69
        ;pop     eax
        ;push    9
        ;pop     ebx
        ;mov     ecx, [debuggee_pid]
        mcall    69, 9, [debuggee_pid]
        cmp     esi, aUnpacked
        jnz     OnSuspend
        jmp     AfterSuspend
 
    .debug:
        cmp     [dbgbuflen], 4*3
        jnz     .notour
        cmp     dword [dbgbuf], 3
        jnz     .notour
        test    byte [dbgbuf+8], 1
        jnz     .our
 
    .notour:
        mov     esi, aInterrupted
        push    edx
        call    put_message
        pop     edx
        or      dh, 80h
        ;push    69
        ;pop     eax
        ;push    9
        ;pop     ebx
        ;mov     ecx, [debuggee_pid]
        mcall    69, 9, [debuggee_pid]
        jmp     debugmsg
 
    .our:
        and     [dbgbuflen], 0
        push    edx
        call    get_context
        push    eax
        ;mov     al, 69
        ;mov     bl, 6
        ;mov     ecx, [debuggee_pid]
        ;mov     edi, esp
        ;push    4
        ;pop     edx
        ;push    0xC
        ;pop     esi
        mcall    69, 6, [debuggee_pid], 4, 0xC, esp
        pop     eax
        pop     edx
        cmp     eax, [_eip]
        jz      .done
        call    DoResume
        jmp     .wait
 
    .done:
        mov     esi, aUnpacked
        jmp     .x1
 
;-----------------------------------------------------------------------------
;                            Include Symbol parser
 
include 'symbols.inc'
 
;-----------------------------------------------------------------------------
;                        Include disassembler engine
 
include 'disasm.inc'
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DATA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
caption_str db  'Kolibri Debugger',0
 
begin_str db    'Kolibri Debugger, version 0.35',10
        db      'Hint: type "help" for help, "quit" to quit'
newline db      10,0
prompt  db      '> ',0
 
help_groups:
        dd      aControl, 0, 0, help_control_msg
        db      0
        dd      aData, 0, 0, help_data_msg
        db      0
        dd      aBreakpoints, 0, 0, help_breaks_msg
        db      0
 
;-----------------------------------------------------------------------------
;                   Commands format definitions
 
; TODO: make it with macros
 
; flags field:
; &1: command may be called without parameters
; &2: command may be called with parameters
; &4: command may be called without loaded program
; &8: command may be called with loaded program
commands:
        dd      _aH, OnHelp, HelpSyntax, HelpHelp
        db      0Fh
        dd      aHelp, OnHelp, HelpSyntax, HelpHelp
        db      0Fh
        dd      aQuit, OnQuit, QuitSyntax, QuitHelp
        db      0Dh
        dd      aLoad, OnLoad, LoadSyntax, LoadHelp
        db      6
        dd      aReload, OnReload, ReloadSyntax, ReloadHelp
        db      0Dh
        dd      aTerminate, OnTerminate, TerminateSyntax, TerminateHelp
        db      9
        dd      aDetach, OnDetach, DetachSyntax, DetachHelp
        db      9
        dd      aSuspend, OnSuspend, SuspendSyntax, SuspendHelp
        db      9
        dd      aResume, OnResume, ResumeSyntax, ResumeHelp
        db      0Bh
        dd      aStep, OnStepMultiple, StepSyntax, StepHelp
        db      0Bh
        dd      aProceed, OnProceedMultiple, ProceedSyntax, ProceedHelp
        db      0Bh
        dd      aCalc, OnCalc, CalcSyntax, CalcHelp
        db      0Eh
        dd      aDump, OnDump, DumpSyntax, DumpHelp
        db      0Bh
        dd      aUnassemble, OnUnassemble, UnassembleSyntax, UnassembleHelp
        db      0Bh
        dd      aBp, OnBp, BpSyntax, BpHelp
        db      0Ah
        dd      aBpm, OnBpmb, BpmSyntax, BpmHelp
        db      0Ah
        dd      aBpmb, OnBpmb, BpmSyntax, BpmHelp
        db      0Ah
        dd      aBpmw, OnBpmw, BpmSyntax, BpmHelp
        db      0Ah
        dd      aBpmd, OnBpmd, BpmSyntax, BpmHelp
        db      0Ah
        dd      aBl, OnBl, BlSyntax, BlHelp
        db      0Bh
        dd      aBc, OnBc, BcSyntax, BcHelp
        db      0Ah
        dd      aBd, OnBd, BdSyntax, BdHelp
        db      0Ah
        dd      aBe, OnBe, BeSyntax, BeHelp
        db      0Ah
        dd      aReg, OnReg, RSyntax, RHelp
        db      0Ah
        dd      aUnpack, OnUnpack, UnpackSyntax, UnpackHelp
        db      9
        dd      aLoadSymbols, OnLoadSymbols, LoadSymbolsSyntax, LoadSymbolsHelp
        db      0Ah
        dd      0
 
;-----------------------------------------------------------------------------
;                   Help messages for commands groups
 
aHelp   db      5,'help',0
_aH     db      2,'h',0
HelpHelp db     'Help on specified function',10
HelpSyntax db   'Usage: h or help [group | command]',10,0
 
help_msg db     'List of known command groups:',10
        db      '"help control"     - display list of control commands',10
        db      '"help data"        - display list of commands concerning data',10
        db      '"help breakpoints" - display list of commands concerning breakpoints',10,0
 
;               Control commands group
 
aControl db     8,'control',0
help_control_msg db     'List of control commands:',10
        db      'h = help             - help',10
        db      'quit                 - exit from debugger',10
        db      'load  [params] - load program for debugging',10
        db      'reload               - reload debugging program',10
        db      'load-symbols   - load information on symbols for program',10
        db      'terminate            - terminate loaded program',10
        db      'detach               - detach from debugging program',10
        db      'stop                 - suspend execution of debugging program',10
        db      'g []     - go on (resume execution of debugging program)',10
        db      's []            - program step, also ',10
        db      'p []            - program wide step, also ',10
        db      'unpack               - try to bypass unpacker code (heuristic)',10,0
 
;               Data commands group
 
aData   db      5,'data',0
help_data_msg db        'List of data commands:',10
        db      '?        - calculate value of expression',10
        db      'd []     - dump data at given address',10
        db      'u []     - unassemble instructions at given address',10
        db      'r   or',10
        db      'r = - set register value',10,0
 
;               Breakpoints commands group
 
aBreakpoints db 12,'breakpoints',0
help_breaks_msg db      'List of breakpoints commands:',10
        db      'bp       - set breakpoint on execution',10
        db      'bpm[b|w|d]   - set breakpoint on memory access',10
        db      'bl []        - breakpoint(s) info',10
        db      'bc ...       - clear breakpoint',10
        db      'bd ...       - disable breakpoint',10
        db      'be ...       - enable breakpoint',10,0
 
;-----------------------------------------------------------------------------
;                    Individual command help messages
 
aQuit   db      5,'quit',0
QuitHelp db     'Quit from debugger',10
QuitSyntax db   'Usage: quit',10,0
 
aLoad   db      5,'load',0
LoadHelp db     'Load program for debugging',10
LoadSyntax db   'Usage: load  [parameters]',10,0
 
aReload db      7,'reload',0
ReloadHelp db   'Reload debugging program (restart debug session)',10
ReloadSyntax db 'Usage: reload',10,0
 
aTerminate db   10,'terminate',0
TerminateHelp db 'Terminate debugged program',10
TerminateSyntax db 'Usage: terminate',10,0
 
aDetach db      7,'detach',0
DetachHelp db   'Detach from debugged program',10
DetachSyntax db 'Usage: detach',10,0
 
aSuspend db     5,'stop',0
SuspendHelp db  'Suspend execution of debugged program',10
SuspendSyntax db 'Usage: stop',10,0
 
aResume db      2,'g',0
ResumeHelp db   'Go (resume execution of debugged program)',10
ResumeSyntax db 'Usage: g',10
        db      '   or: g  - wait until specified address is reached',10,0
 
aStep   db      2,'s',0
StepHelp db     'Make step in debugged program',10
StepSyntax db   'Usage: s []',10,0
 
aProceed db     2,'p',0
ProceedHelp db  'Make wide step in debugged program (step over CALL, REPxx, LOOP)',10
ProceedSyntax db 'Usage: p []',10,0
 
aDump   db      2,'d',0
DumpHelp db     'Dump data of debugged program',10
DumpSyntax db   'Usage: d  - dump data at specified address',10
        db      '   or: d              - continue current dump',10,0
 
aCalc   db      2,'?',0
CalcHelp db     'Calculate value of expression',10
CalcSyntax db   'Usage: ? ',10,0
 
aUnassemble db  2,'u',0
UnassembleHelp db 'Unassemble',10
UnassembleSyntax db      'Usage: u  - unassemble instructions at specified address',10
                 db      '   or: u              - continue current unassemble screen',10,0
 
aReg    db      2,'r',0
RHelp   db      'Set register value',10
RSyntax db      'Usage: r  ',10
        db      '   or: r = - set value of  to ',10,0
 
aBp     db      3,'bp',0
BpHelp  db      'set BreakPoint on execution',10
BpSyntax db     'Usage: bp ',10,0
 
aBpm    db      4,'bpm',0
aBpmb   db      5,'bpmb',0
aBpmw   db      5,'bpmw',0
aBpmd   db      5,'bpmd',0
BpmHelp db      'set BreakPoint on Memory access',10
        db      'Maximum 4 breakpoints of this type are allowed',10
        db      'Note that for this breaks debugger is activated after access',10
BpmSyntax db    'Usage: bpmb [w] ',10
        db      '       bpmw [w] ',10
        db      '       bpmd [w] ',10
        db      '       bpm is synonym for bpmd',10
        db      '"w" means break only on writes (default is on read/write)',10,0
 
aBl     db      3,'bl',0
BlHelp  db      'Breakpoint List',10
BlSyntax db     'Usage: bl          - list all breakpoints',10
        db      '       bl  - display info on particular breakpoint',10,0
 
aBc     db      3,'bc',0
BcHelp  db      'Breakpoint Clear',10
BcSyntax db     'Usage: bc ',10
        db      'Examples: bc 2',10
        db      '          bc 1 3 4 A',10,0
 
aBd     db      3,'bd',0
BdHelp  db      'Breakpoint Disable',10
BdSyntax db     'Usage: bd ',10
        db      'Examples: bd 2',10
        db      '          bd 1 3 4 A',10,0
 
aBe     db      3,'be',0
BeHelp  db      'Breakpoint Enable',10
BeSyntax db     'Usage: be ',10
        db      'Examples: be 2',10
        db      '          be 1 3 4 A',10,0
 
aUnpack db      7,'unpack',0
UnpackHelp db   'Try to bypass unpacker code',10
UnpackSyntax db 'Usage: unpack',10,0
 
aLoadSymbols db 13,'load-symbols',0
LoadSymbolsHelp db 'Load symbolic information for executable',10
LoadSymbolsSyntax db 'Usage: load-symbols ',10,0
 
aUnknownCommand db 'Unknown command',10,0
 
;-----------------------------------------------------------------------------
;                             Error messages
 
load_err_msg    db      'Cannot load program. ',0
unk_err_msg     db      'Unknown error code -%4X',10,0
aCannotLoadFile db      'Cannot load file. ',0
unk_err_msg2    db      'Unknown error code %4X.',10,0
load_err_msgs:
        dd      .1, 0, .3, 0, .5, .6, 0, 0, .9, .A, 0, 0, 0, 0, 0, 0
        dd      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, .1E, .1F, .20
.1              db      'HD undefined.',10,0
.3              db      'Unknown FS.',10,0
.5              db      'File not found.',10,0
.6              db      'Unexpected EOF.',10,0
.9              db      'FAT table corrupted.',10,0
.A              db      'Access denied.',10,0
.1E             db      'No memory.',10,0
.1F             db      'Not Menuet/Kolibri executable.',10,0
.20             db      'Too many processes.',10,0
load_succ_msg   db      'Program loaded successfully! PID=%4X. Use "g" to run.',10,0
need_debuggee   db      'No program loaded. Use "load" command.',10,0
aAlreadyLoaded  db      'Program is already loaded. Use "terminate" or "detach" commands',10,0
terminated_msg  db      'Program terminated.',10,0
aException      db      'Debugged program caused an exception %2X. ', 0
msg_fault_sel   dd  aDivide, aDebug, aNonMask, aUndefined, aOverflow
                dd  aBounds, aInvalid, aCoProcessorNA, aDoubleFault
                dd  aUndefined, aInvalidTSS, aSegment, aStack
                dd  aProtection, aPageFault, aUndefined, aCoProcessor
aDivide         db      '(Divide error)',10,0
aDebug          db      '(Single-step/debug exception)',10,0
aNonMask        db      '(Nonmaskable interrupt)',10,0
aOverflow       db      '(Overflow)',10,0
aBounds         db      '(Bounds check)',10,0
aInvalid        db      '(Invalid opcode)',10,0
aCoProcessorNA  db      '(Coprocessor not available)',10,0
aDoubleFault    db      '(Double fault)',10,0
aUndefined      db      '(Undefined fault)',10,0
aInvalidTSS     db      '(Invalid TSS)',10,0
aSegment        db      '(Segment not present)',10,0
aStack          db      '(Stack fault)',10,0
aProtection     db      '(General protection fault)',10,0
aPageFault      db      '(Page fault)',10,0
aCoProcessor    db      '(Coprocessor error)',10,0
aSuspended      db      'Suspended',10,0
aContinued      db      'Continuing',10,0
aRunningErr     db      'Program is running',10,0
read_mem_err    db      'ERROR: cannot read process memory!!!',10,0
aBreakpointLimitExceeded db 'Breakpoint limit exceeded',10,0
aBreakErr       db      'Cannot activate breakpoint, it will be disabled',10,0
aDuplicateBreakpoint db 'Duplicate breakpoint',10,0
aInvalidBreak   db      'Invalid breakpoint number',10,0
OnBeErrMsg      db      'There is already enabled breakpoint on this address',10,0
aBreakNum       db      '%2X: at %8X',0
aMemBreak1      db      '%2X: on ',0
aMemBreak2      db      'read from ',0
aMemBreak3      db      'access of ',0
aMemBreak4      db      'byte',0
aMemBreak5      db      'word',0
aMemBreak6      db      'dword',0
aMemBreak7      db      ' at %8X',0
aOneShot        db      ', one-shot',0
aDisabled       db      ', disabled',0
aBreakStop      db      'Breakpoint #%2X',10,0
aUserBreak      db      'int3 command at %8X',10,0
;dbgmsg_str     db      'Debug message for process %4X.',10,0
aInvAddr        db      'Invalid address',10,0
NoPrgLoaded_str db      'No program loaded'
NoPrgLoaded_len = $ - NoPrgLoaded_str
aRunning        db      'Running'
aPaused         db      'Paused'
 
aFPU            db      '[ FPU ]'
aMMX            db      '[ MMX ]'
aSSE            db      '[SSE32]'
aSSE2           db      '[SSE64]'
aMMX128         db      '[MMX128]'
 
aAVX            db      '[ AVX ]'
aMSR            db      '[ MSR ]'
aPoint          db      0x1C
aMinus          db      '-'
aColon          db      ':'
aSpace          db      ' '
aQuests         db      '??'
aDots           db      '...'
aParseError     db      'Parse error',10,0
aDivByZero      db      'Division by 0',10,0
calc_string     db      '%8X',10,0
aNoMemory       db      'No memory',10,0
aSymbolsLoaded  db      'Symbols loaded',10,0
aUnaligned      db      'Unaligned address',10,0
aEnabledBreakErr db     'Enabled breakpoints are not allowed',10,0
aInterrupted    db      'Interrupted',10,0
aUnpacked       db      'Unpacked successful!',10,0
aPacked1        db      'Program is probably packed with ',0
aPacked2        db      '.',10,'Try to unpack automatically? [y/n]: ',0
aY_str          db      'y',10,0
aN_str          db      'n',10,0
mxp_nrv_name    db      'mxp_nrv',0
mxp_name        db      'mxp',0
mxp_lzo_name    db      'mxp_lzo',0
mtappack_name   db      'mtappack',0
flags           db      'CPAZSDO'
flags_bits      db      0,2,4,6,7,10,11
 
;-----------------------------------------------------------------------------
;                         Registers strings
 
regs_strs:
        db 'EAX='
        db 'EBX='
        db 'ECX='
        db 'EDX='
        db 'ESI='
        db 'EDI='
        db 'EBP='
        db 'ESP='
        db 'EIP='
        db 'EFLAGS='
 
sse_strs:
        db '-XMM0-'
        db '-XMM1-'
        db '-XMM2-'
        db '-XMM3-'
        db '-XMM4-'
        db '-XMM5-'
        db '-XMM6-'
        db '-XMM7-'
avx_strs:
        db '-YMM0-'
        db '-YMM1-'
        db '-YMM2-'
        db '-YMM3-'
        db '-YMM4-'
        db '-YMM5-'
        db '-YMM6-'
        db '-YMM7-'
 
align 4
n_digits        dd 10000000
 
btn2_tab        dd aFPU
                dd aMMX
btn3_tab        dd aSSE2
                dd aMMX128
                dd aSSE
 
reg_mode        db 1
 
 
include 'disasm_tbl.inc'
 
reg_table:
        db 2,'al',0
        db 2,'cl',1
        db 2,'dl',2
        db 2,'bl',3
        db 2,'ah',4
        db 2,'ch',5
        db 2,'dh',6
        db 2,'bh',7
        db 2,'ax',8
        db 2,'cx',9
        db 2,'dx',10
        db 2,'bx',11
        db 2,'sp',12
        db 2,'bp',13
        db 2,'si',14
        db 2,'di',15
        db 3,'eax',16
        db 3,'ecx',17
        db 3,'edx',18
        db 3,'ebx',19
        db 3,'esp',20
        db 3,'ebp',21
        db 3,'esi',22
        db 3,'edi',23
        db 3,'eip',24
        db 0
 
IncludeIGlobals
 
fn70_read_block:
        dd 0
        dq 0
        dd ?
        dd ?
        db 0
        dd ?
 
fn70_attr_block:
        dd 5
        dd 0,0,0
        dd fileattr
        db 0
        dd ?
 
fn70_load_block:
        dd 7
        dd 1
load_params dd 0
        dd 0
        dd 0
i_end:
loadname:
        db 0
        rb 255
 
symbolsfile     rb 260
 
prgname_ptr dd ?
prgname_len dd ?
 
IncludeUGlobals
 
align 4
debuggee_pid    dd ?
dbgwnd          dd ?
temp_break      dd ?
 
 
fpu_mode        db ?
sse_mode        db ?
bSuspended      db ?
bAfterGo        db ?
 
 
messages_pos    dd ?
messages        rb messages_height*messages_width
 
cmdline         rb cmdline_width+1
cmdline_len     dd ?
cmdline_pos     dd ?
curarg          dd ?
 
cmdline_prev    rb cmdline_width+1
 
was_temp_break  db ?
symbol_section  db ?
 
dbgbufsize      dd ?
dbgbuflen       dd ?
dbgbuf          rb 256
 
fileattr        rb 40
 
;keep aligned !!!
;do not change layout !!!
 
align 16
needzerostart:
context:
_eip    dd ?
_eflags dd ?
_eax    dd ?
_ecx    dd ?
_edx    dd ?
_ebx    dd ?
_esp    dd ?
_ebp    dd ?
_esi    dd ?
_edi    dd ?
 
_ctx_flags:
        dd ?
        dd ?
 
_sse_flags:
 
 
_fcw    dw ?
_fsw    dw ?
_ftw    db ?
        db ?
_fop    dw ?
_fpu_ip dd ?
        dw ?
        dw ?
 
        dq ?
        dq ?
 
fpu_context:
mmx_context:
_st0:
_mm0:   rq 2
_st1:
_mm1:   rq 2
_st2:
_mm2:   rq 2
_st3:
_mm3:   rq 2
_st4:
_mm4:   rq 2
_st5:
_mm5:   rq 2
_st6:
_mm6:   rq 2
_st7:
_mm7:   rq 2
 
sse_context:
_xmm0   rq 2
_xmm1   rq 2
_xmm2   rq 2
_xmm3   rq 2
_xmm4   rq 2
_xmm5   rq 2
_xmm6   rq 2
_xmm7   rq 2
ctx_end:
 
oldcontext rb _ctx_flags-context
        rb 32
 
oldfpucontext:
oldmmxcontext: rb sse_context-fpu_context
oldssecontext: rb ctx_end-sse_context
 
if 0
avx_context:
_ymm0   dq 4 dup ?
_ymm1   dq 4 dup ?
_ymm2   dq 4 dup ?
_ymm3   dq 4 dup ?
_ymm4   dq 4 dup ?
_ymm5   dq 4 dup ?
_ymm6   dq 4 dup ?
_ymm7   dq 4 dup ?
oldavxcontext rb $-avx_context
end if
 
 
step_num dd ?
proc_num dd ?
dumpread dd ?
dumppos  dd ?
dumpdata rb dump_height*10h
 
; breakpoint structure:
; dword +0: address
; byte +4: flags
; bit 0: 1 <=> breakpoint valid
; bit 1: 1 <=> breakpoint disabled
; bit 2: 1 <=> one-shot breakpoint
; bit 3: 1 <=> DRx breakpoint
; byte +5: overwritten byte
;          for DRx breaks: flags + (index shl 6)
breakpoints_n = 256
breakpoints     rb breakpoints_n*6
drx_break       rd 4
 
disasm_buf_size dd ?
 
symbols         dd ?
num_symbols     dd ?
 
bReload         db ?
 
needzeroend:
 
disasm_buffer           rb 256
disasm_start_pos        dd ?
disasm_cur_pos          dd ?
disasm_cur_str          dd ?
disasm_string           rb 256
 
thread_info             process_information
 
;-----------------------------------------------------------------------------
;                  Coordinates and sizes for GUI
 
data_x_size_dd          dd ?, ?
messages_x_size_dd      dd ?, ?
registers_x_pos_dd      dd ?, ?
 
disasm_height_dd        dd ?
disasm_y_size_dd        dd ?, ?
messages_y_pos_dd       dd ?, ?
cmdline_y_pos_dd        dd ?, ?
registers_y_size_dd     dd ?, ?
 
i_param         rb 256
 
; stack
        align   400h
        rb      400h
used_mem:
 
; vim: ft=fasm tabstop=4

Rev 5461	Rev 6344
1	;COLOR_THEME fix BLACK_ON_WHITE	1	;COLOR_THEME fix BLACK_ON_WHITE
2	COLOR_THEME fix MOVIEOS	2	COLOR_THEME fix MOVIEOS
3		3
4	format binary as ""	4	format binary as ""
5	include '../../macros.inc'	5	include '../../macros.inc'
6	use32	6	use32
7	db 'MENUET01'	7	db 'MENUET01'
8	dd 1	8	dd 1
9	dd start	9	dd start
10	dd i_end	10	dd i_end
11	dd used_mem	11	dd used_mem
12	dd used_mem	12	dd used_mem
13	dd i_param	13	dd i_param
14	dd 0	14	dd 0
15		15
16	;-----------------------------------------------------------------------------	16	;-----------------------------------------------------------------------------
17		17
18	REG_MODE_CPU equ 1	18	REG_MODE_CPU equ 1
19	REG_MODE_MMX equ 2	19	REG_MODE_MMX equ 2
20	REG_MODE_SSE equ 3	20	REG_MODE_SSE equ 3
21	REG_MODE_AVX equ 4	21	REG_MODE_AVX equ 4
22		22
23	;-----------------------------------------------------------------------------	23	;-----------------------------------------------------------------------------
24		24
25	include 'gui.inc' ; GUI routines	25	include 'gui.inc' ; GUI routines
26		26
27	;-----------------------------------------------------------------------------	27	;-----------------------------------------------------------------------------
28	; Find command in list	28	; Find command in list
29		29
30	find_cmd:	30	find_cmd:
31	; all commands are case-insensitive	31	; all commands are case-insensitive
32	push edi	32	push edi
33		33
34	.x4:	34	.x4:
35	mov al, [edi]	35	mov al, [edi]
36	cmp al, 0	36	cmp al, 0
37	jz .x5	37	jz .x5
38	cmp al, 'A'	38	cmp al, 'A'
39	jb @f	39	jb @f
40	cmp al, 'Z'	40	cmp al, 'Z'
41	ja @f	41	ja @f
42	or al, 20h	42	or al, 20h
43		43
44	@@:	44	@@:
45	stosb	45	stosb
46	jmp .x4	46	jmp .x4
47		47
48	; find command	48	; find command
49	.x5:	49	.x5:
50	pop edi	50	pop edi
51		51
52	.x6:	52	.x6:
53	cmp dword [esi], 0	53	cmp dword [esi], 0
54	jz .x7	54	jz .x7
55	push esi	55	push esi
56	mov esi, [esi]	56	mov esi, [esi]
57	lodsb	57	lodsb
58	movzx ecx, al	58	movzx ecx, al
59	push edi	59	push edi
60	repz cmpsb	60	repz cmpsb
61	pop edi	61	pop edi
62	pop esi	62	pop esi
63	jz .x8	63	jz .x8
64	add esi, 17	64	add esi, 17
65	jmp .x6	65	jmp .x6
66		66
67	.x7:	67	.x7:
68	stc	68	stc
69		69
70	.x8:	70	.x8:
71	ret	71	ret
72		72
73	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	73	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
74	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	74	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
75	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	75	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
76		76
77	;-----------------------------------------------------------------------------	77	;-----------------------------------------------------------------------------
78	; Help event	78	; Help event
79		79
80	OnHelp:	80	OnHelp:
81	mov esi, help_msg	81	mov esi, help_msg
82	mov edi, [curarg]	82	mov edi, [curarg]
83	cmp byte [edi], 0	83	cmp byte [edi], 0
84	jz .x	84	jz .x
85	mov esi, help_groups	85	mov esi, help_groups
86	call find_cmd	86	call find_cmd
87	jc .nocmd	87	jc .nocmd
88	mov esi, [esi+12]	88	mov esi, [esi+12]
89		89
90	.x:	90	.x:
91	jmp put_message	91	jmp put_message
92		92
93	.nocmd:	93	.nocmd:
94	mov esi, aUnknownCommand	94	mov esi, aUnknownCommand
95	jmp .x	95	jmp .x
96		96
97	;-----------------------------------------------------------------------------	97	;-----------------------------------------------------------------------------
98	; Quit event	98	; Quit event
99	OnQuit:	99	OnQuit:
100	mcall -1	100	mcall -1
101		101
102	;-----------------------------------------------------------------------------	102	;-----------------------------------------------------------------------------
103	; Working with debug context	103	; Working with debug context
104		104
105	get_new_context:	105	get_new_context:
106	mov esi, context	106	mov esi, context
107	mov edi, oldcontext	107	mov edi, oldcontext
108	mov ecx, (ctx_end-context)/4	108	mov ecx, (ctx_end-context)/4
109	rep movsd	109	rep movsd
110		110
111	get_context:	111	get_context:
112	mcall 69, 1, [debuggee_pid], ctx_end-context, context	112	mcall 69, 1, [debuggee_pid], ctx_end-context, context
113	ret	113	ret
114		114
115	set_context:	115	set_context:
116	;push 2	-
117	;pop ebx	-
118	;push 69	-
119	;pop eax	-
120	;mov ecx, [debuggee_pid]	-
121	;mov esi, context	-
122	;push 28h	-
123	;pop edx	-
124	mcall 69, 2, [debuggee_pid], 28h, context	116	mcall 69, 2, [debuggee_pid], 28h, context
125	ret	117	ret
126		118
127	get_dump:	119	get_dump:
128	mov edi, dumpdata	120	mov edi, dumpdata
129	mov esi, [edi-4]	121	mov esi, [edi-4]
130	mov edx, dump_height*10h	122	mov edx, dump_height*10h
131	mov ecx, edx	123	mov ecx, edx
132	xor eax, eax	124	xor eax, eax
133	push edi	125	push edi
134	rep stosb	126	rep stosb
135	pop edi	127	pop edi
136	;mov ecx, [debuggee_pid]	-
137	;mov al, 69	-
138	;push 6	-
139	;pop ebx	-
140	mcall 69, 6, [debuggee_pid]	128	mcall 69, 6, [debuggee_pid]
141	cmp eax, -1	129	cmp eax, -1
142	jnz @f	130	jnz @f
143	mov esi, read_mem_err	131	mov esi, read_mem_err
144	call put_message	132	call put_message
145	xor eax, eax	133	xor eax, eax
146		134
147	@@:	135	@@:
148	mov [edi-8], eax	136	mov [edi-8], eax
149	; call restore_from_breaks	137	; call restore_from_breaks
150	; ret	138	; ret
151		139
152	; in: edi=buffer,eax=size,esi=address	140	; in: edi=buffer,eax=size,esi=address
153	restore_from_breaks:	141	restore_from_breaks:
154	mov ebx, breakpoints	142	mov ebx, breakpoints
155		143
156	@@:	144	@@:
157	test byte [ebx+4], 1	145	test byte [ebx+4], 1
158	jz .cont ; ignore invalid	146	jz .cont ; ignore invalid
159	test byte [ebx+4], 2 or 8	147	test byte [ebx+4], 2 or 8
160	jnz .cont ; ignore disabled and memory breaks	148	jnz .cont ; ignore disabled and memory breaks
161	mov ecx, [ebx]	149	mov ecx, [ebx]
162	sub ecx, esi	150	sub ecx, esi
163	cmp ecx, eax	151	cmp ecx, eax
164	jae .cont	152	jae .cont
165	mov dl, [ebx+5]	153	mov dl, [ebx+5]
166	mov [edi+ecx], dl	154	mov [edi+ecx], dl
167		155
168	.cont:	156	.cont:
169	add ebx, 6	157	add ebx, 6
170	cmp ebx, breakpoints+breakpoints_n*6	158	cmp ebx, breakpoints+breakpoints_n*6
171	jb @b	159	jb @b
172	ret	160	ret
173		161
174	;-----------------------------------------------------------------------------	162	;-----------------------------------------------------------------------------
175	; Load executable event	163	; Load executable event
176		164
177	OnLoad:	165	OnLoad:
178	mov esi, [curarg]	166	mov esi, [curarg]
179		167
180	OnLoadInit:	168	OnLoadInit:
181	mov edi, loadname	169	mov edi, loadname
182	or [prgname_len], -1	170	or [prgname_len], -1
183	mov [prgname_ptr], edi	171	mov [prgname_ptr], edi
184		172
185	.copyname:	173	.copyname:
186	lodsb	174	lodsb
187	stosb	175	stosb
188	inc [prgname_len]	176	inc [prgname_len]
189	cmp al, '/'	177	cmp al, '/'
190	jnz @f	178	jnz @f
191	or [prgname_len], -1	179	or [prgname_len], -1
192	mov [prgname_ptr], edi	180	mov [prgname_ptr], edi
193		181
194	@@:	182	@@:
195	cmp al, ' '	183	cmp al, ' '
196	ja .copyname	184	ja .copyname
197	mov byte [edi-1], 0	185	mov byte [edi-1], 0
198	and [load_params], 0	186	and [load_params], 0
199	dec esi	187	dec esi
200	call get_arg.skip_spaces	188	call get_arg.skip_spaces
201	cmp al, 0	189	cmp al, 0
202	jz @f	190	jz @f
203	mov [load_params], esi	191	mov [load_params], esi
204		192
205	@@:	193	@@:
206	and [dumppos], 0	194	and [dumppos], 0
207	mov ecx, [symbols]	195	mov ecx, [symbols]
208	jecxz do_reload	196	jecxz do_reload
209	mcall 68, 13	197	mcall 68, 13
210	and [symbols], 0	198	and [symbols], 0
211	and [num_symbols], 0	199	and [num_symbols], 0
212		200
213	; TODO: make it local	201	; TODO: make it local
214	do_reload:	202	do_reload:
215	;push 18	203	;push 18
216	;pop eax	204	;pop eax
217	;push 7	205	;push 7
218	;pop ebx	206	;pop ebx
219	mcall 18, 7	207	mcall 18, 7
220	mov [dbgwnd], eax	208	mov [dbgwnd], eax
221	xchg ecx, eax	209	xchg ecx, eax
222	;push 70	210	;push 70
223	;pop eax	211	;pop eax
224	;mov ebx, fn70_load_block	212	;mov ebx, fn70_load_block
225	mcall 70, fn70_load_block	213	mcall 70, fn70_load_block
226	test eax, eax	214	test eax, eax
227	jns .load_ok	215	jns .load_ok
228		216
229	.load_err:	217	.load_err:
230	push eax	218	push eax
231	mov esi, load_err_msg	219	mov esi, load_err_msg
232	call put_message	220	call put_message
233	pop eax	221	pop eax
234	not eax	222	not eax
235	cmp eax, 0x20	223	cmp eax, 0x20
236	jae .unk_err	224	jae .unk_err
237	mov esi, [load_err_msgs+eax*4]	225	mov esi, [load_err_msgs+eax*4]
238	test esi, esi	226	test esi, esi
239	jnz put_message	227	jnz put_message
240		228
241	.unk_err:	229	.unk_err:
242	mov esi, unk_err_msg	230	mov esi, unk_err_msg
243	inc eax	231	inc eax
244	push eax	232	push eax
245	call put_message_nodraw	233	call put_message_nodraw
246	jmp draw_messages	234	jmp draw_messages
247		235
248	.load_ok:	236	.load_ok:
249	mov [debuggee_pid], eax	237	mov [debuggee_pid], eax
250	mov [bSuspended], 1	238	mov [bSuspended], 1
-		239	mov eax, 5
-		240	mov ebx, 20
-		241	int 0x40
-		242
251	push ecx	243	push ecx
252	call get_context	244	call get_context
253	mov edi, oldcontext	245	mov edi, oldcontext
254	mov ecx, (ctx_end-context)/4	246	mov ecx, (ctx_end-context)/4
255	rep movsd	247	rep movsd
256		248
257	; activate debugger window	249	; activate debugger window
258	pop ecx	250	pop ecx
259	;mov bl, 3	251	;mov bl, 3
260	;push 18	252	;push 18
261	;pop eax	253	;pop eax
262	mcall 18, 3	254	mcall 18, 3
263	call redraw_title	255	call redraw_title
264	call draw_registers.redraw	256	call draw_registers.redraw
265	; read and draw dump of memory	257	; read and draw dump of memory
266	call get_dump	258	call get_dump
267	call draw_dump.redraw	259	call draw_dump.redraw
268	call update_disasm_eip_force	260	call update_disasm_eip_force
269	mov esi, load_succ_msg	261	mov esi, load_succ_msg
270	push [debuggee_pid]	262	push [debuggee_pid]
271	call put_message_nodraw	263	call put_message_nodraw
272	call draw_messages	264	call draw_messages
273	; try to load symbols	265	; try to load symbols
274	mov esi, loadname	266	mov esi, loadname
275	mov edi, symbolsfile	267	mov edi, symbolsfile
276	push edi	268	push edi
277		269
278	@@:	270	@@:
279	lodsb	271	lodsb
280	stosb	272	stosb
281	test al, al	273	test al, al
282	jnz @b	274	jnz @b
283	lea ecx, [edi-1]	275	lea ecx, [edi-1]
284		276
285	@@:	277	@@:
286	dec edi	278	dec edi
287	cmp edi, symbolsfile	279	cmp edi, symbolsfile
288	jb @f	280	jb @f
289	cmp byte [edi], '/'	281	cmp byte [edi], '/'
290	jz @f	282	jz @f
291	cmp byte [edi], '.'	283	cmp byte [edi], '.'
292	jnz @b	284	jnz @b
293	mov ecx, edi	285	mov ecx, edi
294		286
295	@@:	287	@@:
296	mov dword[ecx], '.dbg'	288	mov dword[ecx], '.dbg'
297	mov byte[ecx+4], 0	289	mov byte[ecx+4], 0
298	pop esi	290	pop esi
299	mov ebp, esi	291	mov ebp, esi
300	push ecx esi	292	push ecx esi
301	call OnLoadSymbols.silent ; Try to load .dbg file	293	call OnLoadSymbols.silent ; Try to load .dbg file
302	pop esi ecx	294	pop esi ecx
303	xor eax, eax	295	xor eax, eax
304	cmp [num_symbols], eax	296	cmp [num_symbols], eax
305	jne @f	297	jne @f
306	mov dword[ecx], '.map' ; If failed, try .map file too	298	mov dword[ecx], '.map' ; If failed, try .map file too
307	call OnLoadSymbols.silent	299	call OnLoadSymbols.silent
308	@@:	300	@@:
309		301
310	; now test for packed progs	302	; now test for packed progs
311	cmp [disasm_buf_size], 100h	303	cmp [disasm_buf_size], 100h
312	jz @f	304	jz @f
313	ret	305	ret
314		306
315	@@:	307	@@:
316	mov esi, mxp_nrv_sig	308	mov esi, mxp_nrv_sig
317	mov ebp, disasm_buffer	309	mov ebp, disasm_buffer
318	mov edi, ebp	310	mov edi, ebp
319	push 3	311	push 3
320	pop ecx	312	pop ecx
321	repz cmpsb	313	repz cmpsb
322	jnz .not_mxp_nrv	314	jnz .not_mxp_nrv
323	cmpsb	315	cmpsb
324	mov cl, mxp_nrv_sig_size-4	316	mov cl, mxp_nrv_sig_size-4
325	repz cmpsb	317	repz cmpsb
326	mov esi, mxp_nrv_name	318	mov esi, mxp_nrv_name
327	jz .packed	319	jz .packed
328		320
329	.not_mxp_nrv:	321	.not_mxp_nrv:
330	mov esi, mxp_sig	322	mov esi, mxp_sig
331	mov edi, ebp	323	mov edi, ebp
332	mov cl, mxp_sig_size	324	mov cl, mxp_sig_size
333	repz cmpsb	325	repz cmpsb
334	mov esi, mxp_name	326	mov esi, mxp_name
335	jz .packed	327	jz .packed
336		328
337	.not_mxp:	329	.not_mxp:
338	mov esi, mxp_lzo_sig1	330	mov esi, mxp_lzo_sig1
339	mov edi, ebp	331	mov edi, ebp
340	mov cl, mxp_lzo_sig1_size	332	mov cl, mxp_lzo_sig1_size
341	repz cmpsb	333	repz cmpsb
342	mov esi, mxp_lzo_name	334	mov esi, mxp_lzo_name
343	jz .packed	335	jz .packed
344	mov esi, mxp_lzo_sig2	336	mov esi, mxp_lzo_sig2
345	mov edi, ebp	337	mov edi, ebp
346	mov cl, 8	338	mov cl, 8
347	repz cmpsb	339	repz cmpsb
348	jnz .not_mxp_lzo	340	jnz .not_mxp_lzo
349	cmpsb	341	cmpsb
350	mov cl, mxp_lzo_sig2_size - 9	342	mov cl, mxp_lzo_sig2_size - 9
351	repz cmpsb	343	repz cmpsb
352	mov esi, mxp_lzo_name	344	mov esi, mxp_lzo_name
353	jz .packed	345	jz .packed
354		346
355	.not_mxp_lzo:	347	.not_mxp_lzo:
356	mov esi, mtappack_name	348	mov esi, mtappack_name
357	cmp dword [ebp], 0xBF5E246A	349	cmp dword [ebp], 0xBF5E246A
358	jnz .not_mtappack	350	jnz .not_mtappack
359	cmp dword [ebp+8], 0xEC4E8B57	351	cmp dword [ebp+8], 0xEC4E8B57
360	jnz .not_mtappack1	352	jnz .not_mtappack1
361	cmp dword [ebp+12], 0x8D5EA4F3	353	cmp dword [ebp+12], 0x8D5EA4F3
362	jnz .not_mtappack1	354	jnz .not_mtappack1
363	cmp byte [ebp+12h], 0xE9	355	cmp byte [ebp+12h], 0xE9
364	jz .packed	356	jz .packed
365		357
366	.not_mtappack1:	358	.not_mtappack1:
367	cmp word [ebp+8], 0xB957	359	cmp word [ebp+8], 0xB957
368	jnz .not_mtappack	360	jnz .not_mtappack
369	cmp dword [ebp+14], 0x575EA4F3	361	cmp dword [ebp+14], 0x575EA4F3
370	jnz .not_mtappack2	362	jnz .not_mtappack2
371	cmp byte [ebp+17h], 0xE9	363	cmp byte [ebp+17h], 0xE9
372	jz .packed	364	jz .packed
373		365
374	.not_mtappack2:	366	.not_mtappack2:
375	cmp dword [ebp+14], 0x5F8DA4F3	367	cmp dword [ebp+14], 0x5F8DA4F3
376	jnz .not_mtappack3	368	jnz .not_mtappack3
377	cmp word [ebp+18], 0xE9FC	369	cmp word [ebp+18], 0xE9FC
378	jz .packed	370	jz .packed
379		371
380	.not_mtappack3:	372	.not_mtappack3:
381	cmp word [ebp+14], 0xA4F3	373	cmp word [ebp+14], 0xA4F3
382	jnz .not_mtappack	374	jnz .not_mtappack
383	cmp byte [ebp+15h], 0xE9	375	cmp byte [ebp+15h], 0xE9
384	jz .packed	376	jz .packed
385		377
386	.not_mtappack:	378	.not_mtappack:
387	ret	379	ret
388		380
389	.packed:	381	.packed:
390	push esi	382	push esi
391	mov esi, aPacked1	383	mov esi, aPacked1
392	call put_message_nodraw	384	call put_message_nodraw
393	pop esi	385	pop esi
394	call put_message_nodraw	386	call put_message_nodraw
395	mov esi, aPacked2	387	mov esi, aPacked2
396	call put_message	388	call put_message
397	call hide_cursor	389	call hide_cursor
398	;push 40	390	;push 40
399	;pop eax	391	;pop eax
400	;push 7	392	;push 7
401	;pop ebx	393	;pop ebx
402	mcall 40, 7	394	mcall 40, 7
403		395
404	.wait:	396	.wait:
405	;push 10	397	;push 10
406	;pop eax	398	;pop eax
407	mcall 10	399	mcall 10
408	dec eax	400	dec eax
409	jz .redraw	401	jz .redraw
410	dec eax	402	dec eax
411	jz .key	403	jz .key
412	or eax, -1	404	or eax, -1
413	mcall	405	mcall
414		406
415	.redraw:	407	.redraw:
416	call draw_window	408	call draw_window
417	call hide_cursor	409	call hide_cursor
418	jmp .wait	410	jmp .wait
419		411
420	.key:	412	.key:
421	mov al, 2	413	mov al, 2
422	mcall	414	mcall
423	cmp ah, 'y'	415	cmp ah, 'y'
424	jz .yes	416	jz .yes
425	cmp ah, 'Y'	417	cmp ah, 'Y'
426	jz .yes	418	jz .yes
427	cmp ah, 0xD	419	cmp ah, 0xD
428	jz .yes	420	jz .yes
429	cmp ah, 'n'	421	cmp ah, 'n'
430	jz .no	422	jz .no
431	cmp ah, 'N'	423	cmp ah, 'N'
432	jnz .wait	424	jnz .wait
433		425
434	.no:	426	.no:
435	;push 40	427	;push 40
436	;pop eax	428	;pop eax
437	;mov ebx, 0x107	429	;mov ebx, 0x107
438	mcall 40, 0x107	430	mcall 40, 0x107
439	call draw_cursor	431	call draw_cursor
440	mov esi, aN_str	432	mov esi, aN_str
441	jmp put_message	433	jmp put_message
442		434
443	.yes:	435	.yes:
444	;push 40	436	;push 40
445	;pop eax	437	;pop eax
446	;mov ebx, 0x107	438	;mov ebx, 0x107
447	mcall 40, 0x107	439	mcall 40, 0x107
448	call draw_cursor	440	call draw_cursor
449	mov esi, aY_str	441	mov esi, aY_str
450	call put_message	442	call put_message
451	call OnUnpack	443	call OnUnpack
452	ret	444	ret
453		445
454	;-----------------------------------------------------------------------------	446	;-----------------------------------------------------------------------------
455	; Searching signatures	447	; Searching signatures
456		448
457	mxp_nrv_sig:	449	mxp_nrv_sig:
458	xor eax, eax	450	xor eax, eax
459	mov ecx, 0x95 ; 0xA1 for programs with parameters	451	mov ecx, 0x95 ; 0xA1 for programs with parameters
460	mov [eax], ecx	452	mov [eax], ecx
461	add ecx, [eax+24h]	453	add ecx, [eax+24h]
462	push 40h	454	push 40h
463	pop esi	455	pop esi
464	mov edi, [eax+20h]	456	mov edi, [eax+20h]
465	push edi	457	push edi
466	rep movsb	458	rep movsb
467	jmp dword [esp]	459	jmp dword [esp]
468	pop esi	460	pop esi
469	add esi, [eax]	461	add esi, [eax]
470	xor edi, edi	462	xor edi, edi
471		463
472	mxp_nrv_sig_size = $ - mxp_nrv_sig	464	mxp_nrv_sig_size = $ - mxp_nrv_sig
473		465
474	mxp_sig:	466	mxp_sig:
475	mov ecx, 1CBh	467	mov ecx, 1CBh
476	push 46h	468	push 46h
477	pop esi	469	pop esi
478	mov edi, [20h]	470	mov edi, [20h]
479	rep movsb	471	rep movsb
480	mov ecx, [24h]	472	mov ecx, [24h]
481	rep movsb	473	rep movsb
482	jmp dword [20h]	474	jmp dword [20h]
483	mov eax, [20h]	475	mov eax, [20h]
484	add eax, 1CBh	476	add eax, 1CBh
485	push eax	477	push eax
486	push dword [24h]	478	push dword [24h]
487	push 0	479	push 0
488	push 8	480	push 8
489	call $+0x25	481	call $+0x25
490		482
491	mxp_sig_size = $ - mxp_sig	483	mxp_sig_size = $ - mxp_sig
492		484
493	mxp_lzo_sig1:	485	mxp_lzo_sig1:
494	xor eax, eax	486	xor eax, eax
495	mov ebp, 0FFh	487	mov ebp, 0FFh
496	mov ecx, 175h	488	mov ecx, 175h

Subversion Repositories Kolibri OS

(root)/programs/develop/mtdbg/mtdbg.asm – Rev 5461 → 6344