Здравствуйте, уважаемые хабарчане!
Я интересуюсь «древними» компьютерами и операционными системами. Несмотря на их древность, многие из них гораздо более продуманнее современных систем и лучше подходят в качестве примеров. Windows и Linux есть чему поучиться у многих устаревших ОС.
По-моему самые интересные из старых систем — мейнфреймы и поздние миникомпьютеры (супермини). В отличие от ранних миникомпьютеров, которые часто лепились на коленке конечного пользователя под его нужды, системы мейнфреймов и супермини с самого начала были предназначены для людей не имеющих ни полного представления о работе компьютера ни времени на разработку отдельной архитектуры для каждой задачи. При этом, в отличие от современных систем (4 гигабайта оперативки на набор этого поста), мейнфреймы и в особенности супермини были очень ограниченны в ресурсах и не как правило не разрастались.
В этом посте я опишу процесс установки операционной системы VM/370. VM/370 — операционная система IBM для компьютеров IBM System/370. Это многопользовательская ОС работающая по принципу гипервизора control program (CP): каждому пользователю предоставляется своя виртуальная машина, в которой он может запустить желаемую ОС, в частности сам гипервизор CP (немногие современные гипервизоры способны на такой трюк) и CMS — однопользовательскую ОС, бабушку MS-DOS. Прямой потомок VM — zVM до сих пор используется на мейнфреймах IBM System z. Подробнее о VM можно прочитать в Википедии.
Для тех кто хочет не красноглазить, а просто посмотреть конечный результат: есть готовые образы системы с подробными инструкциями (правда на английском). Остаток статьи можно не читать.
Материалы и инструменты
Для установки и работы нам понадобится:
- Эмулятор S/370: Hercules. К сожалению, не могу дать советов по установке для Windows, тк сам пользуюсь Linux.
- Эмулятор дисплея IBM 3270: x3270.
- Образы лент с www.cbttape.org/:
- Эмулятор терминала (подойдет обычный Telnet).
- Документацияотсюда. Необходима по крайней мере инструкция по установке. Все, естественно на английском, но лично для меня это было только стимулом его выучить. IBMовский английский считается образцом грамотного языка.
Подготовка.
Все фалы проекта я помещаю в папку /home/link/Programming/LEGACY/SYSTEMS/System360/vm370habr (далее просто vm370habr). Загруженные образы сохраняем в папку vm370habr/DISTR. В vm370habr создаю подпапку IO.
Создание образов дисков
link@link-K73BY ~/Programming/LEGACY/SYSTEMS/System360/vm370habr/DASD $ dasdinit -z VMREL6 3330-11 VMREL6
HHCDU044I Creating 3330 volume VMREL6: 808 cyls, 19 trks/cyl, 13312 bytes/track
HHCDU041I 808 cylinders successfully written to file VMREL6
HHCDI001I DASD initialization successfully completed.
link@link-K73BY ~/Programming/LEGACY/SYSTEMS/System360/vm370habr/DASD $ dasdinit -z CPR6L0 3330 CPR6L0
HHCDU044I Creating 3330 volume CPR6L0: 404 cyls, 19 trks/cyl, 13312 bytes/track
HHCDU041I 404 cylinders successfully written to file CPR6L0
HHCDI001I DASD initialization successfully completed.
link@link-K73BY ~/Programming/LEGACY/SYSTEMS/System360/vm370habr/DASD $
Диски в терминах System360 называются DASD. Программа dasdinit создает чистые образы дисков. Первый образ — диск модели 3330 с меткой VMREL6. На него мы запишем стартовую систему. Второй диск — CPR6L0, модели 3330-11 (в два раза большей емкости), на него установим гипервизор. Диски архивированы (опция -z), эту опцию лучше не применять на медленных компьютерах.
Файл конфигурации для монитора
Создаем в папке vm370habr текстовый файл hercules.cnf
ARCHMODE S/370 # Мы хотим эмулировать компьютер S/370,
CPUMODEL 3158 # модели 3158.
CPUSERIAL 000777 # Это поле не имеет значения.
ECPSVM NO # Отключить ускорение виртуализации (пока я с ним не разобрался).
MAXCPU 1 # Однопроцессорная система.
NUMCPU 1 # С одним процессором включённым при старте (привет, кеп)
OSTAILOR VM # Не оповещать нас о "странных" для многих ОС, но типичных для VM ошибках.
LOADPARM 0120....# Если честно, я сам не понял что это.
MAINSIZE 16 # 16 мегабайт оперативной памяти (по тем временам - роскошь).
XPNDSIZE 0 # Без дополнительной памяти (CP её не использует).
# Адрес папки с нашей системой.
DEFSYM MyDir /home/link/Programming/LEGACY/SYSTEMS/System360/vm370habr
# Номер TCP/IP порта для telnet.
CNSLPORT 3270
##################################################
## Устройства ##
##################################################
# В System/370 устройства адресуются (в простейшем случае)
# тремя шестнадцатеричными цифрами:
# - Номером канала,
# - Номером управляющего блока,
# - Номером устройства.
# На управляющем блоке должны висеть устройства сходных типов.
# На первый канал имеет смысл подключать медленные устройства.
# Первый столбец - адрес устройства.
# Второй - тип.
# Дальше идут настройки, для всех устройств разные. Их точное значение
# можно посмотреть в руководстве Геркулеса.
008 3215-C NOPROMPT # Первый телетайп для оператора системы.
009 3215 NOPROMPT # Второй телетайп для управления установкой.
00C 3505 # Ввод перфокарт.
00D 3525 $(MyDir)/IO/punch ascii crlf # Вывод перфокарт.
00E 1403 $(MyDir)/IO/printer crlf # Принтер.
020-02F 3270 # Графические терминалы.
######## Диски
130 3330 $(MyDir)/DASD/CPR6L0
131 3330 $(MyDir)/DASD/VMREL6
#######
180-18F 3420 * # Ленточные накопители.
Примичание: этот конфигурационный файл следует не просто скопировать, а внимательно прочитать, осмыслить и изменить под свои нужды (как минимум, поменять путь).
Настройка дисков
link@link-K73BY ~/Programming/LEGACY/SYSTEMS/System360/vm370habr $ hercules
#...много текста
Command ==>devinit 180 DISTR/starter-3330.aws
HHCTA004I 0180: DISTR/starter-3330.aws is a AWS Format tape file
HHCPN098I Device 0:0180 initialized
В другом терминале:
link@link-K73BY ~/Programming/LEGACY/SYSTEMS/System360/vm370habr $ telnet localhost 3270
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
Hercules version 3.07 built on Jun 19 2011 04:29:21
running on link-K73BY (Linux-3.0.0-26-generic.#43-Ubuntu SMP Tue Sep 25 17:19:22 UTC 2012 x86_64 MP=2)
Connected to device 0:0009
В окне с Геркулесом:
Command ==>ipl 180
(ipl, на мейнфреймовском жаргоне — то же самое что и boot).
В окне с телнетом появится следующее:
VM/370 FORMAT/ALLOCATE PROGRAM RELEASE 6
ENTER FORMAT OR ALLOCATE:
Форматирование дисков
В System/370 концепт данных на диске отличался от современного: размеры секторов мог быть различным даже на одной дорожке и часто определялись приложением, а не операционной системой. Подключенные к CP диски могут быть двух типов: резидентные диски CP (для системной информации и файлов подкачки) и диски пользователей, которые могут быть разбиты по цилиндрам на несколько минидисков. Оболочка CMS разбивает всё отведенное ей пространство диска на 800-байтные секторы и строит файловою систему по типу FAT.
Насколько я понял, диск стартовой системы (CPR6L0) — это диск данных с особой сборкой ядра в первых цилиндрах. В качестве резидентного диска стартовая система (и новая установка ядра) будут использовать диск VMREL6. Для этого нам надо выделить на томе VMREL6 пространство для файлов подкачки и временных дисков. Я также отформатировал CPR6L0, потому что не уверен в том, что образы сгенерированные dasdinit подходят VM.
На ленте с образом стартовой системы есть программа форматирования.
ENTER FORMAT OR ALLOCATE:FORMAT
FORMAT FUNCTION SELECTED
ENTER DEVICE ADDRESS (CCU):131
ENTER DEVICE TYPE:3330-11
ENTER START CYLINDER (XXX) OR "LABEL":000
ENTER END CYLINDER (XXX):807
ENTER DEVICE LABEL:VMREL6
FORMAT STARTED
FORMAT DONE
000 NO. PAGE RECORDS WITH READ-CHECK ERRORS
ENTER FORMAT OR ALLOCATE:ALLOC
ALLOCATE FUNCTION SELECTED
ENTER DEVICE ADDRESS (CCU):131
ENTER DEVICE TYPE:3330-11
ENTER DEVICE LABEL:VMREL6
ENTER ALLOCATION DATA FOR VOLUME VMREL6
TYPE CYL CYL
.... ... ...
PERM 000 012
DRCT 013 016
TEMP 017 201
PERM 202 202
TEMP 203 389
TDSK 390 402
PERM 403 807
END
ALLOCATION RESULTS
PERM 000 012
DRCT 013 016
TEMP 017 201
PERM 202 202
TEMP 203 389
TDSK 390 402
PERM 403 807
DEVICE 131 VOLUME VMREL6 ALLOCATION ENDED
ENTER FORMAT OR ALLOCATE:FORMAT
FORMAT FUNCTION SELECTED
ENTER DEVICE ADDRESS (CCU):130
ENTER DEVICE TYPE:3330
ENTER START CYLINDER (XXX) OR "LABEL":000
ENTER END CYLINDER (XXX):403
ENTER DEVICE LABEL:CPR6L0
FORMAT STARTED
FORMAT DONE
000 NO. PAGE RECORDS WITH READ-CHECK ERRORS
Здесь мы сначала форматируем будущий системный диск, затем выделяем на нем участки (выделение взято из инструкции по установке) и форматируем диск для стартовой системы.
Копирование стартовой системы
В окне с геркулесом вводим:
stop
ipl 180
В телнете появляется:
VM/370 DASD DUMP/RESTORE PROGRAM RELEASE 6
ENTER CARD READER ADDRESS OR CONTROL STATEMENTS
ENTER:
Вводим:
ENTER CARD READER ADDRESS OR CONTROL STATEMENTS
ENTER: SYSPRINT 00E
ENTER: INPUT 180 3420
ENTER: OUTPUT 130 3330 CPR6L0
ENTER: RESTORE ALL
RESTORING CPR6L0
Подождите несколько минут и Геркулес начинает выдавать сообщения об ошибках. Дело в том, что в программе DDR есть ошибка, которая не влияла на поведение на реальном железе, но вешает эмуляторы.
Выйдите из Геркулеса командой quit и перезапустите Геркулес.
Запуск и настройка стартовой системы
Подключите к Геркулесу эмулятор дисплея (как это делать — см. мануал эмулятора). В Геркулесе наберите команду «ipl 130» и нажмите клавишу ввода в окне дисплея.
В принципе, дисплей 3270 в исполнении CMS похож на обычную консоль. Единственное серьезное отличие — консоль не прокручивается автоматический, надо очищать экран кнопкой «Clear». Все остальное в принципе можно выяснить методом тыка.Настройка стартовой системы
Сборка ядра стартовой системы отличается тем, что здесь адреса устройств не вшиты намертво в код, а задаются при каждом старте. Для моей конфигурации
ENTER PRINTER ADDRESS (CUU):
00e
ENTER DEVICE TYPE (1403,1443,3211,3203,3800):
1403
ENTER PUNCH ADDRESS (CUU):
00d
ENTER DEVICE TYPE (2540P,3525):
3525
ENTER READER ADDRESS (CUU):
00c
ENTER DEVICE TYPE (2501,2540R,3505):
3505
ENTER ADDRESS WHERE PID TAPE IS MOUNTED (CUU):
180
ENTER DEVICE TYPE (2401,2415,2420,3420):
3420
ENTER ADDRESS WHERE SCRATCH TAPE IS MOUNTED (CUU):
181
ENTER DEVICE TYPE (2401,2415,2420,3420):
3420
===Нажмите клавишу Clear===
ENTER DEVICE ADDRESS WHERE SYSTEM RESIDENCE WILL BE BUILT (CUU):
131
ENTER DEVICE TYPE:
3330
===Повторение настроек===
ARE THE ABOVE SETTINGS CORRECT?
YES
===Экран очищается===
CHANGE TOD CLOCK (YES|NO):
13:36:14 NO
13:36:14 START ((COLD|WARM|CKPT|FORCE) (DRAIN))|(SHUTDOWN):
13:36:21 COLD
13:36:21 DMKLNK117E CPGEN 351 NOT LINKED; VOLID VMREL6 CONFLICT
13:36:21 DMKLNK117E CPGEN 352 NOT LINKED; VOLID VMREL6 CONFLICT
13:36:21 DMKLNK117E CPGEN 353 NOT LINKED; VOLID VMREL6 CONFLICT
13:36:21 AUTO LOGON *** CPGEN USERS = 001 BY SYSTEM
13:36:21
DMKCPI952I 0512K SYSTEM STORAGE
DMKCPI957I STOR 00512K, NUC 156K, DYN 00320K, TRA 008K, FREE 0028K, V=R 00000K
13:36:21 FILES: NO RDR, NO PRT, NO PUN
Теперь я настраиваю консоль:
spool console start
terminal mode vm
Эти настройки нужны для того, чтобы при запуске CMS гипервизор передавал ей управление консолью. Но пока мы еще не запустили CMS, команды виртуальной машине уйдут в пустоту. Поэтому следите за надписью в правом нижнем углу экрана и вводить команды только по сигналу CP READ. Если в углу экрана надпись RUNNING, нужно нажать клавишу Enter, а если HOLDING — CLEAR.
Определение установки
Введите команду QUERY VIRTUAL DASD, чтобы проверить какие диски подключены. Результат должен быть таким:
13:52:55 DASD 190 3330 CPR6L0 R/O 085 CYL
13:52:55 DASD 191 3330 CPR6L0 R/W 001 CYL
13:52:55 DASD 194 3330 CPR6L0 R/W 027 CYL
13:52:55 DASD 350 3330 VMREL6 R/W 808 CYL
Теперь нужно подключить том VMREL6 к виртуальной машине под тем же номером что и в реальной:
define 350 as 131.
Подключение лент
Создайте в папке vm370habr пустой файл scratch.aws и введите в Геркулес следующие команды:
devinit 180 DISTR/ptf-616.aws
devinit 180 scratch.aws
Первая лента — это патч системы, а вторая — пустая лента, на которую будет записано ядро.
Теперь подключаем эти ленты к виртуальной машине. В окне дисплея:
attach 180 to cpgen as 181
attach 181 to cpgen as 182
Загрузка CMS
Введите в окно дисплея команду: «ipl 190 parm seg=null». Появится сообщение: «RELEASE 6 CMS 12/25/78». Нажмите клавишу ввода. Теперь вы работаете под управлением CMS и можете не беспокоиться о потере команд.
Далее, создайте временный диск (он понадобиться для сборки ядра) командой «define t3330 192 11» и отформатируйте его командой format 192 d. (d — буква диска в CMS). Дальше все совсем как в DOSе. Метку можно назначить любую, я выбрал TMP192 (как в инструкции).
Пару слов о файлах CMS: в CMS имя файла записывается так: через пробел восемь символов имени, восемь символов расширения, буква диска. То есть как в ранних DOS, но с точностью до наоборот.
Применение патчей
Отключите защиту от записи на системном диске CMS: «link cmssys 190 190 w write».
Скопируйте содержимое диска a на диск d коммандой «copy * * a = = d» Символ «равно» в шаблонах CMS означает «без изменений».
Скопируйте файлы патчей на диск d: «vmfplc2 load * * d». VMFPLC2 выведет такой список файлов:
LOADING.....
5749010 061638 D1
VMSERV EXEC D1
5749010 EXEC D1
VMFPLC2 MODULE D2
END-OF-FILE OR END-OF-TAPE
Теперь применим патчи:
access 192 c
release a
vmserv nomemo noipl
VMSERV выведет приветствие и начнет спрашивать какие патчи надо применить. Нам нужен сервис «5749010» и патч CP VM/370. «CP BASE STAGING AREA DISK ADDRESS» — 194. Также, ответьте «yes» на вопрос «IS THIS THE INITIAL SYSGEN OF THIS SYSTEM?».
После этого, VMSERV применит патчи к CP и перезапустит CMS. Когда CMS выведет приветствие, подключите временный диск как диск a: «access 192 a».
Подготовка к сборке ядра
Введите «generate srvcpgm». Эта команда выведет перфокарты с сервисными программами (на эмуляторе они нам не понадобятся). Затем программа спросит печатать ли пример пользовательского каталога. Ответьте «yes» — в каталог может пригодиться. А карты с конфигурационными файлами не нужны — я приведу их ниже.
Конфигурация ядра
Ядро настраивается с помощью нескольких исходников на языке ассемблера и описания пользовательского каталога. Тем, кто хочет их настроить «по вкусу», придется долго копаться в мануалах, а я привожу
ID CPGEN
:READ MYVM DIRECT
* CHANGE THE NEXT ENTRY FOR YOUR SYSTEM RESIDENCE DEVICE
DIRECTORY 131 3330 VMREL6
*
USER OPERATOR OPERATOR 320K 1M ABCDEG
ACCOUNT ACT1 OPERATOR
CONSOLE 009 3215
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 191 3330 008 005 CPR6L0 WR READ WRITE
LINK MAINT 194 194 RR
LINK MAINT 190 190 RR
*
USER CE CE 320K 1M EFG
ACCOUNT ACT2 CE
CONSOLE 009 3215
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 191 3330 013 004 CPR6L0 WR READ WRITE
LINK MAINT 194 194 RR
LINK MAINT 190 190 RR
*
USER MAINT CPCMS 720K 16M BCEG
ACCOUNT ACT3 MAINT
OPTION ECMODE REALTIMER
CONSOLE 009 3215
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 190 3330 030 085 CPR6L0 MR READ
MDISK 191 3330 017 007 CPR6L0 WR READ
MDISK 194 3330 115 027 CPR6L0 MR READ
MDISK 199 3330 029 001 CPR6L0 WR READ
*
MDISK 300 3330 000 808 VMREL6 MW
*
* THE ABOVE ENTRY SHOULD BE MODIFIED TO MATCH THE ADDRESS AND LABEL
* OF YOUR SYSTEM RESIDENCE VOLUME. IT MAY THEN BE USED BY THIS ID
* TO LOAD A DIRECTORY AND WRITE A CP NUCLEUS.
* DELETE THE ' * ' (IN FRONT OF MDISK) ALSO.
* CHANGE THE '404' TO A '808' IF YOURS IS A 3330-11
*
*****
USER IVPM1 IVPASS 320K 16M G
ACCOUNT ACT4 IVPM1
CONSOLE 009 3210
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 191 3330 001 001 CPR6L0 WR READ WRITE
LINK MAINT 194 194 RR
LINK MAINT 190 190 RR
*
USER IVPM2 IVPASS 320K 1M G
ACCOUNT ACT5 IVPM2
CONSOLE 009 3210
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 191 3330 002 001 CPR6L0 WR READ WRITE
LINK MAINT 194 194 RR
LINK MAINT 190 190 RR
*
USER RSCS RSCS 512K
ACCOUNT ACT6 RSCS
OPTION ECMODE
CONSOLE 009 3215
SPOOL 001 2540 READER A
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 191 3330 003 005 CPR6L0 WR READ WRITE
LINK MAINT 190 190 RR
DEDICATE 0B1 078
DEDICATE 0B2 079
DEDICATE 0B3 07A
*
USER ECMODE ECMODE 512K 1M G
ACCOUNT ACT7 ECMODE
OPTION ECMODE REALTIMER
CONSOLE 009 3215
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
MDISK 191 3330 024 005 CPR6L0 WR READ WRITE
LINK MAINT 194 194 RR
LINK MAINT 190 190 RR
*
USER OPERATNS OPERATNS 512K 1M BCEG
ACCOUNT ACT8 OPERATNS
CONSOLE 009 3215
SPOOL 00C 2540 READER A
SPOOL 00D 2540 PUNCH A
SPOOL 00E 1403 A
LINK MAINT 190 190 RR
****************
*
* THE FOLLOWING MINIDISK ENTRY IS PROVIDED AS AN EXAMPLE OF
* THE SPACE RECOMMENDED FOR AN IPCS VIRTUAL MACHINE.
* IF YOU INTEND TO USE THE OPERATNS USERID AS YOUR IPCS
* VIRTUAL MACHINE, YOU SHOULD CHANGE THE FOLLOWING STATEMENT
* TO ALLOCATE MINIDISK SPACE ON ONE OF YOUR SYSTEM DASD VOLUMES.
*
* MDISK 191 3330 XXX 015 YYYYYY WR READ WRITE
*
****************
*
*
* CYLINDERS 142 TO 403 ARE UNUSED AND MAY BE USED FOR
* ANY OTHER VIRTUAL MINI DISK SPACE. IT CAN ALSO BE
* USED FOR PAGING, SPOOLING OR T-DSK SPACE.
*
*
*
:READ DMKRIO ASSEMBLE
DMKRIO CSECT
******** Device definitions:
* ****** Teletype
RDEVICE ADDRESS=008,DEVTYPE=3215
* ****** Card reader
RDEVICE ADDRESS=00C,DEVTYPE=3505,CLASS=(R)
* ****** Card punch
RDEVICE ADDRESS=00D,DEVTYPE=3525,CLASS=(P)
* ****** Printer
RDEVICE ADDRESS=00E,DEVTYPE=1403,FEATURE=UNVCHSET,CLASS=(L)
* ****** Terminals
RDEVICE ADDRESS=(020,16),DEVTYPE=3277
* ****** DASDs:
* **** System disks.
RDEVICE ADDRESS=(130,2),DEVTYPE=3330,MODEL=11
* **** User disks.
RDEVICE ADDRESS=(150,8),DEVTYPE=3330,MODEL=11
* ****** Tapes.
RDEVICE ADDRESS=(180,16),DEVTYPE=3420,MODEL=8,FEATURE=DUALDENS
*
******** Control unit definitions:
* ****** Printer (I don't know if this is requed):
RCTLUNIT ADDRESS=000,CUTYPE=3811
* ****** Slow IO:
RCTLUNIT ADDRESS=008,CUTYPE=2821
* ****** Terminals:
RCTLUNIT ADDRESS=020,CUTYPE=3272,FEATURE=16-DEVICE
* ****** System disks:
RCTLUNIT ADDRESS=130,CUTYPE=3880,FEATURE=16-DEVICE
* ****** User disks:
RCTLUNIT ADDRESS=150,CUTYPE=3880,FEATURE=16-DEVICE
* ****** Tapes:
RCTLUNIT ADDRESS=180,CUTYPE=3803,FEATURE=16-DEVICE
*
******** Channel definitions.
RCHANNEL ADDRESS=0,CHTYPE=MULTIPLEXOR
RCHANNEL ADDRESS=1,CHTYPE=BLKMPXR
*
RIOGEN CONS=008
END
:READ DMKSYS ASSEMBLE
SYS TITLE 'DMKSYS FOR 3330 RELEASE 6' 00001000
DMKSYS CSECT 00002000
SYSOWN (VMREL6,TEMP) 00003000
SYSRES SYSVOL=VMREL6,SYSRES=131,SYSTYPE=3330, X00004000
SYSNUC=7,SYSWRM=10,SYSERR=11,SYSCKP=202 00005000
SYSMON AUTO=NO 00006000
SYSJRL 00007000
SYSCOR RMSIZE=16M,AP=NO 00008000
SYSOPR SYSOPER=OPERATOR,SYSDUMP=OPERATNS 00009000
SYSTIME ZONE=5,LOC=WEST,ID=EST 00010000
SYSLOCS 00011000
END 00012000
:READ DMKSNT ASSEMBLE
*. 00003000
* MODULE NAME - 00004000
* DMKSNT 00005000
* 00006000
* FUNCTION - 00007000
* 00008000
* THIS MODULE WILL BE ASSEMBLED BY THE INSTALLATION SYSTEM 00009000
* PROGRAMMER. IT WILL DESCRIBE THE THE SYSTEM TO BE SAVED VIA 00010000
* THE 'SAVESYS' COMMAND AND TO BE IPL'ED BY NAME. SHARED SEG- 00011000
* MENTS MAY BE SPECIFIED. THESE SEGMENTS MUST CONSIST OF 00012000
* ALL REENTRANT CODE. 00013000
* 00014000
* 00015000
* INPUT TO THE NAMESYS MACRO IS SPECIFIED IN THE FOLLOWING 00016000
* FORMAT: 00017000
* 00018000
* LABEL NAMESYS SYSSIZE=NNNK,SYSNAME=CCCCCC,VSYSRES=CCCCCC, 00019000
* VSYSADR=XXX,SYSVOL=CCCCCC,SYSCYL=NNN, 00020000
* SYSSTRT=(CC,P),SYSPGCT=NN, 00021000
* SYSPGNM=(NN,NN,NN-NN,......), 00022000
* SYSHRSG=(N,N,...) 00023000
* 00024000
* WHERE: 00025000
* 00026000
* SYSSIZE - THIS IS THE MINUMUM STORAGE SIZE NEEDED TO 00027000
* OPERATE THE SAVED SYSTEM. 00028000
* SYSNAME - IS THE NAME GIVEN THE SYSTEM TO BE USED FOR 00029000
* IDENTIFICATION BY 'SAVESYS' AND 'IPL'. 00030000
* VSYSRES - IS THE VOLUME SERIAL OF THE DASD CONTAINING THE 00031000
* SYSTEM TO BE SAVED 00032000
* VSYSADR - IS THE VIRTUAL ADDRESS OF THE DASD CONTAINING 00033000
* THE SYSTEM. 00034000
* SYSCYL - THE CYLINDER ADDRESS OF THE 'MINI-DISK' 00035000
* FOR THE SYSTEM TO BE SAVED. 00036000
* SYSVOL - IS THE VOLUME SERIAL OF THE DASD DESIGNATED TO 00037000
* RECEIVE THE SAVED SYSTEM. THIS MUST BE A 00038000
* 'CP-OWNED' VOLUME. 00039000
* SYSSTRT - THIS DESIGNATES THE STARTING CYLINDER AND PAGE 00040000
* ADDRESS ON 'SYSVOL' THAT THIS NAMED SYSTEM IS TO 00041000
* BE SAVED. DURING THE SAVESYS AND IPL PROCESSING, 00042000
* THIS WILL BE USED TO MAKE UP THE 'CCPD' ADDRESS 00043000
* FOR THE DASD OPERATIONS. THESE NUMBERS ARE TO 00044000
* SPECIFIED IN DECIMAL. 00045000
* SYSPGCT - IS THE TOTAL NUMBER OF PAGES TO BE SAVED. 00046000
* SYSPGNM - THESE ARE THE NUMBERS OF THE PAGES TO BE SAVED. 00047000
* SPECIFICATION MAY BE DONE AS GROUPS OF PAGES OR 00048000
* AS SINGLE PAGES. FOR EXAMPLE - IF PAGES 0,4, AND 00049000
* 10 THRU 13 ARE TO BE SAVED, USE THE FORMAT: 00050000
* SYSPGNM=(0,4,10-13). 00051000
* SYSHRSG - THESE ARE THE SEGMENT NUMBERS DESIGNATED AS 00052000
* SHARED. THE PAGES IN THESE SEGMENTS WILL BE SET 00053000
* UP AT IPL TIME TO BE USED BE ANY USER 00054000
* IPL'ING BY THIS NAME. 00055000
* 00056000
* THE FOLLOWING IS A SAMPLE OF INPUT FOR THIS MODULE: 00057000
* 00058000
* DMKSNTBL CSECT 00059000
* FSTNAME NAMESYS SYSSIZE=256K,SYSNAME=CMS,VSYSRES=CPDSK1, 00060000
* SYSVADR=190,SYSCYL=100,SYSVOL=CPDSK2, 00061000
* SYSSTRT=(400,1),SYSPGCT=10, 00062000
* SYSPGNM=(0-5,10-13),SYSHRSG=(1,2) 00063000
* 00064000
* ATTRIBUTES - 00065000
* 00066000
* PAGEABLE 00067000
* 00068000
* ENTRY POINTS - 00069000
* 00070000
* DMKSNTBL 00071000
* 00072000
* NOTES - 00073000
* 00074000
* THERE IS NO EXECUTABLE CODE IN THIS MODULE. 00075000
* 00076000
* 00077000
*. 00078000
EJECT 00079000
* 00080000
*********************************************************************** 00081000
* 00082000
* THE FOLLOWING ENTRIES ARE BASED ON THE INFORMATION INCLUDED 00083000
* IN THE SAMPLE DMKSYS PROVIDED WITH THE STARTER SYSTEM, 00084000
* AND THE SAMPLE ALLOCATIONS PROVIDED IN THE SYSTEM 00085000
* GENERATION PROCEDURE. 00086000
* 00087000
*********************************************************************** 00088000
* 00089000
SPACE 00090000
DMKSNTBL CSECT 00091000
SPACE 00092000
* 00093000
* THE SPACE FOR CMS IS ALLOCATED ON VMREL6, AS FOLLOWS: 00094000
* CYL 1, PAGE 01 TO CYL 1, PAGE 34 (34 PAGES) 00095000
* TOTAL = 34 PAGES 00096000
* 00097000
CMS NAMESYS SYSSIZE=256K,SYSNAME=CMS, X00098000
VSYSADR=190,SYSVOL=VMREL6,SYSCYL=030,SYSSTRT=(001,1), X00099000
SYSPGCT=33,SYSPGNM=(0-32),SYSHRSG=(1),VSYSRES=CPR6L0 00100000
EJECT 00101000
* 00102000
* THE SPACE FOR CMSSEG IS ALLOCATED ON VMREL6, AS FOLLOWS: 00103000
* CYL 1, PAGE 35 TO CYL 1, PAGE 51 (17 PAGES) 00104000
* TOTAL = 17 PAGES 00105000
* 00106000
CMSSEG NAMESYS SYSNAME=CMSSEG,SYSVOL=VMREL6,SYSCYL=, X00107000
SYSSTRT=(001,35),SYSPGCT=16,SYSHRSG=(16), X00108000
SYSPGNM=(256-271),SYSSIZE=64K,VSYSRES=,VSYSADR=IGNORE 00109000
EJECT 00110000
* 00111000
* THE SPACE FOR CMSVSAM IS ALLOCATED ON VMREL6, AS FOLLOWS: 00112000
* CYL 1, PAGE 52 TO CYL 1, PAGE 57 ( 6 PAGES) 00113000
* CYL 2, PAGE 01 TO CYL 2, PAGE 57 (57 PAGES) 00114000
* CYL 3, PAGE 01 TO CYL 3, PAGE 34 (34 PAGES) 00115000
* TOTAL = 97 PAGES 00116000
* 00117000
CMSVSAM NAMESYS SYSNAME=CMSVSAM,SYSVOL=VMREL6,SYSPGNM=(272-367), X00118000
SYSSTRT=(001,52),SYSPGCT=96,SYSSIZE=384K,SYSCYL=, X00119000
SYSHRSG=(17,18,19,20,21),VSYSRES=,VSYSADR=IGNORE 00120000
EJECT 00121000
* 00122000
* THE SPACE FOR CMSAMS IS ALLOCATED ON VMREL6, AS FOLLOWS: 00123000
* CYL 3, PAGE 35 TO CYL 3, PAGE 57 (23 PAGES) 00124000
* CYL 4, PAGE 01 TO CYL 4, PAGE 57 (57 PAGES) 00125000
* CYL 5, PAGE 01 TO CYL 5, PAGE 49 (49 PAGES) 00126000
* TOTAL = 129 PAGES 00127000
* 00128000
CMSAMS NAMESYS SYSNAME=CMSAMS,SYSVOL=VMREL6,SYSPGNM=(368-495), X00129000
SYSSTRT=(003,35),SYSPGCT=128,SYSSIZE=448K,SYSCYL=, X00130000
SYSHRSG=(23,24,25,26,27,28),VSYSRES=,VSYSADR=IGNORE 00131000
EJECT 00132000
* 00133000
* THE SPACE FOR CMSDOS IS ALLOCATED ON VMREL6, AS FOLLOWS: 00134000
* CYL 5, PAGE 50 TO CYL 5, PAGE 57 ( 8 PAGES) 00135000
* CYL 6, PAGE 01 TO CYL 6, PAGE 01 ( 1 PAGE ) 00136000
* TOTAL = 9 PAGES 00137000
* 00138000
CMSDOS NAMESYS SYSNAME=CMSDOS,SYSVOL=VMREL6,SYSHRSG=(31), X00139000
SYSSTRT=(005,050),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, X00140000
SYSPGNM=(496-503),VSYSRES=,VSYSADR=IGNORE 00141000
EJECT 00142000
* 00143000
* THE SPACE FOR INSTVSAM IS ALLOCATED ON VMREL6, AS FOLLOWS: 00144000
* CYL 6, PAGE 02 TO CYL 6, PAGE 10 ( 9 PAGES) 00145000
* TOTAL = 9 PAGES 00146000
* 00147000
INSTVSAM NAMESYS SYSNAME=INSTVSAM,SYSVOL=VMREL6,SYSHRSG=(254), X00148000
SYSSTRT=(006,002),SYSPGCT=8,SYSSIZE=32K,SYSCYL=, X00149000
SYSPGNM=(4064-4071),VSYSRES=,VSYSADR=IGNORE 00150000
* 00151000
EJECT 00152000
* 00153000
* THE SPACE FOR 3800 PRINTER IMAGES ON VMREL6 IS ALLOCATED: 00154000
* CYL 6, PAGE 11 TO CYL 6, PAGE 16 ( 6 PAGES) 00155000
* TOTAL = 6 PAGES 00156000
* 00157000
NAME3800 CPNAME=IMAG3800,SYSVOL=CPR6L0,SYSSTRT=(006,11), X00158000
SYSPGCT=5 00159000
EJECT 00160000
* 00161000
* THE FOLLOWING SPACE IS AVAILABLE FOR SAVED SYSTEMS ON VMREL6: 00162000
* CYL 6, PAGE 17 TO CYL 6, PAGE 57 (41 PAGES) 00163000
* TOTAL = 47 PAGES 00164000
* 00165000
END 00166000
Копируем весь этот текст в файл sysconf.txt.
Сборка ядра
Вводим в консоли Геркулеса: «devinit 00c sysconf.txt ascii eof».
И на дисплее: «generate vm370»
GENERATE спросит имя файла с каталогом (у меня это MYVM DIRECT). Затем откомпилируются файлы с настройками и GENERATE спросит собирамемся ли мы использовать многопроцессорную систему или опцию V=R. Отвечаем no. Дальше будет много текста и (если вам повезет) в конце появится надпись: «NUCLEUS LOADED ON VMREL6».
Сохраните карту памяти ядра и выключите стартовую систему:
close ptr
15:06:30 IPL 190 PARM SEG=NULL
15:06:30 PRT FILE 0019 TO CPGEN COPY 01 NOHOLD
RELEASE 6 CMS 12/25/78
access 194 a
CMSSEG SYSTEM NAME 'NULL ' NOT AVAILABLE.
R; T=0.01/0.01 15:06:36
read cpipcs map a
RECORD LENGTH IS '132' BYTES.
R; T=0.25/1.24 15:06:50
drain all
15:08:18 RDR 00C DRAINED SYSTEM
15:08:18 PUN 00D DRAINED SYSTEM CLASS = A SEP
15:08:18 PRT 00E DRAINED SYSTEM CLASS = A SEP
R; T=0.01/0.02 15:08:18
shutdown
DMKCKP960I SYSTEM WARM START DATA SAVED
DMKCKP961W SYSTEM SHUTDOWN COMPLETE
Разбиение диска
Для того, чтобы использовать диск CPR6L0, его нужно переразметить. Загрузите FORMAT/ALLOCATE так же, как при копировании системы.
VM/370 FORMAT/ALLOCATE PROGRAM RELEASE 6
ENTER FORMAT OR ALLOCATE:ALLOCATE
ALLOCATE FUNCTION SELECTED
ENTER DEVICE ADDRESS (CCU):130
ENTER DEVICE TYPE:3330
ENTER DEVICE LABEL:CPR6L0
ENTER ALLOCATION DATA FOR VOLUME CPR6L0
TYPE CYL CYL
.... ... ...
DRCT 000 000
PERM 001 403
END
ALLOCATION RESULTS
DRCT 000 000
PERM 001 403
DEVICE 130 VOLUME CPR6L0 ALLOCATION ENDED
Остановите программу командой stop.
Запуск новой системы
Загрузитесь с системного диска командой IPL 131. В окне Геркулеса появится приглашение:
NOW 14:14:40 EST MONDAY 08/26/13
CHANGE TOD CLOCK (YES NO)
Сейчас вы работаете в встроенной консоли. С точки зрения VM/CMS это такая же консоль, как и подключение через телнет. Для того, чтобы ввести текст во встроенную консоль, введите его в консоль Геркулеса через косую черту ("/"):
CHANGE TOD CLOCK (YES NO) :
/(0008) no
14:17:49 START ((COLD WARM CKPT FORCE) (DRAIN)) (SHUTDOWN) :
/(0008) cold
14:17:51 AUTO LOGON *** OPERATOR USERS = 001 BY SYSTEM
DMKCPI957I STOR 16384K, NUC 224K, DYN 14900K, TRA 240K, FREE 1020K, V=R 00000K
14:17:51 FILES: NO RDR, NO PRT, NO PUN
14:17:51 FORMATTING ERROR RECORDING AREA
Форматирование минидисков
Тут все просто:
/(0008) ipl 190 parm seg=null
14:22:39
RELEASE 6 CMS 12/25/78 V
/(0008) access (nodisk
CMSSEG SYSTEM NAME 'NULL ' NOT AVAILABLE.
DISK 'A' NOT ACCESSED.
DISK 'A' NOT ACCESSED.
R; T=0.01/0.01 14:22:49
/(0008) format 191 a
DMSFOR603R FORMAT WILL ERASE ALL FILES ON DISK 'A(191)'. DO YOU WISH TO CONTINUE? (YES NO):
/(0008) yes
DMSFOR605R ENTER DISK LABEL:
/(0008) OPR191
FORMATTING DISK 'A'.
HHCCP048I 0130:CCW=07F06608 40100006=>00000FFF 00000000 00000000 000F8918 ..............i.
HHCCP075I 0130:Stat=0E00 Count=0000
HHCCP076I 0130:Sense=80000000 380C1204 00000000 00000000 00000000 00000000
HHCCP077I 0130:Sense=CMDREJ
'5' CYLINDERS FORMATTED ON 'A(191)'.
R; T=0.01/0.11 14:23:13
/(0008) logoff
14:23:34 CONNECT= 00:05:42 VIRTCPU= 000:00.06 TOTCPU= 000:00.39
14:23:34 LOGOFF AT 14:23:34 EST MONDAY 08/26/13
VM/370 ONLINE
/(0008) logon maint
ENTER PASSWORD:
XXXXXXXX
/(0008) cpcms
LOGON AT 14:23:45 EST MONDAY 08/26/13
/(0008) define storage 2m
STORAGE = 02048K
/(0008) ipl 190 parm seg=null
RELEASE 6 CMS 12/25/78
/(0008) access (nodisk
CMSSEG SYSTEM NAME 'NULL ' NOT AVAILABLE.
DISK 'A' NOT ACCESSED.
DISK 'A' NOT ACCESSED.
R; T=0.01/0.01 14:25:26
/(0008) format 191 a
DMSFOR603R FORMAT WILL ERASE ALL FILES ON DISK 'A(191)'. DO YOU WISH TO CONTINUE? (YES NO):
/(0008) yes
DMSFOR605R ENTER DISK LABEL:
/(0008) MNT191
FORMATTING DISK 'A'.
HHCCP048I 0130:CCW=07F07BB0 40100006=>00000FFF 00000000 00FFF280 000F6F38 ..........2...?.
HHCCP075I 0130:Stat=0E00 Count=0000
HHCCP076I 0130:Sense=80000000 38171204 00000000 00000000 00000000 00000000
HHCCP077I 0130:Sense=CMDREJ
'7' CYLINDERS FORMATTED ON 'A(191)'.
R; T=0.02/0.26 14:26:30
/(0008) logout
CONNECT= 00:02:49 VIRTCPU= 000:00.07 TOTCPU= 000:00.52
LOGOFF AT 14:26:35 EST MONDAY 08/26/13
VM/370 ONLINE
/(0008) logon operator
ENTER PASSWORD:
XXXXXXXX
/(0008) operator
14:28:10 LOGON AT 14:28:10 EST MONDAY 08/26/13
14:28:10 LINE 008 LOGON AS OPERATOR USERS = 002
/enable all
===Много сообщений о неподключенных устройствах===
Установка обновлений
Залогинтесь под пользователем MAINT через дисплей:
LOGON MAINT
ENTER PASSWORD:
DASD 190 LINKED R/W; R/O BY OPERATOR
DASD 194 LINKED R/W; R/O BY OPERATOR
LOGON AT 14:30:29 EST MONDAY 08/26/13
CP
IPL 190 PARM SEG=NULL
RELEASE 6 CMS 12/25/78
CMSSEG SYSTEM NAME 'NULL ' NOT AVAILABLE.
R; T=0.01/0.01 14:30:54
Пароль — CPCMS.
Подключите ленту с обновлениями к машине MAINT (через консоль Геркулеса):
devinit 180 ./DISTR/ptf-616.aws
HHCTA101I 0180: AWS Tape ./DISTR/starter-3330.aws closed
HHCTA004I 0180: ./DISTR/ptf-616.aws is a AWS Format tape file
HHCPN098I Device 0:0180 initialized
/(0008) attach 180 to maint as 181
14:32:43
14:32:43 TAPE 180 ATTACH TO MAINT 181
Теперь в консоли администратора:
vmfplc2 rew
R; T=0.01/0.01 14:33:26vmfplc2 load
LOADING.....
5749010 061638 A1
VMSERV EXEC A1
5749010 EXEC A1
VMFPLC2 MODULE A2
END-OF-FILE OR END-OF-TAPE
R; T=0.02/0.10 14:33:33
access 191 c
'191 A ' RELEASED
R; T=0.01/0.01 14:34:16
vmserv restart 5749010 cp nomemo
Дальше будет много вопросов. Лично я отвечаю наугад — в результате, как и следовало ожидать, ошибка. Но это не критично.
Сохраняем CMS
В CP есть механизм, похожий на динамические библиотеки — Named Systems. Одно из частых его использований — ускорение работы с CMS. Для того чтобы сохранить CMS как именованную систему, нужно выполнить следующие команды:
define storage 2m
STORAGE = 02048K
CP ENTERED; DISABLED WAIT PSW '00020000 00000000'
IPL 190 PARM SEG=NULL
RELEASE 6 CMS 12/25/78
CMSSEG SYSTEM NAME 'NULL µ' NOT AVAILABLE.
R; T=0.01/0.01 14:42:14
access 190 B/A
B (190) R/O
190 ALSO = S-DISK
cmsxgen 100000
SYSTEM SAVED
CMSXGEN COMPLETE
define storage 960k
STORAGE = 00960K
CP ENTERED; DISABLED WAIT PSW '00020000 00000000'
IPL 190
RELEASE 6 CMS 12/25/78
savesys cms
SYSTEM SAVED
RELEASE 6 CMS 12/25/78
Поздравляю, теперь у вас есть своя CP/CMS система. Чтобы выключить ее, введите в консоли оператора команду shutdown. Когда будете запускать ее снова, выберите warm start.
PS: Вообще-то, еще много что можно рассказать. Но и так уже простыня получилась.
Удачных вам IPL-ов!
Автор: valplo
