DATA x[32]={
0x4000,
0x2000,
0x1000,
0x0800,
0x0400,
0x0200,
0x0100,
0x0080,
0x0040,
0x0020,
0x0010,
0x0008,
0x0004,
0x0002,
0x0001,
0x0000,
0xffff,
0xfffe,
0xfffc,
0xfff8,
0xfff0,
0xffe0,
0xffc0,
0xff80,
0xff00,
0xfe00,
0xfc00,
0xf800,
0xf000,
0xe000,
0xc000,
0x8000
};

DATA r[32]={
0
};

DATA y[16]={
0x0000,
0x1000,
0x2000,
0x3000,
0x3000,
0x2000,
0x1000,
0x0000,
0x0040,
0x0020,
0x0010,
0x0008,
0x0004,
0x0002,
0x0001,
0x0000
};

DATA *dptr;
short oflag;