ODS-1 это очень интересно. Anasana вот только распаковщик сделал https://zx-pk.ru/threads/26459
А запаковщика нет.
Вот и не получается лёгкой работы, как с плагином для тоталкомандера под файловую систему от RT-11.
Перспективно такое сделать чтобы быстро редактировать ПРОС образы от Э85. Полноценная RSX-то на персоналках считай и не использовалась.
Последний раз редактировалось Radon17; 06.05.2022 в 13:37.
В планах, но более отдалённых - это посложней, чем распаковкаСообщение от Radon17
Там ещё надо понять - в чём отличия
Radon17 (06.05.2022)
Уф.. Основное встраивание распаковки 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".
Последний раз редактировалось Hunta; 23.10.2022 в 01:29.
Не выдержал
Добавил сохранение альтернативных форматов, так что теперь текстовки можно смотреть, остался только дамп заголовка(ов), что уже начал, осталось только допилить
Из того, что ночью не добавилось
Код:# $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. Ну, это мелочь
- - - Добавлено - - -
Поправил. Начинается этап тестирования.
Последний раз редактировалось Hunta; 12.05.2022 в 06:26.
Чистка ошибок и, потихоньку, реализация более подробной технической информации о томе ODS-1
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
В первом приближении (может, что ещё не учёл) таблица "блоки->файл" есть
Код: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
Последний раз редактировалось Hunta; 12.10.2022 в 19:37.
Заканчиваю рефакторинг и потихоньку начал работать над кодом создания образа ODS-1
Как там... "Небольшой шаг для человека и громадный для человечества"
Сделал первый (небольшой) шаг на пути к функционалу по созданию образов 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 - для обратного преобразовния - то есть из объекта в блок (блоки) для образа диска. А его уже можно будет сбрасывать в образ
Ну и по прежнему идёт рефакторинг - как выяснилось - приличное количество кода повторяется, что не есть порядок
А, да, в .NET 6 есть некоторое количество своих приколов, так что налетел в паре мест на то, что код в старом .NET (4.x) работает, а в новом - фиг вам
- - - Добавлено - - -
А, да, ещё - на работа небольшая запарка, так что в рабочие дни процесс идёт так себе.. Но по часу-два вроде получится выделять. А вот во второй половине декабря - начнётся отпуск - где-то до 10 января - там получится оторваться
Ну и ещё одна цель - аналог подключенных к HD в эмуляторе Патрона папок - ещё и с ODS-1
Последний раз редактировалось Hunta; 23.10.2022 в 01:54.
Radon17 (23.10.2022)
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием
