откуда растут уши у советских бейсиков

Lavr · Post by **Lavr** » 26 Jul 2011 00:59

MC68k wrote: и как? Много пасхальных яиц там лежит?

А я не искал яиц, я смотрел, как бы в структуру законченной посторонней программы, не патча её, зацепиться некоторыми нужными мне "приблудами"...
А что получилось я показал вот здесь:
viewtopic.php?t=9631&start=0
и этот трюк с всплывающим меню применим к большому количеству других программ, как, впрочем, и внешняя резидентная синтаксическая подсветка.

Lavr · Post by **Lavr** » 04 Jun 2012 08:20

Shaos wrote:Задумал я тут написать простую программку, которая будет считать процент "заимствования" кода одной программы в другой (применительно к 8080 процессору).
...
Чтобы узнать насколько радиолюбители Советского Союза обязаны Биллу Гейцу...
Ну и вообще - интересно было померять уровень плагиата в программках для 8080.

Shaos, а вот интересно, библиотека математических программ от "ЮТ-88" тоже
потянута из произведений Билла Гейца?

Можно её протестировать твоей программой?
http://retro.h1.ru/UT88/CPU/Calc.php
Бинарник, как мне кажется, есть здесь:
http://zxbyte.ru/ut88.htm

shoorick · Post by **shoorick** » 06 Jun 2012 11:33

нада еще игнорировать параметры lda/sta - тоже могут съезжать

Shaos · Post by **Shaos** » 06 Jun 2012 12:21

Lavr wrote:
Shaos wrote:Задумал я тут написать простую программку, которая будет считать процент "заимствования" кода одной программы в другой (применительно к 8080 процессору).
...
Чтобы узнать насколько радиолюбители Советского Союза обязаны Биллу Гейцу...
Ну и вообще - интересно было померять уровень плагиата в программках для 8080.
Shaos, а вот интересно, библиотека математических программ от "ЮТ-88" тоже
потянута из произведений Билла Гейца?

Можно её протестировать твоей программой?
http://retro.h1.ru/UT88/CPU/Calc.php
Бинарник, как мне кажется, есть здесь:
http://zxbyte.ru/ut88.htm

я сходу не нашёл нужный ром - ткни пальцем, плиз

Lavr · Post by **Lavr** » 06 Jun 2012 12:56

Shaos wrote:я сходу не нашёл нужный ром - ткни пальцем, плиз

Положил вот здесь: Math.rar (под рукой было).
Там:
CALLS.I80 - это бинарник (2К),
CALS.I80 - это ассемблерный исходник (22К).

Я поковырялся из любопытства, как пишут такие вещи...
Может кому ещё будет интересно.

Shaos · Post by **Shaos** » 06 Jun 2012 14:34

ну вроде явно торчащих ушей биллового бейсика я не вижу да и кода не очень много

Lavr · Post by **Lavr** » 06 Jun 2012 16:39

Shaos wrote:ну вроде явно торчащих ушей биллового бейсика я не вижу да и кода не очень много

Ну это и не Васик, собственно, а библиотека функций с плавающей точкой.
Поэтому она сравнительно небольшая - 2КБайт.

Я предположил, что её "подрали" из какого-то Васюка... Но ты говоришь, что нет.

Shaos · Post by **Shaos** » 06 Jun 2012 20:53

Вот результат:

Code: Select all

bash-4.1$ cmp8080 UI88.bin altair4k.bin 
UI88.bin loaded : 2048 bytes
altair4k.bin loaded : 4096 bytes
2.44 percent copy (max=5 maxa=0x00B6 maxb=0x08D9)

bash-4.1$ cmp8080 UI88.bin altair8k.bin 
UI88.bin loaded : 2048 bytes
altair8k.bin loaded : 8192 bytes
3.22 percent copy (max=6 maxa=0x00DD maxb=0x1949)

bash-4.1$ cmp8080 UI88.bin trs80-l1.rom 
UI88.bin loaded : 2048 bytes
trs80-l1.rom loaded : 4096 bytes
1.61 percent copy (max=8 maxa=0x0638 maxb=0x0FE8)

bash-4.1$ cmp8080 UI88.bin trs80-l2.rom 
UI88.bin loaded : 2048 bytes
trs80-l2.rom loaded : 12288 bytes
7.03 percent copy (max=8 maxa=0x01EA maxb=0x2CBB)

bash-4.1$ cmp8080 UI88.bin mbasic.com 
UI88.bin loaded : 2048 bytes
mbasic.com loaded : 24320 bytes
10.06 percent copy (max=11 maxa=0x0314 maxb=0x2CFA)

bash-4.1$ cmp8080 UI88.bin galaksij.bin 
UI88.bin loaded : 2048 bytes
galaksij.bin loaded : 4096 bytes
0.68 percent copy (max=5 maxa=0x02DC maxb=0x0A7E)

Что по всей видимости означает, что закономерностей не найдено...

Lavr · Post by **Lavr** » 07 Jun 2012 04:07

Shaos wrote:Вот результат:
...
Что по всей видимости означает, что закономерностей не найдено...

Интересно... выходит автор "ЮТ-88" сам писал математическую библиотеку...

Значит не зря я её декомпильнул с целью посмотреть код.

В принципе, если я правильно помню с давних времён (но могу и ошибаться),
умножение и деление чисел с плавающей точкой в Васюках выполняется
по принцыпу логарифмической линейки...
То есть складываются и вычитаются логарифмы.

Так мне по крайней мере показалось, когда ковырялся в древних Васюках...

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

Если, к примеру, верхушки синуса выходили за экран вверх, то они появлялись снизу.

Кстати говоря, в Васюках типа GWBASIC такого эффекта нет.
Я уж и не помню, решил я тогда проблему или нет... IBM уже на пятки наступала...

Lavr · Post by **Lavr** » 15 Jul 2012 14:39

Прочитал вот тут, что Вильнусский Васик был полностью доморощенным...

Larsen wrote:Вильнюсовский Бейсик для БК и УКНЦ. Единственный Бейсик в мире с шитым кодом.
Он на БКшке работал быстрее чем GW Basic на PC/XT, а УКНЦ была в 2 раза быстрее
писюка.

MC68k · Post by **MC68k** » 16 Jul 2012 08:06

компилятор же

Lavr · Post by **Lavr** » 16 Jul 2012 08:10

MC68k wrote:компилятор же

Ну не совсем... компилятор в шитый код по сути.

По ссылке обсуждают, что шитый код на PDP-11 выполнялся быстрее,
чем нативный.
Даже как-то сомнение вызывает...

Lavr · Post by **Lavr** » 20 Jul 2012 05:38

ты больно внезапный... я такого Васюка не знаю, и не в курсе куда его запилили...

дампи этот самый свой Васюк и reverse его, чтобы тьма тут не сгущалась.

Lavr · Post by **Lavr** » 21 Jul 2012 09:29

А кто-нибуть знает НЕ СР/М-овские и НЕ ZX-SP версии компилирующих Васиков?

СР/М-овский у меня был - он очень кривой...

Спектрумовские опираются на Спектрум-ПЗУ, что неудобно...

Lavr · Post by **Lavr** » 21 Jul 2012 16:34

MC68k wrote:У меня есть компилятор MSX Basic.

Под какой процессор расточенный или из-под какой системы?