VPF::pascal . not enought memory резидентная программа.

aleks357

Дата 6.10.2011, 15:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 29.6.2011

Репутация: нет
Всего: нет

Код


{$M $800,0,0}
uses crt,dos;
const nb=15;                 {kol-vo spec.klavish}

type Pbu = ^Tbu;             {tip "spec.klavisha"}
     Tbu = record
      name: string;
      code: word;
     end;
var b: array [0..nb] of Pbu; {massiv spec.klavish}

var OldCode,OldFlag:Procedure; {starie vectora prerivanii}

    key,oldkey:word;
    flags,oldflags:word;
    y:integer;

procedure InitFuncButtons; {opisivaem tip dannix dlya spec.klavish}
begin
new(b[ 0]);  b[ 0]^.name:='RightShift'    ;  b[ 0]^.code:=$0001;
new(b[ 1]);  b[ 1]^.name:='LeftShift'     ;  b[ 1]^.code:=$0002;
new(b[ 2]);  b[ 2]^.name:='AnyCtrl'       ;  b[ 2]^.code:=$0004;
new(b[ 3]);  b[ 3]^.name:='AnyAlt'        ;  b[ 3]^.code:=$0008;
new(b[ 4]);  b[ 4]^.name:='ScrollActive'  ;  b[ 4]^.code:=$0010;
new(b[ 5]);  b[ 5]^.name:='NumLockActive' ;  b[ 5]^.code:=$0020;
new(b[ 6]);  b[ 6]^.name:='CapsLockActive';  b[ 6]^.code:=$0040;
new(b[ 7]);  b[ 7]^.name:='InsActive'     ;  b[ 7]^.code:=$0080;
new(b[ 8]);  b[ 8]^.name:='LeftCtrl'      ;  b[ 8]^.code:=$0100;
new(b[ 9]);  b[ 9]^.name:='LeftAlt'       ;  b[ 9]^.code:=$0200;
new(b[10]);  b[10]^.name:='SysReq'        ;  b[10]^.code:=$0400;
new(b[11]);  b[11]^.name:='PauseKey'      ;  b[11]^.code:=$0800;
new(b[12]);  b[12]^.name:='ScrollLock'    ;  b[12]^.code:=$1000;
new(b[13]);  b[13]^.name:='NumLock '      ;  b[13]^.code:=$2000;
new(b[14]);  b[14]^.name:='CapsLock'      ;  b[14]^.code:=$4000;
new(b[15]);  b[15]^.name:='Insert'        ;  b[15]^.code:=$8000;
end;

procedure Show;
begin
asm cli end;

for y:=0 to nb do
 begin
 if (flags and b[y]^.code)<>0 then
  begin textcolor(10); gotoxy(60,y+3); writeln(b[y]^.name:15,' ',b[y]^.code:5); textcolor(7); end
    else
  begin gotoxy(60,y+3); writeln(b[y]^.name:15,' ',b[y]^.code:5); textcolor(7); end;
 end;

gotoxy(1,3); write('OldCode  ',oldkey:5,' Code ',key:5);
gotoxy(1,4); write('OldFlag  ',oldflags:5,' Flag ',flags:5);
gotoxy(1,5);

asm sti end;
end;

procedure CodeSound;
begin
asm cli end;

if key=oldkey+128 then begin Sound(5000); Delay(5000); Nosound; end;

asm cli end;
end;

procedure Flag;interrupt;
var y:integer;
begin
asm cli end;

 oldflags:=flags;
 flags:=memW[$40:$17];

 Show;

asm sti end;
end;


procedure Code;Interrupt;
var y:integer;
begin
asm cli end;

 oldkey:=key;
 key:=memw[$40:$1C];

 Show;
 CodeSound;

 Inline($9C); {PUSHF}
 OldCode;

asm sti end;
end;

begin
clrscr;
 write('OS - lab1');
 InitFuncButtons;

 GetIntVec($9,@OldCode);   {sozdaem novii obrabotchik prerivanii}
 SetIntVec($9,@Code); {perenaznachaem tekushii obrabotchic na novii}

 GetIntVec($1C,@OldFlag);   {sozdaem novii obrabotchik prerivanii}
 SetIntVec($1C,@Flag); {perenaznachaem tekushii obrabotchic na novii}

 keep(0);
end.

КНажимаю скомпилировать ctrl+F9, не компилируется выдает NOT ENOUGHT MEMORY.
Нужно скомпилировать.

volvo877

Дата 11.10.2011, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(aleks357 @ 6.10.2011, 15:30

)

Нажимаю скомпилировать ctrl+F9, не компилируется

Компилировать - это либо просто F9, либо Alt+F9. Нажатие Ctrl+F9 - это запуск программы.

Компилируется (по Alt+F9) нормально. При запуске - должно вылетать. По простой причине:

Цитата

Код

{$M $800,0,0}

Выделил ты 800 байт под стэк и запретил использование кучи. И тут же, в InitFuncButtons, хочешь из этой кучи получить место под 16 структур типа Tbu.

Решение проблемы - одно из двух. Либо делать массив статическим, без выделения памяти, либо изменить эту директиву вот так:
{$M $800,0,500}
и чуть-чуть поменять описание структуры:

Код


type Pbu = ^Tbu;             {tip "spec.klavisha"}
     Tbu = record
      name: string[14]; { <--- Самая длинная строка = 'CapsLockActive', 14 символов }
      code: word;
     end;

, не надо выделять 255 символов там, где достаточно 14. Итого теперь размер каждой структуры будет = 17 байт (а не 258, как было бы без ограничения строки), и для размещения 16 структур достаточно 272 байта. Я оставил 500, с небольшим запасом... Должно работать, проверь, мне негде запустить резидент.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »