/* Test for dlms: rand */

#pragma DATA_SECTION (x,".x")
DATA x[NX] ={
0x4000,
0x2000,
0x1000,
0x0800,
0x0400,
0x0200,
0x0100,
0x0080,
0x0040,
0x0020,
0x0010,
0x0008,
0x0004,
0x0002,
0x0001,
0x0000,
0xffff,
0xfffe,
0xfffc,
0xfff8
};

#pragma DATA_SECTION (des,".des")
DATA des[NX] ={
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000,
0x2000
};

#pragma DATA_SECTION (dbuffer,".dbuffer")
DATA dbuffer[NH];
DATA *dp = dbuffer;

#pragma DATA_SECTION (h,".coefs")
DATA h[NH];

#pragma DATA_SECTION (r,".out")
DATA r[NX];

short oflag;