Важная информация

User Tag List

Страница 24 из 24 ПерваяПервая ... 2021222324
Показано с 231 по 235 из 235

Тема: Реальная кассета -> TAP/TZX

  1. #231
    Guru
    Регистрация
    27.02.2005
    Адрес
    москва
    Сообщений
    13,754
    Записей в дневнике
    1
    Спасибо Благодарностей отдано 
    141
    Спасибо Благодарностей получено 
    1,172
    Поблагодарили
    769 сообщений
    Mentioned
    18 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Epsilon Посмотреть сообщение
    Что я делаю не так?
    надеюсь wav 16бит, 8 точно (в-отличии от maketzx) не-распознаётся

  2. #232
    Master Аватар для Epsilon
    Регистрация
    22.01.2013
    Адрес
    г. Уфа
    Сообщений
    543
    Записей в дневнике
    1
    Спасибо Благодарностей отдано 
    12
    Спасибо Благодарностей получено 
    41
    Поблагодарили
    14 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Да, каким-то образом мне удалось сделать ему "правильный" формат. Он нашёл кучу интересного на моей "рабочей" кассете, включая игру, которую я считал утерянной! Спасибо за программулину.

    Недостатки:

    1. нужно как-то отвязаться от обязательной конверсии wav в моно-16бит-48кГц. Кроме того, можно использовать второй канал как источник сигнала при восстановлении испорченных данных.
    2. нужно предусмотреть сохранение всех данных в отдельных TAP-файлах. Сейчас он мне сложил всё, что нашёл в 3 больших TAPки. Как-то придётся это сейчас распиливать и разбирать.

    Спасибо!
    Делаешь новую игруху под спектрум или ищешь "новьё"? Загляни сюда zxonline.net. Если хочешь просто поиграть в классику - то сюда viva-games.ru,

    ZX Spectrum forever

  3. #233
    Guru Аватар для creator
    Регистрация
    02.07.2006
    Адрес
    Новосибирск
    Сообщений
    2,193
    Спасибо Благодарностей отдано 
    422
    Спасибо Благодарностей получено 
    219
    Поблагодарили
    130 сообщений
    Mentioned
    6 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Epsilon Посмотреть сообщение
    Сейчас он мне сложил всё, что нашёл в 3 больших TAPки. Как-то придётся это сейчас распиливать и разбирать.
    Вот тебе резалка TAPок на REXX:

    Код:
    /* TAPSplit */
    
    OPTIONS AREXX_SEMANTICS
    OPTIONS AREXX_BIFS
    
    parse arg infile
    
    if infile='' then do
    say 'required argument missing'
    say 'No file to split'
    exit
    end
    
    infile=strip(infile,,'"')
    
    if ~open(infile,infile,'r') then do
    say 'No file to split'
    exit
    end
    
    a=seek(infile,0,'b')
    outfilenumber=0
    
    loop:
    length=readch(infile,2)
    if eof(infile) then exit
    data=readch(infile,c2d(reverse(length)))
    outfilenumber=right(outfilenumber+1,3,0)
    outfile=left(infile,length(infile)-4)'-'outfilenumber'.tap'
    if ~open(outfile,outfile,'w') then do
    say 'Error save file' outfile
    exit
    end
    a=charout(outfile,length||data)
    a=close(outfile)
    signal loop
    Последний раз редактировалось creator; 10.04.2016 в 17:19.

  4. #234
    Master Аватар для Epsilon
    Регистрация
    22.01.2013
    Адрес
    г. Уфа
    Сообщений
    543
    Записей в дневнике
    1
    Спасибо Благодарностей отдано 
    12
    Спасибо Благодарностей получено 
    41
    Поблагодарили
    14 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от creator Посмотреть сообщение
    Вот тебе резалка TAPок на REXX
    Спасибо) Мне теперь нужна Амига, чтобы это запустить?
    Делаешь новую игруху под спектрум или ищешь "новьё"? Загляни сюда zxonline.net. Если хочешь просто поиграть в классику - то сюда viva-games.ru,

    ZX Spectrum forever

  5. #235
    Guru Аватар для creator
    Регистрация
    02.07.2006
    Адрес
    Новосибирск
    Сообщений
    2,193
    Спасибо Благодарностей отдано 
    422
    Спасибо Благодарностей получено 
    219
    Поблагодарили
    130 сообщений
    Mentioned
    6 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Epsilon, на Амиге не заработает, я переделывал её под PC-шный интерпретатор Regina.
    Изначальная амижная была такая:
    Код:
    /* TAPSplit */
    
    parse arg infile
    
    if infile='?' then do
    options prompt 'FILE/A: '
    parse pull infile
    end
    
    if infile='' then do
    say 'required argument missing'
    say 'No file to split'
    exit
    end
    
    infile=strip(infile,,' "')
    
    if ~open(infile,infile,'r') then do
    say 'No file to split'
    exit
    end
    
    filelength=seek(infile,0,'e')
    seek(infile,0,'b')
    
    outfile=0
    
    loop:
    
    blocklength=c2d(reverse(readch(infile,2)))
    string=readch(infile,blocklength)
    outfile=right(outfile+1,3,0)
    open(outfile,outfile'.tap','w')
    writech(outfile,reverse(d2c(blocklength,2))||string)
    close(outfile)
    if seek(infile,0)=filelength then exit
    
    signal loop

Страница 24 из 24 ПерваяПервая ... 2021222324

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •