CP/M для profi

[tae1980]

alvis, Нет, такая информация не планируется.
Во первых, 99% программ работают везде без ограничений. А как выявить остальные просто не знаю.
Для программ типа управления палитрой, комп порта и т.п. понятно, что нужно профильное железо. Случаи конфликта железа, мне не известны.
Знаю 5-7 программ, которые требуют определённую версию системы. Из них только одна программа имеет практическую ценность, и хотелось бы её подправить. Остальные либо устарели, либо имеют иную версию. То есть тут подходи индивидуальный и его легко отразить в описании.

[alvis]

Знаю, что все это не просто. Однако поля под такую информацию предусмореть думаю стоит. В т.ч. что-то типа "дополнительная информация". А со временем, эти поля заполнятся. Надеюсь. Возможно авторы или те, кто владеет точной информацией помогут.

[tae1980]

Есть немецкий пакет утилит cpmtools, который позволят работать с образами дисков CP/M из командной строки. Но разумеется он ни чего не знает о образах в формате *.pro.
В наличие есть конфигурационный файл, в котором можно его прописать. Что я и попробовал сделать. Получилось прочитать каталог, скопировать файлы из образа, удалить файл в образе. Но не могу корректно записать файл в образ. Файл пишется, но имеет бешено большой размер.

Исходный описание форматов образов выглядит так

diskdef ibm-3740
  seclen 128
  tracks 77
  sectrk 26
  blocksize 1024
  maxdir 64
  skew 6
  boottrk 2
  os 2.2
end

Вот описание образа pro из другой программы.

# PRO (Profi Disk Image, CP/M) - image size strictly (!) 819200 bytes:
#   5 x 1024b sectors, double density, 80 tracks, 4k catalog, 0 system tracks, 16k extents
#
# PROFI_5x1024x2x80= 01010301050050002800040F008E017F00C00020000000
#      0101
# len: $03;    // размер сектора 0=128, 1=256, 2=512, 3=1024  - orion(korvet) feature - must be defined!
# den: $01;    // плотность (или стороны ?):  0=НДМЮ,  1=ДБЕ  - orion(korvet) feature - must be defined!
# sec: $0005;  // phisical sectors per track                  - this and items below are standard CPM features
# trk: $0050;  // phisical tracks on disk (one side)
# spt: $0028;  // logical sectors (128b) per track
# bsh: $04;    // Block Shift - Block Size is given by 128 * 2^(BSH).  Here BlockSize=2048
# blm: $0F;    // Block Mask - Block Size is given by 128 * (BLM +1).  Here BlockSize=2048
# exm: $00;    // Extent Mask (0=16k, 1=32k, 3=64k, 7=128k)
# dsm: $018E;  // user space size in 2048b blocks = SEC * (TRK-OFF) - (CKS/8)
# drm: $007F;  // max quantity of file records (FCBs) in catalog -1
# al:  $00C0;  // 16-bit Directory Allocation Pattern
# cks: $0020;  // Directory Check Sum = catalog size (in logical blocks)
# off: $0000;  // system tracks

Вот что подправил я

diskdef pro
  seclen 1024
  tracks 80
  sectrk 5
  blocksize 2048
  maxdir 127
  skew 0
  boottrk 0
  os 2.2
end

Получится, что где-то ошибся. но не пойму где.
Может кто сможет понять где я ошибся?

[Black Cat / Era CG]

Дорожек 160 (2 стороны же)

[solegstar]

skew 6

а это что за параметр?

[Black Cat / Era CG]

а это что за параметр?

Это софтовый интерлив по сути. Сектра читаются не по порядку, а правильный порядок лежит где-то на системных дорогах.

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

http://www.seasip.info/Cpm/format14.html
на забугорных железках часто использовали.

[tae1980]

Дорожек 160 (2 стороны же)

Спасибо! Подправил.
Что-то ещё не так....
При попытке записи "AUTOEXEC.BAT" получает размер файла "96 469 120"

[tae1980]

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

diskdef name                format definition
  seclen n                128,256,512,1024,.. physical Sector length
  tracks n                1.. Number of tracks                 = (Cylinders * Sides)
  sectrk n                1.. Sectors per track
  blocksize n                1024,2048,4096,8192,16384 Block size = (128*(BLM+1))
  maxdir n                1.. Number of directory entries      = (DRM+1)
  skew n                0.. Logical sector skew
  skewtab r1,r2,r3,...            skew table
  boottrk n                Number of system tracks              = OFS
  offset n | nK | nM | nT        n Byte|n Kilobyte|n Megabyte|n Tracks
  logicalextents            Logical extents per physical extent
  os 2.2 | 3 | isx | p2dos | zsys    
  libdsk:format name            pcw720, cpcsys
end
 

Berechnungen:

size := (secLength*sectrk*(tracks-boottrk))/blksiz;
if (extents==0) extents := ((size>=256 ? 8 : 16)*blksiz)/16384; if (extents==0) extents := 1;
Allocatabledatablocks := size-(maxdir*32+blksiz-1)/blksiz);

posix:
physical pos := ((sector+track*sectrk)*secLength)+offset;
  
win32c:
SetFilePointer := ((sector+track*sectrk)*secLength)+offset; 

libdisk:
physical sector := track*sectrk + sector + offset/secLength;

[Black Cat / Era CG]

Я с ней никогда не связывался, только параметры тырил. Вроде все правильно. Не знаю, почему так.

[tae1980]

Black Cat / Era CG, остаётся одна надежда на то, что бы ты добавил функционал работы из командной строки у себя.

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

Я тут посчитал 96 469 120/127=759 599,37
Можно округлить да 760 000, и что-то мне кажется это подозрительным.... Но вот пока не пойму причину.
Хотя тут я скорее всего притягиваю за уши. Но это уже от безвыходности.