Родословная бейсиков для 580ВМ80

Советские программируемые калькуляторы, микрокомпьютеры и большие ЭВМ, не попавшие в другие разделы

Moderator: Shaos

esl
Writer
Posts: 24
Joined: 23 May 2006 13:40

Родословная бейсиков для 580ВМ80

Post by esl »

провет тут небольшое исследование
возможно будет интересно

http://zx.pk.ru/showthread.php?p=712575#post712575
сразу вывод
большинство бейсиков на бытовых компах пошли от Microsoft Basic 3.2 8k
бейсик для Корвет (и его дети basmsx на апогее и basicлщкмуе на векторе) Microsoft Basic 5.x
и отдельно бейсик для ПК8002 - он явно делался из MSX Basic
почему так утверждаю
у разных MS бейсиков - разные представления таблицы токенов, разные у 3.x,4.x,5.x/msx

под "делался из" я имею в виду, что его дизассемблировали а потом уже вносили изменения.

вот тут сводная табличка https://dl.dropboxusercontent.com/u/490 ... tokens.txt
рассмотрим детальнее Microsoft Basic 3.2 8k

его прямые потомки

бейсик для MICRO-80
и бейсик для Львова (вроде как он одинок)

из MICRO-80 родился

бейсик для РАДИО86-РК
потом на его основе появился Бейсик Микрон,

ну и потом всё пошло - поехало уже из этих источников

причем бейсик для Вектора (тот который 2.5, похоже дитё Микрона)
Last edited by esl on 25 May 2014 01:49, edited 1 time in total.
User avatar
Lavr
Supreme God
Posts: 16703
Joined: 21 Oct 2009 08:08
Location: Россия

Re: Родословная бейсиков для 580ВМ80

Post by Lavr »

esl wrote:провет тут небольшое исследование
возможно будет интересно
Мы тут как-то уже довольно давно тоже провели похожее исследование
с привлечением статистических методов:
"откуда растут уши у советских бейсиков"

возможно, Вам будет интересно сравнить свои выводы с нашими...
iLavr
esl
Writer
Posts: 24
Joined: 23 May 2006 13:40

Re: Родословная бейсиков для 580ВМ80

Post by esl »

Lavr wrote:возможно, Вам будет интересно сравнить свои выводы с нашими...
конечно читал ;)

