Лунолет-1 для DM42 / Free42 / HP42s

Уважаемый Ajaja предоставил программу Лунолет-1 для DM42/Free42. Сходство архитектур позволяет просто брать программы от МК-61/52 и покомандно вводить в DM42/Free42 почти без изменений:

00 { 183-Byte Prgm }
01>LBL "LUN1"  27 RCL "B"     53>LBL 50      79 STO "A"    
02 RCL "D"     28 -           54 ÷           80 RCL "C"    
03 X>=0?       29 ÷           55 STO 08      81 RCL 02     
04 GTO 09      30 RCL ST X    56 RCL 05      82 RCL 00     
05 RCL ST X    31 RCL 08      57 RCL "D"     83 ×          
06 RCL 08      32 ×           58 +           84 -          
07 ÷           33 GTO 90      59 ÷           85 STO "C"    
08 X<>Y        34>LBL 33      60 RCL 06      86 RCL "D"    
09 XEQ 90      35 RCL "D"     61 ×           87 RCL 01     
10>LBL 09      36 X=0?        62 STO 03      88 -          
11 RCL "A"     37 GTO 86      63>LBL 59      89 STO "D"    
12 X=0?        38 RCL 03      64 RCL 04      90 GTO "LUN1" 
13 GTO 43      39 X^2         65 -           91>LBL 86     
14 X>=0?       40 SQRT        66 RCL 02      92 RCL 06     
15 GTO 33      41 RCL 07      67 ×           93>LBL 87     
16 2           42 -           68 RCL "B"     94 RCL 09     
17 ×           43 X>=0?       69 +           95 STOP       
18 RCL ST X    44 GTO 87      70 STO "B"     96 CLX        
19 RCL 04      45>LBL 43      71 LASTX       97>LBL 90     
20 RCL 03      46 RCL "B"     72 +           98 STO 01     
21 -           47 RCL "A"     73 2           99 X<>Y       
22 ×           48 STOP        74 ÷           100 STO 02    
23 RCL "B"     49 STO 01      75 RCL 02      101 X>=0?     
24 X^2         50 STO 02      76 ×           102 GTO 50    
25 +           51 X=0?        77 RCL "A"     103 RCL 03    
26 SQRT        52 GTO 43      78 +           104 GTO 59    
                                             105 .END. 

Полёт Александра Перепёлкина на новом вычислительном устройстве прошёл штатно.

Метки публикаций: 

Комментарии

Куда тут "лайк" ставить? Сунулся по привычке, ан нет! :)

У нас тут нормально, мы без лайков :)

Потеря навыков пилотирования программирования DM42/Free42, стоило перестать практиковаться...

Команда RCL ST X на пятом шаге это RCL деление ST X? Вводится с клавиатуры как RCL деление . ST X?

Просто RCL точка ST X
Это аналог В↑ на МК-61.
Залил сюда все программы легендарного полета Кон-Тики, что когда-то переделывал под HP-42s/Free42: https://0x0.st/-gOm.zip
lun1.hp42s - Лунолет 1
lun2.hp42s - Лунолет 2
lun3.hp42s - Лунолет 3
os1.hp42s - ОС-1
os2.hp42s - ОС-2
atm1.hp42s - Атмосфера 1
atm2.hp42s - Атмосфера 2

Спасибо, да, теперь понял.
Про Лунолеты для HP42 пожалуй, можно сделать отдельную страницу тут на форуме, так как HP42s/Free42 и DM42 владельцев прибавилось чуток :)

Интересно, в полете полете Перепелкина на Лунолете-1 появилось расхождение с каноническими числами - после второго "перегруза 65 ПП 3" в тексте высота и скорость 916 и 166, на DM42 - 795 и 165 соответственно.

Команда вводится так: "Расход" ENTER "Время" R/S ?

Нет, метод ввода я не менял.
Программы переведены на язык HP-42s один в один, максимально приближено к оригиналу.
Т.е. нужно вводить "Расход" ▼ "Время" R/S
В *.hp42s в архиве выше в каждой программе в комментариях приведены соответствующие комманды МК-61/52, чтоб было наглядней.
Проверил сейчас на lun1.hp42s из архива выше. После второго перегруза должно быть:
Y= 166.023285033
X= 915.810791486
Но версия Лунолета-1 там обновленная. Избавился от именных переменных A/B/C/D в пользу регистров 10/11/12/13 и откорректировал эммуляцию работы комманды 85.В/О.

Да, сейчас всё работает, я неправильно команду вводил.

Кстати, нашел вот такой компилятор текста программ в .raw файл, на Питоне.

Я использую Visual Studio Code c расширением HP42S-free42:
https://marketplace.visualstudio.com/items?itemName=JHeilingbrunner.vsco...
Оно и компилировать в *.raw и декомпилировать может, форматирует код, понимает комментарии, и пр.

Кстати, эти программы большей частью подходят и для HP-41. Загружал их в эмулятор V41, эти же *.raw. С DM41X по-идее тоже проблем не должно быть.
Кое-где только требуются минимальные правки. Например, в HP-41 нет проверки X>=0?, команда как XROM 09,31 загружается. Исправляется легко.

Спасибо, не знал, поставил себе тоже. Как раз с комментариями в этом питон-компиляторе плохо