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

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

Moderator: Shaos

User avatar
Lavr
Supreme God
Posts: 16676
Joined: 21 Oct 2009 08:08
Location: Россия

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

Post by Lavr »

28 июня 2011 года Shaos отпочковал эту тему вот отсюда

Давным давно... в далёкой-далёкой галактике...
Тьфу! Нет!!!
Давно я ковырялся во всех Васиках от Специалиста,
от РК, от Микроши и пришел к странному выводу:
во всех них есть одинаковый код - ну типа ядро,
а всякие удобства и навороты к ядру прилеплены.
Как научил меня один умный чел - а ты декомпильни
Васик корректно - и будет у тебя любой Васик - какой
сам напишешь...
Так что мне интересно - не от Билла ли Геца проистекло
это самое ядро ?
По крайней мере история позволяет это предположить :lol:
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Re: Кстати... насчет "Геца" и "Васиков"

Post by Shaos »

Lavr wrote:Давным давно... в далёкой-далёкой галактике...
Тьфу! Нет!!!
Давно я ковырялся во всех Васиках от Специалиста,
от РК, от Микроши и пришел к странному выводу:
во всех них есть одинаковый код - ну типа ядро,
а всякие удобства и навороты к ядру прилеплены.
Как научил меня один умный чел - а ты декомпильни
Васик корректно - и будет у тебя любой Васик - какой
сам напишешь...
Так что мне интересно - не от Билла ли Геца проистекло
это самое ядро ?
По крайней мере история позволяет это предположить :lol:
Очень может быть :)
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

в MESS есть очень интересный код:
http://git.redump.net/cgit.cgi/mess/pla ... /filtbas.c
глядя в который я решил таки выяснить на что больше похожи советские бейсики
для начала следует сказать, что такой стиль представления бейсика в памяти называется "Microsoft-style tokenized BASIC files":

Code: Select all

        int16    <PTR_NEXT_LINE>
        int16    <LINE_NUM>
        int8[]   <TOKENISED_DATA>
        int8     $00     End of line delimiter
сравнивания коды токенов бейсика Радио-86РК с токенами в этом файле, я обнаружил, что РК-бейсик больше всего похож на бейсик от коммодора (как это ни странно, хотя он тоже микрософтовский):

Code: Select all

/* ----------------------------------------------------------------------- *
 * CBM machines                                                            *
 * ----------------------------------------------------------------------- */
static const char *const basic_10[] = /* "BASIC 1.0" - supported by pet */
{                                РК-86:
	"END",            /* 0x80 */  CLS
	"FOR",            /* 0x81 */  FOR
	"NEXT",           /* 0x82 */  NEXT
	"DATA",           /* 0x83 */  DATA
	"INPUT#",         /* 0x84 */  INPUT
	"INPUT",          /* 0x85 */  DIM
	"DIM",            /* 0x86 */  READ
	"READ",           /* 0x87 */  CUR
	"LET",            /* 0x88 */  GOTO
	"GOTO",           /* 0x89 */  RUN
	"RUN",            /* 0x8a */  IF
	"IF",             /* 0x8b */  RESTORE
	"RESTORE",        /* 0x8c */  GOSUB
	"GOSUB",          /* 0x8d */  RETURN
	"RETURN",         /* 0x8e */  REM
	"REM",            /* 0x8f */  STOP
	"STOP",           /* 0x90 */  BEL
	"ON",             /* 0x91 */  ON
	"WAIT",           /* 0x92 */  PLOT
	"LOAD",           /* 0x93 */  LINE
	"SAVE",           /* 0x94 */  POKE
	"VERIFY",         /* 0x95 */  PRINT
	"DEF",            /* 0x96 */  DEF
	"POKE",           /* 0x97 */  CONT
	"PRINT#",         /* 0x98 */  LIST
	"PRINT",          /* 0x99 */  CLEAR
	"CONT",           /* 0x9a */  MLOAD
	"LIST",           /* 0x9b */  MSAVE
	"CLR",            /* 0x9c */  NEW
	"CMD",            /* 0x9d */  TAB(
	"SYS",            /* 0x9e */  TO
	"OPEN",           /* 0x9f */  SPC(
	"CLOSE",          /* 0xa0 */  FN
	"GET",            /* 0xa1 */  THEN
	"NEW",            /* 0xa2 */  NOT
	"TAB(",           /* 0xa3 */  STEP
	"TO",             /* 0xa4 */  +
	"FN",             /* 0xa5 */  -
	"SPC(",           /* 0xa6 */  *
	"THEN",           /* 0xa7 */  /
	"NOT",            /* 0xa8 */  ^
	"STEP",           /* 0xa9 */  AND
	"+",              /* 0xaa */  OR
	"-",              /* 0xab */  >
	"*",              /* 0xac */  =
	"/",              /* 0xad */  <
	"^",              /* 0xae */  SGN
	"AND",            /* 0xaf */  INT
	"OR",             /* 0xb0 */  ABS
	">",              /* 0xb1 */  USR
	"=",              /* 0xb2 */  FRE
	"<",              /* 0xb3 */  KEY
	"SGN",            /* 0xb4 */  POS
	"INT",            /* 0xb5 */  SQR
	"ABS",            /* 0xb6 */  RND
	"USR",            /* 0xb7 */  LOG
	"FRE",            /* 0xb8 */  EXP
	"POS",            /* 0xb9 */  COS
	"SQR",            /* 0xba */  SIN
	"RND",            /* 0xbb */  TAN
	"LOG",            /* 0xbc */  ATN
	"EXP",            /* 0xbd */  PEEK
	"COS",            /* 0xbe */  LEN
	"SIN",            /* 0xbf */  STR$
	"TAN",            /* 0xc0 */  VAL
	"ATN",            /* 0xc1 */  ASC
	"PEEK",           /* 0xc2 */  CHR$
	"LEN",            /* 0xc3 */  LEFT$
	"STR$",           /* 0xc4 */  RIGHT$
	"VAL",            /* 0xc5 */  MID$
	"ASC",            /* 0xc6 */
	"CHR$",           /* 0xc7 */
	"LEFT$",          /* 0xc8 */
	"RIGHT$",         /* 0xc9 */
	"MID$",           /* 0xca */
....
Last edited by Shaos on 28 Jun 2011 19:06, edited 2 times in total.
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

на бейсик для альтаира (самый первый микрософтокский) он тоже сильно похож:

http://web.archive.org/web/200112241846 ... _dis_2.htm

Code: Select all

General keywords
0057 	454EC4 	KEYWORDS 	"END" 	80
005A 	464FD2 	  	"FOR"
005D 	4E4558D4 	  	"NEXT" 	82
0061 	444154C1 	  	"DATA" 	83
0065 	494E5055D4 	  	"INPUT" 	84
006A 	4449CD 	  	"DIM" 	85
006D 	524541C4 	  	"READ" 	86
0071 	4C45D4 	  	"LET" 	87
0074 	474F54CF 	  	"GOTO" 	88
0078 	5255CE 	  	"RUN" 	89
007B 	49C6 	  	"IF" 	8A
007D 	524553544F52C5 	  	"RESTORE" 	8B
0084 	474F5355C2 	  	"GOSUB" 	8C
0089 	5245545552CE 	  	"RETURN" 	8D
008F 	5245CD 	  	"REM" 	8E
0092 	53544FD0 	  	"STOP" 	8F
0096 	5052494ED4 	  	"PRINT" 	90
009B 	4C4953D4 	  	"LIST" 	91
009F 	434C4541D2 	  	"CLEAR" 	92
00A4 	4E45D7 	  	"NEW" 	93
Supplementary keywords
00A7 	544142A8 	  	"TAB(" 	94
00AB 	54CF 	  	"TO" 	95
00AD 	544845CE 	  	"THEN" 	96
00B1 	535445D0 	  	"STEP" 	97
Arithmetic and logical operators
00B5 	AB 	  	"+" 	98
00B6 	AD 	  	"-" 	99
00B7 	AA 	  	"*" 	9A
00B8 	AF 	  	"/" 	9B
00B9 	BE 	  	">" 	9C
00BA 	BD 	  	"=" 	9D
00BB 	BC 	  	"<" 	9E
Inline keywords
00BC 	5347CE 	  	"SGN" 	9F
00BF 	494ED4 	  	"INT" 	A0
00C2 	4142D3 	  	"ABS" 	A1
00C5 	5553D2 	  	"USR" 	A2
00C8 	5351D2 	  	"SQR" 	A3
00CB 	524EC4 	  	"RND" 	A4
00CE 	5349CE 	  	"SIN" 	A5
Null terminator.
00D1 	00 	  	 
Судя по количеству токенов истина находится где-то по времени между альтаиром (1975) и коммодоре-петом (1977)
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
HardWareMan
Banned
Posts: 2139
Joined: 20 Mar 2005 13:41
Location: От туда

Post by HardWareMan »

Бэйсик "Практик" на Спеце тоже использует старший бит в названии токена как признак его окончания:

Code: Select all

Offset      0  1  2  3  4  5  6  7   8  9  A  B  C  D  E  F

000000A0                            43 4C D3 46 4F D2 4E 45           CLУFOТNE
000000B0   58 D4 44 41 54 C1 49 4E  50 55 D4 44 49 CD 52 45   XФDATБINPUФDIНRE
000000C0   41 C4 43 55 D2 47 4F 54  CF 52 55 CE 49 C6 52 45   AДCUТGOTПRUОIЖRE
000000D0   53 54 4F 52 C5 47 4F 53  55 C2 52 45 54 55 52 CE   STORЕGOSUВRETURО
000000E0   52 45 CD 53 54 4F D0 44  50 CC 4F CE 50 4C 4F D4   REНSTOРDPМOОPLOФ
000000F0   4C 49 4E C5 50 4F 4B C5  50 52 49 4E D4 44 45 C6   LINЕPOKЕPRINФDEЖ
00000100   43 4F 4E D4 4C 49 53 D4  43 4C 45 41 D2 4D 4C 4F   CONФLISФCLEAТMLO
00000110   41 C4 4D 53 41 56 C5 4E  45 D7 54 41 42 A8 54 CF   AДMSAVЕNEЧTABЁTП
00000120   53 50 43 A8 46 CE 54 48  45 CE 4E 4F D4 53 54 45   SPCЁFОTHEОNOФSTE
00000130   D0 AB AD AA AF DE 41 4E  C4 4F D2 BE BD BC 53 47   Р«­ª¯ЮANДOТ¾½¼SG
00000140   CE 49 4E D4 41 42 D3 55  53 D2 46 52 C5 49 4E D0   ОINФABУUSТFRЕINР
00000150   50 4F D3 53 51 D2 52 4E  C4 4C 4F C7 45 58 D0 43   POУSQТRNДLOЗEXРC
00000160   4F D3 53 49 CE 54 41 CE  41 54 CE 50 45 45 CB 4C   OУSIОTAОATОPEEЛL
00000170   45 CE 53 54 52 A4 56 41  CC 41 53 C3 43 48 52 A4   EОSTR¤VAМASГCHR¤
00000180   4C 45 46 54 A4 52 49 47  48 54 A4 4D 49 44 A4 53   LEFT¤RIGHT¤MID¤S
00000190   59 53 54 45 CD 4D 45 52  47 C5 41 55 54 CF 52 45   YSTEНMERGЕAUTПRE
000001A0   4E 55 CD 52 43 4F CD 44  45 4C 45 54 C5 43 4F 4D   NUНRCOНDELETЕCOM
000001B0   D0 53 59 53 D4 45 44 49  D4 A6 41 D4               РSYSФEDIФ¦AФ
Токены:

Code: Select all

const Token:array[0..$50] of string =
             ('CLS',  'FOR',  'NEXT',  'DATA',   'INPUT', 'DIM',   'READ',  'CUR',
              'GOTO', 'RUN',  'IF',    'RESTORE','GOSUB', 'RETURN','REM',   'STOP',
              'DPL',  'ON',   'PLOT',  'LINE',   'POKE',  'PRINT', 'DEF',   'CONT',
              'LIST', 'CLEAR','MLOAD', 'MSAVE',  'NEW',   'TAB(',  'TO',    'SPC(',
              'FN',   'THEN', 'NOT',   'STEP',   '+',     '-',     '*',     '/',
              '^',    'AND',  'OR',    '>',      '=',     '<',     'SGN',   'INT',
              'ABS',  'USR',  'FRE',   'INP',    'POS',   'SQR',   'RND',   'LOG',
              'EXP',  'COS',  'SIN',   'TAN',    'ATN',   'PEEK',  'LEN',   'STR',
              '$VAL', 'ASC',  'CHR$',  'LEFT$',  'RIGHT$','MID$',  'CIRCLE','MERGE',
              'AUTO', 'RENUM','RCOM',  'DELETE', 'COMP',  'SYST',  'EDIT',  '&',
              'AT');
Сами токены идут в той же последовательности, начиная с $80 (коды менее $80 воспринимаются как строка):

Code: Select all

                case SrcBin[Pos] of
                  $20..$7F : Line:=Line+Prak(SrcBin[Pos]);
                  $80..$D0 : Line:=Line+Token[SrcBin[Pos]-$80]+' ';
                  else Line:=Line+'!*!';
                  end;
Last edited by HardWareMan on 05 Jan 2014 06:22, edited 1 time in total.
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

HardWareMan wrote:Бэйсик "Практик" на Спеце тоже использует старший бит в названии токена как признак его окончания...
ещё бы - ведь это тот же микрософтовский бейсик ;)

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

P.S. обнаружил и в РК-бейсике, и в "Практике" вот этот кусок кода:

Code: Select all

Subtract lhs mantissa from rhs mantissa.
084D 	AF 	FSubMantissas 	XRA A 	B=0-B
084E 	90 		SUB B 	
084F 	47 		MOV B,A 	
0850 	7E 		MOV A,M 	E=(FACCUM)-E
0851 	9B 		SBB E 	
0852 	5F 		MOV E,A 	
0853 	23 		INX H 	
0854 	7E 		MOV A,M 	D=(FACCUM+1)-D
0855 	9A 		SBB D 	
0856 	57 		MOV D,A 	
0857 	23 		INX H 	
0858 	7E 		MOV A,M 	C=(FACCUM+2)-C
0859 	99 		SBB C 	
085A 	4F 		MOV C,A 	
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
Lavr
Supreme God
Posts: 16676
Joined: 21 Oct 2009 08:08
Location: Россия

Post by Lavr »

Вижу, что я вас не обманул... :wink:
И пока я работал на "Специалисте", у меня был собственный ВАСИК на все
лады. Жаль, что с наступлением эры АйБиЭм, я так и не пришел окончательной
версии...
User avatar
HardWareMan
Banned
Posts: 2139
Joined: 20 Mar 2005 13:41
Location: От туда

Post by HardWareMan »

Я почему-то думал, что тот же "Практик" был доработкой "Микрона"...
Last edited by HardWareMan on 05 Jan 2014 06:22, edited 1 time in total.
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

HardWareMan wrote:Я почему-то думал, что тот же "Практик" был доработкой "Микрона"...
который был доработкой Бейсик-РК86, который был доработкой бейсика от Билли...
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
HardWareMan
Banned
Posts: 2139
Joined: 20 Mar 2005 13:41
Location: От туда

Post by HardWareMan »

По цепочке, значит. Понятно. А где инфа именно о доработке GW Бэйсика в РКшный?
Last edited by HardWareMan on 05 Jan 2014 06:22, edited 1 time in total.
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

HardWareMan wrote:По цепочке, значит. Понятно. А где инфа именно о доработке GW Бэйсика в РКшный?
Нету - это всё мои домыслы, основанные на анализе внешнего вида кода...
Я даже непосредственного прородителя так и не смог найти - судя по всему что-то между альтаировским бейсиком и коммодоровским бейсиком
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
Lavr
Supreme God
Posts: 16676
Joined: 21 Oct 2009 08:08
Location: Россия

Post by Lavr »

Интересно, а альтернативные i8080 ВАСИКИ есть, если код посмотреть?
Не все же прародил БГ?
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

Lavr wrote:Интересно, а альтернативные i8080 ВАСИКИ есть, если код посмотреть?
Не все же прародил БГ?
вот это вот басик (RDK PROMPT BASIC V3.2 3K) не похож на гейтсовский (хотя позже выяснилось, что таки похож - на басик LEVEL1 для TRS-80):

Code: Select all

-rw-r--r-- 1 shaos users 3334 Mar 28  1999 BAS-RDK.RKS
а у всех остальных таблица токенов (находящяяся где-то вначале, где-то в конце, где-то меньше, где-то больше) говорит о том, что их оригинальный автор - биллогейц:

Code: Select all

-rw-r--r-- 1 shaos users  9750 Apr  5  1999 BAS-CIR.RKS
-rw-r--r-- 1 shaos users  9542 Mar 28  1999 BAS-GR.RKS
-rw-r--r-- 1 shaos users  8342 Mar 28  1999 BAS-KBH.RKS
-rw-r--r-- 1 shaos users  8710 Apr  5  1999 BAS-MAG.RKS
-rw-r--r-- 1 shaos users  8582 Apr  5  1999 BAS-MAG2.RKS
-rw-r--r-- 1 shaos users  8198 Apr  5  1999 BAS-MIC2.RKS
-rw-r--r-- 1 shaos users  8199 Mar 28  1999 BAS-MICR.RKS
-rw-r--r-- 1 shaos users 10518 Apr  5  1999 BAS-NEW.RKS
-rw-r--r-- 1 shaos users  7798 Apr  5  1999 BAS-S.RKS
-rw-r--r-- 1 shaos users 10518 Apr  5  1999 BAS-SG.RKS
-rw-r--r-- 1 shaos users  8198 Apr  5  1999 BAS-SPEC.RKS
-rw-r--r-- 1 shaos users  8966 Mar 28  1999 BAS-SRV.RKS
-rw-r--r-- 1 shaos users  6758 Apr  5  1999 BASIC-A.RKS
-rw-r--r-- 1 shaos users  6662 Jan 24  1997 BASIC.RKM
-rw-r--r-- 1 shaos users  8200 Jan 15  1998 BASIC.RKP
-rw-r--r-- 1 shaos users 16390 Mar 18  1999 BASIC.RKS
-rw-r--r-- 1 shaos users 16390 Mar 18  1999 BASIC1.RKS
-rw-r--r-- 1 shaos users 16390 Mar 18  1999 BASIC2.RKS
-rw-r--r-- 1 shaos users  6758 Mar 28  1999 BASIC3.RKS
-rw-r--r-- 1 shaos users  6665 Feb 10  1999 BASIC80.RKR
-rw-r--r-- 1 shaos users 10741 Feb 10  1999 BASICMUS.RKR
-rw-r--r-- 1 shaos users  8201 Feb 11  1999 BASICPC.RKR
-rw-r--r-- 1 shaos users  7433 Feb 10  1999 BASICSER.RKR
-rw-r--r-- 1 shaos users  8201 Feb  5  1998 BASIC_OK.RKR
-rw-r--r-- 1 shaos users  7433 Feb  5  1998 BASIC_PR.RKR
-rw-r--r-- 1 shaos users  6847 Mar 28  1999 BASIC_RK.RKR
-rw-r--r-- 1 shaos users  6601 May  7  1999 BASMIC.RKR
-rw-r--r-- 1 shaos users 17207 Apr  5  1999 BASMIC87.RKS
-rw-r--r-- 1 shaos users  8202 Feb  6  1998 BASMIKR.RKR
P.S. ещё один кусок явно есть: http://web.archive.org/web/200112252059 ... dis_12.htm

Code: Select all

If tghe argument in FACCUM is negative, then skip over the
0C5F 	EF 	Rnd 	RST TestSign 	
0C60 	FA7C0C 		JM 0C7C 	
Load the seed into FACCUM.
0C63 	21910C 		LXI H,RND_SEED 	
0C66 	CD0F0A 		CALL FLoadFromMem 	
0C69 	C8 		RZ 	
Multiply seed by 11,879,546.
0C6A 	013598 		LXI B,9835 	
0C6D 	117A44 		LXI D,447A 	
0C70 	CDE508 		CALL FMul+2 	
Add 0.00000003927678
0C73 	012868 		LXI B,6828 	
0C76 	1146B1 		LXI D,B146 	
0C79 	CD1208 		CALL FAdd+2 	
Swap first and third mantissa bytes.
0C7C 	CD1D0A 		CALL FAccToBCDE 	
0C7F 	7B 		MOV A,E 	
0C80 	59 		MOV E,C 	
0C81 	4F 		MOV C,A 	

Set FTEMP_SIGN to 0x80 to indicate to FNormalise that it doesn't need to change the sign. Also set FACCUM's exponent to 0 so the result, when normalised, will be less than 1.
0C82 	3680 		MVI M,80 	
0C84 	2B 		DCX H 	
0C85 	46 		MOV B,M 	
0C86 	3680 		MVI M,80 	
0C88 	CD5E08 		CALL FNormalise+3 	
Exit via a copy of the result to RND_SEED so it can be used for the next time RND is called.
0C8B 	21910C 		LXI H,RND_SEED 	
0C8E 	C3290A 		JMP FCopyToMem 	
Seed for random number generation.
0C91 	52C74F80 	RND_SEED 	0.811635 	
разве что константа RND_SEED отличается (ну и адреса переходов естественно)

P.P.S. также попадаются отдельные куски вот отсюда: http://web.archive.org/web/200112121255 ... dis_17.htm
Last edited by Shaos on 30 Jun 2011 00:10, edited 1 time in total.
Я тут за главного - если что шлите мыло на me собака shaos точка net
User avatar
Lavr
Supreme God
Posts: 16676
Joined: 21 Oct 2009 08:08
Location: Россия

Post by Lavr »

Shaos wrote:а у всех остальных таблица токенов (находящяяся где-то вначале, где-то в конце, где-то меньше, где-то больше) говорит о том, что их оригинальный автор - биллогейц:
...
Хорошо, что биллогейц об этом не знал - он написал бы письмо, чтобы
попытаться стрясти со всех денег!
И хорошо, что мы о БГ тогда не знали - ему бы икалось гораздо раньше
наступления эпохи ДОС-Виндовс... :wink:

А вот с Волковым так и непонятно. Он, похоже, опирался на Микро-80
при разработке своего ВАСИКА. На РК-86 - вряд ли "Специалист" по
рождению моложе РК-шки, его напечатали позже.

А Z80 ВАСЮКИ - уже начали отличаться или так и юзали "ядро" от БГ?
User avatar
Shaos
Admin
Posts: 23989
Joined: 08 Jan 2003 23:22
Location: Silicon Valley

Post by Shaos »

Lavr wrote:
Shaos wrote:а у всех остальных таблица токенов (находящяяся где-то вначале, где-то в конце, где-то меньше, где-то больше) говорит о том, что их оригинальный автор - биллогейц:
...
Хорошо, что биллогейц об этом не знал - он написал бы письмо, чтобы
попытаться стрясти со всех денег!
И хорошо, что мы о БГ тогда не знали - ему бы икалось гораздо раньше
наступления эпохи ДОС-Виндовс... :wink:

А вот с Волковым так и непонятно. Он, похоже, опирался на Микро-80
при разработке своего ВАСИКА. На РК-86 - вряд ли "Специалист" по
рождению моложе РК-шки, его напечатали позже.
Внутри бейсика BASMIC87.RKS есть текст: BASIC *МИКРОН-87* РАЗРАБОТАТАН ДЛЯ МИКРО-ЭВМ *МИКРО/80*, *РАДИО-86РК" И АДАПТИРОВАН ДЛЯ МИКРО-ЭВМ *СПЕЦИАЛИСТ*...
Lavr wrote: А Z80 ВАСЮКИ - уже начали отличаться или так и юзали "ядро" от БГ?
ну для Z80 существовал MSX-BASIC от того же самого Билла ;)
Я тут за главного - если что шлите мыло на me собака shaos точка net