Type
tEkr = Array [1..25,1..80,1..2] of Byte;
Var
Ekr : tEkr absolute $B800:0000;
Type
tEkr = Array [1..25,1..80,1..2] of Byte;
Var
Ekr : tEkr absolute $B800:0000;
unsigned char _far *Ekr;
Ekr = (unsigned char _far *)MK_FP(0xB000, 0x0000);
// и работаешь с Ekr[...]