Посадка на Луну

[spamsink]

Наконец-то, можно нормально играть в посадку на Луну: https://github.com/besm6/bega-re/blob/master/landing.pas
https://github.com/besm6/bega-re/blob/master/landing.sh

Дело было в том, что по умолчанию вывод на экран в Паскаль-автокоде делается через Пульт, который всё печатает в сокращенном наборе символов для телетайпа (например, ! превращается в .I), и принудительно делая перевод строки после 72 символов. "Посадка" пыталась это обойти с помощью выдачи экстракода вывода на экран, указывая предполагаемый адрес буфера файла output, но почему-то в нашем случае это не работало.

Я эти мелочи проигнорировал. Теперь с помощью этой программы можно давать задачки по физмату и программированию:

1) Покажите, что на уровне 0 (15000 фунтов топлива) сесть невозможно.
2а) Напишите программу, за короткое время находящую последовательность действий, приводящих к мягкой посадке на уровне 1 (15500 фунтов топлива).
2б) Максимизируйте количество оставшегося при посадке топлива.

Comments

[vak]

О, класс! Надо будет на досуге переписать на Си или Питон.

[spamsink]

На С++ я уже переписал, иначе как бы я решение подгонял.

[vak]

Нашёлся оригинальный текст на Фокале, 1969 год:

[vak]

Ты глянь, кто-то уже перепёр посадку на Rust!

https://gist.github.com/kristopherjohnson/83c6a6b8a1b7c6929ced83e922abccc1

[azizz8618]

А как запустить данную игру в эмуляторе?

[spamsink]

1. Собрать эмулятор режима пользователя dispak.
2. В каталоге с образами дисков сделать ссылки 2248 -> svs2048.bin, 2053 -> svs2053.bin
3. Взять из https://github.com/besm6/bega-re/ файлы landing.sh (в нем поправить путь к выполняемому файлу dispak на необходимый), pult2.b6 и landing.pas и положить их в текущий каталог.
4. Запустить landing.sh

[vak]

Расшифрую маленько. :)

Бинарник dispak собирается так:

$ git clone https://github.com/besm6/dispak.git
$ cd dispak
$ ./configure
$ make
$ make install

[vak]

Теперь берём скрипты и исходники игры:

$ git clone https://github.com/besm6/bega-re.git

В файле langing.sh во второй строке убираем путь к dispak, пусть вызывается через PATH:

spawn dispak -s pult2.b6

В файле pult2.b6 убираем строку 5: "лент 50(1234-ЗП)^". Эта лента не нужна.

Запускаем:

$ ./landing.sh
spawn dispak -s pult2.b6
                                                                                                        000
  СИСТЕМА ПУЛЬТ   19.08.80    
...
 ПАСКАЛЬ-АВТОКОД 9.(17.05.88) 
________________________________________________________________________________________________________________________________
                АВТОКОД  00.00.70. БЛОК           N 000001 ЛИСТ 000000

ЕNGLISН / РУССКИЙ ?р
ЦЕНТР УПРАВЛЕНИЯ ВЫЗЫВАЕТ ЛУННЫЙ МОДУЛЬ:
ДЛЯ ПОСАДКИ ПЕРЕЙДИТЕ НА РУЧНОЕ УПРАВЛЕНИЕ.
КАКОВ ВАШ ОПЫТ: 0 1 2(НОРМА) 3 4 5 6 7 8 9(ОПЫТА НЕТ) ? 
ЧТО У ВАС ? 2
ВЫ ДОЛЖНЫ УКАЗЫВАТЬ СКОРОСТЬ РАСХОДА ТОПЛИВА ЧЕРЕЗ КАЖДЫЕ 10 СЕКУ
НД.
РАСХОД ДОЛЖЕН БЫТЬ ИЛИ 0 ИЛИ ОТ 8 ДО 200 ФУНТОВ В СЕКУНДУ. 
У ВАС 16000 ФУНТОВ ТОПЛИВА.
ВЕС КАПСУЛЫ СЕЙЧАС 32500 ФУНТОВ, ВКЛЮЧАЯ ТОПЛИВО.
НАЧИНАЙТЕ ПОСАДКУ. 
ПЕРВЫЙ РАДИОЛОКАЦИОННЫЙ ЗАМЕР ВЫСОТЫ:
ВРЕМЯ(СЕК) ВЫС(МИЛИ  + ФУТЫ) СКОРОСТЬ(Ф/С) ТОПЛ(ФУН) 
    0          120       0     5280        16000 
