|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[];