| MemTest.burdock, HGM,  4-Nov-84  2:26:00 |

Boot[];
SetBank[0];
LoadMore[MemTest];


CP[00, 0]! errorCount ← 0;
CP[01, 0]! passCount ← 0;
CP[02, 0]! lowBank ← 0;
CP[03, 0]! highBank ← 7;

CP[05, 0]! $address;
CP[06, 0]! expected;
CP[07, 0]! found;
CP[08, 0]! found2;
CP[09, 0]! found3;
CP[0B, 0]! diff ← 0;
CP[0C, 0]! picked ← 0;
CP[0D, 0]! dropped ← 0;

CP[10, 0]! cc;
CP[11, 0]! const;
CP[12, 0]! test;
CP[13, 0]! rhAddr;
CP[14, 0]! bank;

CP[16, 0]! rA;
CP[17, 0]! rB;
CP[18, 0]! rC;
CP[1A, 0]! sticky ← FFFF;

CP[0, 1]! .MR 0;
CP[1, 1]! .MR 1;
CP[2, 1]! .MR 2;

CP[4, 1]! .MR FFFD;
CP[5, 1]! .MR FFFE;
CP[6, 1]! .MR FFFF;

CP[8, 1]! .MR 10000;
CP[9, 1]! .MR 1FFFF;

CP[B, 1]! .MR 20000;
CP[C, 1]! .MR 2FFFF;

CP[E, 1]! .MR 30000;
CP[F, 1]! .MR 3FFFF;

CP[11, 1]! toData ← 0;
CP[12, 1]! toCommand ← 0;
CP[13, 1]! $toAddr ← 0;

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

CP[0, 2]! .MR 00000;
CP[1, 2]! .MR 10000;
CP[2, 2]! .MR 20000;
CP[3, 2]! .MR 30000;
CP[4, 2]! .MR 40000;
CP[5, 2]! .MR 50000;
CP[6, 2]! .MR 60000;
CP[7, 2]! .MR 70000; |
CP[8, 2]! .MR 80000;
CP[9, 2]! .MR 90000;
CP[A, 2]! .MR A0000;
CP[B, 2]! .MR B0000;
CP[C, 2]! .MR C0000;
CP[D, 2]! .MR D0000;
CP[E, 2]! .MR E0000;
CP[F, 2]! .MR F0000; | |
CP[10, 2]! .MR 100000;
CP[11, 2]! .MR 110000;
CP[12, 2]! .MR 120000;
CP[13, 2]! .MR 130000;
CP[14, 2]! .MR 140000;
CP[15, 2]! .MR 150000;
CP[16, 2]! .MR 160000;
CP[17, 2]! .MR 170000; |

Break[DataMismatchButNoParityError];
Break[DataMismatchAndParityError];
Break[MesaIntIsProbablyAParityError];