Speccy - наш выбор!

Speccy - наш выбор! (http://zx-pk.ru/index.php)
-   Разное (http://zx-pk.ru/forumdisplay.php?f=90)
-   -   Родословная бейсиков для 580ВМ80 (http://zx-pk.ru/showthread.php?t=23483)

esl 25th May 2014 00:34

Родословная бейсиков для 580ВМ80
 
1 Attachment(s)
Привет всем
такую тему уже пробовали обсуждать, с разной степенью успешности
но у меня есть надежда что наконец можно поставить точку

сразу вывод
большинство бейсиков на бытовых компах пошли от Microsoft Basic 3.2 8k
бейсик для Корвет (и его дети basmsx на апогее и basicvector на векторе) Microsoft Basic 5.x
и отдельно бейсик для ПК8002 - он явно делался из MSX Basic
почему так утверждаю
у разных MS бейсиков - разные представления таблицы токенов, разные у 3.x,4.x,5.x/msx

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

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

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

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

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

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

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

причем бейсик для Вектора (тот который 2.5, похоже дитё Микрона)

немного более детально

в табличке
TokenID, TokenName TokenTextAddr TokenTabAddr TokenCode

Code:

8K BASIC Ver 3-2_.bin    | basic-micri80.bin        | basic80-rk86.bin       
------------------------------------------------------------------------------------
81:    END 0088 0170 05f5 | 81:    CLS 0088 0170 17b3 | 81:    CLS 0088 0170 1765
82:    FOR 008b 0172 0538 | 82:    FOR 008b 0172 0535 | 82:    FOR 008b 0172 0535
83:  NEXT 008e 0174 0927 | 83:  NEXT 008e 0174 091d | 83:  NEXT 008e 0174 091d
84:  DATA 0092 0176 06fd | 84:  DATA 0092 0176 06f9 | 84:  DATA 0092 0176 06f9
85:  INPUT 0096 0178 085c | 85:  INPUT 0096 0178 0852 | 85:  INPUT 0096 0178 0852
86:    DIM 009b 017a 0b24 | 86:    DIM 009b 017a 0b15 | 86:    DIM 009b 017a 0b15
87:  READ 009e 017c 0883 | 87:  READ 009e 017c 0879 | 87:  READ 009e 017c 0879
88:    LET 00a2 017e 0714 | 88:    CUR 00a2 017e 176a | 88:    CUR 00a2 017e 1779
89:  GOTO 00a5 0180 06cb | 89:  GOTO 00a5 0180 06c7 | 89:  GOTO 00a5 0180 06c7
8a:    RUN 00a9 0182 06ae | 8a:    RUN 00a9 0182 06ab | 8a:    RUN 00a9 0182 06ab
8b:    IF 00ac 0184 0782 | 8b:    IF 00ac 0184 0778 | 8b:    IF 00ac 0184 0778
8c:RESTORE 00ae 0186 05df | 8c:RESTORE 00ae 0186 05db | 8c:RESTORE 00ae 0186 05db
8d:  GOSUB 00b5 0188 06ba | 8d:  GOSUB 00b5 0188 06b7 | 8d:  GOSUB 00b5 0188 06b7
8e: RETURN 00ba 018a 06e7 | 8e: RETURN 00ba 018a 06e3 | 8e: RETURN 00ba 018a 06e3
8f:    REM 00c0 018c 06ff | 8f:    REM 00c0 018c 06fb | 8f:    REM 00c0 018c 06fb
90:  STOP 00c3 018e 05f3 | 90:  STOP 00c3 018e 05ef | 90:  STOP 00c3 018e 05ef
91:    OUT 00c7 0190 0fa4 | 91:    OUT 00c7 0190 0f80 | 91:    OUT 00c7 0190 0f80
92:    ON 00ca 0192 0766 | 92:    ON 00ca 0192 075c | 92:    ON 00ca 0192 075c
93:  NULL 00cc 0194 062e | 93:  PLOT 00cc 0194 17c7 | 93:  PLOT 00cc 0194 17af
94:  WAIT 00d0 0196 0faa | 94:  LINE 00d0 0196 1847 | 94:  LINE 00d0 0196 1847
95:    DEF 00d4 0198 0cce | 95:  POKE 00d4 0198 172c | 95:  POKE 00d4 0198 172c
96:  POKE 00d7 019a 10aa | 96:  PRINT 00d8 019a 0791 | 96:  PRINT 00d8 019a 0791
97:  PRINT 00db 019c 079b | 97:    DEF 00dd 019c 0cb0 | 97:    DEF 00dd 019c 0cb0
98:  CONT 00e0 019e 061b | 98:  CONT 00e0 019e 0617 | 98:  CONT 00e0 019e 0617
99:  LIST 00e4 01a0 04f1 | 99:  LIST 00e4 01a0 04ee | 99:  LIST 00e4 01a0 04ee
9a:  CLEAR 00e8 01a2 0685 | 9a:  CLEAR 00e8 01a2 0682 | 9a:  CLEAR 00e8 01a2 0682
9b:  CLOAD 00ed 01a4 1040 | 9b:  MLOAD 00ed 01a4 1905 | 9b:  MLOAD 00ed 01a4 1905
9c:  CSAVE 00f2 01a6 1020 | 9c:  MSAVE 00f2 01a6 18ee | 9c:  MSAVE 00f2 01a6 18ee
9d:    NEW 00f7 01a8 03a1 | 9d:    NEW 00f7 01a8 039d | 9d:    NEW 00f7 01a8 039d
9e:  TAB( 00fa .... .... | 9e:  TAB( 00fa .... .... | 9e:  TAB( 00fa .... ....
9f:    TO 00fe .... .... | 9f:    TO 00fe .... .... | 9f:    TO 00fe .... ....
a0:    FN 0100 .... .... | a0:  SPC( 0100 .... .... | a0:  SPC( 0100 .... ....
a1:  SPC( 0102 .... .... | a1:    FN 0104 .... .... | a1:    FN 0104 .... ....
a2:  THEN 0106 .... .... | a2:  THEN 0106 .... .... | a2:  THEN 0106 .... ....
a3:    NOT 010a .... .... | a3:    NOT 010a .... .... | a3:    NOT 010a .... ....
a4:  STEP 010d .... .... | a4:  STEP 010d .... .... | a4:  STEP 010d .... ....
a5:      + 0111 .... .... | a5:      + 0111 .... .... | a5:      + 0111 .... ....
a6:      - 0112 .... .... | a6:      - 0112 .... .... | a6:      - 0112 .... ....
a7:      * 0113 .... .... | a7:      * 0113 .... .... | a7:      * 0113 .... ....
a8:      / 0114 .... .... | a8:      / 0114 .... .... | a8:      / 0114 .... ....
a9:      ^ 0115 .... .... | a9:      ^ 0115 .... .... | a9:      ^ 0115 .... ....
aa:    AND 0116 .... .... | aa:    AND 0116 .... .... | aa:    AND 0116 .... ....
ab:    OR 0119 .... .... | ab:    OR 0119 .... .... | ab:    OR 0119 .... ....
ac:      > 011b .... .... | ac:      > 011b .... .... | ac:      > 011b .... ....
ad:      = 011c .... .... | ad:      = 011c .... .... | ad:      = 011c .... ....
ae:      < 011d .... .... | ae:      < 011d .... .... | ae:      < 011d .... ....
af:    SGN 011e 0043 131a | af:    SGN 011e 0043 12d4 | af:    SGN 011e 0043 12d4
b0:    INT 0121 0045 13d8 | b0:    INT 0121 0045 1392 | b0:    INT 0121 0045 1392
b1:    ABS 0124 0047 132e | b1:    ABS 0124 0047 12e8 | b1:    ABS 0124 0047 12e8
b2:    USR 0127 0049 065f | b2:    USR 0127 0049 1736 | b2:    USR 0127 0049 1736
b3:    FRE 012a 004b 0c98 | b3:    FRE 012a 004b 0c7a | b3:    FRE 012a 004b 0c7a
b4:    INP 012d 004d 0f99 | b4:    INP 012d 004d 0f75 | b4:    INP 012d 004d 0f75
b5:    POS 0130 004f 0cc6 | b5:    POS 0130 004f 0ca8 | b5:    POS 0130 004f 0ca8
b6:    SQR 0133 0051 15a6 | b6:    SQR 0133 0051 1554 | b6:    SQR 0133 0051 1554
b7:    RND 0136 0053 167c | b7:    RND 0136 0053 162a | b7:    RND 0136 0053 162a
b8:    LOG 0139 0055 11c4 | b8:    LOG 0139 0055 117e | b8:    LOG 0139 0055 117e
b9:    EXP 013c 0057 15eb | b9:    EXP 013c 0057 1599 | b9:    EXP 013c 0057 1599
ba:    COS 013f 0059 16b2 | ba:    COS 013f 0059 1660 | ba:    COS 013f 0059 1660
bb:    SIN 0142 005b 16b8 | bb:    SIN 0142 005b 1666 | bb:    SIN 0142 005b 1666
bc:    TAN 0145 005d 1715 | bc:    TAN 0145 005d 16c3 | bc:    TAN 0145 005d 16c3
bd:    ATN 0148 005f 172a | bd:    ATN 0148 005f 16d8 | bd:    ATN 0148 005f 16d8
be:  PEEK 014b 0061 10a3 | be:  PEEK 014b 0061 1724 | be:  PEEK 014b 0061 1724
bf:    LEN 014f 0063 0f0a | bf:    LEN 014f 0063 0ee7 | bf:    LEN 014f 0063 0ee7
c0:  STR$ 0152 0065 0d3a | c0:  STR$ 0152 0065 0d1f | c0:  STR$ 0152 0065 0d1f
c1:    VAL 0156 0067 0fec | c1:    VAL 0156 0067 0fc8 | c1:    VAL 0156 0067 0fc8
c2:    ASC 0159 0069 0f19 | c2:    ASC 0159 0069 0ef6 | c2:    ASC 0159 0069 0ef6
c3:  CHR$ 015c 006b 0f28 | c3:  CHR$ 015c 006b 0f04 | c3:  CHR$ 015c 006b 0f04
c4:  LEFT$ 0160 006d 0f38 | c4:  LEFT$ 0160 006d 0f14 | c4:  LEFT$ 0160 006d 0f14
c5: RIGHT$ 0165 006f 0f68 | c5: RIGHT$ 0165 006f 0f44 | c5: RIGHT$ 0165 006f 0f44
c6:  MID$ 016b 0071 0f72 | c6:  MID$ 016b 0071 0f4e | c6:  MID$ 016b 0071 0f4e

видно что кол-во и расположение токенов совпадает, адресса очень близки
часть операторов похоже просто запатчили (заодно пожертвовав END)
причем длинна новых слов совпала ;)

Code:

END  -> CLS
LET  -> CUR
NULL  -> PLOT
WAIT  -> LINE
CLOAD -> MLOAD
CSAVE -> MSAVE

и непонятно зачем сдвинуты DEF,POKE,PRINT

дальше таблица токенов сохраняется, т.е все дальнейшие - потомки

в микроне расширина таблица токенов, но строго ПОСЛЕ стандартных
Code:

c7:SCREEN$( 1eee 1fd8 1a39
c8:  INKEY$ 1ef6 1fda 1685
c9:      AT 1efc 1fdc 009b
ca:      & 1efe 1fde 16a9
cb:    BEEP 1eff 1fe0 0279
cc:  PAUSE 1f03 1fe2 7913
cd:  VERIFY 1f08 1fe4 0f11
ce:    HOME 1f0e 1fe6 4e7b
cf:    EDIT 1f12 1fe8 7b10
d0:  DELETE 1f16 1fea 10b0
d1:  MERGE 1f1c 1fec 137f
d2:    AUTO 1f21 1fee 5014
d3:  HIMEM 1f25 1ff0 09a6
d4:      @ 1f2a 1ff2 a546
d5:    ASN 1f2b 1ff4 4d09
d6:    ADDR 1f2e 1ff6 2849
d7:      PI 1f32 1ff8 2943
d8:  RENUM 1f34 1ffa 4f52
d9:    ACS 1f39 1ffc 2f4e
da:      LG 1f3c 1ffe 3838
db:  LPRINT 1f3e 2000 6e65
dc:  LLIST 1f44 2002 6075

бейсик 2.5 для вектора - расширение микрона
Code:

dd:  SCREEN 23b5 24ac 0c2e
de:  COLOR 23bb 24ae cde9
df:    GET 23c0 24b0 1f33
e0:    PUT 23c3 24b2 3bcd
e1:  BSAVE 23c6 24b4 f50f
e2:  BLOAD 23cb 24b6 f0e6
e3:    PLAY 23d0 24b8 b032
e4:  PAINT 23d4 24ba f13d
e5:  CIRCLE 23d9 24bc 0fe6

а basicsig явно из micro-80


бейсик Суры - на основе того-же micro80 но расширен в сторону MSX, опять же все расширения - после MICRO-80

ну и отдельно идёт бейсик для Львов-ПК01
он явно самостоятельно делался из MS3.2 8k

пациенты - в аттаче

ваши коментарии ?

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

http://altairbasic.org/ откоментированый Altair Basic 3.2 4k (у него меньше мат функций, но все структуры - копия)

на страничке http://msx.hansotten.com/index.php?page=msxsw
есть TRS-80 Basic detailed description и TRS-80 Basic source code
это дизасм TRS-80 basic Level 2 (Microsoft 5.x)

ну и наконец http://sourceforge.net/projects/msxsyssrc/
дизасмы всех MSX ROM (с бейсиками в том числе)

esl 25th May 2014 02:44

разница MS BASIC 3.2 4K vs 8K

Code:

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 .... ....


ivagor 25th May 2014 07:17

esl, респект!
Специалистовский (первоначальный) тоже из серии 3.2, может транзитом через микро-80, может как-то иначе. Потом, насколько помню, и микрон адаптировали. Кстати, для спеца видел некий RDS-бейсик (если не путаю название), внутри я его не смотрел, но помню, что он был маленький (то ли на основе 4k, то ли даже родственник тини-бейсика)
Орионовский бейсик тоже родственник 3.2 и тоже, возможно, транзитом через микро-80.
Про остальные, которые я смотрел, ты уже написал :)

ivagor 25th May 2014 12:27

Quote:

Originally Posted by ivagor (Post 712600)
для спеца видел некий RDS-бейсик

Проклятый склероз. Не RDS, а RDK (RDK PROMPT BASIC V3.2 3K). Несмотря на V3.2 поверхностный просмотр показал, что на альтаировский/микрософтовский 3.2 не похож, а на тини-бейсик похож.

HardWareMan 25th May 2014 13:36

Я помню несколько лет назад проводился анализ барсиков для советских ЛК на НедоПЦ. Статистический анализ показал, что у всех 80% совпадений с барсиком от МС. Похоже, что библиотечка была одна или реально реверсили.

esl 25th May 2014 13:56

Quote:

Originally Posted by HardWareMan (Post 712622)
Я помню несколько лет назад проводился анализ барсиков для советских ЛК на НедоПЦ. Статистический анализ показал, что у всех 80% совпадений с барсиком от МС. Похоже, что библиотечка была одна или реально реверсили.

реально реверсили ;)
причем именно MS 3.2 8к

код, таблички, совпадают до безобразия
даже если сильно модифицировали (как например МИКРОН), структура осталась, прост добавления
я по этому таблицу токенов и привёл, из нее очень видно как оно двигалось

Titus 25th May 2014 14:11

Quote:

Originally Posted by ivagor (Post 712600)
esl, респект!
Специалистовский (первоначальный) тоже из серии 3.2, может транзитом через микро-80, может как-то иначе. Потом, насколько помню, и микрон адаптировали.


Для Специалиста, как я помню, в журналах "Моделист-Конструктор" публиковали расширения для бейсика. Сперва вроде небольшое расширение, чтобы рисовать круги. А потом расширение для рисования спрайтов, причем весьма мощное. Причем, эти два расширения были с друг другом несовместимы.

ivagor 25th May 2014 14:39

Практически для каждого из упомянутых бейсиков (ведущих родословную от 3.2) есть модифицированные, дополненные, улучшенные варианты. Иногда весьма интересные, но основа бейсика оставалась прежней. Прикрутить спрайты (или еще и редактор спрайтов) ПМСМ проще, чем, например, сделать грамотную поддержку нескольких форматов чисел. С другой стороны "спрайты" были более востребованы, люди хотели писать игрушки на бейсике :)

esl 25th May 2014 17:42

По специалисту (для него нашлось больше всего бейсиков)

https://dl.dropboxusercontent.com/u/...st-micro80.txt

это всё дети МИКРО-80
Code:

bas-cir
bas-gr
bas-kbh
bas-new
bas-s
bas-sg
bas-spec
bas-srv
basic
basic-a
basic1
basic2
basic3

как раз то о чем написано выше
все адресса совавдают, + наверное расширения в виде патчей
но меня интересовала именно база, а не патчи

https://dl.dropboxusercontent.com/u/...ist-micron.txt
а часть на основе МИКРОНА, причем
явно более ранняя версия микрона чем та что у меня, меньше ключевых слов
Code:

bas-mic2
bas-micr

--- нет
ADDR
PI
RENUM
ACS
LG
LPRINT
LLIST

bas-mag2 совпадает по адресам с мкроном с рк

по токенам совпадает с микроном, но адреса отличаються, другая версия ?
Code:

bas-mag
basmic87

ну и отдельно bas-rdk, о нем выше писал ivagor.

в общем всё ожидаемо ;)

---------- Post added at 15:42 ---------- Previous post was at 15:31 ----------

ORION BASIC

дитё MICRO-80
похоже серьёзное копания уровня микрона.

Скрытый текст


Code:

basic80-rk86.bin          | basmikr-rk86.bin          | orion-basic.ram         
---------------------------------------------------------------------------------------
81:    CLS 0088 0170 1765 | 81:    CLS 1e07 1f4a 1cc2 | 81:    CLS 0088 0eb4 1717
82:    FOR 008b 0172 0535 | 82:    FOR 1e0a 1f4c 03e2 | 82:    FOR 008b 0eb6 03fa
83:    NEXT 008e 0174 091d | 83:    NEXT 1e0d 1f4e 0820 | 83:    NEXT 008e 0eb8 07d0
84:    DATA 0092 0176 06f9 | 84:    DATA 1e11 1f50 05b1 | 84:    DATA 0092 0eba 05b9
85:  INPUT 0096 0178 0852 | 85:  INPUT 1e15 1f52 0740 | 85:  INPUT 0096 0ebc 06f4
86:    DIM 009b 017a 0b15 | 86:    DIM 1e1a 1f54 0a44 | 86:    DIM 009b 0ebe 09c8
87:    READ 009e 017c 0879 | 87:    READ 1e1d 1f56 0794 | 87:    READ 009e 0ec0 072d
88:    CUR 00a2 017e 1779 | 88:    CUR 1e21 1f58 1920 | 88:    CUR 00a2 0ec2 1636
89:    GOTO 00a5 0180 06c7 | 89:    GOTO 1e24 1f5a 057f | 89:    GOTO 00a5 0ec4 0587
8a:    RUN 00a9 0182 06ab | 8a:    RUN 1e28 1f5c 0563 | 8a:    RUN 00a9 0ec6 0560
8b:      IF 00ac 0184 0778 | 8b:      IF 1e2b 1f5e 0630 | 8b:      IF 00ac 0ec8 0638
8c: RESTORE 00ae 0186 05db | 8c: RESTORE 1e2d 1f60 0496 | 8c: RESTORE 00ae 0eca 04a3
8d:  GOSUB 00b5 0188 06b7 | 8d:  GOSUB 1e34 1f62 056f | 8d:  GOSUB 00b5 0ecc 0577
8e:  RETURN 00ba 018a 06e3 | 8e:  RETURN 1e39 1f64 059b | 8e:  RETURN 00ba 0ece 05a3
8f:    REM 00c0 018c 06fb | 8f:    REM 1e3f 1f66 05b3 | 8f:    REM 00c0 0ed0 05bb
90:    STOP 00c3 018e 05ef | 90:    STOP 1e42 1f68 04b9 | 90:    STOP 00c3 0ed2 04b6
91:    OUT 00c7 0190 0f80 | 91:    OUT 1e46 1f6a 009b | 91:    DPL 00c7 0ed4 1846
92:      ON 00ca 0192 075c | 92:      ON 1e49 1f6c 0614 | 92:      ON 00ca 0ed6 061c
93:    PLOT 00cc 0194 17af | 93:    PLOT 1e4b 1f6e 1936 | 93:    PSET 00cc 0ed8 1925
94:    LINE 00d0 0196 1847 | 94:    LINE 1e4f 1f70 199e | 94:    LINE 00d0 0eda 1827
95:    POKE 00d4 0198 172c | 95:    POKE 1e53 1f72 15e6 | 95:    POKE 00d4 0edc 1620
96:  PRINT 00d8 019a 0791 | 96:  PRINT 1e57 1f74 0648 | 96:  PRINT 00d8 0ede 1fa9
97:    DEF 00dd 019c 0cb0 | 97:    DEF 1e5c 1f76 0bdf | 97:    DEF 00dd 0ee0 0b6a
98:    CONT 00e0 019e 0617 | 98:    CONT 1e5f 1f78 04dd | 98:    CONT 00e0 0ee2 04da
99:    LIST 00e4 01a0 04ee | 99:    LIST 1e63 1f7a 0397 | 99:    LIST 00e4 0ee4 196e
9a:  CLEAR 00e8 01a2 0682 | 9a:  CLEAR 1e67 1f7c 053a | 9a:  CLEAR 00e8 0ee6 0537
9b:  MLOAD 00ed 01a4 1905 | 9b:  CLOAD 1e6c 1f7e 1b6f | 9b:  LLIST 00ed 0ee8 196d
9c:  MSAVE 00f2 01a6 18ee | 9c:  CSAVE 1e71 1f80 1b06 | 9c:  LPRINT 00f2 0eea 1da4
9d:    NEW 00f7 01a8 039d | 9d:    NEW 1e76 1f82 01af | 9d:    NEW 00f8 0eec 031e
9e:    TAB( 00fa .... .... | 9e:    TAB( 1e79 .... .... | 9e:    EDIT 00fb 0eee 197d
9f:      TO 00fe .... .... | 9f:      TO 1e7d .... .... | 9f:  COLOR 00ff 0ef0 1d47
a0:    SPC( 0100 .... .... | a0:    SPC( 1e7f .... .... | a0:    BOX 0104 0ef2 17ee
a1:      FN 0104 .... .... | a1:      FN 1e83 .... .... | a1:  SCREEN 0107 0ef4 1657
a2:    THEN 0106 .... .... | a2:    THEN 1e85 .... .... | a2:  PAINT 010d 0ef6 1be6
a3:    NOT 010a .... .... | a3:    NOT 1e89 .... .... | a3:  SYSTEM 0112 0ef8 1f78
a4:    STEP 010d .... .... | a4:    STEP 1e8c .... .... | a4:    SAVE 0118 0efa 1e30
a5:      + 0111 .... .... | a5:      + 1e90 .... .... | a5:    LOAD 011c 0efc 1eb5
a6:      - 0112 .... .... | a6:      - 1e91 .... .... | a6:  FILES 0120 0efe 1dc0
a7:      * 0113 .... .... | a7:      * 1e92 .... .... | a7:    KILL 0125 0f00 1efb
a8:      / 0114 .... .... | a8:      / 1e93 .... .... | a8:    TAB( 0129 .... ....
a9:      ^ 0115 .... .... | a9:      ^ 1e94 .... .... | a9:      TO 012d .... ....
aa:    AND 0116 .... .... | aa:    AND 1e95 .... .... | aa:    SPC( 012f .... ....
ab:      OR 0119 .... .... | ab:      OR 1e98 .... .... | ab:      FN 0133 .... ....
ac:      > 011b .... .... | ac:      > 1e9a .... .... | ac:    THEN 0135 .... ....
ad:      = 011c .... .... | ad:      = 1e9b .... .... | ad:    NOT 0139 .... ....
ae:      < 011d .... .... | ae:      < 1e9c .... .... | ae:    STEP 013c .... ....
af:    SGN 011e 0043 12d4 | af:    SGN 1e9d 1fa8 1178 | af:      + 0140 .... ....
b0:    INT 0121 0045 1392 | b0:    INT 1ea0 1faa 1236 | b0:      - 0141 .... ....
b1:    ABS 0124 0047 12e8 | b1:    ABS 1ea3 1fac 118c | b1:      * 0142 .... ....
b2:    USR 0127 0049 1736 | b2:    USR 1ea6 1fae 15f4 | b2:      / 0143 .... ....
b3:    FRE 012a 004b 0c7a | b3:    FRE 1ea9 1fb0 0ba9 | b3:      ^ 0144 .... ....
b4:    INP 012d 004d 0f75 | b4:    INP 1eac 1fb2 009b | b4:    AND 0145 .... ....
b5:    POS 0130 004f 0ca8 | b5:    POS 1eaf 1fb4 0bd7 | b5:      OR 0148 .... ....
b6:    SQR 0133 0051 1554 | b6:    SQR 1eb2 1fb6 140a | b6:      > 014a .... ....
b7:    RND 0136 0053 162a | b7:    RND 1eb5 1fb8 14e0 | b7:      = 014b .... ....
b8:    LOG 0139 0055 117e | b8:    LOG 1eb8 1fba 1012 | b8:      < 014c .... ....
b9:    EXP 013c 0057 1599 | b9:    EXP 1ebb 1fbc 144f | b9:    SGN 014d 0043 11c8
ba:    COS 013f 0059 1660 | ba:    COS 1ebe 1fbe 1512 | ba:    INT 0150 0045 1286
bb:    SIN 0142 005b 1666 | bb:    SIN 1ec1 1fc0 1518 | bb:    ABS 0153 0047 11dc
bc:    TAN 0145 005d 16c3 | bc:    TAN 1ec4 1fc2 157d | bc:    USR 0156 0049 162a
bd:    ATN 0148 005f 16d8 | bd:    ATN 1ec7 1fc4 1592 | bd:    FRE 0159 004b 0b2d
be:    PEEK 014b 0061 1724 | be:    PEEK 1eca 1fc6 15de | be:    INP 015c 004d 0f15
bf:    LEN 014f 0063 0ee7 | bf:    LEN 1ece 1fc8 0e12 | bf:    POS 015f 004f 0b62
c0:    STR$ 0152 0065 0d1f | c0:    STR$ 1ed1 1fca 0c4e | c0:    SQR 0162 0051 1448
c1:    VAL 0156 0067 0fc8 | c1:    VAL 1ed5 1fcc 0eeb | c1:    RND 0165 0053 151e
c2:    ASC 0159 0069 0ef6 | c2:    ASC 1ed8 1fce 0e21 | c2:    LOG 0168 0055 1072
c3:    CHR$ 015c 006b 0f04 | c3:    CHR$ 1edb 1fd0 0e2f | c3:    EXP 016b 0057 148d
c4:  LEFT$ 0160 006d 0f14 | c4:  LEFT$ 1edf 1fd2 0e41 | c4:    COS 016e 0059 1554
c5:  RIGHT$ 0165 006f 0f44 | c5:  RIGHT$ 1ee4 1fd4 0e71 | c5:    SIN 0171 005b 155a
c6:    MID$ 016b 0071 0f4e | c6:    MID$ 1eea 1fd6 0e7b | c6:    TAN 0174 005d 15b7
                          | c7:SCREEN$( 1eee 1fd8 1a39 | c7:    ATN 0177 005f 15cc
                          | c8:  INKEY$ 1ef6 1fda 1685 | c8:    PEEK 017a 0061 1618
                          | c9:      AT 1efc 1fdc 009b | c9:    LEN 017e 0063 0d9e
                          | ca:      & 1efe 1fde 16a9 | ca:    STR$ 0181 0065 0bd9
                          | cb:    BEEP 1eff 1fe0 0279 | cb:    VAL 0185 0067 0f38
                          | cc:  PAUSE 1f03 1fe2 7913 | cc:    ASC 0188 0069 0dad
                          | cd:  VERIFY 1f08 1fe4 0f11 | cd:    CHR$ 018b 006b 0dbb
                          | ce:    HOME 1f0e 1fe6 4e7b | ce:  LEFT$ 018f 006d 0dcb
                          | cf:    EDIT 1f12 1fe8 7b10 | cf:  RIGHT$ 0194 006f 0dfb
                          | d0:  DELETE 1f16 1fea 10b0 | d0:    MID$ 019a 0071 0e05
                          | d1:  MERGE 1f1c 1fec 137f | d1:    GET 019e 0073 4079
                          | d2:    AUTO 1f21 1fee 5014 | d2:    PUT 01a1 0075 7913
                          | d3:  HIMEM 1f25 1ff0 09a6 | d3:  SOUND 01a4 0077 0f71
                          | d4:      @ 1f2a 1ff2 a546 | d4:  DELETE 01a9 0079 ae7b
                          | d5:    ASN 1f2b 1ff4 4d09 | d5:    AUTO 01af 007b 7b10
                          | d6:    ADDR 1f2e 1ff6 2849 | d6:  RENUM 01b3 007d 110c
                          | d7:      PI 1f32 1ff8 2943 |                         
                          | d8:  RENUM 1f34 1ffa 4f52 |                         
                          | d9:    ACS 1f39 1ffc 2f4e |                         
                          | da:      LG 1f3c 1ffe 3838 |                         
                          | db:  LPRINT 1f3e 2000 6e65 |                         
                          | dc:  LLIST 1f44 2002 6075 |

[свернуть]

ivagor 25th May 2014 18:10

Есть еще более экзотические Башкирия-2М (предполагю, что клон позднего микрософтовского или транзитом с корвета), Ириша (даже не знаю, был ли там "свой" бейсик), Искра1080-Тарту, ЮТ-88 (на нем наверняка альтаировский родственник).


All times are GMT +4. The time now is 01:58.

Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.