'******************************************************************************
'* 
'* Z80 CONSOLE COMMANDS (Used by emulator console for z80-configs)
'*
'******************************************************************************

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

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

//Dissasembling of current CPU instruction
public procedure Dasm
 ? "[";Hex(cpu.PC,4);"]", 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

