| 91.burdock, HGM,  4-Apr-85  0:39:47 |


BigLoop:

  Boot[];
  Load[Emulator];
  Break[NXM];
  Continue[0];
  
  Boot[];
  Load[XACKTimeout];

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

  Break[Done];
  Continue[0];

  OpenToAppend["XACKTimeout.log"];
  WriteTime[];
  WriteLoc[toCommand, 6];
  WriteLoc[toData, 5];
  WriteLoc[toAddr, 7];
  WriteLine[];
  Close[];

  Boot[];
  Load[MemScan];
  errorCount=	CP[00, 0]! errorCount ¬ 0;
  reason=	CP[01, 0]! reason;
		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;
  Break[MesaIntIsProbablyAParityError];
  Break[Fixed];
  Break[Done];

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

  GOTO[BigLoop];