Вид для печати
ODS-1 это очень интересно. Anasana вот только распаковщик сделал https://zx-pk.ru/threads/26459
А запаковщика нет. :(
Вот и не получается лёгкой работы, как с плагином для тоталкомандера под файловую систему от RT-11.
Перспективно такое сделать чтобы быстро редактировать ПРОС образы от Э85. Полноценная RSX-то на персоналках считай и не использовалась.
В планах, но более отдалённых - это посложней, чем распаковка :)Цитата:
Сообщение от Radon17
Там ещё надо понять - в чём отличияЦитата:
Сообщение от Radon17
Уф.. Основное встраивание распаковки ODS-1 в штатный механизм программы - есть. Осталось только добавить сохранение в альтернативных форматах (особенно для текстовых файлов) и некоторой информации из заголовка. Но это уже.. скорее всего в среду.
Результат работы штатного механизма (помимо сохранения файлов :) ) - листинг содержимого в формате программы PIP :)
Код:Directory [0,0]
INDEXF.SYS;1 (1,1) 1416./1416. 25-FEB-2015 21:13 [1,1] [RWED,RWED,RWED,R]
BITMAP.SYS;1 (2,2) 77./77. 25-FEB-2015 21:13 [1,1] [RWED,RWED,RWED,R]
BADBLK.SYS;1 (3,3) 1./1. 25-FEB-2015 21:13 [1,1] [RWED,RWED,RWED,R]
000000.DIR;1 (4,4) 1./1. C 25-FEB-2015 21:13 [1,1] [RWED,RWED,RWED,R]
CORIMG.SYS;1 (5,5) 0./0. 25-FEB-2015 21:13 [1,1] [RWED,RWED,RWED,R]
RSX11.SYS;1 (37,1) 26./26. C 18-DEC-1998 02:35 [1,1] [RWED,RWED,RWED,R]
001001.DIR;1 (6,1) 2./2. C 25-FEB-2015 21:13 [1,1] [RWED,RWED,RWED,R]
001002.DIR;1 (7,1) 1./1. C 25-FEB-2015 21:13 [1,2] [RWED,RWED,RWED,R]
001003.DIR;1 (10,1) 1./1. C 25-FEB-2015 21:13 [1,3] [RWED,RWED,RWED,R]
001004.DIR;1 (11,1) 1./1. C 25-FEB-2015 21:13 [1,4] [RWED,RWED,RWED,R]
001006.DIR;1 (12,1) 1./1. C 25-FEB-2015 21:13 [1,6] [RWED,RWED,RWED,R]
001007.DIR;1 (13,1) 1./1. C 25-FEB-2015 21:13 [1,7] [RWED,RWED,RWED,R]
001010.DIR;1 (14,1) 1./1. C 25-FEB-2015 21:13 [1,10] [RWED,RWED,RWED,R]
001011.DIR;1 (15,1) 1./1. C 25-FEB-2015 21:13 [1,11] [RWED,RWED,RWED,R]
001020.DIR;1 (16,1) 4./4. C 25-FEB-2015 21:13 [1,20] [RWED,RWED,RWED,R]
001024.DIR;1 (17,1) 4./4. C 25-FEB-2015 21:13 [1,24] [RWED,RWED,RWED,R]
001034.DIR;1 (20,1) 1./1. C 25-FEB-2015 21:13 [1,34] [RWED,RWED,RWED,R]
001054.DIR;1 (21,1) 1./1. C 25-FEB-2015 21:13 [1,54] [RWED,RWED,RWED,R]
002054.DIR;1 (22,1) 2./2. C 25-FEB-2015 21:13 [2,54] [RWED,RWED,RWED,R]
003054.DIR;1 (23,1) 6./6. C 25-FEB-2015 21:13 [3,54] [RWED,RWED,RWED,R]
006054.DIR;1 (24,1) 1./1. C 25-FEB-2015 21:13 [6,54] [RWED,RWED,RWED,R]
011010.DIR;1 (25,1) 6./6. C 25-FEB-2015 21:13 [11,10] [RWED,RWED,RWED,R]
011024.DIR;1 (26,1) 1./1. C 25-FEB-2015 21:13 [11,24] [RWED,RWED,RWED,R]
011034.DIR;1 (27,1) 1./1. C 25-FEB-2015 21:13 [11,34] [RWED,RWED,RWED,R]
011040.DIR;1 (30,1) 1./1. C 25-FEB-2015 21:13 [11,40] [RWED,RWED,RWED,R]
012024.DIR;1 (31,1) 1./1. C 25-FEB-2015 21:13 [12,24] [RWED,RWED,RWED,R]
045010.DIR;1 (32,1) 2./2. C 25-FEB-2015 21:13 [45,10] [RWED,RWED,RWED,R]
045024.DIR;1 (33,1) 1./1. C 25-FEB-2015 21:13 [45,24] [RWED,RWED,RWED,R]
200001.DIR;1 (34,1) 1./1. C 25-FEB-2015 21:13 [200,1] [RWED,RWED,RWED,R]
USER.DIR;1 (35,1) 2./2. C 25-FEB-2015 21:13 [200,1] [RWED,RWED,RWED,R]
200200.DIR;1 (36,1) 1./1. C 25-FEB-2015 21:13 [200,200][RWED,RWED,RWED,R]
Total of 1566./1566. blocks in 31. files
Directory [1,1]
KITIDENT.DAT;1 (40,1) 2./2. 18-DEC-1998 02:35 [1,1] [RWED,RWED,RWED,R]
VERSION.CMD;1 (41,1) 1./1. 18-DEC-1998 02:35 [1,1] [RWED,RWED,RWED,R]
RSXMAC.SML;1 (42,1) 307./307. C 18-DEC-1998 02:35 [1,1] [RWED,RWED,RWED,R]
SYSLIB.OLB;1 (43,1) 280./280. C 18-DEC-1998 02:35 [1,1] [RWED,RWED,RWED,R] 18-DEC-1998 02:36(2.)
NOANSLIB.OLB;1 (44,1) 271./271. C 18-DEC-1998 02:36 [1,1] [RWED,RWED,RWED,R] 18-DEC-1998 02:38(2.)
NOVACPLIB.OLB;1 (45,1) 22./22. C 18-DEC-1998 02:38 [1,1] [RWED,RWED,RWED,R]
VMLIB.OLB;1 (46,1) 17./17. C 18-DEC-1998 02:38 [1,1] [RWED,RWED,RWED,R]
....
SGNBLDBLD.CMD;1 (1425,1) 57./57. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
SGNKLAB.CMD;1 (1424,1) 71./71. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
SGNPREFIX.CMD;1 (1421,1) 12./12. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
SYSGEN.CMD;1 (1420,1) 3./3. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
RSXMC0.MAC;1 (1417,1) 16./16. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
WRKEXECOP.TXT;1 (1426,1) 7./7. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
WRKMASSCO.TXT;1 (1427,1) 2./2. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
WRKMASSDR.TXT;1 (1430,1) 4./4. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
WRKUNIBCO.TXT;1 (1431,1) 3./3. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
WRKUNIBDR.TXT;1 (1432,1) 4./4. 18-DEC-1998 02:46 [200,200][RWED,RWED,RWED,R]
Total of 1461./1461. blocks in 12. files
Grand Total of 37623./37623. blocks in 856. files in 16. directories
[2022-май-10 03:35:57 info] Files extracted from "1 of 2 RSX11MPBL87 RQ.dsk" and written to "@1 of 2 RSX11MPBL87 RQ.dsk".
Не выдержал :)
Добавил сохранение альтернативных форматов, так что теперь текстовки можно смотреть, остался только дамп заголовка(ов), что уже начал, осталось только допилить :)
Из того, что ночью не добавилось
Код:# $VOLUM.INF - info about ODS-1 volume on NoDev device.
# Produced by ODS1FileSystemClass
# Volume name : RSX11MPBL87
# Volume structure level : ODS-1 (402)
# Volume owner's UIC : [1,1]
# Volume protection : [RWCD,RWCD,RWCD,RWCD]
# Default file protection : [RWED,RWED,RWED,R]
# Default extension : 5
# Volume creation date : 18-DEC-2018 06:48:45
# Volume serial number : 600000
# System independent volume name : RSX11MPBL87
# System independent volume owner name : [001,001]
# System independent format type : DECFILE11A
# Index file bitmap size : 8 block(s)
# Index file bitmap LBN # : 307500
# Maximum number : 30000 of files allowed
# Storage bitmap cluster factor : 1
# Disk device type : 0
# Volume characteristics : 30
# Default window size : 7
# Directory pre-access limit : 3
# Block size : 512
# Block Count : 615000
# File 0 [0,0]INDEXF.SYS
# File 1 [0,0]BITMAP.SYS
# File 2 [0,0]BADBLK.SYS
# File 3 [0,0]000000.DIR
# File 4 [0,0]CORIMG.SYS
# File 5 [0,0]RSX11.SYS
# File 6 [0,0]001001.DIR
# File 7 [1,1]ATOF.OBJ
# File 8 [1,1]AUTOIN.LOG
Основная часть распаковки - закончена
Код:Ident area offset : 56
Map area offset : 134
File ID : (1,1)
File System Level : 1.1
File Owner : [1,1]
File Protection : [RWED,RWED,RWED,R]
System File characteristics : 0
User File characteristics : 0
Record Type : 0 Undefined
Record Attributes : 0
Record Size : 0.
High Allocated block : 0.
End of File Block : 0.
First Free Byte in EOF Block : 0
Full File Name : INDEXF.SYS;1
File Name : INDEXF
File Name Extension : SYS
File Version : 1.
File Creation Date/Time : 18-DEC-2018 06:48
File Revision Date/Time :
File Revision No :
File Expiration Date :
Extension Segment No : 0
Extension Relative Volume No : 0
Extension File Number : 3238
Extension File Sequence Number : 3238
Block count field size : 1
LBN field size : 3
Used Retrieval Ponters : 102.
Max Retrieval Ponters : 102.
Retrieval Ponters : 0..1
: 307500..333099
Next header
Ident area offset : 56
Map area offset : 134
File ID : (6246,6246)
File System Level : 1.1
File Owner : [1,1]
File Protection : [RWED,RWED,RWED,R]
System File characteristics : 0
User File characteristics : 0
Record Type : 0 Undefined
Record Attributes : 0
Record Size : 0.
High Allocated block : 0.
End of File Block : 0.
First Free Byte in EOF Block : 0
Full File Name : INDEXF.SYS;1
File Name : INDEXF
File Name Extension : SYS
File Version : 1.
File Creation Date/Time : 18-DEC-2018 06:48
File Revision Date/Time :
File Revision No :
File Expiration Date :
Extension Segment No : 1
Extension Relative Volume No : 0
Extension File Number : 0
Extension File Sequence Number : 0
Block count field size : 1
LBN field size : 3
Used Retrieval Ponters : 18.
Max Retrieval Ponters : 102.
Retrieval Ponters : 333100..337513
Какое то время буду гонять распаковку разного и править ошибки. Плюс - хочу добавить побольше технической информации о томе в целом - в частности - таблицу использования блоков. Но над ней ещё надо подумать - как лучше реализовать.Код:Ident area offset : 56
Map area offset : 134
File ID : (6550,1)
File System Level : 1.1
File Owner : [6,1]
File Protection : [RWED,RWED,RWED,R]
System File characteristics : 0
User File characteristics : 0
Record Type : 41 RMSRelative (Fixed Length)
Record Attributes : 2 (Implied carriage control)
Record Size : 47.
High Allocated block : 6.
End of File Block : 7.
First Free Byte in EOF Block : 0
Full File Name : OWNER.DAT;2
File Name : OWNER
File Name Extension : DAT
File Version : 2.
File Creation Date/Time : 18-JAN-2012 21:06
File Revision Date/Time : 18-JAN-2012 21:06
File Revision No : 1.
File Expiration Date :
Extension Segment No : 0
Extension Relative Volume No : 0
Extension File Number : 0
Extension File Sequence Number : 0
Block count field size : 1
LBN field size : 3
Used Retrieval Ponters : 1.
Max Retrieval Ponters : 102.
Retrieval Ponters : 27490..27495
Потом посмотрим, в принципе - создание образов.
- - - Добавлено - - -
Ааа, вспомнил - надо ещё атрибуты RMS (дополнительные к FCS) добавить и дамп всех User File Attributes. Ну, это мелочь :)
- - - Добавлено - - -
Поправил. Начинается этап тестирования.
Чистка ошибок и, потихоньку, реализация более подробной технической информации о томе ODS-1
В первом приближении (может, что ещё не учёл) таблица "блоки->файл" есть
Код:0- 0 -> [0,0]INDEXF.SYS;1 - BootBlock
1- 1 -> [0,0]INDEXF.SYS;1 - HomeBlock
2- 2 -> [0,0]BP2.DIR;1
3- 994 -> [BP2]BP2IC2.TSK;1
995- 1208 -> [BP2]BP2OPT.TSK;1
1209- 1441 -> [BP2]BP2RUN.TSK;1
.............
202748- 203095 -> [MATLOCK]FMSV12.ZIP;1
203096- 203096 -> [MATLOCK]FTPEMA.BAT;4
203097- 215736
215737- 215751 -> [MATLOCK]FTPRSX.LOG;5
215752- 215766 -> [MATLOCK]BRUTCP.LOG;184
215767- 225279
225280- 225289 -> [MATLOCK]FTPTAPE.LOG;209
225290- 225404 -> [MATLOCK]PROGRESS.TXT;223
.............
1679995- 1679996 -> [5,2]OCBDF.H;2
1679997- 1679999 -> [5,2]PCBDF.H;2
1680000- 1680015 -> [0,0]INDEXF.SYS;1 - index file headers bitmap
1680016- 1731719 -> [0,0]INDEXF.SYS;1
1731720- 1731723 -> [0,0]000000.DIR;1
1731724- 1732545 -> [0,0]BITMAP.SYS;1
1732546- 1754545 -> [1,1]11S054.DSK;1
.............
2088595- 2099009 -> [MATLOCK]BQTCP.TAP;677
2099010- 2099019 -> [MATLOCK]FTPTAPE.LOG;209
2099020- 3359998
3359999- 3359999 -> [0,0]BADBLK.SYS;1
В процессе переноса TU58fs и (использующего его кодовую базу) ImageUtils в Shared Project общую кодовую базу. Из получаемых плюшек - избавление от повторов кода по всем моим C# проектам и возможность использовать модули работы с DEC ФС в других проектах - например, можно будет открывать в DisAsm-11 файлы программных модулей прямо в ФС образов диска - без распаковки. Ну и как прикол - сохранять результаты прямо туда же :)
Ну и некоторые наработки из других проектов (в первую очередь, из того же DisAsm-11) поедут в TU58fs и ImageUtils
Заканчиваю рефакторинг и потихоньку начал работать над кодом создания образа ODS-1 :)
Как там... "Небольшой шаг для человека и громадный для человечества" :D
Сделал первый (небольшой) шаг на пути к функционалу по созданию образов ODS-1 :) И он отработал - как ожидалось :)
Шаг действительно небольшой - переделка классов (нууу.. пока только класса для home block-а) описания структуры ODS-1 по той же схеме, что я сделал для DisAsm-11 - то есть, весь код создания объекта выглядит так:
А внутри (любого!) конструктора, использующего этот подход - всего одна строчка:Код:HomeBlock hbtest = new(ImageData.BlkGetBlocks(blkNo));
и всю работу делает (универсальный!) метод Mapper :)Код:public HomeBlock(byte[] data, uint baseOffset = 0)
=> this.Mapper(data, baseOffset);
Как выглядит описание класса:
Но шаг достаточно важный - так как теперь можно использовать не только простые типы данных (строки, числа, перечисления-флаги), но и более сложные (как например классы VolumeProtection и FileProtection) - при определённых условиях для таких классов - Mapper сможет преобразовать байты или слова из блоков - в соотвествующие объекты.Код:[Serializable]
[Flags]
[Macro("LBLDF$")] public enum F_VCHA : UInt16
{
CH_NDC = 8 // 10 no device control functions
, CH_NAT = 16 // 20 no attach/detach
// CH.RCK = ?? // Set if the volume is to be read checked (not in RSX?)
// CH.WCK = ?? // Set if the volume is to be write checked (not in RSX?)
, CH_SDI = 256 // 400 single directory volume
}
[Serializable]
[Macro("HMBO1$")] public class HomeBlock
{
[Map("H.IBSZ: .BLKW 1")] public UInt16 H_IBSZ; // [2] Index file bitmap size in blocks (number of blocks in the index bitmap, which is the offset for the file-headers)
[Map("H.IBLB: .BLKW 2", dataOrder: PDP11Order.BigWordEndian)] public ODS1BlockNum H_IBLB; // [4] Index file bitmap LBN addres ([2] #define H_iblh H_iblb[0] - high word, [2] #define H_ibll H_iblb[1] - low word) (long) -> GetBDWord
[Map("H.FMAX: .BLKW 1")] public UInt16 H_FMAX; // [2] Maximum number of files allowed on this volume (& 077777)
[Map("H.SBCL: .BLKW 1")] public UInt16 H_SBCL; // [2] Storage bitmap cluster factor (cluster size for storage bitmap); the only legal value for this item in ODS-1 is must always be 1
// (That means, the disk cluster sizes 2 - that is two 512 byte sectors (1 kbyte) was the smallest chunk of disk that would be allocated to store a file. Etc.)
[Map("H.DVTY: .BLKW 1")] public UInt16 H_DVTY; // [2] Disk device type
[Map("H.VLEV: .BLKW 1")] public UInt16 H_VLEV; // [2] Volume structure level (ods-1 = 0x102, ods-2 = 0x201)
[Map("H.VNAM: .BLKB 12.")] public string H_VNAM; // [12] Volume name (id)
[Set(".=.+4")]
[Map("H.VOWN: .BLKW 1")] public string H_VOWN; // [2] Volume owner's decimal UIC in binary (ie: [1,1])
[Map("H.VPRO: .BLKW 1")] public VolumeProtection H_VPRO; // [2] Volume protection code
[Map("H.VCHA: .BLKW 1")] public F_VCHA H_VCHA; // [2] Volume characteristics (24 (030) = no attach, no device control fcns)
[Map("H.DFPR: .BLKW 1")] public FileProtection H_DFPR; // [2] Default file protection (2 h_dfpr = 164000 - default protection for files)
...
static HomeBlock()
=> Helpers.Mapper<HomeBlock>();
public HomeBlock(byte[] data, uint baseOffset = 0)
=> this.Mapper(data, baseOffset);
}
Что будет дальше - надо описать полностью те классы, которые я сделал (но по другому) для работы по распаковки ODS-1, сделать возможным изменения для объектов этих классов (технически, первый вариант это позволяет, но.. не всё там будет гладко) и нарисовать метод ReMapper - для обратного преобразовния - то есть из объекта в блок (блоки) для образа диска. А его уже можно будет сбрасывать в образ :) Попробую успеть за выходные полностью сделать новое описние и этот функционал для Home блока. Описание - тупо перенести остаток (ну и сделать некоторое количество классов типа FileProtection и VolumeProtection) - достаточно механическая работы. ReMapper тоже не сильно сложный, так как он похож на Mapper, только в обратную сторону
Ну и по прежнему идёт рефакторинг - как выяснилось - приличное количество кода повторяется, что не есть порядок :)
А, да, в .NET 6 есть некоторое количество своих приколов, так что налетел в паре мест на то, что код в старом .NET (4.x) работает, а в новом - фиг вам :) Решилось достаточно быстро :)
- - - Добавлено - - -
А, да, ещё - на работа небольшая запарка, так что в рабочие дни процесс идёт так себе.. Но по часу-два вроде получится выделять. А вот во второй половине декабря - начнётся отпуск - где-то до 10 января - там получится оторваться :) Может даже повожусь с PDP-2011 :)
Ну и ещё одна цель - аналог подключенных к HD в эмуляторе Патрона папок - ещё и с ODS-1 :) И с возможностью цеплять их к реальных PDP-11 - пока только в варианте через контроллер DD (у него общение идёт через serial порт на стороне PDP-11), но есть некоторые мысли - какой путь выбрать дальше :)