ovrclrbf.pas
Пример программы для OvrClearBuf.
Код примера
{OvrClrbf.PAS}
{ Пример программы для OvrClearBuf }
{$M 16384, 65536, 655360}
Uses Overlay;
Begin
OvrInit('EDITOR.OVR');
If OvrResult <> ovrOk Then Halt(1);
WriteLn('Пробуем использовать буфер оверлеев ',
'как дополнительную память.');
OvrClearBuf; { Очищаем буфер оверлев }
{ Не оверлейный код теперь может использовать
место, занимаемое буфером оверлеев для
своих нужд, то тех пор, пока не будет сделан
вызов оверлейной подпрограммы. Доступное
адресное пространство : от OvrHeapOrg:0
до OvrHeapEnd:0 (Сегмент:Смещение). }
End.
Скачать ovrclrbf.pas