основное почему стал копать -
обнаружил что редактор из корвета - наследник микрософта (http://zx.pk.ru/showthread.php?t=23448)
далее что Бейсик Корвет - не прямое дитя basic micro-80

тогда стал копать в сторону альтаир басиков
обноружил зоопарк
3.2 4k
4.0 4k
4.0 8k
5.x 8k

и у них есть различия
а потом нашелся (только в виде .TAP для эмулятора Альтаира 3.2 8k)
написал конвертор, сделал из него .BIN -
стал копать, получилась призабавная картинка

и вот он прародитель.
User avatar
Lavr
Supreme God
Posts: 16703
Joined: 21 Oct 2009 08:08
Location: Россия

Post by Lavr »

В той же ветке мы пробовали какой-то древний Васик от Билла:

Image

Это не он, тот самый "прародитель"?
iLavr
esl
Writer
Posts: 24
Joined: 23 May 2006 13:40

Post by esl »

Lavr wrote:Это не он, тот самый "прародитель"?
это его младший брат, 4к

Code: Select all

4K BASIC Ver 3-2_.bin      | 8K BASIC Ver 3-2_.bin     
----------------------------------------------------------
81:     END 0057 00d2 01f7 | 81:     END 0088 0170 05f5
82:     FOR 005a 00d4 03d5 | 82:     FOR 008b 0172 0538
83:    NEXT 005d 00d6 0649 | 83:    NEXT 008e 0174 0927
84:    DATA 0061 00d8 04f5 | 84:    DATA 0092 0176 06fd
85:   INPUT 0065 00da 05e4 | 85:   INPUT 0096 0178 085c
86:     DIM 006a 00dc 0716 | 86:     DIM 009b 017a 0b24
87:    READ 006d 00de 05f6 | 87:    READ 009e 017c 0883
88:     LET 0071 00e0 0502 | 88:     LET 00a2 017e 0714
89:    GOTO 0074 00e2 04cf | 89:    GOTO 00a5 0180 06cb
8a:     RUN 0078 00e4 02a1 | 8a:     RUN 00a9 0182 06ae
8b:      IF 007b 00e6 0516 | 8b:      IF 00ac 0184 0782
8c: RESTORE 007d 00e8 0469 | 8c: RESTORE 00ae 0186 05df
8d:   GOSUB 0084 00ea 04be | 8d:   GOSUB 00b5 0188 06ba
8e:  RETURN 0089 00ec 04df | 8e:  RETURN 00ba 018a 06e7
8f:     REM 008f 00ee 04f7 | 8f:     REM 00c0 018c 06ff
90:    STOP 0092 00f0 01f7 | 90:    STOP 00c3 018e 05f3
91:   PRINT 0096 00f2 0557 | 91:     OUT 00c7 0190 0fa4
92:    LIST 009b 00f4 038e | 92:      ON 00ca 0192 0766
93:   CLEAR 009f 00f6 02a6 | 93:    NULL 00cc 0194 062e
94:     NEW 00a4 00f8 0295 | 94:    WAIT 00d0 0196 0faa
95:    TAB( 00a7 .... .... | 95:     DEF 00d4 0198 0cce
96:      TO 00ab .... .... | 96:    POKE 00d7 019a 10aa
97:    THEN 00ad .... .... | 97:   PRINT 00db 019c 079b
98:    STEP 00b1 .... .... | 98:    CONT 00e0 019e 061b
99:       + 00b5 .... .... | 99:    LIST 00e4 01a0 04f1
9a:       - 00b6 .... .... | 9a:   CLEAR 00e8 01a2 0685
9b:       * 00b7 .... .... | 9b:   CLOAD 00ed 01a4 1040
9c:       / 00b8 .... .... | 9c:   CSAVE 00f2 01a6 1020
9d:       > 00b9 .... .... | 9d:     NEW 00f7 01a8 03a1
9e:       = 00ba .... .... | 9e:    TAB( 00fa .... ....
9f:       < 00bb .... .... | 9f:      TO 00fe .... ....
a0:     SGN 00bc .... .... | a0:      FN 0100 .... ....
a1:     INT 00bf .... .... | a1:    SPC( 0102 .... ....
a2:     ABS 00c2 .... .... | a2:    THEN 0106 .... ....
a3:     USR 00c5 .... .... | a3:     NOT 010a .... ....
a4:     SQR 00c8 .... .... | a4:    STEP 010d .... ....
a5:     RND 00cb .... .... | a5:       + 0111 .... ....
a6:     SIN 00ce .... .... | a6:       - 0112 .... ....
                           | a7:       * 0113 .... ....
                           | a8:       / 0114 .... ....
                           | a9:       ^ 0115 .... ....
                           | aa:     AND 0116 .... ....
                           | ab:      OR 0119 .... ....
                           | ac:       > 011b .... ....
                           | ad:       = 011c .... ....
                           | ae:       < 011d .... ....
                           | af:     SGN 011e .... ....
                           | b0:     INT 0121 .... ....
                           | b1:     ABS 0124 .... ....
                           | b2:     USR 0127 .... ....
                           | b3:     FRE 012a .... ....
                           | b4:     INP 012d .... ....
                           | b5:     POS 0130 .... ....
                           | b6:     SQR 0133 .... ....
                           | b7:     RND 0136 .... ....
                           | b8:     LOG 0139 .... ....
                           | b9:     EXP 013c .... ....
                           | ba:     COS 013f .... ....
                           | bb:     SIN 0142 .... ....
                           | bc:     TAN 0145 .... ....
                           | bd:     ATN 0148 .... ....
                           | be:    PEEK 014b .... ....
                           | bf:     LEN 014f .... ....
                           | c0:    STR$ 0152 .... ....
                           | c1:     VAL 0156 .... ....
                           | c2:     ASC 0159 .... ....
                           | c3:    CHR$ 015c .... ....
                           | c4:   LEFT$ 0160 .... ....
                           | c5:  RIGHT$ 0165 .... ....
                           | c6:    MID$ 016b .... ....
DimkaM
Maniac
Posts: 261
Joined: 22 Jun 2005 04:35
Location: МО Россия

Post by DimkaM »

вот тут сводная табличка https://dl.dropboxusercontent.com/u/...sic_tokens.txt
ссылка не работает
esl
Writer
Posts: 24
Joined: 23 May 2006 13:40

Post by esl »

DimkaM wrote:
вот тут сводная табличка https://dl.dropboxusercontent.com/u/...sic_tokens.txt
ссылка не работает
поправил. в оригинальном посте (по сслыке) работала