[Поиск 1] Кассетный интерфейс

[SoftCat]

Tronix, имеет смысл записывать 17-байтный заголовок в отдельный файл.

В wav2cas для МС1502 не надо вычитать 256 байт. Именно поэтому у Пасьянса получился размер 5F02h байт, а у Редактора текста вообще получается отрицательный размер 2 - 256 = -254 байта.

.......
      If Poisk then
         begin
            WriteLn('Size      : '+IntToStr(Phdr.FLen));
            WriteLn('Type      : '+IntToHex(Phdr.Ftype,2));
         end
      else
         begin
            WriteLn('Size      : '+IntToStr(Mhdr.FLen)+' (-256 bytes)');
            WriteLn('Type      : '+IntToHex(Mhdr.Ftype,2));
         end;
.......
  If Poisk then TotalCnt := Phdr.FLen else TotalCnt := Mhdr.Flen-256;
....... 

В wav2cas в структуре Wave_Fmt поля Sample_Rate и Bytes_secnd должны быть типа LongInt.