'******************************************************************************
'* 
'* PC/AT CONSOLE COMMANDS (Used by emulator console for PC/AT-configs)
'*
'******************************************************************************

//use generic x86 console commands
public use module CONSOLE_X86

'----------------------------- PC/AT Commands ---------------------------------

//Help on console commands
public procedure Help
 Help 'parent help (generic X86)
 ? "PC/AT commands:"
 ? " dumpcmos - show values of CMOS cells"
end
public procedure H alias Help

//Print dump of CMOS cell values
public procedure dumpcmos
 dim i as integer, j as integer=0, k as integer=0, n as integer
 n=iif(MB.CMOS.Size<=0xFF,2,3)
 ? "[CMOS] Dumping cell values: " 
 if MB.CMOS.Size=0 then : ? " (no cells)" : exit : end
 ? Space(n);"  "; : for i=0 to 15 : ? Hex(i,2);" "; : next : ?
 ? Space(n);"  "; : for i=0 to 15 : ? "---"; : next : ?
 for i=0 to MB.CMOS.Size-1
  if j=16 then : ? : j=0 : k=k+16 : end
  if j=0 then ? Hex(k,n);": "; 
   ? Hex(MB.CMOS.Cell(i),2);;" ";
  j=j+1
 next
 ? 
end
public procedure cmosdump alias dumpcmos
