| MemScan.burdock, HGM,  3-Apr-85 20:43:21 |

Boot[];
SetBank[0];
LoadMore[MemScan];


errorCount=	CP[00, 0]! errorCount ¬ 0;
reason=		CP[01, 0]! reason;
		CP[02, 0]! Q;
		CP[03, 0]! lastBank ¬ 7;

address=	CP[06, 0]! $address;
found=		CP[07, 0]! found;


toCommand=	CP[10, 0]! toCommand ¬ 0;
toData=		CP[11, 0]! toData ¬ 0;
toAddr=		CP[12, 0]! $toAddr ¬ 0;


		CP[1A, 2]! .TPC 0;

Break[MesaIntIsProbablyAParityError];
Break[Fixed];
Break[Done];

Loop:
  Continue[0];
  IF reason = 1 { GOTO[End]; };
  OpenToAppend["MemScan.log"];
  IF errorCount = 1 {WriteLine["                   Address Data   Cmd Data ToAddr"];};
  WriteTime[];
  WriteLoc[address, 8];
  WriteLoc[found, 5];
  WriteLoc[toCommand, 6];
  WriteLoc[toData, 5];
  WriteLoc[toAddr, 7];
  WriteLine[];
  Close[];
  Start[FixThisWord, 0];
  IF errorCount < 0A {GOTO[Loop];};

End: