Вопросы про MS-DOS 6.22

[shandai ТС]

Классная тема, получил удовольствие, размяв мозг Когда-то в юности написать такую софтину на Паскале было раз плюнуть...

Я бы подвесил в память резидент, который смотрел бы за часами...

Ок в продолжение темы тебе могу предложить вот что:
Есть уже написанный резидентник, который  раз в 120 секунд пишет в файл, на этом месте будет асемблерная вставка INT 19h которая будетперегружать комп.
И вот эти 120 скунд не могу превратить в 4 аса. В принципе товя идея мне понятна, при загрузке я фиксирую время, потом тупо проверяю его каждую минуту, как оно увеличилось на 4 часа то ребучу?
А можно ли все таки раскачать параметр 120 секунд в 14400 секунд (4 часа)? а то я так сделал, на ноч запустил)) и не одной строчки в файл он мне не добавил.
Вот текст:
****************************************************
{$M $800,0,0 }   { 2K stack, no heap }
{$F+}
uses
  Crt, Dos;
var
  TimeIntVec : procedure;
  Counter, M, H, I: Word;
  F: Text;
  BuzyFlag: ^Byte;           {  Флаг DOS'a  }

procedure Int08; interrupt;
const
  Seconds = 60;              { Чеpез сколько секунд записывать }
begin

  Inline ($9C);              { Эти две стpоки желательно поставить сначала }
  TimeIntVec;                { Почему - не знаю, но иначе виснет }

  Inc (Counter);     { счетчик тиков }
  if (Counter>(Seconds*1000 div 55)) and (BuzyFlag^=0) then { Вpемя пpишло и }
  begin           { поpа !}                              { DOS ничем не занят }
    Counter := 0;
    GetTime (H, M, I, I);
    Assign (F, 'C:\fixlog.txt');
    Append (F);
    WriteLn (F, 'Hour: ', H,', Minutes: ', M);   { часы и минуты }
    Close (F);
  end;
end;

begin
  { Insert ISR into keyboard chain }
  Counter := 0;
  asm                                 { Получение кооpдинат флага }
    push  es
    mov  ah, $34
    int  $21
    mov  word ptr BuzyFlag, bx
    mov  word ptr BuzyFlag+2, es
    pop  es
  end;
  Assign (F, 'C:\fixlog.txt');
  Rewrite (F);
  GetDate (H, M, I, H);
  WriteLn (F, 'Mounth: ', M,'Date: ', I);  {выводим месяц и число}
  GetTime (H, M, I, I);
  WriteLn (F, 'Hour: ', H,', Minutes: ', M);   { часы и минуты}
  Close (F);
  GetIntVec ($8, @TimeIntVec);
  SetIntVec ($8, Addr (Int08));
  Keep (0);
end;

[KRWW]

В чистом ДОС не получится, пожалуй. Там нет многозадачности.

А как же работает мышка в Шариках? 
Этаж по сути 2 проги,одна типо мышку обслуживает ,другая Шареги  Всё нормально с многозадачностью в Досе,если тока программист хороший 

[Serg_ch]

В чистом ДОС не получится, пожалуй. Там нет многозадачности. Если только поставить винду 3.1, а оттуда уже ребутить.

Если точнее, то в MS DOS ее нет. Но есть еще DR DOS А там уже есть подобие многозадачности, проверено, работает

 if (Counter>(Seconds*1000 div 55)) and (BuzyFlag^=0) then { Вpемя пpишло и }
А здесь у тебя переполнения не происходит, когда 14400 множишь на 1000?

[Faraday]

И вот эти 120 скунд не могу превратить в 4 аса. В принципе товя идея мне понятна, при загрузке я фиксирую время, потом тупо проверяю его каждую минуту, как оно увеличилось на 4 часа то ребучу?

Как все сложно. Раз программа весит в памяти, то можно сохранить время в переменной? И тупо сравнивать, когда процедура вызывается:

var DateStart:TDateTime;

procedure Int08; interrupt;
var hh:Integer;
begin
hh:=HoursBetween(now, DateStart);
  if hh>4 then
  { reboot }
 
end;


begin
DateStart:=Now;
GetIntVec ($8, @TimeIntVec);
SetIntVec ($8, Addr (Int08));
Keep (0);
end;

[OVA]

Нельзя резидента отдельного пользовать. Только самой этой программой анализировать рабочее время, причем не в абсолютных, в относительных величинах(тиках). А то отдельны модуль подменить легко и все: защита взломана.
Еще есть прерыване "будильник". Номера сейчас не помню. Оно для срабатывания по таймеру в момент времени. Одну из процедур программы (перезагрузка) вешаешь как обработчик этого прерывания и задаешь другим прерываниен время срабатывания. Завтра пример кода дам.
Если программа должна работать ТОЛЬКО 5 часов в сутки, то этот способ надо дополнять. Время можно хранить прямо в теле файла программы на диске. Код тоже есть, но завтра.

[ScrewDriver]

Нельзя резидента отдельного пользовать. Только самой этой программой анализировать рабочее время, причем не в абсолютных, в относительных величинах(тиках). А то отдельны модуль подменить легко и все: защита взломана.

Ты прочитай внимательно первый пост Задача-то и стоит в взломе защиты, т.е. в данном случае обмане лицензии программы, которая не хочет работать больше 5 часов непрерывно, и нужно автоматически ребутить комп для ее перезапуска...

[Ахинеич]

 В современном компе мне всё видится гораздо проще. Перезапуск можно задать из БИОСа. Только вот если уж речь об MS-DOS, то это трёшка или четвёрочка похоже. Там БИОС такого не позволял ещё. Разве что внешний источник питания по таймеру отключать на пол секунды каждый цикл. А подробнее можно задачу сформулировать? Чем занимается эта самая пятичасовая прога? И что за ограничение такое 5 часов? Смысла операции всей не улавливаю что-то. Ведь лицензионное ограничение таким способом не обойдёшь.

[shandai ТС]

Прога принимает входящие пакеты по подключенным к ней телефонным линиям, время работы проги 5 часов, потом она выгружается, реализована она в виде драйвера, и потом ее можно запустить только перезагрузкой компа. Вот и надо перезагружать комп каждые 5 часов.
Проблемы:
1) прерывание INT 19h перезагржует  как то странно, на экране появляется надпись "starting MS-DOS..." и система висит, не реагирует ни на что, тголько с кнопочки презапустить удается.
2) Есть у кого reboot.com а то что не найти в сети

