|DESTest.burdock, HGM   4-Nov-84  2:24:56|

Boot[];
Load[DESTest];

CP[00, 0]! L0;
CP[01, 0]! address;
CP[02, 0]! rhAddr;

CP[04, 0]! passCount;
CP[05, 0]! temp;

CP[00, 1]! uKey1 ← 7CA1;
CP[01, 1]! uKey2 ← 1045;
CP[02, 1]! uKey3 ← 4A1A;
CP[03, 1]! uKey4 ← 6E57;

CP[05, 1]! uData1 ← 01A1;
CP[06, 1]! uData2 ← D6D0;
CP[07, 1]! uData3 ← 3977;
CP[08, 1]! uData4 ← 6742;

CP[0A, 1]! uCipher1 ← 690F;
CP[0B, 1]! uCipher2 ← 5B0D;
CP[0C, 1]! uCipher3 ← 9A26;
CP[0D, 1]! uCipher4 ← 939B;

CP[0F, 1]! out1 ← 0;
CP[10, 1]! out2 ← 0;
CP[11, 1]! out3 ← 0;
CP[12, 1]! out4 ← 0;

Break[ErrorInEncryption];
Break[ErrorInDecryption];
Continue[];