anchor.diff:    end;
   end;
   
  -procedure PrintProcessMem(AProcess: TDbgProcess; Offset: TDbgPtr);
  -var
  -  buf : array [0..32*16-1]of byte;
  -  ofs : String; 
  -  hex : String;
  -  bin : String;
  -  i   : Integer;
  -  res : Integer;
  -begin
  -  FillChar(buf[0], sizeof(buf), 0);
  -  res:=AProcess.ReadMem(Offset, sizeof(buf), buf);
  -  if res<0 then begin
  -    writeln('cannot read proc ', AProcess.ID, ', mem. Result = ', res);
  -    Exit;
  -  end;
  -
  -  for i := 0 to 31 do begin
  -    ofs := IntToHex( TDbgPtr(Offset)+TDbgPtr(i*16), sizeof(TDbgPtr)*2);
  -    hex := BufToHex(buf, i*16, 16);
  -    bin := BufToStr(buf, i*16, 16);
  -    writeln(ofs+ ' | ' + hex + ' | ' + bin);
  -  end;
  -end;
  -
  -{ TViewMemCommand }
  -
   procedure TViewMemCommand.Execute(CmdParams: TStrings; Env: TCommandEnvironment);
   var
     ofs : TDbgPtr;
     err : Integer;
   begin
     if CmdParams.Count <= 1 then 
  -    ofs := LastReadOfs
  +    ofs := uLastReadOfs
     else begin
       Val(CmdParams[1], ofs, err);
       if err <> 0 then begin
  
positive.code: 
  { TRegistersView }
  
  procedure PrintAllRegs(list: TDbgDataList);
  var
    i     : Integer;
    data  : TDbgData;
  
negative.code:   end;
  end;
  
  function TViewMemCommand.BufToHex(const buf: array of byte; index, Count: Integer): string;
  var
    i : Integer;
    j : Integer;
  const
    hexd : array [0..$F] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
  begin
    SetLength(Result, Count*3);
  