РАСХОД=

Ну и так далее.

[azizz8618]

А собственно в эмуляторе Бэсм-6 ее можно запустить.или в крайнем случае ввести в текстовом формате через редактор КРАБа и пропустить через интерпретатор. Там же должна быть среда для программировани?

[vak]

Через simh/besm6 тоже можно. Только КРАБ тут не поможет, так как данный конкретный компилятор работает только из Пульта.

Сам по себе КРАБ через simh можно запускать так:
https://github.com/besm6/besm6.github.io/blob/master/wiki/examples/besm6-krab.expect

Или так:
https://github.com/besm6/besm6.github.io/blob/master/wiki/examples/besm6-run.expect

Подробности здесь: https://groups.google.com/d/msg/besm6/WnK7JIx-QoI/CSduoZABMxsJ

[azizz8618]

КТЛ
ИMЯ HAЧAЛО ДЛИHA
ИHTPУK 001 020
TECT 021 020
TECT1 041 001
РЕД ТЕСТ
ПPОЧTEHО (410071:20)
С
ФAЙЛ ПУCTОЙ
В
0001 _PROGRAM PRIVET;
0002 _( WRITELN('ПРИВЕТ') _).
0003
З
B ФAЙЛ TECT ЗAПИCAHО ЗОH: 1 (410071:20)
С
0001 _PRОGRAM PRIVET;
0002 _'_'_'[D[D[C[C [D[D[D[D[D[D[D [D[D[D_( WRITELN('ПPИBET') _).
2 _( WRITELN('ПРИВЕТ') _).
0002 _( WRITELN('ПPИBET') _)
З
B ФAЙЛ TECT ЗAПИCAHО ЗОH: 1 (410071:20)
С
0001 _PRОGRAM PRIVET;
0002 _( WRITELN('ПPИBET') _)
К
ПАС ТЕСТ-ЗОНГП ТЕСТ1
ПACKAЛЬ-ABTОKОД 9.(09.12.88)
BCTPETИЛCЯ KОHEЦ ФAЙЛA
С ТЕСТ1
РЕД ТЕСТ1
ПPОЧTEHО (410111:1)
С
ФAЙЛ ПУCTОЙ

Похоже, что-то делаю не так

[spamsink]

При исправлении строки точку в конце программы забыли.

[azizz8618]

КТЛ
ИMЯ HAЧAЛО ДЛИHA
ИHTPУK 001 020
TECT 021 020
TECT1 041 001
РЕД ТЕСТ
ПPОЧTEHО (410071:20)
С
0001 _PRОGRAM PRIVET;
0002 _( WRITELN('ПPИBET') _)
П2 /_)/_)./
0002 _( WRITELN('ПPИBET') _).
З
B ФAЙЛ TECT ЗAПИCAHО ЗОH: 1 (410071:20)
С
0001 _PRОGRAM PRIVET;
0002 _( WRITELN('ПPИBET') _).
К
ПАС ТЕСТ-ЗОНГП ТЕСТ1
ПACKAЛЬ-ABTОKОД 9.(09.12.88)
HET ABTОKОД TPAHCЛЯTОPA
KОHEЦ CEAHCA

[spamsink]

Я так вижу, что замечание

Для запуска пульта используйте https://github.com/besm6/bega-re/blob/master/pult2.b6

осталось проигнорировано.

[vak]

Здесь, вероятно, вызов по ключу PULT под SIMH, а там прописан диск 2148.

Ключ:

  РULТ    ТЕРМ 01  ПАСП П1

