image_2026-05-16_19-56-59.png
198.1 KB
BASIC и перфоленты упорно ведут меня в направлении DEC PDP. Формально PDP есть и даже перфосчитка. Запустить целый квест. Блок питания на PDP-11 - 60 вольтовый. Надо подумать над запуском. А пока смотрим исодный код BASIC на Ассемблере. 100 страниц всего :)
👍2🔥1
Можно попробовать запустить BASIC на эмуляторе SIMH. Почитал форум vcfed.org. Участники проделали огромную работу. Пользователь с ником jlang выложил восстановленную версию DEC PTS BASIC. PTS в данном контексте — это сокращение от Paper Tape System (Система на бумажной перфоленте).
https://bitsavers.org/bits/DEC/pdp11/papertapeimages/
https://bitsavers.org/bits/DEC/pdp11/papertapeimages/
🔥1
basicpts.zip
1.4 MB
Итак. Как запустить эмулятор PDP + BASIC из 70-х, а так же запустить простую програму.
Упаковал эмулятор и образ перфолеты в один архив basicpts.zip
Первым шагом необходимо скачать и архив и распаковать.
Упаковал эмулятор и образ перфолеты в один архив basicpts.zip
Первым шагом необходимо скачать и архив и распаковать.
🔥2
Запускаем как на скрине: PDP-11.exe basic.ini
Получаем диалог конфигурирования интерпретатора Бэйсик.
В те времена у компьютеров не было жестких дисков, поэтому при каждой загрузке с бумажной ленты интерпретатор заново опрашивал пользователя, чтобы настроить систему под конкретное «железо» и сэкономить ОЗУ.
OPT FNS расшифровывается как Optional Functions (Дополнительные функции).
A-ALL - все функции: загрузить в память весь математический пакет.
Получаем диалог конфигурирования интерпретатора Бэйсик.
В те времена у компьютеров не было жестких дисков, поэтому при каждой загрузке с бумажной ленты интерпретатор заново опрашивал пользователя, чтобы настроить систему под конкретное «железо» и сэкономить ОЗУ.
OPT FNS расшифровывается как Optional Functions (Дополнительные функции).
A-ALL - все функции: загрузить в память весь математический пакет.
🔥1
Далее происходит настройка задержки терминала: NUMBER OF PAD CHARACTERS NEEDED. Запрос количества пустых (заполняющих) символов задержки. Физический телетайп (Teletype ASR33) печатал буквы ударами молоточка по цилиндру. Когда строка заканчивалась, тяжелой печатающей головке требовалось время, чтобы физически долететь обратно в левый край. Чтобы компьютер не печатал новые буквы, пока головка летит, на бумажной ленте пробивали пустые непечатаемые дырочки («pad characters») — они давали телетайпу фору в несколько миллисекунд.
Вводим цифру 0.
Так как мы работаем в эмуляторе SIMH и у нас нет физической печатающей головки - задержки не нужны. Ввод нуля отключает генерацию пустых байтов, ускоряя вывод текста до максимума.
Приветствие READY показывает, что ядро Бэйсика полностью сконфигурировано, распределило память, подгрузило математику и вошло в интерактивный режим. Можно вводить команды RUN, LIST или ввод строк кода.
Вводим цифру 0.
Так как мы работаем в эмуляторе SIMH и у нас нет физической печатающей головки - задержки не нужны. Ввод нуля отключает генерацию пустых байтов, ускоряя вывод текста до максимума.
Приветствие READY показывает, что ядро Бэйсика полностью сконфигурировано, распределило память, подгрузило математику и вошло в интерактивный режим. Можно вводить команды RUN, LIST или ввод строк кода.
🔥2
Далее необходима программа.
Для примера:
10 PRINT "COMP ZAGADAL CHISLO OT 1 TO 100"
20 X = INT(RND(A) * 100) + 1
30 PRINT "TVOY VARIANT";
40 INPUT G
45 A = A + G
50 IF G = X THEN 90
60 IF G < X THEN 100
70 IF G > X THEN 110
90 PRINT "PRAVILNO! TY VYIGRAL."
92 A = A * 3
95 PRINT "ESCHE RAZ (1=DA, 0=NET)";
96 INPUT B
97 IF B = 1 THEN 20
98 END
100 PRINT "MALO!"
105 GO TO 30
110 PRINT "MNOGO!"
115 GO TO 30
Для примера:
10 PRINT "COMP ZAGADAL CHISLO OT 1 TO 100"
20 X = INT(RND(A) * 100) + 1
30 PRINT "TVOY VARIANT";
40 INPUT G
45 A = A + G
50 IF G = X THEN 90
60 IF G < X THEN 100
70 IF G > X THEN 110
90 PRINT "PRAVILNO! TY VYIGRAL."
92 A = A * 3
95 PRINT "ESCHE RAZ (1=DA, 0=NET)";
96 INPUT B
97 IF B = 1 THEN 20
98 END
100 PRINT "MALO!"
105 GO TO 30
110 PRINT "MNOGO!"
115 GO TO 30
🔥1
В общем, никакого удовольствия я не получил от эмулятора :)
У меня есть настоящий PDP и настоящий телетайп ASR-33. Когда-нибудь запущу на реальном железе. Пока пойду сфоткаю :)
У меня есть настоящий PDP и настоящий телетайп ASR-33. Когда-нибудь запущу на реальном железе. Пока пойду сфоткаю :)
😁3🔥1
И в догонку: для настройки коммутаторов и маршрутизаторов многие используют программу PuTTY. Это тоже TTY.
Так же можно взять терминал ASR-33, как на фото выше и через переходник с токовой петли на rs-232 подключить в консольный порт коммутатора Cisco для настройки.
Так же можно взять терминал ASR-33, как на фото выше и через переходник с токовой петли на rs-232 подключить в консольный порт коммутатора Cisco для настройки.
🔥1