T.I.S. Форум :: Версия для печати :: Электроника 60, 100-25

1. Andrey_Ak - 08 Января, 2016 - 09:30:12 - перейти к сообщению

Программа RDTAP.SAV

Читает данные с ленты, пофиг формат,
главное чтобы размер ленты не превышал 30-32 МБ,
в RT-11 больше не записывается.

Запускаем RDTAP.SAV

Выходит:
*

Вводим:

*DP:MT000.TAP[-1]=MT0:
?RDTAP-I-65467. block(s) allocated for tape image file
?RDTAP-I-16384. word(s) allocated for tape block buffer
?RDTAP-I-00552. file(s) read from tape
?RDTAP-I-05636. disk block(s) used
*
RDTAP V03.00
*^C

- Читает ленту с устройства MT0: и пишет в файл MT000.TAP на диске DP:

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

?RDTAP-I-05309. block(s) allocated for tape image file

- Сколько свободного места на DP:

?RDTAP-I-16384. word(s) allocated for tape block buffer

- Объем буфера для чтения

?RDTAP-I-00552. file(s) read from tape

- Количество файлов прочитанное с ленты

?RDTAP-I-05636. disk block(s) used

- Сколько всего занято на диске блоков под образ ленты

Параметры программы:

/T - узнать размеры ленты и сколько надо,
/N - не перематывать и делать с текущего места,
/U - перемотать и выплюнуть ленту

Например:

RDTAP
*MT0:/T
?RDTAP-I-16384. word(s) allocated for tape block buffer

Программа написана тов. Form

http://tis.kz/progs/dvk/rdtap.rar

Содержимое архива:

RDTAP .COM 1 17-Jan-2016
RDTAP .MAC 22 17-Jan-2016
RDTAP .SAV 6 17-Jan-2016

2. Andrey_Ak - 25 Января, 2016 - 08:30:44 - перейти к сообщению

Программа ROLLIN.SAV

Применялась для архивации данных на ленты.

Работает под RT11 используя стандартный контроллер НМЛ, и стандартный
диск RK05 размером 4800 блока (в системе диск RK обзывается DK).

т.е. RK0: соответствует DK0: и RK1: соответствует DK1:

Программа в параметрах понимает только диски DK

Для просмотра содержимого на ленте, записанной с помощью ROLLIN.SAV
команды следующие:

.ROLLIN
#

ROLLIN V07.CT

#<MT0:/LI
FOUND: L 0G5T.JRB
FOUND: RAFOS .ROL
FOUND: C .ROL
FOUND: PZS .ROL
CAN'T FIND SPECIFIED FILE.

На ленте находятся три образа диска RK с названиями:
RAFOS .ROL
C .ROL
PZS .ROL

Для восстановления первого образа диска RK RAFOS .ROL на диск RK1: (DK1:) вводим команду:

#DK1:<MT0:RAFOS
#

После восстановления образа диска, из программы выйти не можем, только перезагрузить машину.

Лог сессии в E11: (Отобразить)

После перезагрузки на диске RK1: восстановленный образ диска с ленты:

Лог сессии в E11: (Отобразить)

Программа ROLLIN.SAV http://tis.kz/progs/dvk/rollin.rar