'******************************************************************************
'* 
'* GENERIC X86 CONSOLE COMMANDS (Used by emulator console for x86-configs)
'*
'******************************************************************************

//use implementation, common to all configs
public use module CONSOLE_ALL

'---------------------- Disassembling Command ---------------------------------

//Dissasembling of current CPU instruction
public procedure Dasm
  ? Hex(cpu.CS,4)+":"+Hex(cpu.IP,8), dbg.DisAsm
end

'--------------------------- Debug Commands -----------------------------------

//Execute CPU instruction and dissasemble it
public procedure Step(Count as dword=1,NeedDasm as boolean=true) 
 if Count>0 then dbg.Step(Count) : if NeedDasm then Dasm : end
public procedure S alias Step

//Execute some complex CPU instruction and dissasemble it
public procedure StepOver 
 dbg.StepOver : Dasm : end
public procedure SO alias StepOver

//Execute any CPU instruction and dissasemble it
public procedure StepOverOver
 dbg.StepOverOver : Dasm : end
public procedure SOO alias StepOverOver

