Многообразие океанских бейсиков

[ivagor]

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

- - - Добавлено - - -

и UNTRAP там есть

- - - Добавлено - - -

Цитата - The first version fit in 4K, with integer arithmetic only. It grew to 8K when I added a floating point package, and to 14K as I added more features. Т.е. был 8 Кб вариант.
Из руководства узнал, в чем была идея директивы NULL.
И все же есть заметные различия XY и I в некоторых моментах. Понятно, что кучи всего очень полезного в 8 Кб версии нет. Но и кое-что общее реализовано иначе. Например в XY это оператор, а в I - функция.

[ivagor]

Еще одна похожая черта XY и I - пятибайтный "распакованный" формат чисел. Но вот математические процедуры сильно отличаются, и настолько сильно, что это могло быть сделано специально. Причем даже в мелочах, например байты чисел в обратном порядке, в I cos считается через sin, в XY - наоборот и там много такого. Как я понял из цитаты, приведенной в предыдущем посте, автор для 8K версии математику написал сам ("It grew to 8K when I added a floating point package"), а в поздней навороченной версии, исходники которой теперь доступны, математику зачем-то переписали ("I wrote all except the floating point modules finout, fmath, fpbcd, and xmath.").
Интересно, что IBASIC для океана скорее всего единственный дошедший до наших дней вариант ранних версий XYBASIC.

[tnt23]

Могли существовать варианты, разрабатываемые в то же время независимо в различных ВЦ (часто околонаучных, с хорошими связями с зарубежьем по поставкам вычислительной техники и ПО), причем не только на мини-, но и на больших ЭВМ. Наверняка существовали диалекты бейсика для ЕС ЭВМ, там тоже хорошо бы пошарить из академических соображений.

[ivagor]

Интересно бы увидеть бейсик для 8080 полностью местного разлива, чтобы оттуда не торчали уши микрософта или еще кого-нибудь западного.

Наверняка существовали диалекты бейсика для ЕС ЭВМ

Наверняка существовали, но вроде ЕС c ВМ80 не было.

[tnt23]

На ЕС и СМ существовала кросс-компиляция, что при наличии исходных текстов произвольного бейсика могло облегчать портирование на другие архитектуры.

- - - Добавлено - - -

Интересно бы увидеть бейсик для 8080 полностью местного разлива, чтобы оттуда не торчали уши микрософта или еще кого-нибудь западного.

Когда-то в ЛГУ пилили отечественный компилятор АЛГОЛ-68, если не ошибаюсь. Так что вполне могли существовать и советские бейсики (ГОСТ на бейсик был принят в 1988 году, хехе).

[ivagor]

Советские бейсики несомненно были (БКшный вроде полностью свой?), но я конкретно про нацеленные на 8080.
Кросс-средства на ЕС тоже явно были, но не известен (мне) результат их использования для узкой и специфической задачи разработки бейсика под 8080 с нуля.

[ivagor]

Пара слов про представление чисел в IBASIC. Всего, как уже писал, 5 байт. Из них три байта - мантисса в BCD (!) формате (шесть цифр). Байт - знак (младший бит 0 - плюс, 1 - минус). И последний байт - порядок (десятичный, не двоичный!).

Интересно бы увидеть бейсик для 8080 полностью местного разлива, чтобы оттуда не торчали уши микрософта или еще кого-нибудь западного.

Похоже вот пример

[tnt23]

ivagor, бейсик, написанный на форте - это жесть

[ivagor]

Форт на бейсике был бы еще жестче, но это совсем не практично, разве что на спор кто сделал бы. Или даже форт на бейсике на форте на бейсике (уж чтобы наверняка).

[ivagor]

математику зачем-то переписали

Немного углубился и у меня создалось впечатление, что переписали потому что первая реализация была не очень качественная. На примере функции SIN (экспонента, логарифм и арктангенс просто не были реализованы в этой версии XY/IBASIC). Если сравнить с микрософтовскими бейсиками, про которые я писал в общей теме, то там SIN считается рядом с 5 слагаемыми, а в IBASIC - с 6. Но микрософтовцы использовали грамотно усеченный ряд (модифицированные коэффициенты), а в IBASIC буквально школьная реализация - взяты 6 первых коэффициентов ряда Маклорена. Еще своеобразный момент - SIN в IBASIC в зависимости от аргумента считается или рядом для SIN или рядом для COS, в микрософтовском конечно такого нет. В итоге IBASIC считает SIN медленнее микрософтовского и менее точно. Скорее всего в получивших распространение следующих версиях XYBASIC математику подтянули до конкурентоспособного состояния.

Байт - знак (младший бит 0 - плюс, 1 - минус).

Уточню: 0 в этом байте - плюс, не 0 - минус.