You are here
Лунолет-1 для DM42 / Free42 / HP42s
вт, 18/07/2017 - 09:25 - Vitasam
Уважаемый 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.
Полёт Александра Перепёлкина на новом вычислительном устройстве прошёл штатно.
Метки публикаций:
»
- Vitasam's blog
- Log in or register to post comments
- 5460 просмотров
Комментарии
Куда
Куда тут "лайк" ставить? Сунулся по привычке, ан нет! :)
У нас тут нормально, мы без лайков :)
У нас тут нормально, мы без лайков :)
Команда RCL ST X?
Потеря навыков
пилотированияпрограммирования DM42/Free42, стоило перестать практиковаться...Команда RCL ST X на пятом шаге это 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
Я использую 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 загружается. Исправляется легко.
VS Code
Спасибо, не знал, поставил себе тоже. Как раз с комментариями в этом питон-компиляторе плохо
Ошибка в Лунолет-1
Доброе время суток!
Нашел ошибку в Лунолет-1 (https://pmk.arbinada.com/ru/comment/13378#comment-13378). В вашем варианте она тоже присутствует (адреса 80-85). Что думаете по этому поводу?