Паспорт:

  П1    ОЗУ 32‾ВРЕ 200‾ТЕЛ‾РОС 0‾ТРА 40‾ДИС 40(2148)‾ДИС 57(2148)‾ВХО 2000‾ЕВ2000К000103003000500112К000703000К000103001

На диске 2148 нет паскаль компилятора, насколько я понимаю. Нужен диск 2248. То есть ключ PULT не годится. Надо завести новый паспорт, скажем П4 (потому что П2 и П3 уже есть), и назначить его на диск 2248. И ключ паспорту П4, скажем ПУЛЬТ.

[azizz8618]

PULT2 4199
Ф001
HУ,BACЯ,ПОГОДИ!!!
BЦП=0+0 CОTЫX CEK.ОCT=119.BPEMЯ БЭCM=21.36.39
KОHEЦ CEAHCA
Что не так?

[spamsink]

Пульт нельзя запускать под шифром 4199 (сделано якобы для защиты от каких-то хакерских действий).

[vak]

Подозреваю, что Вася здесь не абстрактный, а вполне конкретный Василий Долматов "ReedCat". :)
Спросите в группе бэсм6.

[azizz8618]

ПАС ТЕСТ-ЗОНГП ТЕСТ1
ПACKAЛЬ-ABTОKОД 9.(09.12.88)
MAXADR=00035
HA БОБ 2061 ЗAПИCЬ 0001 ЗОH C 410111 ЗОHЫ(TECT1 )
BCE CДEЛAHО.
Все вроде бы нормально, если через старый паспорт ПУЛЬТа запускать. Теперь нужно загрузить скриптом Посадку на Луну и сделать для неё паспорт. Займусь завтра

[azizz8618]

Пытался вписать в П4 правильные номера дисков 2148(40) и 2248(57) и что-то испортил в ПУЛЬТе. Даже PULT 5555не хочет запускаться, но запускается PULT 5216. PULT2 запускается, но при попытке трансляции в паскале, выдает
ПАС ТЕСТ
ПACKAЛЬ-ABTОKОД 9.(09.12.88)
HET ABTОKОД TPAHCЛЯTОPA
KОHEЦ CEAHCA
Что я сделал неправильно? Вроде бы вы в паспорте П1 не проставляли конкретную зону (1000)?

[azizz8618]

Тут возникла еще одна неприятность. Постоянные "залипания" ПУЛЬТа, пытался остановить его при помощи директривы ОСТ, не вышло
ВЦПП
T3 555500000000 42 00.00.00 00.01.59 5 000

КТО
T3 555500000000 42 BAKУЛEHKО C. ЗП1 PULT
ОСТ 42
ECTЬ
ВЦПП
T3 555500000000 42 00.00.00 00.01.59 5 000

[spamsink]

ОСТ просто останавливает процесс (присваивает ему нулевой квант времени, последнее поле в выдаче ВЦПП), как kill -STOP. Чтобы убить процесс (kill -KILL), дается команда ВКН.

В Диспаке была недоработка, связанная с тем, что убивался только активный процесс; при зависании нескольких процессов по обмену приходилось перевызывать машину из-за дефицита каналов выполнения.

[spamsink]

Судя по номеру терминала (3), возможно, проблема в том, что кто-то отключился от телнета, не выйдя из Пульта. Тогда повторное подключение должно помочь.

[azizz8618]

Поставил PULT2 -ЗП напротив диска 2061, теперь PULT2 не запускается. Что я сделал неправильно?
ПACП-ВЫД
00000 П4 060
00001 ОЗУ 32^
00002 BPE 200^
00003 TEЛ^
00004 PОC 0^
00005 TPA 40^
00006 ДИC 40(2148)^
00007 ДИC 57(2248)^
00008 ДИC 41(2061)-ЗП^
00009 ДИC 44(2071)^
00010 ДИC 45(2062)^
00011 ДИC 43(2070)^
00012 BXО 2000^
00013 E
ИДTИ?НАЧ
ПACП-НАЧ
ЧTО- КНЦ
KОHEЦ CEAHCA
PULT2 5555
HBBE

[spamsink]

-ЗП должно быть внутри скобок.

ДИC 41(2061-ЗП)^