[Ахинеич]

Есть у кого reboot.com а то что не найти в сети

Он в составе МС-ДОС имеется. Из любого дистрибутива выдерни. Могу порыться в старых дисках.

 И честно говоря, всё равно не понял смысла. А может стоит поискать иное устраивающее решение, позволяющее не перезагружать систему? Ведь это всё левые варианты какие-то?

[shandai ТС]

Ведь это всё левые варианты какие-то?

Не для нас это нормально))))

ПРОБЛЕМА: Программа прописана в автозагрузке, и запускается, проверено строчкой при запуске, но не пререзагружет комп. Если запустить чисто программу, или запустить отдельно autoexe.bat то программа сработает как надо? в чем может быть трабл?

[Crazy Cat]

А как программа время работы вычисляет? И вообще, что за программа? - мож ей таймер нахрен не нужен - замаскировать прерывания от него. Или сесть на прерывание и переписывать системное время взад...
Пусть, безумная идея...

[OVA]

Задачу понял. Код резидента такого на Паскале (но почти все на языке ассемблера,на вставках, писал) есть. Завтра пример дам. Перезагрузку только добавить и временной интервал изменить.

[OVA]

Всё нормально с многозадачностью в Досе,если тока программист хороший 

Не знаем - не говорим, ладно?!!
В заблуждение других не вводим! MS-DOS однозадачная система. Была, есть и будет. Взаимодействие с контроллером прерываний - функция любой ОС и к многозадачности отношения не имеет.

[shandai ТС]

Задачу понял. Код резидента такого на Паскале (но почти все на языке ассемблера,на вставках, писал) есть. Завтра пример дам. Перезагрузку только добавить и временной интервал изменить.

да у меня она уже в принципе написана, и нормально работает, все устраивает, только что то из автозагрзки не хочет, работать, запускается, потом в тело кода где перезагрзка не входит, там кода осталось на 5 строчек, завра попробую выложить. Может что подскажите.

[Ахинеич]

 Я смотрю,  тут мазохисты собрались!  Ну вот ни на раз не поверю, что не существует современного решения проблемы, дабы не лезть в дебри MS-DOS! Реально, глядя с иной вышки, всё выглядит иначе !