Subversion Repositories Kolibri OS

Rev

Rev 4913 | Rev 5460 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;COLOR_THEME fix BLACK_ON_WHITE
  2. COLOR_THEME fix MOVIEOS
  3.  
  4. format binary as ""
  5. include '../../macros.inc'
  6. use32
  7.         db      'MENUET01'
  8.         dd      1
  9.         dd      start
  10.         dd      i_end
  11.         dd      used_mem
  12.         dd      used_mem
  13.         dd      i_param
  14.         dd      0
  15.  
  16. ;-----------------------------------------------------------------------------
  17.  
  18. REG_MODE_CPU equ 1
  19. REG_MODE_MMX equ 2
  20. REG_MODE_SSE equ 3
  21. REG_MODE_AVX equ 4
  22.  
  23. ;-----------------------------------------------------------------------------
  24.  
  25. include 'gui.inc' ; GUI routines
  26.  
  27. ;-----------------------------------------------------------------------------
  28. ;                          Find command in list
  29.  
  30. find_cmd:
  31. ; all commands are case-insensitive
  32.         push    edi
  33.  
  34.     .x4:
  35.         mov     al, [edi]
  36.         cmp     al, 0
  37.         jz      .x5
  38.         cmp     al, 'A'
  39.         jb      @f
  40.         cmp     al, 'Z'
  41.         ja      @f
  42.         or      al, 20h
  43.  
  44.     @@:
  45.         stosb
  46.         jmp     .x4
  47.  
  48.     ; find command
  49.     .x5:
  50.         pop     edi
  51.  
  52.     .x6:
  53.         cmp     dword [esi], 0
  54.         jz      .x7
  55.         push    esi
  56.         mov     esi, [esi]
  57.         lodsb
  58.         movzx   ecx, al
  59.         push    edi
  60.         repz cmpsb
  61.         pop     edi
  62.         pop     esi
  63.         jz      .x8
  64.         add     esi, 17
  65.         jmp     .x6
  66.  
  67.     .x7:
  68.         stc
  69.  
  70.     .x8:
  71.         ret
  72.  
  73. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DEBUGGING ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  75. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  76.  
  77. ;-----------------------------------------------------------------------------
  78. ;                                 Help event
  79.  
  80. OnHelp:
  81.         mov     esi, help_msg
  82.         mov     edi, [curarg]
  83.         cmp     byte [edi], 0
  84.         jz      .x
  85.         mov     esi, help_groups
  86.         call    find_cmd
  87.         jc      .nocmd
  88.         mov     esi, [esi+12]
  89.  
  90.     .x:
  91.         jmp     put_message
  92.  
  93.     .nocmd:
  94.         mov     esi, aUnknownCommand
  95.         jmp     .x
  96.  
  97. ;-----------------------------------------------------------------------------
  98. ;                                Quit event
  99. OnQuit:
  100.         mcall  -1
  101.  
  102. ;-----------------------------------------------------------------------------
  103. ;                        Working with debug context
  104.  
  105. get_new_context:
  106.         mov     esi, context
  107.         mov     edi, oldcontext
  108.         mov     ecx, (ctx_end-context)/4
  109.         rep movsd
  110.  
  111. get_context:
  112.         mcall   69, 1, [debuggee_pid], ctx_end-context, context
  113.         ret
  114.  
  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
  125.         ret
  126.  
  127. get_dump:
  128.         mov     edi, dumpdata
  129.         mov     esi, [edi-4]
  130.         mov     edx, dump_height*10h
  131.         mov     ecx, edx
  132.         xor     eax, eax
  133.         push    edi
  134.         rep stosb
  135.         pop     edi
  136.         ;mov     ecx, [debuggee_pid]
  137.         ;mov     al, 69
  138.         ;push    6
  139.         ;pop     ebx
  140.         mcall    69, 6, [debuggee_pid]
  141.         cmp     eax, -1
  142.         jnz     @f
  143.         mov     esi, read_mem_err
  144.         call    put_message
  145.         xor     eax, eax
  146.  
  147.     @@:
  148.         mov     [edi-8], eax
  149. ;       call    restore_from_breaks
  150. ;       ret
  151.  
  152. ; in: edi=buffer,eax=size,esi=address
  153. restore_from_breaks:
  154.         mov     ebx, breakpoints
  155.  
  156.     @@:
  157.         test    byte [ebx+4], 1
  158.         jz      .cont           ; ignore invalid
  159.         test    byte [ebx+4], 2 or 8
  160.         jnz     .cont           ; ignore disabled and memory breaks
  161.         mov     ecx, [ebx]
  162.         sub     ecx, esi
  163.         cmp     ecx, eax
  164.         jae     .cont
  165.         mov     dl, [ebx+5]
  166.         mov     [edi+ecx], dl
  167.  
  168.     .cont:
  169.         add     ebx, 6
  170.         cmp     ebx, breakpoints+breakpoints_n*6
  171.         jb      @b
  172.         ret
  173.  
  174. ;-----------------------------------------------------------------------------
  175. ;                           Load executable event
  176.  
  177. OnLoad:
  178.         mov     esi, [curarg]
  179.  
  180. OnLoadInit:
  181.         mov     edi, loadname
  182.         or      [prgname_len], -1
  183.         mov     [prgname_ptr], edi
  184.  
  185.     .copyname:
  186.         lodsb
  187.         stosb
  188.         inc     [prgname_len]
  189.         cmp     al, '/'
  190.         jnz     @f
  191.         or      [prgname_len], -1
  192.         mov     [prgname_ptr], edi
  193.  
  194.     @@:
  195.         cmp     al, ' '
  196.         ja      .copyname
  197.         mov     byte [edi-1], 0
  198.         and     [load_params], 0
  199.         dec     esi
  200.         call    get_arg.skip_spaces
  201.         cmp     al, 0
  202.         jz      @f
  203.         mov     [load_params], esi
  204.  
  205.     @@:
  206.         and     [dumppos], 0
  207.         mov     ecx, [symbols]
  208.         jecxz   do_reload
  209.         mcall   68, 13
  210.         and     [symbols], 0
  211.         and     [num_symbols], 0
  212.  
  213. ; TODO: make it local
  214. do_reload:
  215.         ;push    18
  216.         ;pop     eax
  217.         ;push    7
  218.         ;pop     ebx
  219.         mcall    18, 7
  220.         mov     [dbgwnd], eax
  221.         xchg    ecx, eax
  222.         ;push    70
  223.         ;pop     eax
  224.         ;mov     ebx, fn70_load_block
  225.         mcall    70, fn70_load_block
  226.         test    eax, eax
  227.         jns     .load_ok
  228.  
  229.     .load_err:
  230.         push    eax
  231.         mov     esi, load_err_msg
  232.         call    put_message
  233.         pop     eax
  234.         not     eax
  235.         cmp     eax, 0x20
  236.         jae     .unk_err
  237.         mov     esi, [load_err_msgs+eax*4]
  238.         test    esi, esi
  239.         jnz     put_message
  240.  
  241.     .unk_err:
  242.         mov     esi, unk_err_msg
  243.         inc     eax
  244.         push    eax
  245.         call    put_message_nodraw
  246.         jmp     draw_messages
  247.  
  248.     .load_ok:
  249.         mov     [debuggee_pid], eax
  250.         mov     [bSuspended], 1
  251.         push    ecx
  252.         call    get_context
  253.         mov     edi, oldcontext
  254.         mov     ecx, (ctx_end-context)/4
  255.         rep movsd
  256.  
  257.     ; activate debugger window
  258.         pop     ecx
  259.         ;mov     bl, 3
  260.         ;push    18
  261.         ;pop     eax
  262.         mcall    18, 3
  263.         call    redraw_title
  264.         call    draw_registers.redraw
  265.     ; read and draw dump of memory
  266.         call    get_dump
  267.         call    draw_dump.redraw
  268.         call    update_disasm_eip_force
  269.         mov     esi, load_succ_msg
  270.         push    [debuggee_pid]
  271.         call    put_message_nodraw
  272.         call    draw_messages
  273.     ; try to load symbols
  274.         mov     esi, loadname
  275.         mov     edi, symbolsfile
  276.         push    edi
  277.  
  278.     @@:
  279.         lodsb
  280.         stosb
  281.         test    al, al
  282.         jnz     @b
  283.         lea     ecx, [edi-1]
  284.  
  285.     @@:
  286.         dec     edi
  287.         cmp     edi, symbolsfile
  288.         jb      @f
  289.         cmp     byte [edi], '/'
  290.         jz      @f
  291.         cmp     byte [edi], '.'
  292.         jnz     @b
  293.         mov     ecx, edi
  294.  
  295.     @@:
  296.         mov     dword[ecx], '.dbg'
  297.         mov     byte[ecx+4], 0
  298.         pop     esi
  299.         mov     ebp, esi
  300.         push    ecx esi
  301.         call    OnLoadSymbols.silent            ; Try to load .dbg file
  302.         pop     esi ecx
  303.         xor     eax, eax
  304.         cmp     [num_symbols], eax
  305.         jne     @f
  306.         mov     dword[ecx], '.map'              ; If failed, try .map file too
  307.         call    OnLoadSymbols.silent
  308.     @@:
  309.  
  310.     ; now test for packed progs
  311.         cmp     [disasm_buf_size], 100h
  312.         jz      @f
  313.         ret
  314.  
  315.     @@:
  316.         mov     esi, mxp_nrv_sig
  317.         mov     ebp, disasm_buffer
  318.         mov     edi, ebp
  319.         push    3
  320.         pop     ecx
  321.         repz cmpsb
  322.         jnz     .not_mxp_nrv
  323.         cmpsb
  324.         mov     cl, mxp_nrv_sig_size-4
  325.         repz cmpsb
  326.         mov     esi, mxp_nrv_name
  327.         jz      .packed
  328.  
  329.     .not_mxp_nrv:
  330.         mov     esi, mxp_sig
  331.         mov     edi, ebp
  332.         mov     cl, mxp_sig_size
  333.         repz cmpsb
  334.         mov     esi, mxp_name
  335.         jz      .packed
  336.  
  337.     .not_mxp:
  338.         mov     esi, mxp_lzo_sig1
  339.         mov     edi, ebp
  340.         mov     cl, mxp_lzo_sig1_size
  341.         repz cmpsb
  342.         mov     esi, mxp_lzo_name
  343.         jz      .packed
  344.         mov     esi, mxp_lzo_sig2
  345.         mov     edi, ebp
  346.         mov     cl, 8
  347.         repz cmpsb
  348.         jnz     .not_mxp_lzo
  349.         cmpsb
  350.         mov     cl, mxp_lzo_sig2_size - 9
  351.         repz cmpsb
  352.         mov     esi, mxp_lzo_name
  353.         jz      .packed
  354.  
  355.     .not_mxp_lzo:
  356.         mov     esi, mtappack_name
  357.         cmp     dword [ebp], 0xBF5E246A
  358.         jnz     .not_mtappack
  359.         cmp     dword [ebp+8], 0xEC4E8B57
  360.         jnz     .not_mtappack1
  361.         cmp     dword [ebp+12], 0x8D5EA4F3
  362.         jnz     .not_mtappack1
  363.         cmp     byte [ebp+12h], 0xE9
  364.         jz      .packed
  365.  
  366.     .not_mtappack1:
  367.         cmp     word [ebp+8], 0xB957
  368.         jnz     .not_mtappack
  369.         cmp     dword [ebp+14], 0x575EA4F3
  370.         jnz     .not_mtappack2
  371.         cmp     byte [ebp+17h], 0xE9
  372.         jz      .packed
  373.  
  374.     .not_mtappack2:
  375.         cmp     dword [ebp+14], 0x5F8DA4F3
  376.         jnz     .not_mtappack3
  377.         cmp     word [ebp+18], 0xE9FC
  378.         jz      .packed
  379.  
  380.     .not_mtappack3:
  381.         cmp     word [ebp+14], 0xA4F3
  382.         jnz     .not_mtappack
  383.         cmp     byte [ebp+15h], 0xE9
  384.         jz      .packed
  385.  
  386.     .not_mtappack:
  387.         ret
  388.  
  389.     .packed:
  390.         push    esi
  391.         mov     esi, aPacked1
  392.         call    put_message_nodraw
  393.         pop     esi
  394.         call    put_message_nodraw
  395.         mov     esi, aPacked2
  396.         call    put_message
  397.         call    hide_cursor
  398.         ;push    40
  399.         ;pop     eax
  400.         ;push    7
  401.         ;pop     ebx
  402.         mcall    40, 7
  403.  
  404.     .wait:
  405.         ;push    10
  406.         ;pop     eax
  407.         mcall    10
  408.         dec     eax
  409.         jz      .redraw
  410.         dec     eax
  411.         jz      .key
  412.         or      eax, -1
  413.         mcall
  414.  
  415.     .redraw:
  416.         call    draw_window
  417.         call    hide_cursor
  418.         jmp     .wait
  419.  
  420.     .key:
  421.         mov     al, 2
  422.         mcall
  423.         cmp     ah, 'y'
  424.         jz      .yes
  425.         cmp     ah, 'Y'
  426.         jz      .yes
  427.         cmp     ah, 0xD
  428.         jz      .yes
  429.         cmp     ah, 'n'
  430.         jz      .no
  431.         cmp     ah, 'N'
  432.         jnz     .wait
  433.  
  434.     .no:
  435.         ;push    40
  436.         ;pop     eax
  437.         ;mov     ebx, 0x107
  438.         mcall    40, 0x107
  439.         call    draw_cursor
  440.         mov     esi, aN_str
  441.         jmp     put_message
  442.  
  443.     .yes:
  444.         ;push    40
  445.         ;pop     eax
  446.         ;mov     ebx, 0x107
  447.         mcall    40, 0x107
  448.         call    draw_cursor
  449.         mov     esi, aY_str
  450.         call    put_message
  451.         call    OnUnpack
  452.         ret
  453.  
  454. ;-----------------------------------------------------------------------------
  455. ;                       Searching signatures
  456.  
  457. mxp_nrv_sig:
  458.         xor     eax, eax
  459.         mov     ecx, 0x95       ; 0xA1 for programs with parameters
  460.         mov     [eax], ecx
  461.         add     ecx, [eax+24h]
  462.         push    40h
  463.         pop     esi
  464.         mov     edi, [eax+20h]
  465.         push    edi
  466.         rep movsb
  467.         jmp     dword [esp]
  468.         pop     esi
  469.         add     esi, [eax]
  470.         xor     edi, edi
  471.  
  472. mxp_nrv_sig_size = $ - mxp_nrv_sig
  473.  
  474. mxp_sig:
  475.         mov     ecx, 1CBh
  476.         push    46h
  477.         pop     esi
  478.         mov     edi, [20h]
  479.         rep movsb
  480.         mov     ecx, [24h]
  481.         rep movsb
  482.         jmp     dword [20h]
  483.         mov     eax, [20h]
  484.         add     eax, 1CBh
  485.         push    eax
  486.         push    dword [24h]
  487.         push    0
  488.         push    8
  489.         call    $+0x25
  490.  
  491. mxp_sig_size = $ - mxp_sig
  492.  
  493. mxp_lzo_sig1:
  494.         xor     eax, eax
  495.         mov     ebp, 0FFh
  496.         mov     ecx, 175h
  497.         mov     [eax], ecx
  498.         add     ecx, [eax+24h]
  499.         push    45h
  500.         pop     esi
  501.         mov     edi, [eax+20h]
  502.         push    edi
  503.         rep movsb
  504.         jmp     dword [esp]
  505.         pop     ebx
  506.         add     ebx, [eax]
  507.         xor     edi, edi
  508.         cmp     byte [ebx], 11h
  509.         jbe     $+0x1A
  510.  
  511. mxp_lzo_sig1_size = $ - mxp_lzo_sig1
  512.  
  513. mxp_lzo_sig2:
  514.         xor     eax, eax
  515.         mov     ebp, 0FFh
  516.         mov     ecx, 188h       ; or 177h
  517.         mov     [eax], ecx
  518.         add     ecx, [eax+24h]
  519.         push    44h
  520.         pop     esi
  521.         mov     edi, [eax+20h]
  522.         rep movsb
  523.         jmp     dword [eax+20h]
  524.         mov     ebx, [eax+20h]
  525.         add     ebx, [eax]
  526.  
  527. mxp_lzo_sig2_size = $ - mxp_lzo_sig2
  528.  
  529. ;-----------------------------------------------------------------------------
  530. ;                         Reload executable event
  531.  
  532. OnReload:
  533.         cmp     [debuggee_pid], 0
  534.         jnz     terminate_reload
  535.         mov     esi, need_debuggee
  536.         cmp     byte [loadname], 0
  537.         jnz     do_reload
  538.         jz      put_message
  539.  
  540. ; TODO: make it local
  541. terminate_reload:
  542.         mov     [bReload], 1
  543.  
  544. ;-----------------------------------------------------------------------------
  545. ;                        Terminate process event
  546.  
  547. OnTerminate:
  548.         ;mov     ecx, [debuggee_pid]
  549.         ;push    8
  550.         ;pop     ebx
  551.         ;push    69
  552.         ;pop     eax
  553.         mcall    69, 8, [debuggee_pid]
  554.         ret
  555. ;-----------------------------------------------------------------------------
  556. ;                         Suspend process event
  557.  
  558. AfterSuspend:
  559.         mov     [bSuspended], 1
  560.         call    get_new_context
  561.         call    get_dump
  562.         call    redraw_title
  563.         call    draw_registers.redraw
  564.         call    draw_dump.redraw
  565.         call    update_disasm_eip
  566.         ret
  567.  
  568. OnSuspend:
  569.         ;mov     ecx, [debuggee_pid]
  570.         ;push    4
  571.         ;pop     ebx
  572.         ;push    69
  573.         ;pop     eax
  574.         mcall    69, 4, [debuggee_pid]
  575.         call    AfterSuspend
  576.         mov     esi, aSuspended
  577.         jmp     put_message
  578.  
  579. ;-----------------------------------------------------------------------------
  580. ;                        Resume process event
  581.  
  582. DoResume:
  583.         ;mov     ecx, [debuggee_pid]
  584.         ;push    5
  585.         ;pop     ebx
  586.         ;push    69
  587.         ;pop     eax
  588.         mcall    69, 5, [debuggee_pid]
  589.         mov     [bSuspended], 0
  590.         ret
  591.  
  592. OnResume:
  593.         mov     esi, [curarg]
  594.         cmp     byte [esi], 0
  595.         jz      GoOn
  596.         call    calc_expression
  597.         jc      .ret
  598.         mov     eax, ebp
  599.         push    eax
  600.         call    find_enabled_breakpoint
  601.         pop     eax
  602.         jz      GoOn
  603.         mov     bl, 5   ; valid enabled one-shot
  604.         call    add_breakpoint
  605.         jnc     GoOn
  606.         mov     esi, aBreakpointLimitExceeded
  607.         call    put_message
  608.  
  609.     .ret:
  610.         ret
  611.  
  612. GoOn:
  613.     ; test for enabled breakpoint at eip
  614.         mov     eax, [_eip]
  615.         call    find_enabled_breakpoint
  616.         jnz     .nobreak
  617.     ; temporarily disable breakpoint, make step, enable breakpoint, continue
  618.         inc     eax
  619.         mov     [temp_break], eax
  620.         mov     [bAfterGo], 1
  621.         dec     eax
  622.         call    disable_breakpoint
  623.         call    get_context
  624.         or      byte [_eflags+1], 1             ; set TF
  625.         call    set_context
  626.         and     byte [_eflags+1], not 1
  627.         call    DoResume
  628.         ret
  629.  
  630.     .nobreak:
  631.         call    DoResume
  632.         call    redraw_title
  633.         call    draw_registers.redraw
  634.         call    draw_dump.redraw
  635.         ret
  636.  
  637. ;-----------------------------------------------------------------------------
  638. ;                        Detach process event
  639.  
  640. OnDetach:
  641.         ;mov     ecx, [debuggee_pid]
  642.         ;push    3
  643.         ;pop     ebx
  644.         ;push    69
  645.         ;pop     eax
  646.         mcall    69, 3, [debuggee_pid]
  647.         and     [debuggee_pid], 0
  648.         call    redraw_title
  649.         call    draw_registers.redraw
  650.         call    draw_dump.redraw
  651.         call    free_symbols
  652.         mov     esi, aContinued
  653.         jmp     put_message
  654.  
  655. after_go_exception:
  656.         push    eax
  657.         mov     eax, [temp_break]
  658.         dec     eax
  659.         push    esi
  660.         call    enable_breakpoint
  661.     ; in any case, clear TF and RF
  662.         call    get_new_context
  663.         and     [_eflags], not 10100h           ; clear TF,RF
  664.         call    set_context
  665.         xor     edx, edx
  666.         mov     [temp_break], edx
  667.         xchg    dl, [bAfterGo]
  668.         pop     esi
  669.         pop     eax
  670.         cmp     dl, 2
  671.         jnz     @f
  672.         lodsd
  673.         push    esi
  674.         call    get_dump
  675.         jmp     exception.done
  676.  
  677.     @@:
  678.         test    eax, eax
  679.         jz      .notint1
  680.     ; if exception is result of single step, simply ignore it and continue
  681.         test    dword [esi], 0xF
  682.         jnz     dbgmsgstart.5
  683.         lodsd
  684.         push    esi
  685.         mov     esi, oldcontext
  686.         mov     edi, context
  687.         mov     ecx, 28h/4
  688.         rep movsd
  689.         call    DoResume
  690.         jmp     dbgmsgend
  691.  
  692.     .notint1:
  693.     ; in other case, work as without temp_break
  694.         lodsd
  695.         push    esi
  696.         push    eax
  697.         jmp     exception.4
  698.  
  699.     .notour:
  700.  
  701. ; TODO: split it out
  702. debugmsg:
  703.         neg     [dbgbufsize]
  704.         mov     esi, dbgbuf
  705.  
  706. ; TODO: make it local
  707. dbgmsgstart:
  708.         lodsd
  709. ;       push    eax esi
  710. ;       push    dword [esi]
  711. ;       mov     esi, dbgmsg_str
  712. ;       call    put_message_nodraw
  713. ;       pop     esi eax
  714.         add     esi, 4
  715.         dec     eax
  716.         jz      exception
  717.         dec     eax
  718.         jz      terminated
  719.         mov     [bSuspended], 1
  720.         cmp     [bAfterGo], 0
  721.         jnz     after_go_exception
  722.         push    esi
  723.         call    get_new_context
  724.         and     [_eflags], not 10100h           ; clear TF,RF
  725.         call    set_context
  726.         pop     esi
  727.  
  728.     ; TODO: WTF? Need for meaning label names
  729.     .5:
  730.         push    esi
  731.         call    get_dump
  732.         pop     esi
  733.         lodsd
  734.         xor     ecx, ecx
  735.  
  736.     .6:
  737.         bt      eax, ecx
  738.         jnc     .7
  739.         mov     ebx, [drx_break+ecx*4]
  740.         test    ebx, ebx
  741.         jz      .7
  742.         pushad
  743.         dec     ebx
  744.         push    ebx
  745.         mov     esi, aBreakStop
  746.         call    put_message_nodraw
  747.         popad
  748.  
  749.     .7:
  750.         inc     ecx
  751.         cmp     cl, 4
  752.         jb      .6
  753.         push    esi
  754.         jmp     exception.done_draw
  755.  
  756. ; TODO: make it local
  757. terminated:
  758.         push    esi
  759.         mov     esi, terminated_msg
  760.         call    put_message
  761.         and     [debuggee_pid], 0
  762.         and     [temp_break], 0
  763.         mov     [bAfterGo], 0
  764.         xor     eax, eax
  765.         mov     ecx, breakpoints_n*6/4+4
  766.         mov     edi, breakpoints
  767.         rep stosd
  768.         cmp     [bReload], 1
  769.         sbb     [bReload], -1
  770.         jnz     exception.done
  771.         call    free_symbols
  772.         jmp     exception.done
  773.  
  774. exception:
  775.         mov     [bSuspended], 1
  776.         cmp     [bAfterGo], 0
  777.         jnz     after_go_exception
  778.         lodsd
  779.         push    esi
  780.         push    eax
  781.         call    get_new_context
  782.         and     [_eflags], not 10100h           ; clear TF,RF
  783.         call    set_context
  784.  
  785.     ; TODO: fix for useful name
  786.     .4:
  787.         call    get_dump
  788.         pop     eax
  789.     ; int3 command generates exception 0D, #GP
  790.         push    eax
  791.         cmp     al, 0Dh
  792.         jnz     .notdbg
  793.     ; check for 0xCC byte at eip
  794.         push    0
  795.         ;push    69
  796.         ;pop     eax
  797.         ;push    6
  798.         ;pop     ebx
  799.         ;mov     ecx, [debuggee_pid]
  800.         ;mov     edi, esp
  801.         ;mov     esi, [_eip]
  802.         ;push    1
  803.         ;pop     edx
  804.         mcall    69, 6, [debuggee_pid], 1, [_eip], esp
  805.         pop     eax
  806.         cmp     al, 0xCC
  807.         jnz     .notdbg
  808.     ; this is either dbg breakpoint or int3 cmd in debuggee
  809.         mov     eax, [_eip]
  810.         call    find_enabled_breakpoint
  811.         jnz     .user_int3
  812.     ; dbg breakpoint; clear if one-shot
  813.         pop     ecx
  814.         push    eax
  815.         mov     esi, aBreakStop
  816.         test    byte [edi+4], 4
  817.         jz      .put_msg_eax
  818.         pop     ecx
  819.         call    clear_breakpoint
  820.         jmp     .done
  821.  
  822.     .user_int3:
  823.         mov     eax, [_eip]
  824.         inc     [_eip]
  825.         pop     ecx
  826.         push    eax
  827.         call    set_context
  828.         mov     esi, aUserBreak
  829.         jmp     .put_msg_eax
  830.  
  831.     .notdbg:
  832.         mov     esi, aException
  833.  
  834.     .put_msg_eax:
  835.         call    put_message_nodraw
  836.  
  837.     .done_draw:
  838.         call    draw_messages
  839.  
  840.     .done:
  841.         ;push    18
  842.         ;pop     eax
  843.         ;push    3
  844.         ;pop     ebx
  845.         ;mov     ecx, [dbgwnd]
  846.         mcall    18, 3, [dbgwnd]    ; activate dbg window
  847.         call    redraw_title
  848.         call    draw_registers.redraw
  849.         call    draw_dump.redraw
  850.         call    update_disasm_eip
  851.  
  852. dbgmsgend:
  853.         pop     esi
  854.         mov     ecx, [dbgbuflen]
  855.         add     ecx, dbgbuf
  856.         cmp     esi, ecx
  857.         jnz     dbgmsgstart
  858.         and     [dbgbuflen], 0
  859.         neg     [dbgbufsize]
  860.         cmp     [bReload], 2
  861.         jnz     @f
  862.         mov     [bReload], 0
  863.         call    do_reload
  864.  
  865.     @@:
  866.         jmp     waitevent
  867.  
  868. ; TODO: make it local
  869. F7:
  870.         cmp     [debuggee_pid], 0
  871.         jz      .no
  872.         call    OnStep
  873.  
  874.     .no:
  875.         jmp     waitevent
  876.  
  877. ; TODO: make it local
  878. F8:
  879.         cmp     [debuggee_pid], 0
  880.         jz      F7.no
  881.         call    OnProceed
  882.         jmp     F7.no
  883.  
  884. ;-----------------------------------------------------------------------------
  885. ;                       Step execution event
  886.  
  887. ;Here we get [<number>] argument at do step <number> times
  888. OnStepMultiple:
  889.         cmp     [bSuspended], 0
  890.         jz      OnStep.running
  891.         mov     [step_num], 1
  892.         mov     esi, [curarg]
  893.         test    esi, esi
  894.         jz      .do
  895.         cmp     byte [esi], 0
  896.         jz      .do
  897.         call    get_hex_number
  898.         jc      .ret
  899.         cmp     eax, 0 ; check if lesser or equal than 0
  900.         jle     .ret
  901.         mov     [step_num], eax
  902. .do:
  903.         call    OnStep
  904.         dec     [step_num]
  905.         jnz     .do
  906. .ret:
  907.         ret
  908.  
  909. OnStep:
  910.         cmp     [bSuspended], 0
  911.         jz      .running
  912.         call    get_context
  913.         or      byte [_eflags+1], 1             ; set TF
  914.         call    set_context
  915.         and     byte [_eflags+1], not 1
  916.     ; if instruction at eip is "int xx", set one-shot breakpoint immediately after
  917.         mov     eax, [_eip]
  918.         call    find_enabled_breakpoint
  919.         jnz     @f
  920.         cmp     byte [edi+5], 0xCD
  921.         jz      .int
  922.  
  923.      @@:
  924.         push    0
  925.         ;push    69
  926.         ;pop     eax
  927.         ;push    6
  928.         ;pop     ebx
  929.         ;mov     ecx, [debuggee_pid]
  930.         ;push    3
  931.         ;pop     edx
  932.         ;mov     edi, esp
  933.         ;mov     esi, [_eip]
  934.         mcall    69, 6, [debuggee_pid], 3, [_eip], esp
  935.         cmp     eax, edx
  936.         pop     eax
  937.         jnz     .doit
  938.         cmp     al, 0xCD
  939.         jz      .int
  940.         cmp     ax, 0x050F
  941.         jz      .syscall
  942.         cmp     ax, 0x340F
  943.         jz      .sysenter
  944.  
  945.     ; resume process
  946.     .doit:
  947.         call    GoOn
  948.         cmp     [bAfterGo], 0
  949.         jz      @f
  950.         mov     [bAfterGo], 2
  951.  
  952.     @@:
  953.         ret
  954.  
  955.     ; return address is [ebp-4]
  956.     .sysenter:
  957.         push    0
  958.         ;push    69
  959.         ;pop     eax
  960.         inc     edx     ; read 4 bytes
  961.         mov     esi, [_ebp]
  962.         sub     esi, 4
  963.         mcall    69
  964.         cmp     eax, edx
  965.         pop     eax
  966.         jnz     .syscall
  967.         push    eax
  968.         and     byte [_eflags+1], not 1
  969.         call    set_context
  970.         pop     eax
  971.         jmp     @f
  972.  
  973.     .syscall:
  974.         and     byte [_eflags+1], not 1 ; clear TF - avoid system halt (!)
  975.         call    set_context
  976.  
  977.     .int:
  978.         mov     eax, [_eip]
  979.         inc     eax
  980.         inc     eax
  981.  
  982.     @@:
  983.         push    eax
  984.         call    find_enabled_breakpoint
  985.         pop     eax
  986.         jz      .doit
  987.     ; there is no enabled breakpoint yet; set temporary breakpoint
  988.         mov     bl, 5
  989.         call    add_breakpoint
  990.         jmp     .doit
  991.  
  992.     .running:
  993.         mov     esi, aRunningErr
  994.         jmp     put_message
  995.  
  996. ;-----------------------------------------------------------------------------
  997. ;                       Proceed process event
  998.  
  999. OnProceed:
  1000.         cmp     [bSuspended], 0
  1001.         jz      OnStep.running
  1002.         cmp     [proc_num], 0
  1003.         jg      .procone
  1004.         mov     esi, [curarg]
  1005.         cmp     esi, 0
  1006.         jz      .procone
  1007.         cmp     byte [esi], 0
  1008.         jz      .procone
  1009.         call    get_hex_number
  1010.         jc      .ret
  1011.         cmp     eax, 0 ; check if lesser than 0
  1012.         jle     .ret
  1013.         mov     [proc_num], eax
  1014.         mov     [curarg], 0
  1015.  
  1016.     .procone:
  1017.         mov     esi, [_eip]
  1018.  
  1019.     @@:
  1020.         call    get_byte_nobreak
  1021.         jc      OnStep
  1022.         inc     esi
  1023.     ; skip prefixes
  1024.         call    is_prefix
  1025.         jz      @b
  1026.         cmp     al, 0xE8        ; call
  1027.         jnz     @f
  1028.         add     esi, 4
  1029.         jmp     .doit
  1030.  
  1031.     ; A4,A5 = movs; A6,A7 = cmps
  1032.     @@:
  1033.         cmp     al, 0xA4
  1034.         jb      @f
  1035.         cmp     al, 0xA8
  1036.         jb      .doit
  1037.  
  1038.     ; AA,AB = stos; AC,AD = lods; AE,AF = scas
  1039.     @@:
  1040.         cmp     al, 0xAA
  1041.         jb      @f
  1042.         cmp     al, 0xB0
  1043.         jb      .doit
  1044.  
  1045.     ; E0 = loopnz; E1 = loopz; E2 = loop
  1046.     @@:
  1047.         cmp     al, 0xE0
  1048.         jb      .noloop
  1049.         cmp     al, 0xE2
  1050.         ja      .noloop
  1051.         inc     esi
  1052.         jmp     .doit
  1053.  
  1054.     ; FF /2 = call
  1055.     .noloop:
  1056.         cmp     al, 0xFF
  1057.         jnz     OnStep
  1058.         call    get_byte_nobreak
  1059.         jc      OnStep
  1060.         inc     esi
  1061.         mov     cl, al
  1062.         and     al, 00111000b
  1063.         cmp     al, 00010000b
  1064.         jnz     OnStep
  1065.     ; skip instruction
  1066.         mov     al, cl
  1067.         and     eax, 7
  1068.         shr     cl, 6
  1069.         jz      .mod0
  1070.         jp      .doit
  1071.         cmp     al, 4
  1072.         jnz     @f
  1073.         inc     esi
  1074.  
  1075.     @@:
  1076.         inc     esi
  1077.         dec     cl
  1078.         jz      @f
  1079.         add     esi, 3
  1080.  
  1081.     @@:
  1082.         jmp     .doit
  1083.  
  1084.     .mod0:
  1085.         cmp     al, 4
  1086.         jnz     @f
  1087.         call    get_byte_nobreak
  1088.         jc      OnStep
  1089.         inc     esi
  1090.         and     al, 7
  1091.  
  1092.     @@:
  1093.         cmp     al, 5
  1094.         jnz     .doit
  1095.         add     esi, 4
  1096.  
  1097.     .doit:
  1098.     ; insert one-shot breakpoint at esi and resume
  1099.         call    get_byte_nobreak
  1100.         jc      OnStep
  1101.         mov     eax, esi
  1102.         call    find_enabled_breakpoint
  1103.         jz      @f
  1104.         mov     eax, esi
  1105.         mov     bl, 5
  1106.         call    add_breakpoint
  1107.         jmp     OnStep.doit
  1108.  
  1109.     @@:
  1110.         mov     eax, [proc_num]
  1111.         dec     eax
  1112.         cmp     eax, 0
  1113.         jle     .ret
  1114.         mov     [proc_num], eax
  1115.         jmp     .procone
  1116.  
  1117.     .ret:
  1118.         mov     [proc_num], 0
  1119.         ret
  1120.  
  1121. ;-----------------------------------------------------------------------------
  1122. ;                        Read next byte of machine code
  1123.  
  1124. get_byte_nobreak:
  1125.         mov     eax, esi
  1126.         call    find_enabled_breakpoint
  1127.         jnz     .nobreak
  1128.         mov     al, [edi+5]
  1129.         clc
  1130.         ret
  1131.  
  1132.     .nobreak:
  1133.         ;push    69
  1134.         ;pop     eax
  1135.         ;push    6
  1136.         ;pop     ebx
  1137.         ;mov     ecx, [debuggee_pid]
  1138.         xor     edx, edx
  1139.         push    edx
  1140.         inc     edx
  1141.         mov     edi, esp
  1142.         mcall    69, 6, [debuggee_pid]
  1143.         dec     eax
  1144.         clc
  1145.         jz      @f
  1146.         stc
  1147.  
  1148.     @@:
  1149.         pop     eax
  1150.         ret
  1151.  
  1152. include 'parser.inc'
  1153.  
  1154. ;-----------------------------------------------------------------------------
  1155. ;                        Calculate expression event
  1156.  
  1157. OnCalc:
  1158.         mov     esi, [curarg]
  1159.         call    calc_expression
  1160.         jc      .ret
  1161.         push    ebp
  1162.         mov     esi, calc_string
  1163.         call    put_message_nodraw
  1164.         jmp     draw_messages
  1165.  
  1166.     .ret:
  1167.         ret
  1168.  
  1169. ;-----------------------------------------------------------------------------
  1170. ;                            Dump memory event
  1171.  
  1172. OnDump:
  1173.         mov     esi, [curarg]
  1174.         cmp     byte [esi], 0
  1175.         jnz     .param
  1176.         add     [dumppos], dump_height*10h
  1177.         jmp     .doit
  1178.  
  1179.     .param:
  1180.         call    calc_expression
  1181.         jc      .ret
  1182.         mov     [dumppos], ebp
  1183.  
  1184.     .doit:
  1185.         call    get_dump
  1186.         call    draw_dump.redraw
  1187.  
  1188.     .ret:
  1189.         ret
  1190.  
  1191. ;-----------------------------------------------------------------------------
  1192. ;                   Dissassemble block of executable event
  1193.  
  1194. OnUnassemble:
  1195.         mov     esi, [curarg]
  1196.         cmp     byte [esi], 0
  1197.         jnz     .param
  1198.         mov     eax, [disasm_start_pos]
  1199.         mov     ecx, [disasm_height_dd]
  1200.         mov     [disasm_cur_pos], eax
  1201.  
  1202.     .l:
  1203.         mov     eax, [disasm_cur_pos]
  1204.         call    find_symbol
  1205.         jc      @f
  1206.         dec     ecx
  1207.         jz      .m
  1208.  
  1209.     @@:
  1210.         push    ecx
  1211.         call    disasm_instr
  1212.         pop     ecx
  1213.         jc      .err
  1214.         loop    .l
  1215.  
  1216.     .m:
  1217.         mov     eax, [disasm_cur_pos]
  1218.         jmp     .doit
  1219.  
  1220.     .param:
  1221.         call    calc_expression
  1222.         jc      .ret
  1223.         mov     eax, ebp
  1224.  
  1225.     .doit:
  1226.         push    eax
  1227.         push    [disasm_start_pos]
  1228.         mov     [disasm_start_pos], eax
  1229.         call    update_disasm
  1230.         pop     [disasm_start_pos]
  1231.         pop     eax
  1232.         cmp     [disasm_cur_str], 0
  1233.         jz      @f
  1234.         mov     [disasm_start_pos], eax
  1235.  
  1236.     .ret:
  1237.         ret
  1238.  
  1239.     @@:
  1240.         call    update_disasm
  1241.  
  1242.     .err:
  1243.         mov     esi, aInvAddr
  1244.         jmp     put_message
  1245.  
  1246. ;-----------------------------------------------------------------------------
  1247. ;                       Access to register value event
  1248.  
  1249. OnReg:
  1250.         mov     esi, [curarg]
  1251.         call    get_arg.skip_spaces
  1252.         call    find_reg
  1253.         jnc     @f
  1254.  
  1255.     .err:
  1256.         mov     esi, RSyntax
  1257.         jmp     put_message
  1258.  
  1259.     @@:
  1260.         call    get_arg.skip_spaces
  1261.         test    al, al
  1262.         jz      .err
  1263.         cmp     al, '='
  1264.         jnz     @f
  1265.         inc     esi
  1266.         call    get_arg.skip_spaces
  1267.         test    al, al
  1268.         jz      .err
  1269.  
  1270.     @@:
  1271.         push    edi
  1272.         call    calc_expression
  1273.         pop     edi
  1274.         jc      .ret
  1275.     ; now edi=register id, ebp=value
  1276.         cmp     [bSuspended], 0
  1277.         mov     esi, aRunningErr
  1278.         jz      put_message
  1279.         xchg    eax, ebp
  1280.         cmp     edi, 24
  1281.         jz      .eip
  1282.         sub     edi, 4
  1283.         jb      .8lo
  1284.         sub     edi, 4
  1285.         jb      .8hi
  1286.         sub     edi, 8
  1287.         jb      .16
  1288.         mov     [_eax+edi*4], eax
  1289.         jmp     .ret
  1290.  
  1291.     .16:
  1292.         mov     word [_eax+(edi+8)*4], ax
  1293.         jmp     .ret
  1294.  
  1295.     .8lo:
  1296.         mov     byte [_eax+(edi+4)*4], al
  1297.         jmp     .ret
  1298.  
  1299.     .8hi:
  1300.         mov     byte [_eax+(edi+4)*4+1], al
  1301.         jmp     .ret
  1302.  
  1303.     .eip:
  1304.         mov     [_eip], eax
  1305.         call    update_disasm_eip
  1306.  
  1307.     .ret:
  1308.         call    set_context
  1309.         jmp     draw_registers.redraw
  1310.  
  1311. ;-----------------------------------------------------------------------------
  1312. ;                        Breakpoints manipulation
  1313. OnBp:
  1314.         mov     esi, [curarg]
  1315.         call    calc_expression
  1316.         jc      .ret
  1317.         xchg    eax, ebp
  1318.         push    eax
  1319.         call    find_breakpoint
  1320.         inc     eax
  1321.         pop     eax
  1322.         jz      .notfound
  1323.         mov     esi, aDuplicateBreakpoint
  1324.         jmp     .sayerr
  1325.  
  1326.     .notfound:
  1327.         mov     bl, 1
  1328.         call    add_breakpoint
  1329.         jnc     .ret
  1330.         mov     esi, aBreakpointLimitExceeded
  1331.  
  1332.     .sayerr:
  1333.         call    put_message
  1334.  
  1335.     .ret:
  1336.         jmp     draw_disasm
  1337.  
  1338. OnBpmb:
  1339.         mov     dh, 0011b
  1340.         jmp     DoBpm
  1341.  
  1342. OnBpmw:
  1343.         mov     dh, 0111b
  1344.         jmp     DoBpm
  1345.  
  1346. OnBpmd:
  1347.         mov     dh, 1111b
  1348.  
  1349. DoBpm:
  1350.         mov     esi, [curarg]
  1351.         cmp     byte [esi], 'w'
  1352.         jnz     @f
  1353.         and     dh, not 2
  1354.         inc     esi
  1355.  
  1356.     @@:
  1357.         push    edx
  1358.         call    calc_expression
  1359.         pop     edx
  1360.         jnc     @f
  1361.         ret
  1362.  
  1363.     ; ebp = expression, dh = flags
  1364.     @@:
  1365.         movzx   eax, dh
  1366.         shr     eax, 2
  1367.         test    ebp, eax
  1368.         jz      @f
  1369.         mov     esi, aUnaligned
  1370.         jmp     put_message
  1371.  
  1372.     @@:
  1373.         mov     eax, ebp
  1374.         mov     bl, 0Bh
  1375.         call    add_breakpoint
  1376.         jnc     @f
  1377.         mov     esi, aBreakpointLimitExceeded
  1378.         jmp     put_message
  1379.  
  1380.     ; now find index
  1381.     @@:
  1382.         push    eax
  1383.         xor     ecx, ecx
  1384.  
  1385.     .l1:
  1386.         cmp     [drx_break+ecx*4], 0
  1387.         jnz     .l2
  1388.         ;push    69
  1389.         ;pop     eax
  1390.         push    ecx
  1391.         mov     dl, cl
  1392.         ;mov     ecx, [debuggee_pid]
  1393.         mov     esi, ebp
  1394.         ;push    9
  1395.         ;pop     ebx
  1396.         mcall    69, 9, [debuggee_pid]
  1397.         test    eax, eax
  1398.         jz      .ok
  1399.         pop     ecx
  1400.  
  1401.     .l2:
  1402.         inc     ecx
  1403.         cmp     ecx, 4
  1404.         jb      .l1
  1405.         pop     eax
  1406.         call    clear_breakpoint
  1407.         mov     esi, aBreakpointLimitExceeded
  1408.         jmp     put_message
  1409.  
  1410.     .ok:
  1411.         pop     ecx
  1412.         pop     eax
  1413.         and     byte [edi], not 2       ; breakpoint is enabled
  1414.         shl     dl, 6
  1415.         or      dl, dh
  1416.         mov     byte [edi+1], dl
  1417.         inc     eax
  1418.         mov     [drx_break+ecx*4], eax
  1419.         ret
  1420.  
  1421. OnBc:
  1422.         mov     esi, [curarg]
  1423.  
  1424.     @@:
  1425.         call    get_hex_number
  1426.         jc      OnBp.ret
  1427.         call    clear_breakpoint
  1428.         jmp     @b
  1429.  
  1430. OnBd:
  1431.         mov     esi, [curarg]
  1432.  
  1433.     @@:
  1434.         call    get_hex_number
  1435.         jc      OnBp.ret
  1436.         call    disable_breakpoint
  1437.         jmp     @b
  1438.  
  1439. OnBe:
  1440.         mov     esi, [curarg]
  1441.  
  1442.     @@:
  1443.         call    get_hex_number
  1444.         jc      OnBp.ret
  1445.         push    eax
  1446.         call    find_enabled_breakpoint
  1447.         pop     eax
  1448.         jz      .err
  1449.         call    enable_breakpoint
  1450.         jmp     @b
  1451.  
  1452.     .err:
  1453.         mov     esi, OnBeErrMsg
  1454.         jmp     put_message
  1455.  
  1456. ; TODO: split it out in parser.inc
  1457. get_hex_number:
  1458.         call    get_arg.skip_spaces
  1459.         xor     ecx, ecx
  1460.         xor     edx, edx
  1461.  
  1462.     @@:
  1463.         lodsb
  1464.         call    is_hex_digit
  1465.         jc      .ret
  1466.         shl     edx, 4
  1467.         or      dl, al
  1468.         inc     ecx
  1469.         jmp     @b
  1470.  
  1471.     .ret:
  1472.         dec     esi
  1473.         cmp     ecx, 1
  1474.         xchg    eax, edx
  1475.         ret
  1476.  
  1477. ;-----------------------------------------------------------------------------
  1478. ;                       Breakpoints list event
  1479.  
  1480. OnBl:
  1481.         mov     esi, [curarg]
  1482.         cmp     byte [esi], 0
  1483.         jz      .listall
  1484.         call    get_hex_number
  1485.         jc      .ret
  1486.         cmp     eax, breakpoints_n
  1487.         jae     .err
  1488.         push    eax
  1489.         add     eax, eax
  1490.         lea     edi, [breakpoints + eax + eax*2]
  1491.         pop     eax
  1492.         test    byte [edi+4], 1
  1493.         jz      .err
  1494.         call    show_break_info
  1495.  
  1496.     .ret:
  1497.         ret
  1498.  
  1499.     .err:
  1500.         mov     esi, aInvalidBreak
  1501.         jmp     put_message
  1502.  
  1503.     .listall:
  1504.         mov     edi, breakpoints
  1505.         xor     eax, eax
  1506.  
  1507.     @@:
  1508.         test    byte [edi+4], 1
  1509.         jz      .cont
  1510.         push    edi eax
  1511.         call    show_break_info
  1512.         pop     eax edi
  1513.  
  1514.     .cont:
  1515.         add     edi, 6
  1516.         inc     eax
  1517.         cmp     eax, breakpoints_n
  1518.         jb      @b
  1519.         ret
  1520.  
  1521. ;-----------------------------------------------------------------------------
  1522.  
  1523. show_break_info:
  1524.         push    edi
  1525.         test    byte [edi+4], 8
  1526.         jnz     .dr
  1527.         push    dword [edi]
  1528.         push    eax
  1529.         mov     esi, aBreakNum
  1530.         call    put_message_nodraw
  1531.         jmp     .cmn
  1532.  
  1533.     .dr:
  1534.         push    eax
  1535.         mov     esi, aMemBreak1
  1536.         call    put_message_nodraw
  1537.         pop     edi
  1538.         push    edi
  1539.         mov     esi, aMemBreak2
  1540.         test    byte [edi+5], 2
  1541.         jz      @f
  1542.         mov     esi, aMemBreak3
  1543.  
  1544.     @@:
  1545.         call    put_message_nodraw
  1546.         pop     edi
  1547.         push    edi
  1548.         mov     esi, aMemBreak6
  1549.         test    byte [edi+5], 8
  1550.         jnz     @f
  1551.         mov     esi, aMemBreak5
  1552.         test    byte [edi+5], 4
  1553.         jnz     @f
  1554.         mov     esi, aMemBreak4
  1555.  
  1556.     @@:
  1557.         call    put_message_nodraw
  1558.         pop     edi
  1559.         push    edi
  1560.         push    dword [edi]
  1561.         mov     esi, aMemBreak7
  1562.         call    put_message_nodraw
  1563.  
  1564.     .cmn:
  1565.         pop     edi
  1566.         test    byte [edi+4], 2
  1567.         jz      @f
  1568.         push    edi
  1569.         mov     esi, aDisabled
  1570.         call    put_message_nodraw
  1571.         pop     edi
  1572.  
  1573.     @@:
  1574.         test    byte [edi+4], 4
  1575.         jz      @f
  1576.         mov     esi, aOneShot
  1577.         call    put_message_nodraw
  1578.  
  1579.     @@:
  1580.         mov     esi, newline
  1581.         jmp     put_message
  1582.  
  1583. ;-----------------------------------------------------------------------------
  1584. ;                        Add breakpoint
  1585. ; in: EAX = address; BL = flags
  1586. ; out: CF = 1 => error
  1587. ;      CF = 0 and EAX = breakpoint number
  1588.  
  1589. add_breakpoint:
  1590.         xor     ecx, ecx
  1591.         mov     edi, breakpoints
  1592.  
  1593.     @@:
  1594.         test    byte [edi+4], 1
  1595.         jz      .found
  1596.         add     edi, 6
  1597.         inc     ecx
  1598.         cmp     ecx, breakpoints_n
  1599.         jb      @b
  1600.         stc
  1601.         ret
  1602.  
  1603.     .found:
  1604.         stosd
  1605.         xchg    eax, ecx
  1606.         mov     [edi], bl
  1607.         test    bl, 2
  1608.         jnz     @f
  1609.         or      byte [edi], 2
  1610.         push    eax
  1611.         call    enable_breakpoint
  1612.         pop     eax
  1613.  
  1614.     @@:
  1615.         clc
  1616.         ret
  1617.  
  1618. ;-----------------------------------------------------------------------------
  1619. ;                         Remove breakpoint
  1620.  
  1621. clear_breakpoint:
  1622.         cmp     eax, breakpoints_n
  1623.         jae     .ret
  1624.         mov     ecx, 4
  1625.         inc     eax
  1626.  
  1627.     .1:
  1628.         cmp     [drx_break-4+ecx*4], eax
  1629.         jnz     @f
  1630.         and     [drx_break-4+ecx*4], 0
  1631.  
  1632.     @@:
  1633.         loop    .1
  1634.         dec     eax
  1635.         push    eax
  1636.         add     eax, eax
  1637.         lea     edi, [breakpoints + eax + eax*2 + 4]
  1638.         test    byte [edi], 1
  1639.         pop     eax
  1640.         jz      .ret
  1641.         push    edi
  1642.         call    disable_breakpoint
  1643.         pop     edi
  1644.         mov     byte [edi], 0
  1645.  
  1646.     .ret:
  1647.         ret
  1648.  
  1649. ;-----------------------------------------------------------------------------
  1650. ;                          Disable breakpoint
  1651.  
  1652. disable_breakpoint:
  1653.         cmp     eax, breakpoints_n
  1654.         jae     .ret
  1655.         add     eax, eax
  1656.         lea     edi, [breakpoints + eax + eax*2 + 5]
  1657.         test    byte [edi-1], 1
  1658.         jz      .ret
  1659.         test    byte [edi-1], 2
  1660.         jnz     .ret
  1661.         or      byte [edi-1], 2
  1662.         test    byte [edi-1], 8
  1663.         jnz     .dr
  1664.         push    esi
  1665.         ;push    7
  1666.         ;pop     ebx
  1667.         ;push    69
  1668.         ;pop     eax
  1669.         ;mov     ecx, [debuggee_pid]
  1670.         ;xor     edx, edx
  1671.         ;inc     edx
  1672.         ;mov     esi, [edi-5]
  1673.         mcall    69, 7, [debuggee_pid], 1, [edi-5]
  1674.         pop     esi
  1675.  
  1676.     .ret:
  1677.         ret
  1678.  
  1679.     .dr:
  1680.         mov     dl, [edi]
  1681.         shr     dl, 6
  1682.         mov     dh, 80h
  1683.         ;push    69
  1684.         ;pop     eax
  1685.         ;push    9
  1686.         ;pop     ebx
  1687.         ;mov     ecx, [debuggee_pid]
  1688.         mcall    69, 9, [debuggee_pid]
  1689.         ret
  1690.  
  1691. ;-----------------------------------------------------------------------------
  1692. ;                           Enable breakpoint
  1693.  
  1694. enable_breakpoint:
  1695.         push    esi
  1696.         cmp     eax, breakpoints_n
  1697.         jae     .ret
  1698.         add     eax, eax
  1699.         lea     edi, [breakpoints + eax + eax*2 + 5]
  1700.         test    byte [edi-1], 1
  1701.         jz      .ret
  1702.         test    byte [edi-1], 2
  1703.         jz      .ret
  1704.         and     byte [edi-1], not 2
  1705.         test    byte [edi-1], 8
  1706.         jnz     .dr
  1707.         ;push    6
  1708.         ;pop     ebx
  1709.         ;push    69
  1710.         ;pop     eax
  1711.         ;mov     esi, [edi-5]
  1712.         ;mov     ecx, [debuggee_pid]
  1713.         ;xor     edx, edx
  1714.         ;inc     edx
  1715.         mcall    69, 6, [debuggee_pid], 1, [edi-5]
  1716.         dec     eax
  1717.         jnz     .err
  1718.         ;mov     al, 69
  1719.         push    0xCC
  1720.         mov     edi, esp
  1721.         inc     ebx
  1722.         mcall    69
  1723.         pop     eax
  1724.  
  1725.     .ret:
  1726.         pop     esi
  1727.         ret
  1728.  
  1729.     .err:
  1730.         or      byte [edi-1], 2
  1731.         mov     esi, aBreakErr
  1732.         call    put_message
  1733.         pop     esi
  1734.         ret
  1735.  
  1736.     .dr:
  1737.         ;push    9
  1738.         ;pop     ebx
  1739.         ;push    69
  1740.         ;pop     eax
  1741.         mov     esi, [edi-5]
  1742.         ;mov     ecx, [debuggee_pid]
  1743.         mov     dl, [edi]
  1744.         shr     dl, 6
  1745.         mov     dh, [edi]
  1746.         and     dh, 0xF
  1747.         mcall    69, 9, [debuggee_pid]
  1748.         test    eax, eax
  1749.         jnz     .err
  1750.         pop     esi
  1751.         ret
  1752.  
  1753. ;-----------------------------------------------------------------------------
  1754. ;                             Find breakpoint
  1755.  
  1756. find_breakpoint:
  1757.         xor     ecx, ecx
  1758.         xchg    eax, ecx
  1759.         mov     edi, breakpoints
  1760.  
  1761.     @@:
  1762.         test    byte [edi+4], 1
  1763.         jz      .cont
  1764.         test    byte [edi+4], 8
  1765.         jnz     .cont
  1766.         cmp     [edi], ecx
  1767.         jz      .found
  1768.  
  1769.     .cont:
  1770.         add     edi, 6
  1771.         inc     eax
  1772.         cmp     eax, breakpoints_n
  1773.         jb      @b
  1774.         or      eax, -1
  1775.  
  1776.     .found:
  1777.         ret
  1778.  
  1779. ;-----------------------------------------------------------------------------
  1780. ;
  1781.  
  1782. find_enabled_breakpoint:
  1783.         xor     ecx, ecx
  1784.         xchg    eax, ecx
  1785.         mov     edi, breakpoints
  1786.  
  1787.     @@:
  1788.         test    byte [edi+4], 1
  1789.         jz      .cont
  1790.         test    byte [edi+4], 2 or 8
  1791.         jnz     .cont
  1792.         cmp     [edi], ecx
  1793.         jz      .found
  1794.  
  1795.     .cont:
  1796.         add     edi, 6
  1797.         inc     eax
  1798.         cmp     eax, breakpoints_n
  1799.         jb      @b
  1800.         or      eax, -1
  1801.  
  1802.     .found:
  1803.         ret
  1804.  
  1805. ; TODO: add find_disabled_breakpoint
  1806.  
  1807. ;-----------------------------------------------------------------------------
  1808. ;                       Unpack executable event
  1809.  
  1810. OnUnpack:
  1811.     ; program must be loaded - checked when command was parsed
  1812.     ; program must be stopped
  1813.         mov     esi, aRunningErr
  1814.         cmp     [bSuspended], 0
  1815.         jz      put_message
  1816.    ; all breakpoints must be disabled
  1817.         mov     edi, breakpoints
  1818.  
  1819.     @@:
  1820.         test    byte [edi+4], 1
  1821.         jz      .cont
  1822.         test    byte [edi+4], 2
  1823.         jnz     .cont
  1824.         mov     esi, aEnabledBreakErr
  1825.         jmp     put_message
  1826.  
  1827.     .cont:
  1828.         add     edi, 6
  1829.         cmp     edi, breakpoints+breakpoints_n*6
  1830.         jb      @b
  1831.     ; ok, now do it
  1832.     ; set breakpoint on 0xC dword access
  1833.         push    9
  1834.         pop     ebx
  1835.         mov     ecx, [debuggee_pid]
  1836.         mov     dx, 1111b*256
  1837.         push    0xC
  1838.         pop     esi
  1839.  
  1840.     @@:
  1841.         ;push    69
  1842.         ;pop     eax
  1843.         mcall    69
  1844.         test    eax, eax
  1845.         jz      .breakok
  1846.         inc     edx
  1847.         cmp     dl, 4
  1848.         jb      @b
  1849.  
  1850.     .breakok:
  1851.         call    GoOn
  1852.  
  1853.     ; now wait for event
  1854.     .wait:
  1855.         ;push    10
  1856.         ;pop     eax
  1857.         mcall    10
  1858.         dec     eax
  1859.         jz      .redraw
  1860.         dec     eax
  1861.         jz      .key
  1862.         dec     eax
  1863.         jnz     .debug
  1864.     ; button; we have only one button, close
  1865.         or      eax, -1
  1866.         mcall
  1867.  
  1868.     .redraw:
  1869.         call    draw_window
  1870.         jmp     .wait
  1871.  
  1872.     .key:
  1873.         mov     al, 2
  1874.         mcall
  1875.         cmp     ah, 3   ; Ctrl+C
  1876.         jnz     .wait
  1877.  
  1878.     .userbreak:
  1879.         mov     esi, aInterrupted
  1880.  
  1881.     .x1:
  1882.         push    edx esi
  1883.         call    put_message
  1884.         pop     esi edx
  1885.         or      dh, 80h
  1886.         ;push    69
  1887.         ;pop     eax
  1888.         ;push    9
  1889.         ;pop     ebx
  1890.         ;mov     ecx, [debuggee_pid]
  1891.         mcall    69, 9, [debuggee_pid]
  1892.         cmp     esi, aUnpacked
  1893.         jnz     OnSuspend
  1894.         jmp     AfterSuspend
  1895.  
  1896.     .debug:
  1897.         cmp     [dbgbuflen], 4*3
  1898.         jnz     .notour
  1899.         cmp     dword [dbgbuf], 3
  1900.         jnz     .notour
  1901.         test    byte [dbgbuf+8], 1
  1902.         jnz     .our
  1903.  
  1904.     .notour:
  1905.         mov     esi, aInterrupted
  1906.         push    edx
  1907.         call    put_message
  1908.         pop     edx
  1909.         or      dh, 80h
  1910.         ;push    69
  1911.         ;pop     eax
  1912.         ;push    9
  1913.         ;pop     ebx
  1914.         ;mov     ecx, [debuggee_pid]
  1915.         mcall    69, 9, [debuggee_pid]
  1916.         jmp     debugmsg
  1917.  
  1918.     .our:
  1919.         and     [dbgbuflen], 0
  1920.         push    edx
  1921.         call    get_context
  1922.         push    eax
  1923.         ;mov     al, 69
  1924.         ;mov     bl, 6
  1925.         ;mov     ecx, [debuggee_pid]
  1926.         ;mov     edi, esp
  1927.         ;push    4
  1928.         ;pop     edx
  1929.         ;push    0xC
  1930.         ;pop     esi
  1931.         mcall    69, 6, [debuggee_pid], 4, 0xC, esp
  1932.         pop     eax
  1933.         pop     edx
  1934.         cmp     eax, [_eip]
  1935.         jz      .done
  1936.         call    DoResume
  1937.         jmp     .wait
  1938.  
  1939.     .done:
  1940.         mov     esi, aUnpacked
  1941.         jmp     .x1
  1942.  
  1943. ;-----------------------------------------------------------------------------
  1944. ;                            Include Symbol parser
  1945.  
  1946. include 'symbols.inc'
  1947.  
  1948. ;-----------------------------------------------------------------------------
  1949. ;                        Include disassembler engine
  1950.  
  1951. include 'disasm.inc'
  1952.  
  1953. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1954. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DATA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1955. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1956.  
  1957. caption_str db  'Kolibri Debugger',0
  1958.  
  1959. begin_str db    'Kolibri Debugger, version 0.35',10
  1960.         db      'Hint: type "help" for help, "quit" to quit'
  1961. newline db      10,0
  1962. prompt  db      '> ',0
  1963.  
  1964. help_groups:
  1965.         dd      aControl, 0, 0, help_control_msg
  1966.         db      0
  1967.         dd      aData, 0, 0, help_data_msg
  1968.         db      0
  1969.         dd      aBreakpoints, 0, 0, help_breaks_msg
  1970.         db      0
  1971.  
  1972. ;-----------------------------------------------------------------------------
  1973. ;                   Commands format definitions
  1974.  
  1975. ; TODO: make it with macros
  1976.  
  1977. ; flags field:
  1978. ; &1: command may be called without parameters
  1979. ; &2: command may be called with parameters
  1980. ; &4: command may be called without loaded program
  1981. ; &8: command may be called with loaded program
  1982. commands:
  1983.         dd      _aH, OnHelp, HelpSyntax, HelpHelp
  1984.         db      0Fh
  1985.         dd      aHelp, OnHelp, HelpSyntax, HelpHelp
  1986.         db      0Fh
  1987.         dd      aQuit, OnQuit, QuitSyntax, QuitHelp
  1988.         db      0Dh
  1989.         dd      aLoad, OnLoad, LoadSyntax, LoadHelp
  1990.         db      6
  1991.         dd      aReload, OnReload, ReloadSyntax, ReloadHelp
  1992.         db      0Dh
  1993.         dd      aTerminate, OnTerminate, TerminateSyntax, TerminateHelp
  1994.         db      9
  1995.         dd      aDetach, OnDetach, DetachSyntax, DetachHelp
  1996.         db      9
  1997.         dd      aSuspend, OnSuspend, SuspendSyntax, SuspendHelp
  1998.         db      9
  1999.         dd      aResume, OnResume, ResumeSyntax, ResumeHelp
  2000.         db      0Bh
  2001.         dd      aStep, OnStepMultiple, StepSyntax, StepHelp
  2002.         db      0Bh
  2003.         dd      aProceed, OnProceed, ProceedSyntax, ProceedHelp
  2004.         db      0Bh
  2005.         dd      aCalc, OnCalc, CalcSyntax, CalcHelp
  2006.         db      0Eh
  2007.         dd      aDump, OnDump, DumpSyntax, DumpHelp
  2008.         db      0Bh
  2009.         dd      aUnassemble, OnUnassemble, UnassembleSyntax, UnassembleHelp
  2010.         db      0Bh
  2011.         dd      aBp, OnBp, BpSyntax, BpHelp
  2012.         db      0Ah
  2013.         dd      aBpm, OnBpmb, BpmSyntax, BpmHelp
  2014.         db      0Ah
  2015.         dd      aBpmb, OnBpmb, BpmSyntax, BpmHelp
  2016.         db      0Ah
  2017.         dd      aBpmw, OnBpmw, BpmSyntax, BpmHelp
  2018.         db      0Ah
  2019.         dd      aBpmd, OnBpmd, BpmSyntax, BpmHelp
  2020.         db      0Ah
  2021.         dd      aBl, OnBl, BlSyntax, BlHelp
  2022.         db      0Bh
  2023.         dd      aBc, OnBc, BcSyntax, BcHelp
  2024.         db      0Ah
  2025.         dd      aBd, OnBd, BdSyntax, BdHelp
  2026.         db      0Ah
  2027.         dd      aBe, OnBe, BeSyntax, BeHelp
  2028.         db      0Ah
  2029.         dd      aReg, OnReg, RSyntax, RHelp
  2030.         db      0Ah
  2031.         dd      aUnpack, OnUnpack, UnpackSyntax, UnpackHelp
  2032.         db      9
  2033.         dd      aLoadSymbols, OnLoadSymbols, LoadSymbolsSyntax, LoadSymbolsHelp
  2034.         db      0Ah
  2035.         dd      0
  2036.  
  2037. ;-----------------------------------------------------------------------------
  2038. ;                   Help messages for commands groups
  2039.  
  2040. aHelp   db      5,'help',0
  2041. _aH     db      2,'h',0
  2042. HelpHelp db     'Help on specified function',10
  2043. HelpSyntax db   'Usage: h or help [group | command]',10,0
  2044.  
  2045. help_msg db     'List of known command groups:',10
  2046.         db      '"help control"     - display list of control commands',10
  2047.         db      '"help data"        - display list of commands concerning data',10
  2048.         db      '"help breakpoints" - display list of commands concerning breakpoints',10,0
  2049.  
  2050. ;               Control commands group
  2051.  
  2052. aControl db     8,'control',0
  2053. help_control_msg db     'List of control commands:',10
  2054.         db      'h = help             - help',10
  2055.         db      'quit                 - exit from debugger',10
  2056.         db      'load <name> [params] - load program for debugging',10
  2057.         db      'reload               - reload debugging program',10
  2058.         db      'load-symbols <name>  - load information on symbols for program',10
  2059.         db      'terminate            - terminate loaded program',10
  2060.         db      'detach               - detach from debugging program',10
  2061.         db      'stop                 - suspend execution of debugging program',10
  2062.         db      'g [<expression>]     - go on (resume execution of debugging program)',10
  2063.         db      's [<num>]            - program step, also <F7>',10
  2064.         db      'p [<num>]            - program wide step, also <F8>',10
  2065.         db      'unpack               - try to bypass unpacker code (heuristic)',10,0
  2066.  
  2067. ;               Data commands group
  2068.  
  2069. aData   db      5,'data',0
  2070. help_data_msg db        'List of data commands:',10
  2071.         db      '? <expression>       - calculate value of expression',10
  2072.         db      'd [<expression>]     - dump data at given address',10
  2073.         db      'u [<expression>]     - unassemble instructions at given address',10
  2074.         db      'r <register> <expression> or',10
  2075.         db      'r <register>=<expression> - set register value',10,0
  2076.  
  2077. ;               Breakpoints commands group
  2078.  
  2079. aBreakpoints db 12,'breakpoints',0
  2080. help_breaks_msg db      'List of breakpoints commands:',10
  2081.         db      'bp <expression>      - set breakpoint on execution',10
  2082.         db      'bpm[b|w|d] <type> <expression> - set breakpoint on memory access',10
  2083.         db      'bl [<number>]        - breakpoint(s) info',10
  2084.         db      'bc <number>...       - clear breakpoint',10
  2085.         db      'bd <number>...       - disable breakpoint',10
  2086.         db      'be <number>...       - enable breakpoint',10,0
  2087.  
  2088. ;-----------------------------------------------------------------------------
  2089. ;                    Individual command help messages
  2090.  
  2091. aQuit   db      5,'quit',0
  2092. QuitHelp db     'Quit from debugger',10
  2093. QuitSyntax db   'Usage: quit',10,0
  2094.  
  2095. aLoad   db      5,'load',0
  2096. LoadHelp db     'Load program for debugging',10
  2097. LoadSyntax db   'Usage: load <program-name> [parameters]',10,0
  2098.  
  2099. aReload db      7,'reload',0
  2100. ReloadHelp db   'Reload debugging program (restart debug session)',10
  2101. ReloadSyntax db 'Usage: reload',10,0
  2102.  
  2103. aTerminate db   10,'terminate',0
  2104. TerminateHelp db 'Terminate debugged program',10
  2105. TerminateSyntax db 'Usage: terminate',10,0
  2106.  
  2107. aDetach db      7,'detach',0
  2108. DetachHelp db   'Detach from debugged program',10
  2109. DetachSyntax db 'Usage: detach',10,0
  2110.  
  2111. aSuspend db     5,'stop',0
  2112. SuspendHelp db  'Suspend execution of debugged program',10
  2113. SuspendSyntax db 'Usage: stop',10,0
  2114.  
  2115. aResume db      2,'g',0
  2116. ResumeHelp db   'Go (resume execution of debugged program)',10
  2117. ResumeSyntax db 'Usage: g',10
  2118.         db      '   or: g <expression> - wait until specified address is reached',10,0
  2119.  
  2120. aStep   db      2,'s',0
  2121. StepHelp db     'Make step in debugged program',10
  2122. StepSyntax db   'Usage: s [<number>]',10,0
  2123.  
  2124. aProceed db     2,'p',0
  2125. ProceedHelp db  'Make wide step in debugged program (step over CALL, REPxx, LOOP)',10
  2126. ProceedSyntax db 'Usage: p [<number>]',10,0
  2127.  
  2128. aDump   db      2,'d',0
  2129. DumpHelp db     'Dump data of debugged program',10
  2130. DumpSyntax db   'Usage: d <expression> - dump data at specified address',10
  2131.         db      '   or: d              - continue current dump',10,0
  2132.  
  2133. aCalc   db      2,'?',0
  2134. CalcHelp db     'Calculate value of expression',10
  2135. CalcSyntax db   'Usage: ? <expression>',10,0
  2136.  
  2137. aUnassemble db  2,'u',0
  2138. UnassembleHelp db 'Unassemble',10
  2139. UnassembleSyntax db      'Usage: u <expression> - unassemble instructions at specified address',10
  2140.                  db      '   or: u              - continue current unassemble screen',10,0
  2141.  
  2142. aReg    db      2,'r',0
  2143. RHelp   db      'Set register value',10
  2144. RSyntax db      'Usage: r <register> <expression>',10
  2145.         db      '   or: r <register>=<expression> - set value of <register> to <expression>',10,0
  2146.  
  2147. aBp     db      3,'bp',0
  2148. BpHelp  db      'set BreakPoint on execution',10
  2149. BpSyntax db     'Usage: bp <expression>',10,0
  2150.  
  2151. aBpm    db      4,'bpm',0
  2152. aBpmb   db      5,'bpmb',0
  2153. aBpmw   db      5,'bpmw',0
  2154. aBpmd   db      5,'bpmd',0
  2155. BpmHelp db      'set BreakPoint on Memory access',10
  2156.         db      'Maximum 4 breakpoints of this type are allowed',10
  2157.         db      'Note that for this breaks debugger is activated after access',10
  2158. BpmSyntax db    'Usage: bpmb [w] <expression>',10
  2159.         db      '       bpmw [w] <expression>',10
  2160.         db      '       bpmd [w] <expression>',10
  2161.         db      '       bpm is synonym for bpmd',10
  2162.         db      '"w" means break only on writes (default is on read/write)',10,0
  2163.  
  2164. aBl     db      3,'bl',0
  2165. BlHelp  db      'Breakpoint List',10
  2166. BlSyntax db     'Usage: bl          - list all breakpoints',10
  2167.         db      '       bl <number> - display info on particular breakpoint',10,0
  2168.  
  2169. aBc     db      3,'bc',0
  2170. BcHelp  db      'Breakpoint Clear',10
  2171. BcSyntax db     'Usage: bc <number-list>',10
  2172.         db      'Examples: bc 2',10
  2173.         db      '          bc 1 3 4 A',10,0
  2174.  
  2175. aBd     db      3,'bd',0
  2176. BdHelp  db      'Breakpoint Disable',10
  2177. BdSyntax db     'Usage: bd <number-list>',10
  2178.         db      'Examples: bd 2',10
  2179.         db      '          bd 1 3 4 A',10,0
  2180.  
  2181. aBe     db      3,'be',0
  2182. BeHelp  db      'Breakpoint Enable',10
  2183. BeSyntax db     'Usage: be <number-list>',10
  2184.         db      'Examples: be 2',10
  2185.         db      '          be 1 3 4 A',10,0
  2186.  
  2187. aUnpack db      7,'unpack',0
  2188. UnpackHelp db   'Try to bypass unpacker code',10
  2189. UnpackSyntax db 'Usage: unpack',10,0
  2190.  
  2191. aLoadSymbols db 13,'load-symbols',0
  2192. LoadSymbolsHelp db 'Load symbolic information for executable',10
  2193. LoadSymbolsSyntax db 'Usage: load-symbols <symbols-file-name>',10,0
  2194.  
  2195. aUnknownCommand db 'Unknown command',10,0
  2196.  
  2197. ;-----------------------------------------------------------------------------
  2198. ;                             Error messages
  2199.  
  2200. load_err_msg    db      'Cannot load program. ',0
  2201. unk_err_msg     db      'Unknown error code -%4X',10,0
  2202. aCannotLoadFile db      'Cannot load file. ',0
  2203. unk_err_msg2    db      'Unknown error code %4X.',10,0
  2204. load_err_msgs:
  2205.         dd      .1, 0, .3, 0, .5, .6, 0, 0, .9, .A, 0, 0, 0, 0, 0, 0
  2206.         dd      0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, .1E, .1F, .20
  2207. .1              db      'HD undefined.',10,0
  2208. .3              db      'Unknown FS.',10,0
  2209. .5              db      'File not found.',10,0
  2210. .6              db      'Unexpected EOF.',10,0
  2211. .9              db      'FAT table corrupted.',10,0
  2212. .A              db      'Access denied.',10,0
  2213. .1E             db      'No memory.',10,0
  2214. .1F             db      'Not Menuet/Kolibri executable.',10,0
  2215. .20             db      'Too many processes.',10,0
  2216. load_succ_msg   db      'Program loaded successfully! PID=%4X. Use "g" to run.',10,0
  2217. need_debuggee   db      'No program loaded. Use "load" command.',10,0
  2218. aAlreadyLoaded  db      'Program is already loaded. Use "terminate" or "detach" commands',10,0
  2219. terminated_msg  db      'Program terminated.',10,0
  2220. aException      db      'Debugged program caused an exception %2X. '
  2221. aSuspended      db      'Suspended',10,0
  2222. aContinued      db      'Continuing',10,0
  2223. aRunningErr     db      'Program is running',10,0
  2224. read_mem_err    db      'ERROR: cannot read process memory!!!',10,0
  2225. aBreakpointLimitExceeded db 'Breakpoint limit exceeded',10,0
  2226. aBreakErr       db      'Cannot activate breakpoint, it will be disabled',10,0
  2227. aDuplicateBreakpoint db 'Duplicate breakpoint',10,0
  2228. aInvalidBreak   db      'Invalid breakpoint number',10,0
  2229. OnBeErrMsg      db      'There is already enabled breakpoint on this address',10,0
  2230. aBreakNum       db      '%2X: at %8X',0
  2231. aMemBreak1      db      '%2X: on ',0
  2232. aMemBreak2      db      'read from ',0
  2233. aMemBreak3      db      'access of ',0
  2234. aMemBreak4      db      'byte',0
  2235. aMemBreak5      db      'word',0
  2236. aMemBreak6      db      'dword',0
  2237. aMemBreak7      db      ' at %8X',0
  2238. aOneShot        db      ', one-shot',0
  2239. aDisabled       db      ', disabled',0
  2240. aBreakStop      db      'Breakpoint #%2X',10,0
  2241. aUserBreak      db      'int3 command at %8X',10,0
  2242. ;dbgmsg_str     db      'Debug message for process %4X.',10,0
  2243. aInvAddr        db      'Invalid address',10,0
  2244. NoPrgLoaded_str db      'No program loaded'
  2245. NoPrgLoaded_len = $ - NoPrgLoaded_str
  2246. aRunning        db      'Running'
  2247. aPaused         db      'Paused'
  2248.  
  2249. aFPU            db      '[ FPU ]'
  2250. aMMX            db      '[ MMX ]'
  2251. aSSE            db      '[ SSE-32 ]'
  2252. aSSE2           db      '[ SSE-64 ]'
  2253. aMMX128         db      '[ MMX128 ]'
  2254.  
  2255. aAVX            db      '[ AVX ]'
  2256. aMSR            db      '[ MSR ]'
  2257. aPoint          db      0x1C
  2258. aMinus          db      '-'
  2259. aColon          db      ':'
  2260. aSpace          db      ' '
  2261. aQuests         db      '??'
  2262. aDots           db      '...'
  2263. aParseError     db      'Parse error',10,0
  2264. aDivByZero      db      'Division by 0',10,0
  2265. calc_string     db      '%8X',10,0
  2266. aNoMemory       db      'No memory',10,0
  2267. aSymbolsLoaded  db      'Symbols loaded',10,0
  2268. aUnaligned      db      'Unaligned address',10,0
  2269. aEnabledBreakErr db     'Enabled breakpoints are not allowed',10,0
  2270. aInterrupted    db      'Interrupted',10,0
  2271. aUnpacked       db      'Unpacked successful!',10,0
  2272. aPacked1        db      'Program is probably packed with ',0
  2273. aPacked2        db      '.',10,'Try to unpack automatically? [y/n]: ',0
  2274. aY_str          db      'y',10,0
  2275. aN_str          db      'n',10,0
  2276. mxp_nrv_name    db      'mxp_nrv',0
  2277. mxp_name        db      'mxp',0
  2278. mxp_lzo_name    db      'mxp_lzo',0
  2279. mtappack_name   db      'mtappack',0
  2280. flags           db      'CPAZSDO'
  2281. flags_bits      db      0,2,4,6,7,10,11
  2282.  
  2283. ;-----------------------------------------------------------------------------
  2284. ;                         Registers strings
  2285.  
  2286. regs_strs:
  2287.         db 'EAX='
  2288.         db 'EBX='
  2289.         db 'ECX='
  2290.         db 'EDX='
  2291.         db 'ESI='
  2292.         db 'EDI='
  2293.         db 'EBP='
  2294.         db 'ESP='
  2295.         db 'EIP='
  2296.         db 'EFLAGS='
  2297.  
  2298. sse_strs:
  2299.         db '-XMM0-'
  2300.         db '-XMM1-'
  2301.         db '-XMM2-'
  2302.         db '-XMM3-'
  2303.         db '-XMM4-'
  2304.         db '-XMM5-'
  2305.         db '-XMM6-'
  2306.         db '-XMM7-'
  2307. avx_strs:
  2308.         db '-YMM0-'
  2309.         db '-YMM1-'
  2310.         db '-YMM2-'
  2311.         db '-YMM3-'
  2312.         db '-YMM4-'
  2313.         db '-YMM5-'
  2314.         db '-YMM6-'
  2315.         db '-YMM7-'
  2316.  
  2317. align 4
  2318. n_digits        dd 10000000
  2319.  
  2320. btn2_tab        dd aFPU
  2321.                 dd aMMX
  2322. btn3_tab        dd aSSE2
  2323.                 dd aMMX128
  2324.                 dd aSSE
  2325.  
  2326. reg_mode        db 1
  2327.  
  2328.  
  2329. include 'disasm_tbl.inc'
  2330.  
  2331. reg_table:
  2332.         db 2,'al',0
  2333.         db 2,'cl',1
  2334.         db 2,'dl',2
  2335.         db 2,'bl',3
  2336.         db 2,'ah',4
  2337.         db 2,'ch',5
  2338.         db 2,'dh',6
  2339.         db 2,'bh',7
  2340.         db 2,'ax',8
  2341.         db 2,'cx',9
  2342.         db 2,'dx',10
  2343.         db 2,'bx',11
  2344.         db 2,'sp',12
  2345.         db 2,'bp',13
  2346.         db 2,'si',14
  2347.         db 2,'di',15
  2348.         db 3,'eax',16
  2349.         db 3,'ecx',17
  2350.         db 3,'edx',18
  2351.         db 3,'ebx',19
  2352.         db 3,'esp',20
  2353.         db 3,'ebp',21
  2354.         db 3,'esi',22
  2355.         db 3,'edi',23
  2356.         db 3,'eip',24
  2357.         db 0
  2358.  
  2359. IncludeIGlobals
  2360.  
  2361. fn70_read_block:
  2362.         dd 0
  2363.         dq 0
  2364.         dd ?
  2365.         dd ?
  2366.         db 0
  2367.         dd ?
  2368.  
  2369. fn70_attr_block:
  2370.         dd 5
  2371.         dd 0,0,0
  2372.         dd fileattr
  2373.         db 0
  2374.         dd ?
  2375.  
  2376. fn70_load_block:
  2377.         dd 7
  2378.         dd 1
  2379. load_params dd 0
  2380.         dd 0
  2381.         dd 0
  2382. i_end:
  2383. loadname:
  2384.         db 0
  2385.         rb 255
  2386.  
  2387. symbolsfile     rb 260
  2388.  
  2389. prgname_ptr dd ?
  2390. prgname_len dd ?
  2391.  
  2392. IncludeUGlobals
  2393.  
  2394. align 4
  2395. debuggee_pid    dd ?
  2396. dbgwnd          dd ?
  2397. temp_break      dd ?
  2398.  
  2399.  
  2400. fpu_mode        db ?
  2401. sse_mode        db ?
  2402. bSuspended      db ?
  2403. bAfterGo        db ?
  2404.  
  2405.  
  2406. messages_pos    dd ?
  2407. messages        rb messages_height*messages_width
  2408.  
  2409. cmdline         rb cmdline_width+1
  2410. cmdline_len     dd ?
  2411. cmdline_pos     dd ?
  2412. curarg          dd ?
  2413.  
  2414. cmdline_prev    rb cmdline_width+1
  2415.  
  2416. was_temp_break  db ?
  2417. symbol_section  db ?
  2418.  
  2419. dbgbufsize      dd ?
  2420. dbgbuflen       dd ?
  2421. dbgbuf          rb 256
  2422.  
  2423. fileattr        rb 40
  2424.  
  2425. ;keep aligned !!!
  2426. ;do not change layout !!!
  2427.  
  2428. align 16
  2429. needzerostart:
  2430. context:
  2431. _eip    dd ?
  2432. _eflags dd ?
  2433. _eax    dd ?
  2434. _ecx    dd ?
  2435. _edx    dd ?
  2436. _ebx    dd ?
  2437. _esp    dd ?
  2438. _ebp    dd ?
  2439. _esi    dd ?
  2440. _edi    dd ?
  2441.  
  2442. _ctx_flags:
  2443.         dd ?
  2444.         dd ?
  2445.  
  2446. _sse_flags:
  2447.  
  2448.  
  2449. _fcw    dw ?
  2450. _fsw    dw ?
  2451. _ftw    db ?
  2452.         db ?
  2453. _fop    dw ?
  2454. _fpu_ip dd ?
  2455.         dw ?
  2456.         dw ?
  2457.  
  2458.         dq ?
  2459.         dq ?
  2460.  
  2461. fpu_context:
  2462. mmx_context:
  2463. _st0:
  2464. _mm0:   rq 2
  2465. _st1:
  2466. _mm1:   rq 2
  2467. _st2:
  2468. _mm2:   rq 2
  2469. _st3:
  2470. _mm3:   rq 2
  2471. _st4:
  2472. _mm4:   rq 2
  2473. _st5:
  2474. _mm5:   rq 2
  2475. _st6:
  2476. _mm6:   rq 2
  2477. _st7:
  2478. _mm7:   rq 2
  2479.  
  2480. sse_context:
  2481. _xmm0   rq 2
  2482. _xmm1   rq 2
  2483. _xmm2   rq 2
  2484. _xmm3   rq 2
  2485. _xmm4   rq 2
  2486. _xmm5   rq 2
  2487. _xmm6   rq 2
  2488. _xmm7   rq 2
  2489. ctx_end:
  2490.  
  2491. oldcontext rb _ctx_flags-context
  2492.         rb 32
  2493.  
  2494. oldfpucontext:
  2495. oldmmxcontext: rb sse_context-fpu_context
  2496. oldssecontext: rb ctx_end-sse_context
  2497.  
  2498. if 0
  2499. avx_context:
  2500. _ymm0   dq 4 dup ?
  2501. _ymm1   dq 4 dup ?
  2502. _ymm2   dq 4 dup ?
  2503. _ymm3   dq 4 dup ?
  2504. _ymm4   dq 4 dup ?
  2505. _ymm5   dq 4 dup ?
  2506. _ymm6   dq 4 dup ?
  2507. _ymm7   dq 4 dup ?
  2508. oldavxcontext rb $-avx_context
  2509. end if
  2510.  
  2511.  
  2512. step_num dd ?
  2513. proc_num dd ?
  2514. dumpread dd ?
  2515. dumppos  dd ?
  2516. dumpdata rb dump_height*10h
  2517.  
  2518. ; breakpoint structure:
  2519. ; dword +0: address
  2520. ; byte +4: flags
  2521. ; bit 0: 1 <=> breakpoint valid
  2522. ; bit 1: 1 <=> breakpoint disabled
  2523. ; bit 2: 1 <=> one-shot breakpoint
  2524. ; bit 3: 1 <=> DRx breakpoint
  2525. ; byte +5: overwritten byte
  2526. ;          for DRx breaks: flags + (index shl 6)
  2527. breakpoints_n = 256
  2528. breakpoints     rb breakpoints_n*6
  2529. drx_break       rd 4
  2530.  
  2531. disasm_buf_size dd ?
  2532.  
  2533. symbols         dd ?
  2534. num_symbols     dd ?
  2535.  
  2536. bReload         db ?
  2537.  
  2538. needzeroend:
  2539.  
  2540. disasm_buffer           rb 256
  2541. disasm_start_pos        dd ?
  2542. disasm_cur_pos          dd ?
  2543. disasm_cur_str          dd ?
  2544. disasm_string           rb 256
  2545.  
  2546. thread_info             process_information
  2547.  
  2548. ;-----------------------------------------------------------------------------
  2549. ;                  Coordinates and sizes for GUI
  2550.  
  2551. data_x_size_dd          dd ?, ?
  2552. messages_x_size_dd      dd ?, ?
  2553. registers_x_pos_dd      dd ?, ?
  2554.  
  2555. disasm_height_dd        dd ?
  2556. disasm_y_size_dd        dd ?, ?
  2557. messages_y_pos_dd       dd ?, ?
  2558. cmdline_y_pos_dd        dd ?, ?
  2559. registers_y_size_dd     dd ?, ?
  2560.  
  2561. i_param         rb 256
  2562.  
  2563. ; stack
  2564.         align   400h
  2565.         rb      400h
  2566. used_mem:
  2567.  
  2568. ; vim: ft=fasm tabstop=4
  2569.  
  2570.