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