1 Отредактировано Voldemar0 (02-04-2017 20:57)

Тема: Агат-Калькулятор

Пару раз в коллекциях попадался непонятный удалённый файлик, весом около 90 блоков. Сейчас очередной раз на него наткнулся - он очень похож на некий файл S1 с эпловского диска, о котором (диске, не файле) сказано только:

                   PRINT "EO-1100"
                   PRINT "AUTOMATED LENS EVALUATION"
                   PRINT "TEST STATION":
                   PRINT "ORIEL GMBH"

Если запустить S1 в эпле, он явно пытается что-то интерактивно делать, немного похожее на работу электронной таблицы, но не показывая самой таблицы (т.е. только вводить в клетки значения и переходить между клетками) - всё только в верхней строке.

Так вот тот файлик, что попадался, он отличается тем, что кой где проскакивает строчка : "агат калькулятор ниивк".

Сдаётся мне, что это действительно могла быть попытка (законченная ли?) переноса какой -то расчётной проги на Агат, судя по размеру - нетривиальной, явно понимавшей какой-то встроенный язык (видны таблицы ключевых слов). Но нигде ни живой такой проги на агат, ни упоминания о ней видеть не доводилось.
Так как файл был удалённый, возможно, он и не работал ни на семёрке ни на девятке тем более, может быть он был под агат-4 ?

Даже начало этого файла выглядит немного безумным:

0300-  A9 00 ..   ")?"    LDA  #$00   '?
0302-  85 52 ..   "?r"    STA  $52
0304-  A9 C0 ..   ")@"    LDA  #$C0   '@
0306-  85 53 ..   "?s"    STA  $53
0308-  A0 00 ..   " ?"    LDY  #$00   '?
030A-  B1 52 ..   "1r"    LDA  ($52), Y
030C-  C9 A0 ..   "I "    CMP  #$A0   ' 
030E-  F0 05 ..   "П?"    BEQ  $0315
0310-  E6 53 ..   "Фs"    INC  $53
0312-  4C 0A 03   "l??"   JMP  $030A
0315-  91 52 ..   "?r"    STA  ($52), Y
0317-  4C D0 07   "lP?"   JMP  $07D0

Но это не разрушенный код, хотя его логика выглядит странной.
Никто не хочет попытаться его довести до рабочего состояния ?

2

Re: Агат-Калькулятор

Гугл возвращает ссылку на вот такой патент: https://www.google.ch/patents/US4487502

В нем описан автоматизированный комплекс для измерения параметров инфракрасных линз. Поскольку такие линзы делаются из странных материалов, вроде германия, глазками оценить качество формируемого ими изображения невозможно. Поэтому используется некая установка из источника инфракрасного света, датчика изображения и механизмов для перемещения линзы.

Код в начале файла видимо и ищет плату управления этой установки, хотя зачем опрашивать адрес клавиатуры - не очень понятно. Возможно, если держать пробел при запуске программы, она будет думать, что плата присутствует?

Ну и поскольку самой установки видимо в наличии нет, непонятно, что дальше делать с этой программой.
Ну разве что предположить, что программа построена поверх какой-то реальной электронной таблицы и попытаться ее отковырять?