Вектор-06Ц: Средства разработки

[svofski]

А есть утилита, которая из CAS или BAS делает TXT и наоборот?

Из BAS в TXT есть программа Tim0xи на Паскале под названием debasic:

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

Program DeBasic;
uses Crt;
const
  BasWord : array [32..228] of string[8]=(
{32}  ' ','!','"','#','$','%','&','^','(',')','*','+',',','-','.','/','0','1',
{50}  '2','3','4','5','6','7','8','9',':',';','<','=','>','?','@','A','B','C',
{68}  'D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U',
{86}  'V','W','X','Y','Z','[','\',']','^',' ','Ю','А','Б','Ц','Д','Е','Ф','Г',
{104} 'Х','И','Й','К','Л','М','Н','О','П','Я','Р','С','Т','У','Ж','В','Ь','Ы',
{122} 'З','Ш','Э','Щ','Ч','_',
{128} 'CLS','FOR','NEXT','DATA','INPUT','DIM','READ','CUR','GOTO','RUN','IF',
{139} 'RESTORE','GOSUB','RETURN','REM','STOP','OUT','ON','PLOT','LINE','POKE',
{149} 'PRINT','DEF','CONT','LIST','CLEAR','CLOAD','CSAVE','NEW','TAB(','TO',
{159} 'SPC(','FN','THEN','NOT','STEP','+','-','*','/','^','AND','OR','>','=','<',
{174} 'SGN','INT','ABS','USR','FRE','INP','POS','SQR','RND','LOG','EXP','COS',
{186} 'SIN','TAN','ATN','PEEK','LEN','STR$','VAL','ASC','CHR$','LEFT$','RIGHT$',
{197} 'MID$','POINT','INKEY$','AT','&','BEEP','PAUSE','VERIFY','HOME','EDIT',
{207} 'DELETE','MERGE','AUTO','HIMEM','@','ASN','ADDR','PI','RENUM','ACS',
{217} 'LG','LPRINT','LLIST','SCREEN','COLOR','GET','PUT','BSAVE','BLOAD',
{226} 'PLAY','PAINT','CIRCLE');
{  BasDWord: array [154,156,204,208,224,225] of string[8]=(
      'LOAD','SAVE','BYE','FILES','CLOSE','OPEN');}
var
  fin  : file of byte;
  fout : text;
  a,c,e: byte;
  Size : longint;
  S    : string;
  n    : integer;
begin
  WriteLn('"DEBASIC", v(1.1), @TimSoft, Chernigov, 2000');
  if paramcount=0 then begin
    WriteLn('debasic.exe filename.bbd [basfile.bas]');
    exit
  end;
  Assign(fin,paramStr(1));
  if ParamCount=2 then Assign(fout,ParamStr(2)) else Assign(fout,'vector.bas');
  Reset(fin); ReWrite(fout);
  repeat
    read(fin,a)
  until (a=$43);
  c:=3;
  repeat
    read(fin,a);
    if c=3 then n:=a;
    if c=4 then n:=n+a*256;
    if c=5 then begin
      write(fout,n);
      write(fout,#32)
    end;
    if c>4 then begin
      if a=0 then begin
        Write(fout,#$0D#$0A);
        c:=0;
      end else
      if a in [0..31] then write(fout,chr(a)) else
        if a in [32..228] then begin
          S:=BasWord[a];
          write(fout,S);
        end else write(fout,a);
    end;
    inc(c);
    if a<>0 then e:=0 else inc(e)
  until Eof(fin) or (e=3);
  Close(fin); Close(fout)
end.

[свернуть]

[Advertiser]

[ivagor]

Еще есть аналогичная по смыслу программа Евгения Лугового, тоже на паскале.

[zx_]

ivagor, а быстрый бейсик 2.6 можно под z80 адаптировать ?

[ivagor]

Я бы так переформулировал - можно ли ускорить бейсик 2.5 с использованием уникальных команд z80 и получить какой-нибудь бейсик 2.6z или что-то в этом духе - да можно!

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

Более того, можно и для ВМ80 ускорить и исправить.

[zx_]

ivagor, было бы зашибись и здорово!
и версию с поддержкой Combodevice

вот еще есть se basic
модули арифметики , калькулятора и звука в нем отличные
https://github.com/cheveron/sebasic4...master/modules

использовать в проекте же можно -)

[ivagor]

Оптимизация и исправление basic 2.5 вполне осуществимая задача, но это мало кому интересно и вряд ли кто-то этим займется. Еще интереснее был бы (кросс-)компилятор векторовского бейсика, но это сложнее и еще менее вероятно.

[zx_]

ivagor, думал мож модифицируешь http://sensi.org/scalar/ware/833/
для z80

нужно не нужнодело такое
вот недавнийпример
http://zx-pk.ru/threads/29106-basic-...intaksisa.html

[ivagor]

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

[x-code]

На правах фантазии, но по теме топика - где-то году в 1994м для разработки игр под PC был популярен язык C-- (это не опечатка: https://ru.wikipedia.org/wiki/C--). Такой себе очень упрощённый C с адски оптимизирующим компилятором и крайне облегчённой вставкой ассемблерного кода. Ещё в те годы была мечта портировать компилятор этого языка на "Вектор" вместе с оболочкой типа TEXTASM, но куда там... в компиляторах я и сейчас ни в зуб ногой

Тем более, что оригинальный компилятор написан на каком-то эзотерическом языке, и, несмотря на то, что исходники доступны: https://github.com/nrnrnr/qc--, сильно это не поможет.

Но так или иначе ИМХО это было бы куда полезнее, чем очередной Бейсик, на котором вряд ли кто-то будет писать новый софт под "Вектор".

[KTSerg]

Для Вектора, даже в 90-ых, была куча языков программирования. Я даже распечатывал толстенные инструкции... но дальше Ассемблера в не времена так и не продвинулся...