OvrClrbf.PAS

Язык:
Русский
English


 { Пример программы для OvrClearBuf }

{$M 16384, 65536, 655360}

uses Overlay;

begin
  OvrInit('EDITOR.OVR');
 If OvrResult <> ovrOk then
   Halt(1);
 WriteLn('Пробуем использовать буфер оверлеев ',
         'как дополнительную память.');
  OvrClearBuf; { Очищаем буфер оверлев }
 { Не оверлейный код теперь может использовать
    место, занимаемое буфером оверлеев для
    своих нужд, до тех пор, пока не будет сделан
    вызов оверлейной подпрограммы. Доступное
    адресное пространство : от OvrHeapOrg:0
    до OvrHeapEnd:0 (Сегмент:Смещение). }

end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //