MAG.SAV
Код:

        ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ: ПРОГРАММА MAG

       1.УПРАВЛЕНИЕ  РАБОТОЙ  КОНТРОЛЛЕРА  ОСУЩЕСТВЛЯЕТ
ПРОГРАММА   MAG.SAV,   РАБОТАЮЩАЯ    ПОД    УПРАВЛЕНИЕМ
SJ-МОНИТОРА.    ОНА    ОБЕСПЕЧИВАЕТ    ОБМЕН    ФАЙЛАМИ
МЕЖДУ  МИКРО-ЭВМ  И   МАГНИТОФОНОМ.   ТЕКСТ   ПРОГРАММЫ
СОДЕРЖИТСЯ  В ФАЙЛАХ:
   DEFMAG.PAS  -ОПРЕДЕЛЕНИЯ ГЛОБАЛЬНЫХ СИМВОЛОВ;
   MAG.PAS     -ОСНОВНАЯ  ПРОГРАММА;
   DRMAG.PAS   -ПРОЦЕДУРА "ДРАЙВЕР МАГНИТОФОНА"
      ТРАНСЛЯЦИЯ  И  КОМПОНОВКА   ЗАГРУЗОЧНОГО   МОДУЛЯ
ВЫПОЛНЯЕТСЯ  С  ПОМОЩЬЮ  КОМАНДНОГО  ФАЙЛА   MAG.COM.

       2.ПРИ  ЗАПУСКЕ  ПРОГРАММЫ  (КОМАНДАМИ   МОНИТОРА
R  MAG   ИЛИ   RUN   MAG   )   НА   ЭКРАНЕ   ПОЯВЛЯЕТСЯ
ПРИГЛАШЕНИЕ ":" К ВВОДУ КОМАНДЫ,  А  В  ПРАВОМ  ВЕРХНЕМ
УГЛУ  ЭКРАНА  -  СПИСОК  ДОПУСТИМЫХ  КОМАНД  (  РЕЖИМОВ
РАБОТЫ):

  R - ЧТЕНИЕ  ФАЙЛА  С  МАГНИТНОЙ  ЛЕНТЫ ;
  W - ЗАПИСЬ  ФАЙЛА  НА  МАГНИТНУЮ  ЛЕНТУ ;
  S - ЗАПИСЬ  ФАЙЛА  ТИПА   .SAV   С  БЛОКА  #1;
  L - ЗАПИСЬ  ФАЙЛОВ ПО СПИСКУ;
  G - КОНТРОЛЬНОЕ ЧТЕНИЕ М/Л;

  ВСЯ ИНФОРМАЦИЯ , НЕОБХОДИМАЯ  ДЛЯ  РАБОТЫ  ПРОГРАММЫ,
ВВОДИТСЯ  ПОЛЬЗОВАТЕЛЕМ  В  ДИАЛОГЕ  С  ЭВМ .

      В  ПРОЦЕССЕ  РАБОТЫ   С   ЛЕНТОЙ   (ИДЕТ   ЗАПИСЬ
ИЛИ  СЧИТЫВАНИЕ)   ПРОГРАММА   ОТСЛЕЖИВАЕТ   ПРЕРЫВАНИЯ
ОТ КЛАВИАТУРЫ И ТАЙМЕРА (ТАЙМЕР ДОЛЖЕН  БЫТЬ  ВЫКЛЮЧЕН)
А  ПРИ  ВОЗНИКНОВЕНИИ  ПРЕРЫВАНИЯ  ПРЕКРАЩАЕТ   ПРОЦЕСС
И  ЗАПРАШИВАЕТ  "ПОВТОРИТЬ?  (Д/Н)  :".   ПРИ   НАЖАТИИ
ЛЮБОЙ  КЛАВИШИ  КРОМЕ "Н"  ПРОЦЕСС  ВОЗОБНОВЛЯЕТСЯ.

       3.В  РЕЖИМЕ  "R"  ПРОГРАММА  ПРОСИТ  ЗАДАТЬ  ИМЯ
ФАЙЛА , ЗАПИСАННОГО  НА  МАГНИТНОЙ  ЛЕНТЕ.  ВВОД  ИМЕНИ
ЗАВЕРШАЕТСЯ    НАЖАТИЕМ    <ВК>.    ПРИ     ВВОДЕ     В
КАЧЕСТВЕ  ИМЕНИ  СИМВОЛА  "*",  БУДЕТ   ПРОЧИТАН   ПЕР-
ВЫЙ ЖЕ ОБНАРУЖЕННЫЙ  ФАЙЛ.  ЕСЛИ  ВВЕДЕН  ТОЛЬКО  <ВК>,
ПРОИЗВОДИТСЯ  ПРОСМОТР  ЗАГОЛОВКОВ  ФАЙЛОВ  НА   ЛЕНТЕ.
ИМЕНА ФАЙЛОВ, НЕ СОВПАДАЮЩИЕ С ЗАДАННЫМ,  ВЫВОДЯТСЯ  НА
ТЕРМИНАЛ, ВЫВОДЯТСЯ  ТАКЖЕ АДРЕС И ДЛИНА ИЗ ЗАГОЛОВКА.
     ПРИ  ОБНАРУЖЕНИИ  ФАЙЛА  С  ЗАДАННЫМ  ИМЕНЕМ,   НА
ЭКРАНЕ ПОЯВЛЯЕТСЯ ИНДИКАТОР НАЧАЛА ЗАГРУЗКИ  "^",  ФАЙЛ
ЗАГРУЖАЕТСЯ  В  БУФЕР  И  ПРОВЕРЯЕТСЯ  НА   КОНТРОЛЬНУЮ
СУММУ. ЕСЛИ ОШИБКИ НЕ  БЫЛО,  ЗАПРАШИВАЕТСЯ  ИМЯ  ФАЙЛА
В ФОРМАТЕ ОСДВК (ПРИ ВВОДЕ <ВК> ИМЯ  БЕРЕТСЯ  ИЗ  ЗАГО-
ЛОВКА; ТИП  ФАЙЛА  ПО  УМОЛЧАНИЮ  -  .MAG  ).  ЕСЛИ  НА
НОСИТЕЛЕ  НЕДОСТАТОЧНО  МЕСТА  ДЛЯ   РАЗМЕЩЕНИЯ   ФАЙЛА
ИЛИ ИМЯ НЕКОРРЕКТНО  ДЛЯ  ОСДВК,  ЗАПРОС  ИМЕНИ  ПОВТО-
РЯЕТСЯ.  ПРИ  УСПЕШНОМ  ЗАВЕРШЕНИИ  ПРОГРАММА   ВОЗВРА-
ЩАЕТСЯ  К  НАЧАЛЬНОМУ  ДИАЛОГУ.

       4.В РЕЖИМАХ "W","S"  ПРОГРАММА  ЗАПРАШИВАЕТ  ИМЯ
ФАЙЛА В ОСДВК , КОТОРЫЙ ТРЕБУЕТСЯ  ЗАПИСАТЬ  НА  ЛЕНТУ.
ЕСЛИ ЗАДАНО  НЕСУЩЕСТВУЮЩЕЕ  ИМЯ,  ЗАПРОС  ПОВТОРЯЕТСЯ.
ЕСЛИ ДЛИНА ФАЙЛА ПРЕВЫШАЕТ  РАЗМЕР  БУФЕРА  (64.БЛОКА),
ИЛИ ПРОИЗОШЛА  ОШИБКА  ПРИ  ЧТЕНИИ  С  ДИСКА,  ВЫДАЕТСЯ
СООБЩЕНИЕ  "ЗАГРУЖЕНО: ХХ"[БЛОКОВ].
          ПРОГРАММА  ЗАГРУЖАЕТ  ФАЙЛ  В  БУФЕР  И   ЗА-
ПРАШИВАЕТ ИМЯ  ФАЙЛА  НА  ЛЕНТЕ.  ПРИ  ВВОДЕ  <ВК>  ИМЯ
НА  ЛЕНТЕ  БУДЕТ  СОВПАДАТЬ  С   ВВЕДЕННЫМ   ИМЕНЕМ   В
ФОРМАТЕ  ОСДВК.  ПОСЛЕ  ЭТОГО  ОПЕРАТОР  ВКЛЮЧАЕТ   РЕ-
ЖИМ "ЗАПИСЬ"  МАГНИТОФОНА  И  ЗАПУСКАЕТ  ПРОГРАММУ  НА-
ЖАТИЕМ  КЛАВИШИ  <ВК> ИЛИ  <ПРОБЕЛ>.
     ПЕРЕД   НАЧАЛОМ   ЗАПИСИ   НЕОБХОДИМО   УСТАНОВИТЬ
РЕГУЛЯТОРОМ  УРОВЕНЯ  ЗАПИСИ  МАГНИТОФОНА   НОМИНАЛЬНЫЙ
УРОВЕНЬ ПО ИНДИКАТОРУ МАГНИТОФОНА  /НА  ГРАНИЦЕ  ИЛИ  В
НАЧАЛЕ КРАСНОГО СЕКТОРА/,  ЗАТЕМ  ОСТАНОВИТЬ  ПРОГРАММУ
НАЖАТИЕМ  ЛЮБОЙ   КЛАВИШИ,   ЗАПУСТИТЬ   МАГНИТОФОН   И
ВТОРИЧНО  ЗАПУСТИТЬ  ПРОГРАММУ НАЖАТИЕМ  КЛАВИШИ.

     ПО ОКОНЧАНИИ ЦИКЛА  ВЫВОДИТСЯ  ЗАПРОС  НА  ПОВТОР-
НУЮ  ЗАПИСЬ.  ДЛЯ  ОБЕСПЕЧЕНИЯ  СОХРАННОСТИ  ИНФОРМАЦИИ
РЕКОМЕНДУЕТСЯ  СОЗДАВАТЬ  НА ЛЕНТЕ  НЕ МЕНЕЕ  2  КОПИЙ.

     РЕЖИМ  "S"  ИСПОЛЬЗУЕТСЯ  ДЛЯ   ЗАПИСИ   ПРОГРАММ,
РАЗРАБОТАННЫХ НА ДВК, НО КОТОРЫЕ БУДУТ  ВЫПОЛНЯТЬСЯ  НА
МИКРО-ЭВМ     "ЭЛЕКТРОНИКА      БК-0010"      (ВОЗМОЖНА
НЕПОСРЕДСТВЕННАЯЗАГРУЗКА  ПРОГРАММ  В   ОЗУ   БК-0010).
ТИП ФАЙЛА ПО УМОЛЧАНИЮ : .SAV. ФАЙЛ ЗАПИСЫВАЕТСЯ НАЧИНАЯ
ПЕРВОГО  БЛОКА  (Т.Е.  С  АДРЕСА  1000В)  ДО   ВЕРХНЕГО
АДРЕСА ПРОГРАММЫ ( ЯЧЕЙКА 50 БЛОКА 0).
     СПРАВОЧНАЯ ИНФОРМАЦИЯ О СТАРТОВОМ И ВЕРХНЕМ АДРЕСАХ
ВЫВОДИТСЯ НА ТЕРМИНАЛ.

     В РЕЖИМЕ  "L"  ПРОГРАММА  ЗАПРАШИВАЕТ  ИМЯ  ФАЙЛА-
-СПИСКА (ТИП .LST), А ПРИ ЕГО ОТСУТСТВИИ  -  ИМЕНА  КО-
ПИРУЕМЫХ ФАЙЛОВ, КОТОРЫЕ ЗАНОСИТ В ФАЙЛ-СПИСОК С ЗАДАН-
НЫМ ИМЕНЕМ. ПОСЛЕ ПРОВЕРКИ  НАЛИЧИЯ  КОПИРУЕМЫХ  ФАЙЛОВ
ПРОИЗВОДИТСЯ ИХ ПОСЛЕДОВАТЕЛЬНАЯ ЗАПИСЬ НА  М/Л  (ПО  2
КОПИИ) В АВТОМАТИЧЕСКОМ РЕЖИМЕ.

     РЕЖИМ "G" ОБЕСПЕЧИВАЕТ  ПРОВЕРКУ  КАЧЕСТВА  ЗАПИСИ
ПО  КОНТРОЛЬНОЙ  СУММЕ  КАЖДОГО  НАЙДЕННОГО  НА   ЛЕНТЕ
ФАЙЛА.

       5  ПРЕКРАЩЕНИЕ  РАБОТЫ  ПРОГРАММЫ  MAG  И  ВЫХОД
В  МОНИТОР  ПРОИЗВОДИТСЯ   ПО  ДВОЙНОМУ  НАЖАТИЮ СУ/C.

       6 ИМЕНА И ТИПЫ ФАЙЛОВ

       ИМЯ ФАЙЛА НА ЛЕНТЕ  СОДЕРЖИТ  ДО  16  СИМОЛОВ  -
-ЗАГЛАВНЫХ РУССКИХ И ЛАТИНСКИХ БУКВ, ЦИФР И СПЕЦЗНАКОВ.
ВВЕДЕННЫЕ  ЛАТИНСКИЕ  СТРОЧНЫЕ  БУКВЫ  ПРЕОБРАЗУЮТСЯ  В
РУССКИЕ  ЗАГЛАВНЫЕ ( В  КОДЕ БК-0010, СООТВ. КОИ-8).

      ПРИ ПОИСКЕ ИЛИ  СОЗДАНИИ  ФАЙЛА  НА  ДВК  РУССКИЕ
БУКВЫ  ИМЕНИ  ПРЕОБРАЗУЮТСЯ   В   СИМВОЛЫ,   ДОПУСТИМЫЕ
ДЛЯ КОДА  RADIX50.  В  ОСДВК  ИМЯ  МОЖЕТ  СОДЕРЖАТЬ  ДО
6 СИМВОЛОВ, ДЕСЯТИЧНУЮ ТОЧКУ И 3 СИМВОЛА - ТИП ФАЙЛА.

      ПРОГРАММА   MAG   РАСПОЗНАЕТ   ФАЙЛЫ    СЛЕДУЮЩИХ
ТИПОВ КАК ФАЙЛЫ  СПЕЦИАЛЬНОГО  ФОРМАТА:

.MAG  - ТИП ФАЙЛА НА ДИСКЕ ПО УМОЛЧАНИЮ. В ПЕРВЫХ ДВУХ
        СЛОВАХ ФАЙЛА СОХРАНЯЮТСЯ АДРЕС ЗАГРУЗКИ И ДЛИНА
        (БАЙТ), КОТОРЫЕ  СОДЕРЖАТСЯ В  ЗАГОЛОВКЕ  ФАЙЛА
        НА  ЛЕНТЕ;

.ASC, .DAT  - ФАЙЛЫ  С ТЕКСТОМ ПРОГРАММЫ ИЛИ  ДАННЫМИ
        ПРОГРАММ  НА  ЯЗКЕ  "БЕЙСИК".    ПРИЗНАКОМ
        ЛОГИЧЕСКОГО КОНЦА СЛУЖИТ КОД СУ/Z (32B).  НА
        ЛЕНТЕ ФАЙЛ СОСТОИТ ИЗ ПОСЛЕДОВАТЕЛЬНОСТИ БЛОКОВ
        (ПОДФАЙЛОВ) ДЛИНОЙ ПО  256 БАЙТ  С ИМЕНАМИ  ОТ
        "XXXXXX.ASC #000^"  ДО   "XXXXXX.ASC #NNN^",
        ГДЕ  ^ -КОД  СУ/Z.     ПРИЗНАКОМ    ФИЗИЧЕСКОГО
        КОНЦА ФАЙЛА  СЛУЖИТ БЛОК ДЛИНОЙ    2 БАЙТА   С
        ИМЕНЕМ "XXXXXX.ASC  ____",ГДЕ _ -KОД 0;

.BIN, .COD -  ДВОИЧНЫE ФАЙЛЫ БЕЙСИКА.  ФОРМАТ  НА ДИСКЕ
        АНАЛОГИЧЕН   ФОРМАТУ  ФАЙЛА  .MAG, НО НА МАГНИТ-
        НОЙ ЛЕНТЕ    ИМЕНА   ФАЙЛОВ    ВЫГЛЯДЯТ     КАК
        "XXXXXX.BIN      ",    "XXXXXX.COD______",   Т.Е.
        ДОПОЛНЯЮТСЯ СООТВЕТСТВЕННО  ПРОБЕЛАМИ ИЛИ НУЛЯМИ;

        ФАЙЛ  ОСДВК  С  ЛЮБЫМ  ДРУГИМ  РАСШИРЕНИЕМ  КО-
ПИРУЕТСЯ  НЕФОРМАТНО.
Есть что то такое в архиве )