kolibrios-gitea/programs/develop/koldbg/koldbg.asm

2912 lines
71 KiB
NASM
Raw Normal View History

use32
db 'MENUET01'
dd 1
dd Start
dd I_END
MemSize dd Mem
dd StackTop
dd 0,AppPath
VERSION equ '0.01+'
;-----------------------------------------------------------------------------
Bitness equ 32
;-----------------------------------------------------------------------------
bit equ 1 shl
by equ shl 8 +
%B = 32
macro even Value { rb (Value-1)-($+Value-1) mod Value }
macro ifc Opc&
{
local ..L
jnc ..L
Opc
..L:
}
macro ifa Opc&
{
local ..L
jna ..L
Opc
..L:
}
macro ifae Opc&
{
local ..L
jnae ..L
Opc
..L:
}
macro ifb Opc&
{
local ..L
jnb ..L
Opc
..L:
}
macro ifbe Opc&
{
local ..L
jnbe ..L
Opc
..L:
}
macro ifg Opc&
{
local ..L
jng ..L
Opc
..L:
}
macro ifge Opc&
{
local ..L
jnge ..L
Opc
..L:
}
macro ifl Opc&
{
local ..L
jnl ..L
Opc
..L:
}
macro ifle Opc&
{
local ..L
jnle ..L
Opc
..L:
}
macro ifno Opc&
{
local ..L
jo ..L
Opc
..L:
}
macro ifnp Opc&
{
local ..L
jp ..L
Opc
..L:
}
macro ifns Opc&
{
local ..L
js ..L
Opc
..L:
}
macro ifnz Opc&
{
local ..L
jz ..L
Opc
..L:
}
macro ifo Opc&
{
local ..L
jno ..L
Opc
..L:
}
macro ifp Opc&
{
local ..L
jnp ..L
Opc
..L:
}
macro ifs Opc&
{
local ..L
jns ..L
Opc
..L:
}
macro ifz Opc&
{
local ..L
jnz ..L
Opc
..L:
}
macro lea Dst,Src
{
local ..L,..H
virtual at 0
mov al,byte Src
load ..L byte from 0x0
if ..L = 0xA0
load ..H dword from 0x1
end if
end virtual
if ..L = 0xA0
mov Dst,..H
else
lea Dst,Src
end if
}
include 'kosfuncs.inc'
include '../../macros.inc'
include 'font.inc'
include 'tools.inc'
include 'kernel.inc'
virtual at rsp
All:
.edi dd ?
.esi dd ?
.ebp dd ?
.res dd ?
.ebx dd ?
.edx dd ?
.ecx dd ?
.eax dd ?
end virtual
macro jecxnz Target
{
inc ecx
loop Target
}
TestFile db '/rd/1/develop/scancode',0
MinWidth = 90
MaxWidth = 255
MinHeight = 75
MaxHeight = 255
DATA_WIDTH = 88 ; in characters, multiple of 4
CMD_WIDTH = DATA_WIDTH
CursorNormSize = 2
CursorBigsSize = FontHeight
;-----------------------------------------------------------------------------
; Fast load test file event
DoLoad: mov esi,TestFile
mov edi,LoadName
jmp OnLoadInit
;-----------------------------------------------------------------------------
; Load executable event
OnLoad: mov esi,[CurArg]
OnLoadInit:
mov edi,LoadName
or [PrgNameLen],-1
mov [PrgNamePtr],edi
.CopyName:
lodsb
stosb
inc [PrgNameLen]
cmp al,'/'
jnz @F
or [PrgNameLen],-1
mov [PrgNamePtr],edi
@@:
cmp al,' '
ja .CopyName
mov byte [edi-1],0
and [LoadParams],0
dec esi
call GetArg.SkipSpaces
cmp al,0
jz @F
mov [LoadParams],esi
@@:
;and [DumpPos],0
mov ecx,[Symbols]
jecxz DoReLoad
mcall 68,13
and [Symbols],0
and [NumSymbols],0
DoReLoad:
mcall 18,7
mov [DbgWnd],eax
xchg ecx,eax
mcall 70,FN70LoadBlock
test eax,eax
jns .Loaded
.LoadErr:
push eax
mov esi,LoadErrMsg
call PutMessage
pop eax
not eax
cmp eax,0x20
jae .UnkErr
mov esi,[LoadErrMsgs+eax*4]
test esi,esi
jnz PutMessage
.UnkErr:
mov esi,UnkErrMsg
inc eax
push eax
call PutMessageNoDraw
jmp DrawMessages
.Loaded:
mov [DebuggeePID],eax
mov [bSuspended],1
mcall 5,20
push ecx
call GetContext
mov edi,OldContext
mov ecx,(CtxEnd-Context)/4
rep movsd
; activate debugger window
pop ecx
mcall 18,3
call GetDump
if 1
push dword [ShowNames]
mov [ShowNames],-1
end if
mov [AfterKey],0
call ShowImage
mov esi,LoadSuccMsg
push [DebuggeePID]
call PutMessageNoDraw
call DrawMessages
; 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 [NumSymbols],eax
jne @F
mov dword [ecx],'.map' ; If failed, try .map file too
call OnLoadSymbols.Silent
@@:
if 1
pop eax
mov [ShowNames],al
call DrawMessages
end if
ret
;-----------------------------------------------------------------------------
; Working with debug context
GetNewContext:
mov esi,Context
mov edi,OldContext
mov ecx,(CtxEnd-Context)/4
rep movsd
GetContext:
mcall 69,1,[DebuggeePID],CtxEnd-Context,Context
ret
SetContext:
mcall 69,2,[DebuggeePID],28h,Context
ret
;-----------------------------------------------------------------------------
; Resume process event
DoResume:
mcall 69,5,[DebuggeePID]
mov [bSuspended],0
ret
;-----------------------------------------------------------------------------
; Breakpoints manipulation
OnBp: mov esi,[CurArg]
call CalcExpression
jc .Ret
xchg eax,ebp
push eax
call FindBreakPoint
inc eax
pop eax
jz .NotFound
mov esi,aDuplicateBreakpoint
jmp .SayErr
.NotFound:
mov bl,1
call AddBreakPoint
jnc .Ret
mov esi,aBreakpointLimitExceeded
.SayErr:
call PutMessage
.Ret:
jmp DrawMessages;DrawDisAsm
;-----------------------------------------------------------------------------
; Dump memory event
OnDump: mov esi,[CurArg]
cmp byte [esi],0
jnz .Param
;add [DumpPos],DUMP_HEIGHT*10h
add [DataAddr],8*8
jmp .DoIt
.Param:
call CalcExpression
jc .Ret
;mov [DumpPos],ebp
mov [DataAddr],ebp
.DoIt:
;call GetDump
;call DrawDump.Redraw
call DrawMessages
.Ret:
ret
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 CalcExpression
pop edx
jnc @F
ret
; ebp = expression, dh = flags
@@:
movzx eax,dh
shr eax,2
test ebp,eax
jz @F
mov esi,aUnaligned
jmp PutMessage
@@:
mov eax,ebp
mov bl,0Bh
call AddBreakPoint
jnc @F
mov esi,aBreakpointLimitExceeded
jmp PutMessage
; now find index
@@:
push eax
xor ecx,ecx
.L1:
cmp [DrXBreak+ecx*4],0
jnz .L2
push ecx
mov dl,cl
mov esi,ebp
mcall 69,9,[DebuggeePID]
test eax,eax
jz .OK
pop ecx
.L2:
inc ecx
cmp ecx,4
jb .L1
pop eax
call ClearBreakPoint
mov esi,aBreakpointLimitExceeded
jmp PutMessage
.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 [DrXBreak+ecx*4],eax
ret
OnBc: mov esi,[CurArg]
@@:
call GetHexNumber
jc OnBp.Ret
call ClearBreakPoint
jmp @B
OnBd:
mov esi,[CurArg]
@@:
call GetHexNumber
jc OnBp.Ret
call DisableBreakPoint
jmp @B
OnBe:
mov esi,[CurArg]
@@:
call GetHexNumber
jc OnBp.Ret
push eax
call FindEnabledBreakPoint
pop eax
jz .Err
call EnableBreakPoint
jmp @B
.Err:
mov esi,OnBeErrMsg
jmp PutMessage
GetHexNumber:
call GetArg.SkipSpaces
xor ecx,ecx
xor edx,edx
@@:
lodsb
call IsHexDigit
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 GetHexNumber
jc .Ret
cmp eax,BreakPointsN
jae .Err
push eax
add eax,eax
lea edi,[BreakPoints+eax+eax*2]
pop eax
test byte [edi+4],1
jz .Err
call ShowBreakInfo
.Ret:
ret
.Err:
mov esi,aInvalidBreak
jmp PutMessage
.ListAll:
mov edi,BreakPoints
xor eax,eax
@@:
test byte [edi+4],1
jz .Cont
push edi eax
call ShowBreakInfo
pop eax edi
.Cont:
add edi,6
inc eax
cmp eax,BreakPointsN
jb @B
ret
ShowBreakInfo:
push edi
test byte [edi+4],8
jnz .DR
push dword [edi]
push eax
mov esi,aBreakNum
call PutMessageNoDraw
jmp .CMN
.DR:
push eax
mov esi,aMemBreak1
call PutMessageNoDraw
pop edi
push edi
mov esi,aMemBreak2
test byte [edi+5],2
jz @F
mov esi,aMemBreak3
@@:
call PutMessageNoDraw
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 PutMessageNoDraw
pop edi
push edi
push dword [edi]
mov esi,aMemBreak7
call PutMessageNoDraw
.CMN:
pop edi
test byte [edi+4],2
jz @F
push edi
mov esi,aDisabled
call PutMessageNoDraw
pop edi
@@:
test byte [edi+4],4
jz @F
mov esi,aOneShot
call PutMessageNoDraw
@@:
mov esi,NewLine
jmp PutMessage
;-----------------------------------------------------------------------------
; Unpack executable event
OnUnpack:
; program must be loaded - checked when command was parsed
; program must be stopped
mov esi,aRunningErr
cmp [bSuspended],0
jz PutMessage
; 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 PutMessage
.Cont:
add edi,6
cmp edi,BreakPoints+BreakPointsN*6
jb @B
; ok, now do it
; set breakpoint on 0xC dword access
push 9
pop ebx
mov ecx,[DebuggeePID]
mov dx,1111b*256
push 0xC
pop esi
@@:
mcall 69
test eax,eax
jz .BreakOK
inc edx
cmp dl,4
jb @B
.BreakOK:
call GoOn
; now wait for event
.Wait:
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:
mov [DoDraw],1
call DrawWindow
jmp .Wait
.Key:
mov al,2
mcall
cmp ah,3 ; Ctrl+C
jnz .Wait
.UserBreak:
mov esi,aInterrupted
.X1:
push edx esi
call PutMessage
pop esi edx
or dh,80h
mcall 69,9,[DebuggeePID]
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 PutMessage
pop edx
or dh,80h
mcall 69,9,[DebuggeePID]
jmp DebugMsg
.Our:
and [DbgBufLen],0
push edx
call GetContext
push eax
mcall 69,6,[DebuggeePID],4,0xC,esp
pop eax
pop edx
cmp eax,[_EIP]
jz .Done
call DoResume
jmp .Wait
.Done:
mov esi,aUnpacked
jmp .X1
;-----------------------------------------------------------------------------
; Calculate expression event
OnCalc: mov esi,[CurArg]
call CalcExpression
jc .Ret
push ebp
mov esi,CalcString
call PutMessageNoDraw
jmp DrawMessages
.Ret:
ret
;-----------------------------------------------------------------------------
; Access to register value event
OnReg: mov esi,[CurArg]
call GetArg.SkipSpaces
call FindReg
jnc @F
.Err:
mov esi,RSyntax
jmp PutMessage
@@:
call GetArg.SkipSpaces
test al,al
jz .Err
cmp al,'='
jnz @F
inc esi
call GetArg.SkipSpaces
test al,al
jz .Err
@@:
push edi
call CalcExpression
pop edi
jc .Ret
; now edi=register id, ebp=value
cmp [bSuspended],0
mov esi,aRunningErr
jz PutMessage
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 UpdateDisAsmEIP
.Ret:
call SetContext
jmp DrawMessages;DrawRegisters.ReDraw
;-----------------------------------------------------------------------------
; Step execution event
;Here we get [<number>] argument at do step <number> times
OnStepMultiple:
cmp [bSuspended],0
jz OnStep.Running
mov [StepNum],1
mov esi,[CurArg]
test esi,esi
jz .Do
cmp byte [esi],0
jz .Do
call GetHexNumber
jc .Ret
or eax,eax ; check if lesser or equal than 0
jle .Ret
mov [StepNum],eax
.Do: call OnStep
dec [StepNum]
jnz .Do
.Ret: ret
OnStep:
cmp [bSuspended],0
jz .Running
call GetContext
or byte [_EFL+1],1 ; set TF
call SetContext
and byte [_EFL+1],not 1
; if instruction at eip is "int xx", set one-shot breakpoint immediately after
mov eax,[_EIP]
call FindEnabledBreakPoint
jnz @F
cmp byte [edi+5],0xCD
jz .Int
@@:
push 0
mcall 69,6,[DebuggeePID],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
inc edx ; read 4 bytes
mov esi,[_EBP]
sub esi,4
mcall 69
cmp eax,edx
pop eax
jnz .SysCall
push eax
and byte [_EFL+1],not 1
call SetContext
pop eax
jmp @F
.SysCall:
and byte [_EFL+1],not 1 ; clear TF - avoid system halt (!)
call SetContext
.Int:
mov eax,[_EIP]
inc eax
inc eax
@@:
push eax
call FindEnabledBreakPoint
pop eax
jz .DoIt
; there is no enabled breakpoint yet; set temporary breakpoint
mov bl,5
call AddBreakPoint
jmp .DoIt
.Running:
mov esi,aRunningErr
jmp PutMessage
;-----------------------------------------------------------------------------
; Proceed process event
;Here we get [<number>] argument at do step <number> times
OnProceedMultiple:
cmp [bSuspended],0
jz OnStep.Running
mov [ProcNum],1
mov esi,[CurArg]
test esi,esi
jz .Do
cmp byte [esi],0
jz .Do
call GetHexNumber
jc .Ret
or eax,eax ; check if lesser or equal than 0
jle .Ret
mov [ProcNum],eax
and [CurArg],0
.Do:
call OnProceed
dec [ProcNum]
jnz .Do
.Ret:
ret
OnProceed:
cmp [bSuspended],0
jz OnStep.Running
mov esi,[_EIP]
@@:
call GetByteNoBreak
jc OnStep
inc esi
; skip prefixes
call IsPrefix
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 GetByteNoBreak
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 GetByteNoBreak
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 GetByteNoBreak
jc OnStep
mov eax,esi
call FindEnabledBreakPoint
jz @F
mov eax,esi
mov bl,5
call AddBreakPoint
jmp OnStep.DoIt
@@:
ret
;-----------------------------------------------------------------------------
; Read next byte of machine code
GetByteNoBreak:
mov eax,esi
call FindEnabledBreakPoint
jnz .NoBreak
mov al,[edi+5]
clc
ret
.NoBreak:
xor edx,edx
push edx
inc edx
mov edi,esp
mcall 69,6,[DebuggeePID]
dec eax
clc
jz @F
stc
@@:
pop eax
ret
IsPrefix:
cmp al,0x64 ; fs:
jz .Ret
cmp al,0x65 ; gs:
jz .Ret
cmp al,0x66 ; use16/32
jz .Ret
cmp al,0x67 ; addr16/32
jz .Ret
cmp al,0xF0 ; lock
jz .Ret
cmp al,0xF2 ; repnz
jz .Ret
cmp al,0xF3 ; rep(z)
jz .Ret
cmp al,0x2E ; cs:
jz .Ret
cmp al,0x36 ; ss:
jz .Ret
cmp al,0x3E ; ds:
jz .Ret
cmp al,0x26 ; es:
.Ret:
ret
OnResume:
mov esi,[CurArg]
cmp byte [esi],0
jz GoOn
call CalcExpression
jc .Ret
.Jmp:
mov eax,ebp
push eax
call FindEnabledBreakPoint
pop eax
jz GoOn
mov bl,5 ; valid enabled one-shot
call AddBreakPoint
jnc GoOn
mov esi,aBreakpointLimitExceeded
call PutMessage
.Ret:
ret
;-----------------------------------------------------------------------------
; Jump event
OnJump: mov esi,[CurArg]
cmp byte [rsi],0
jz .Ret
call CalcExpression
jc .Ret
mov ecx,[CurrentWindow]
mov [CodeAddr+rcx*4],ebp
jecxnz .Next
mov [CPUYPos],1
.Next:
cmp ecx,1 ;Reg Window?
jnz .NReg
mov eax,[RegXPtr]
cmp eax,9
jae .NReg
mov eax,[RegRTab+rax*4]
mov [rax],ebp
call SetContext
.NReg:
mov [AfterKey],1
call ShowImage
.Ret: ret
;-----------------------------------------------------------------------------
; Help event
OnHelp: mov esi,HelpMsg
mov edi,[CurArg]
cmp byte [edi],0
jz .X
mov esi,HelpGroups
call FindCmd
jc .NoCmd
mov esi,[esi+12]
.X:
jmp PutMessage
.NoCmd:
mov esi,aUnknownCommand
jmp .X
;-----------------------------------------------------------------------------
; Detach process event
OnDetach:
mcall 69,3,[DebuggeePID]
and [DebuggeePID],0
call FreeSymbols
mov esi,aContinued
jmp PutMessage
;-----------------------------------------------------------------------------
; Reload executable event
OnReLoad:
cmp [DebuggeePID],0
jnz TerminateReLoad
mov esi,NeedDebuggee
cmp byte [LoadName],0
jnz DoReLoad
jz PutMessage
TerminateReLoad:
mov [bReload],1
;-----------------------------------------------------------------------------
; Terminate process event
OnTerminate:
mcall 69,8,[DebuggeePID]
ret
;-----------------------------------------------------------------------------
; Suspend process event
AfterSuspend:
mov [bSuspended],1
call GetNewContext
call GetDump
call ShowImage
ret
OnSuspend:
mcall 69,4,[DebuggeePID]
call AfterSuspend
mov esi,aSuspended
jmp PutMessage
GoOn:
; test for enabled breakpoint at eip
mov eax,[_EIP]
call FindEnabledBreakPoint
jnz .NoBreak
; temporarily disable breakpoint, make step, enable breakpoint, continue
inc eax
mov [TempBreak],eax
mov [bAfterGo],1
dec eax
call DisableBreakPoint
call GetContext
or byte [_EFL+1],1 ; set TF
call SetContext
and byte [_EFL+1],not 1
call DoResume
ret
.NoBreak:
call DoResume
ShowImage:
pushad
call InitConsole
call DrawWindow
popad
ret
even 4
InitConsole:
mov eax,[CurWidth]
mul [CurHeight]
mov ecx,eax
mov edi,ConsoleDataPtr
mov eax,3F203F20h
shr ecx,1
rep stosd
adc cl,cl
rep stosw
;
mov ebx,MSG_HEIGHT ;dY
mov ecx,[CurWidth] ;\dX
sub ecx,2 ;/
mov esi,1 ;X
mov edi,MinHeight-MSG_HEIGHT-1 ;Y
mov edx,87208720h
call ClearWindow
;
call DrawFrame
ret
InitCoords:
mov [CPUXPos],1
mov [CPUYPos],1
mov [CPUXPtr],0
mov [MemXPos],11
mov [MemYPos],41
mov eax,[CurWidth]
SUB eax,21
mov [StkXPos],eax
mov [StkYPos],28
mov [RegXPos],1
mov [RegYPos],30
mov [RegLDat],12
and [RegXPtr],0
ret
GetDataByte:
;I: esi - address
;O: al - byte
pushad
mov al,0
push eax
mcall 69,6,[DebuggeePID],1,[All.esi+4],esp
if 1
mov esi,[All.esi+4]
mov edi,esp
call RestoreFromBreaksOne
end if
cmp eax,-1 ;invalid PID?
jz @F ;Yes,CF=0
cmp eax,1 ;CF=1,eax=1 if OK
cmc
@@: pop dword [esp+1Ch]
popad
ret
SafeStoreDD:
pushad
mov eax,69
mov ebx,7
mov ecx,[DebuggeePID]
mov edx,4
mov esi,edi
lea edi,[All.eax]
int 40h
popad
ret
SafeStore:
pushad
mov eax,69
mov ebx,7
mov ecx,[DebuggeePID]
mov edx,1
mov esi,edi
lea edi,[All.eax]
int 40h
popad
ret
DrawWindow:
btr dword [DoDraw],0
jc .CopyDraw
mov esi,ConsoleDataPtr
mov edi,ConsoleDataOld
mov ecx,[CurWidth]
imul ecx,[CurHeight]
shr ecx,1
repz cmpsd
jnz .CopyDraw
adc cl,cl
repz cmpsw
jz .SkipDraw
.CopyDraw:
mov esi,ConsoleDataPtr
mov edi,ConsoleDataOld
mov ecx,[CurWidth]
imul ecx,[CurHeight]
shr ecx,1
rep movsd
adc cl,cl
rep movsw
push SF_REDRAW
pop eax
push SSF_BEGIN_DRAW
pop ebx
int 40h
mov al,SF_STYLE_SETTINGS
mov bl,SSF_GET_SKIN_HEIGHT
int 40h
mov [SkinH],eax
mov ebx,[CurWidth]
imul ebx,FontWidth
add ebx,100*65536+5*2-1
mov ecx,[CurHeight]
imul ecx,FontHeight
lea ecx,[eax+ecx+5-1+100*65536]
xor eax,eax
mov edx,0x53000000
mov edi,HeaderN
cmp [DebuggeePID],0
jz @F
mov edi,HeaderY
@@: int 40h
mov al,SF_DRAW_RECT
xor edx,edx
cmp [FillWidth],0
jz @F
mov ebx,[WndWidth]
sub ebx,[FillWidth]
sub ebx,5-1
shl ebx,16
mov bx,word [FillWidth]
mov ecx,[SkinH-2]
mov cx,word [WndHeight]
sub cx,word [SkinH]
sub cx,5-1
int 40h
@@:
cmp [FillHeight],0
jz @F
xor edx,edx
mov ebx,50000h
mov bx,word [WndWidth]
sub ebx,9
mov ecx,[WndHeight]
sub ecx,[FillHeight]
sub ecx,5-1
shl ecx,16
mov cx,word [FillHeight]
int 40h
@@:
call DrawImage
mov al,SF_PUT_IMAGE_EXT
mov ebx,[MemForImage]
test ebx,ebx
jz @F
mov ecx,[CurWidth]
imul ecx,FontWidth*10000h
mov cx,word [CurHeight]
imul cx,FontHeight
mov edx,[SkinH]
add edx,5*10000h
mov esi,8
mov edi,ConsoleColors
xor ebp,ebp
int 40h
@@:
mov al,SF_REDRAW
push SSF_END_DRAW
pop ebx
int 40h
.SkipDraw:
ret
align 16
DrawImage:
mov [bMemForImageValidData],byte 1
cmp [MemForImage],0
jnz .Allocated
; allocate memory for image
mov ecx,[CurWidth]
imul ecx,[CurHeight]
imul ecx,FontWidth*FontHeight
call PGAlloc
test eax,eax
ifz ret
mov [MemForImage],eax
mov [bMemForImageValidData],byte 0
.Allocated:
push ebp
and [MaxX],0
or [MinX],-1
and [MaxY],0
or [MinY],-1
mov eax,[CursorY]
mul [CurWidth]
add eax,[CursorX]
add eax,eax
add eax,ConsoleDataPtr
xchg [CurCursorPos],eax
mov [OldCursorPos],eax
mov edi,[MemForImage]
mov esi,ConsoleDataPtr
mov ecx,[CurHeight]
.LH:
push ecx
mov ecx,[CurWidth]
.LW:
push ecx
mov eax,[CurWidth]
imul eax,[CurHeight]
mov ebx,[esi]
cmp [bMemForImageValidData],0
jz @F
cmp esi,[CurCursorPos]
jz @F
cmp esi,[OldCursorPos]
jz @F
cmp bx,[eax*2+esi]
jnz @F
inc esi
inc esi
jmp .SkipSymbol
@@:
mov [eax*2+esi],bx
cmp ecx,[MinX]
ja @F
mov [MinX],ecx
@@:
cmp ecx,[MaxX]
jb @F
mov [MaxX],ecx
@@:
mov eax,[esp+4]
mov [MinY],eax
cmp eax,[MaxY]
jb @F
mov [MaxY],eax
@@:
push edi
xor eax,eax
mov al,[esi+1]
and al,0xF
mov ebx,eax
mov al,[esi+1]
shr al,4
mov ebp,eax
sub ebx,ebp
lodsb
inc esi
if FontWidth > 8
lea edx,[eax+eax+Font]
else
lea edx,[eax+Font]
end if
.SH:
mov ecx,[edx]
repeat FontWidth
shr ecx,1
sbb eax,eax
and eax,ebx
add eax,ebp
mov [edi+%-1],al
end repeat
mov eax,[CurWidth]
if FontWidth = 6
lea eax,[eax*2+eax]
lea edi,[edi+eax*2]
else if FontWidth = 7
lea edi,[edi+eax*8]
sub edi,eax
else if FontWidth = 8
lea edi,[edi+eax*8]
else if FontWidth = 9
lea edi,[edi+eax*8]
add edi,eax
else if FontWidth = 10
lea eax,[eax*4+eax]
lea edi,[edi+eax*2]
else
Unknown FontWidth Value!
end if
if FontWidth > 8
add edx,256*2
cmp edx,Font+256*2*FontHeight
else
add edx,256
cmp edx,Font+256*FontHeight
end if
jb .SH
pop edi
.SkipSymbol:
pop ecx
add edi,FontWidth
dec ecx
jnz .LW
mov eax,[CurWidth]
imul eax,(FontHeight-1)*FontWidth
add edi,eax
pop ecx
dec ecx
jnz .LH
; cursor
mov eax,[CursorY]
inc eax
jz .NoCursor
mul [CurWidth]
imul eax,FontHeight*FontWidth
mov edx,[CursorX]
inc edx
imul edx,FontWidth
add eax,edx
add eax,[MemForImage]
mov edx,[CurWidth]
imul edx,FontWidth
neg edx
mov ecx,[CursorSize]
.CursorLoop:
push ecx
mov ecx,FontWidth
add eax,edx
push eax
@@:
xor byte [eax-1],7
sub eax,1
loop @B
pop eax
pop ecx
loop .CursorLoop
.NoCursor:
cmp [MinY],-1
jz .NoDraw
mov ecx,[CurWidth]
mov ebx,[CurHeight]
mov eax,ebx
sub ebx,[MaxY]
sub eax,[MinY]
sub eax,ebx
inc eax
imul ebp,eax,FontHeight
mov edx,ecx
sub edx,[MaxX]
imul edx,FontWidth
mov eax,edx
shl edx,16
imul dx,bx,FontHeight
imul ebx,[CurWidth]
mov ecx,[MaxX]
sub ecx,[MinX]
inc ecx
imul ecx,FontWidth*10000h
add ecx,ebp
imul ebx,FontWidth*FontHeight
add ebx,[MemForImage]
add ebx,eax
add edx,[SkinH]
add edx,5*10000h
imul esi,[CurWidth],FontWidth
mov ebp,ecx
shr ebp,16
sub esi,ebp
mov ebp,esi
push SF_PUT_IMAGE_EXT
pop eax
mov edi,ConsoleColors
push 8
pop esi
int 40h
.NoDraw:
pop ebp
ret
even 4
Redraw:
mov al,SF_THREAD_INFO
mov ebx,ProcInfo
or ecx,-1
int 40h
; test if rolled up
; height of rolled up window is [skinh]+3
mov eax,[ebx+46]
sub eax,[SkinH]
cmp eax,5
ja @F
mov al,SF_REDRAW
push SSF_BEGIN_DRAW
pop ebx
int 0x40
xor eax,eax
; ebx, ecx, edi are ignored by function 0 after first redraw
mov edx,0x53000000
int 0x40
mov al,SF_REDRAW
inc ebx
int 0x40
jmp WaitEvent
@@:
xor ecx,ecx
mov eax,[ebx+42]
mov [WndWidth],eax
sub eax,5*2-1
jae @F
xor eax,eax
@@:
cdq
mov esi,FontWidth
div esi
cmp eax,MinWidth
jae @F
mov al,MinWidth
mov ch,1
@@:
cmp eax,MaxWidth
jbe @F
mov eax,MaxWidth
mov ch,1
@@:
cmp eax,[CurWidth]
mov [CurWidth],eax
setnz cl
or cl,ch
test edx,edx
mov [FillWidth],edx
setnz ch
mov eax,[ebx+46]
mov [WndHeight],eax
sub eax,[SkinH]
sub eax,5-1
jns @F
xor eax,eax
@@:
cdq
mov esi,FontHeight
div esi
cmp eax,MinHeight
jae @F
mov al,MinHeight
mov cl,1
@@:
cmp eax,MaxHeight
jbe @F
mov eax,MaxHeight
mov cl,1
@@:
mov [FillHeight],edx
cmp eax,[CurHeight]
mov [CurHeight],eax
jnz .ReSize
test cl,cl
jnz .ReSize
test edx,edx
setnz cl
or cl,ch
jz @F
test byte [ebx+70],1
jnz @F
.ReSize:
push SF_CHANGE_WINDOW
pop eax
or ebx,-1
or ecx,-1
mov edx,[CurWidth]
imul edx,FontWidth
add edx,5*2-1
mov esi,[CurHeight]
imul esi,FontHeight
add esi,[SkinH]
add esi,5-1
int 40h
.ReSizeDraw:
mov ecx,[MemForImage]
call PGFree
and [MemForImage],0
call InitConsole
call InitCoords
jmp WaitEvent
@@: mov [DoDraw],1
call DrawWindow
jmp WaitEvent
even 4
Start:
xor eax,eax
mov edi,NeedZeroStart
mov ecx,(NeedZeroEnd-NeedZeroStart+3)/4
rep stosd
call DetectCPU
mov [CPUType],dl
call DetectFPU
mov [FPUType],al
cmp [CPUType],5
jb @F
xor eax,eax
cpuid
mov edi,MsgXMMX+4
mov [edi+0],ebx
mov [edi+4],edx
mov [edi+8],ecx
cmp eax,1
jl .L1
xor eax,eax
inc eax
cpuid
xchg eax,edx
jmp .L2
.L1: xor eax,eax
.L2: test eax,00800000h ; CPU have MMX?
setnz [MMXType]
test eax,02000000h ; CPU have SSE?
setnz [XMMType]
@@:
push SF_SYS_MISC
pop eax
push SSF_HEAP_INIT
pop ebx
int 40h
call InitCmdHistBuffer
call InitDefault
call InitCoords
call ShowImage
; set event mask - default events and debugging events
mcall 40,EVM_REDRAW or EVM_KEY or EVM_BUTTON or EVM_DEBUG
; set debug messages buffer
mov ecx,DbgBufSize
mov dword [ecx],256
xor ebx,ebx
mov [ecx+4],ebx
mov al,69
mcall
call ShowImage
WaitEvent:
push SF_WAIT_EVENT
pop eax
int 40h
cmp al,9
jz DebugMsg
dec eax
jz Redraw
dec eax
jz Key
sub eax,4
jz Mouse
; button - we have only one button, close
;-----------------------------------------------------------------------------
; Quit event
OnQuit:
or eax,-1
int 40h
Key:
mov al,SF_KEYBOARD
push SSF_GET_CONTROL_KEYS
pop ebx
int 0x40
and eax,0x3F
mov [CtrlState],al
mov al,SF_GET_KEY
int 40h
test al,al
jnz WaitEvent
shr eax,8
cmp ah,5Dh
ifz call DumpScreen
cmp [DebuggeePID],0
jz DoCommandLine
cmp [CmdLineActive],0
jnz GetCommandLine
jmp WinSwitch
F7: cmp [DebuggeePID],0
jz .No
call OnStep
.No:jmp WaitEvent
F8: cmp [DebuggeePID],0
jz F7.No
call OnProceed
jmp F7.No
even 16
Mouse:
if 0
mov eax,SF_MOUSE_GET
mov ebx,SSF_BUTTON_EXT
int 0x40
mov byte [MouseState],1
bt eax,24 ;left but. double click
jc @F
mov byte [MouseState],0
bt eax,8 ;left but. down
jc @F
jmp WaitEvent
@@:
mov eax,SF_MOUSE_GET
mov ebx,SSF_WINDOW_POSITION
int 0x40
end if
jmp WaitEvent
DumpScreen:
pushad
mov dword [DumpName+4],'0000'
.1:
mov [DumpBlock.Func],SSF_GET_INFO
mcall 70,DumpBlock
or eax,eax
jnz .2
inc byte [DumpName+7]
cmp byte [DumpName+7],'9'
jbe .1
mov byte [DumpName+7],'0'
inc byte [DumpName+6]
cmp byte [DumpName+6],'9'
jbe .1
mov byte [DumpName+6],'0'
popad
ret
.2: mov [DumpBlock.Func],SSF_CREATE_FILE
mcall 70,DumpBlock
or eax,eax
jnz .Err
mov ebx,[CurHeight]
mov esi,ConsoleDataPtr
mov edi,ConsoleDataOld
.3: mov ecx,[CurWidth]
.4: mov al,[rsi]
test al,al
jz .5
cmp al,0Ah
jz .5
cmp al,0Dh
jz .5
cmp al,10h
jb .X
jmp .6
.5: mov al,20h
jmp .6
.X: mov al,'.'
.6: mov [rdi],al
add esi,2
inc edi
loop .4
mov byte [rdi],13
inc edi
dec ebx
jnz .3
mov ecx,[CurWidth]
inc ecx
imul ecx,[CurHeight]
mov [DumpBlock.Size],ecx
mov [DumpBlock.Func],SSF_WRITE_FILE
mcall 70,DumpBlock
.Err: popad
ret
AfterGoException:
push eax
mov eax,[TempBreak]
dec eax
push esi
call EnableBreakPoint
; in any case, clear TF and RF
call GetNewContext
and [_EFL],not 10100h ; clear TF,RF
call SetContext
xor edx,edx
mov [TempBreak],edx
xchg dl,[bAfterGo]
pop esi
pop eax
cmp dl,2
jnz @F
lodsd
push esi
call GetDump
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:
DebugMsg:
neg [DbgBufSize]
mov esi,DbgBuf
DbgMsgStart:
lodsd
add esi,4
dec eax
jz Exception
dec eax
jz Terminated
dec eax
jnz DbgNotify
mov [bSuspended],1
cmp [bAfterGo],0
jnz AfterGoException
push esi
call GetNewContext
and [_EFL],not 10100h ; clear TF,RF
call SetContext
pop esi
.5:
push esi
call GetDump
pop esi
lodsd
xor ecx,ecx
.6:
bt eax,ecx
jnc .7
mov ebx,[DrXBreak+ecx*4]
test ebx,ebx
jz .7
pushad
dec ebx
push ebx
mov esi,aBreakStop
call PutMessageNoDraw
popad
.7:
inc ecx
cmp cl,4
jb .6
push esi
jmp Exception.DoneDraw
DbgNotify:
int3
add esi,32
push esi
jmp DbgMsgEnd
Terminated:
push esi
mov esi,TerminatedMsg
call PutMessage
and [DebuggeePID],0
and [TempBreak],0
mov [bAfterGo],0
xor eax,eax
mov ecx,BreakPointsN*6/4+4
mov edi,BreakPoints
rep stosd
cmp [bReload],1
sbb [bReload],-1
jnz Exception.Done
call FreeSymbols
jmp Exception.Done
Exception:
mov [bSuspended],1
cmp [bAfterGo],0
jnz AfterGoException
lodsd
push esi
push eax
call GetNewContext
and [_EFL],not 10100h ; clear TF,RF
call SetContext
.4:
call GetDump
pop eax
; int3 command generates exception 0x0D, #GP
push eax
cmp al,0x0D
jnz .NotDbg
; check for 0xCC byte at eip
push 0
mcall 69,6,[DebuggeePID],1,[_EIP],esp
pop eax
cmp al,0xCC
je .Int3
; check for 0xCD03 word at eip
push 0
inc edx
mcall 69;,6,[DebuggeePID],2,[_EIP],esp
pop eax
cmp ax,0x03CD
jne .NotDbg
mov eax,[_EIP]
inc [_EIP]
inc [_EIP]
jmp .UserINT3
.Int3:
; this is either dbg breakpoint or int3 cmd in debuggee
mov eax,[_EIP]
call FindEnabledBreakPoint
jnz .UserINT3
; dbg breakpoint; clear if one-shot
pop ecx
push eax
mov esi,aBreakStop
test byte [edi+4],4
jz .PutMsgEAX
pop ecx
call ClearBreakPoint
jmp .Done
.UserINT3:
mov eax,[_EIP]
inc [_EIP]
.UserINT3_:
pop ecx
push eax
call SetContext
mov esi,aUserBreak
jmp .PutMsgEAX
.NotDbg:
pop eax
push eax
push eax
mov esi,aException
call PutMessageNoDraw
pop eax
cmp al,16
ja .Suspended
mov esi,[MsgFaultSel+eax*4]
.ShowMess:
call PutMessageNoDraw
.Suspended:
mov esi,aSuspended
.PutMsgEAX:
call PutMessageNoDraw
.DoneDraw:
call DrawMessages
.Done:
mcall 18,3,[DbgWnd] ; activate dbg window
call ShowImage
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 DoReLoad
@@:
jmp WaitEvent
;-----------------------------------------------------------------------------
; Add breakpoint
; in: EAX = address; BL = flags
; out: CF = 1 => error
; CF = 0 and EAX = breakpoint number
AddBreakPoint:
xor ecx,ecx
mov edi,BreakPoints
@@:
test byte [edi+4],1
jz .Found
add edi,6
inc ecx
cmp ecx,BreakPointsN
jb @B
stc
ret
.Found:
stosd
xchg eax,ecx
mov [edi],bl
test bl,2
jnz @F
or byte [edi],2
push eax
call EnableBreakPoint
pop eax
@@:
clc
ret
;-----------------------------------------------------------------------------
; Remove breakpoint
ClearBreakPoint:
cmp eax,BreakPointsN
jae .Ret
mov ecx,4
inc eax
.1:
cmp [DrXBreak-4+ecx*4],eax
jnz @F
and [DrXBreak-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 DisableBreakPoint
pop edi
mov byte [edi],0
.Ret:
ret
;-----------------------------------------------------------------------------
; Disable breakpoint
DisableBreakPoint:
cmp eax,BreakPointsN
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
mcall 69,7,[DebuggeePID],1,[edi-5]
pop esi
.Ret:
ret
.DR:
mov dl,[edi]
shr dl,6
mov dh,80h
mcall 69,9,[DebuggeePID]
ret
;-----------------------------------------------------------------------------
; Enable breakpoint
EnableBreakPoint:
push esi
cmp eax,BreakPointsN
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
mcall 69,6,[DebuggeePID],1,[edi-5]
dec eax
jnz .Err
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 PutMessage
pop esi
ret
.DR:
mov esi,[edi-5]
mov dl,[edi]
shr dl,6
mov dh,[edi]
and dh,0xF
mcall 69,9,[DebuggeePID]
test eax,eax
jnz .Err
pop esi
ret
;-----------------------------------------------------------------------------
; Find breakpoint
FindBreakPoint:
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,BreakPointsN
jb @B
or eax,-1
.Found:
ret
;-----------------------------------------------------------------------------
;
FindEnabledBreakPoint:
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,BreakPointsN
jb @B
or eax,-1
.Found:
ret
GetDump:
if 0
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,[DebuggeePID]
cmp eax,-1
jnz @F
mov esi,ReadMemErr
call PutMessage
xor eax,eax
@@:
mov [edi-8],eax
; in: edi=buffer,eax=size,esi=address
RestoreFromBreaks:
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+BreakPointsN*6
jb @B
end if
ret
; in: edi=buffer,esi=address
RestoreFromBreaksOne:
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,1
jae .Cont
mov dl,[ebx+5]
mov [edi+ecx],dl
jmp .Exit
.Cont:
add ebx,6
cmp ebx,BreakPoints+BreakPointsN*6
jb @B
.Exit:
ret
GetCommandLine:
cmp ah,0x01
jz .Esc
cmp al,8
jz .Backspace
cmp al,0xB0
jz .Left
cmp al,0xB3
jz .Right
cmp al,0x0D
jz .Enter
cmp al,0xB6
jz .Del
cmp al,0xB4
jz .Home
cmp al,0xB5
jz .End
cmp al,0xB1
jz .Dn
cmp al,0xB2
jz .Up
mov [CmdHistBuffer.TmpLineFlag],0
cmp [CmdLineLen],CMD_WIDTH
jae WaitEvent
push eax
call ClearCmdLineEnd
pop eax
mov edi,CmdLine
mov ecx,[CmdLineLen]
add edi,ecx
lea esi,[edi-1]
sub ecx,[CmdLinePos]
std
rep movsb
cld
stosb
inc [CmdLineLen]
call DrawCmdLineEnd
inc [CmdLinePos]
call DrawCursor
jmp WaitEvent
.Esc:
xor eax,eax
mov [CmdLinePos],eax
mov [CmdLineLen],eax
mov [CmdLineActive],al
call DrawCursor
jmp WaitEvent
.Backspace:
mov [CmdHistBuffer.TmpLineFlag],0
cmp [CmdLinePos],0
jz WaitEvent
dec [CmdLinePos]
.DelChar:
mov [CmdHistBuffer.TmpLineFlag],0
call ClearCmdLineEnd
mov edi,[CmdLinePos]
dec [CmdLineLen]
mov ecx,[CmdLineLen]
sub ecx,edi
add edi,CmdLine
lea esi,[edi+1]
rep movsb
call DrawCmdLineEnd
call DrawCursor
jmp WaitEvent
.Del:
mov eax,[CmdLinePos]
cmp eax,[CmdLineLen]
jae WaitEvent
jmp .DelChar
.Left:
cmp [CmdLinePos],0
jz WaitEvent
call HideCursor
dec [CmdLinePos]
call DrawCursor
jmp WaitEvent
.Right:
mov eax,[CmdLinePos]
cmp eax,[CmdLineLen]
jae WaitEvent
call HideCursor
inc [CmdLinePos]
call DrawCursor
jmp WaitEvent
.Home:
call HideCursor
and [CmdLinePos],0
call DrawCursor
jmp WaitEvent
.End:
call HideCursor
mov eax,[CmdLineLen]
mov [CmdLinePos],eax
call DrawCursor
jmp WaitEvent
.Up:
xor edx,edx
jmp .Hist
.Dn:
xor edx,edx
inc edx
.Hist:
cmp [CmdHistBuffer.TmpLineFlag],1
je @F
mov eax,CmdLine
mov ecx,[CmdLineLen]
mov byte [eax+ecx],0
call AddCmdHistTmpLine
@@:
test edx,edx
jnz .Hist.Next
cmp [CmdHistBuffer.NFlag],0
jne @F
call GetCmdHistLine
inc [CmdHistBuffer.NFlag]
jmp .Hist.CPLine
@@:
call PrevCmdHistLine
jc WaitEvent
call GetCmdHistLine
inc [CmdHistBuffer.NFlag]
jmp .Hist.CPLine
.Hist.Next:
cmp [CmdHistBuffer.NFlag],0
je WaitEvent
call NextCmdHistLine
call GetCmdHistLine
jnc .Hist.CPLine
call GetCmdHistTmpLine
mov [CmdHistBuffer.TmpLineFlag],0
mov [CmdHistBuffer.NFlag],0
.Hist.CPLine:
mov esi,eax
mov edi,CmdLine
xor ecx,ecx
@@:
inc ecx
lodsb
stosb
test al,al
jnz @B
dec ecx
mov [CmdLinePos],0
call ClearCmdLineEnd
mov [CmdLineLen],ecx
mov [CmdLinePos],ecx
call DrawCmdLine
call DrawCursor
jmp WaitEvent
; We also trying to execute previous command, if empty command_line
.Enter:
mov [CmdLineActive],0
mov ecx,[CmdLineLen]
test ecx,ecx
jnz .ExecCur
mov cl,byte [CmdLinePrev]
cmp cl,0
jz WaitEvent
.ExecPrev:
mov esi,CmdLinePrev
jmp .Exec
.ExecCur:
mov esi,CmdLine
.Exec:
mov byte [esi+ecx],0
mov eax,esi
call AddCmdHistLine
mov [CmdHistBuffer.NFlag],0
and [CmdLinePos],0
push esi
call ClearCmdLineEnd
call DrawCursor
pop esi
and [CmdLineLen],0
; skip leading spaces
call GetArg.SkipSpaces
cmp al,0
jz WaitEvent
; now esi points to command
push esi
mov esi,Prompt
call PutMessageNoDraw
pop esi
push esi
call PutMessageNoDraw
Z1:
mov esi,NewLine
call PutMessage
pop esi
push esi
call GetArg
mov [CurArg],esi
pop edi
mov esi,Commands
call FindCmd
mov eax,aUnknownCommand
jc .X11
; check command requirements
; 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
mov eax,[esi+8]
mov ecx,[CurArg]
cmp byte [ecx],0
jz .NoArgs
test byte [esi+16],2
jz .X11
jmp @F
.NoArgs:
test byte [esi+16],1
jz .X11
@@:
cmp [DebuggeePID],0
jz .NoDebuggee
mov eax,aAlreadyLoaded
test byte [esi+16],8
jz .X11
jmp .X9
.NoDebuggee:
mov eax,NeedDebuggee
test byte [esi+16],4
jnz .X9
.X11:
xchg esi,eax
call PutMessage
; store cmdline for repeating
.X10:
mov esi,CmdLine
mov ecx,[CmdLineLen]
@@:
or ecx,ecx
jle .We
mov al,[esi+ecx]
mov [CmdLinePrev+ecx],al
dec ecx
jmp @B
.We:
mov [CmdLineLen],0
jmp WaitEvent
.X9:
call dword [esi+4]
jmp .X10
PutMessage:
call PutMessageNoDraw
DrawMessages:
mov [AfterKey],1
call ShowImage
ret
include "cmdhist.inc"
include "parser.inc"
include "message.inc"
HeaderN db 'SunSys Debugger ver ',VERSION,' - No program loaded',0
HeaderY db 'SunSys Debugger ver ',VERSION,' - ',60 dup 32,0
HeaderE:
;
LoadErrMsg db 'Cannot load program. ',0
UnkErrMsg db 'Unknown error code -%4X',10,0
aCannotLoadFile db 'Cannot load file. ',0
UnkErrMsg2 db 'Unknown error code %4X.',10,0
LoadErrMsgs:
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
LoadSuccMsg db 'Program loaded successfully! PID=%4X. Use "g" to run.',10,0
TerminatedMsg db 'Program terminated.',10,0
MsgFaultSel 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
aException db 'Debugged program caused an exception %2X. ',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
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
ReadMemErr db 'ERROR: cannot read process memory!!!',10,0
aBreakpointLimitExceeded db 'Breakpoint limit exceeded',10,0
aUnknownCommand db 'Unknown command',10,0
NeedDebuggee db 'No program loaded. Use "load" command.',10,0
aAlreadyLoaded db 'Program is already loaded. Use "terminate" or "detach" commands',10,0
aParseError db 'Parse error',10,0
aDivByZero db 'Division by 0',10,0
CalcString 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
OnBeErrMsg db 'There is already enabled breakpoint on this address',10,0
DumpPath db '/TMP0/1/'
DumpName db 'DUMP0000.TXT',0
even 4
ConsoleColors dd 0x000000,0x000080,0x008000,0x008080
dd 0x800000,0x800080,0x808000,0xC0C0C0
dd 0x1D272F,0x0000FF,0x00FF00,0x00FFFF;0x808080,0x0000FF,0x00FF00,0x00FFFF
dd 0xFF0000,0xFF00FF,0xFFFF00,0xFFFFFF
CurWidth dd MinWidth
CurHeight dd MinHeight
FillWidth dd 0
FillHeight dd 0
MemForImage dd 0
bWasE0 db 0
CtrlState db 0
MouseState db 0
bMemForImageValidData db 0
bReload db 0
bAfterGo db 0
bSuspended db 0
CodeType db 32
DoDraw db 0
SymbolSection db 0
CmdLineActive db 0,?
CursorX dd -1
CursorY dd -1
CursorSize dd CursorNormSize
CurCursorPos dd -1
OldCursorPos dd -1
DebuggeePID dd 0
DumpBlock:
.Func dd 0
dd 0
dd 0
.Size dd 0
dd ConsoleDataOld
db 0
dd DumpPath
FN70LoadBlock: dd 7
dd 1
LoadParams dd 0
dd 0
dd 0
LoadName: db 0
rb 255
FN70ReadBlock: dd 0
rq 1
dd ?
dd ?
db 0
dd ?
FN70AttrBlock: dd 5
dd 0,0,0
dd FileAttr
db 0
dd ?
IncludeAllGlobals
DbgWnd dd ?
TempBreak dd ?
WndWidth dd ?
WndHeight dd ?
MinY dd ?
MaxY dd ?
MinX dd ?
MaxX dd ?
Tmp dd ?
SkinH dd ?
StdColors rd 10
AppPath rb 4096
ProcInfo rb 1024
even 16
ConsoleDataPtr rw (MaxWidth+0)*MaxHeight
even 16
ConsoleDataOld rw (MaxWidth+1)*MaxHeight
even 16
NeedZeroStart:
DbgBufSize dd ?
DbgBufLen dd ?
DbgBuf rb 256
FileAttr rb 40
even 4
Context:
_EIP dd ?
_EFL 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 ?
_FPU_DP dd ?
dw ?
dw ?
_MXCSR dd ?
_MXCSRM dd ?
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
CtxEnd:
OldContext rb (CtxEnd-Context)
Plus = (OldContext-Context)
StepNum dd ?
ProcNum dd ?
if 0
DUMP_HEIGHT = 6 ; in text lines
;
DumpRead dd ?
DumpPos dd ?
DumpData rb DUMP_HEIGHT*10h
end if
CmdLine rb CMD_WIDTH+1
CmdLineLen dd ?
CmdLinePos dd ?
CurArg dd ?
CmdLinePrev rb CMD_WIDTH+1
SymbolsFile rb 260
PrgNamePtr dd ?
PrgNameLen dd ?
Symbols dd ?
NumSymbols dd ?
CmdHistBuffer:
.Ptr dd ?
.Size dd ?
.LastNodeOffset dd ?
.NewNodeOffset dd ?
.CurNodeOffset dd ?
.TmpLineFlag db ?
.NFlag db ?
; 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)
BreakPointsN = 256
BreakPoints rb BreakPointsN*6
DrXBreak rd 4
;-----------------------------------------------------------------------------
CurrentWindow dd ?
CPUXPos dd ? ; coordinates of cursor in windows
CPUYPos dd ?
CPUXPtr dd ?
MemXPos dd ?
MemYPos dd ?
StkXPos dd ?
StkYPos dd ?
RegXPos dd ?
RegYPos dd ?
RegLDat dd ?
RegXPtr dd ?
CPUType db ?
FPUType db ?
MMXType db ?
XMMType db ?
JumpTaken db ?
AfterKey db ?
;-----------------------------------------------------------------------------
TmpB rb 0
Temp dd ?
;-----------------------------------------------------------------------------
CodeAddr dd ? ;0 order
RegsAddr dd ? ;1
DataAddr dd ? ;2
StckAddr dd ? ;3
OriginPtr: rd 2
AddrBuffer: rd 30
;-----------------------------------------------------------------------------
NeedZeroEnd:
;-----------------------------------------------------------------------------
BufferI: rb 1024
BufferO: rb 1024
;-----------------------------------------------------------------------------
; stack
even 4
rb 32768
StackTop:
;-----------------------------------------------------------------------------
Mem:
;-----------------------------------------------------------------------------
I_END = UDataStr ;%v
;-----------------------------------------------------------------------------