anchor.diff:  
   { TRegistersView }
   
  -procedure PrintAllRegs(list: TDbgDataList);
  +procedure TRegistersView.PrintAllRegs(list: TDbgDataList);
   var
     i     : Integer;
     data  : TDbgData;
  
positive.code:   end;
  end;
  
  
  procedure PrintI386Regs(list: TDbgDataList);
  
    function StrHex(const regname: String): string;
    begin
      Result := IntToHex(list[regname].UInt32, 8);
  
negative.code:   end;
  end;
  
  procedure TViewMemCommand.Execute(CmdParams: TStrings; Env: TCommandEnvironment);
  var
    ofs : TDbgPtr;
    err : Integer;
  begin
    if CmdParams.Count <= 1 then 
      ofs := uLastReadOfs
    else begin
      Val(CmdParams[1], ofs, err);
      if err <> 0 then begin
  