Контроллер псевдодиска на MicroSD на шину МПИ, ДВК-1; ДВК-2; ДВК-3; ДВК-4; Электроника-60; Электроника 60М; Славутич ПК-1; УКНЦ |
Здравствуйте, гость ( Вход | Регистрация )
Контроллер псевдодиска на MicroSD на шину МПИ, ДВК-1; ДВК-2; ДВК-3; ДВК-4; Электроника-60; Электроника 60М; Славутич ПК-1; УКНЦ |
SuperMax |
26.4.2021, 7:36
Сообщение
#21
|
Администратор Группа: Root Admin Сообщений: 6 295 Регистрация: 7.1.2006 Из: Красноярск Пользователь №: 1 |
Обновление драйверов AZ.
V05.00
Код .IND AZGEN ; ;AZ/RT-11 HANDLER GENERATION PROGRAM. ; ;AZ V05.01 ; * USE EIS INSTRUCTIONS? [Y/N D:N]: * ENTER HANDLER NAME (AZ/DA) [S R:0-204 D:"DA"]: ; ;BUILDING DA.SYS (RT-11SJ/SB/FB): ; NO ERROR LOGGING SUPPORT ; NO MEMORY MANAGEMENT SUPPORT ; NO DEVICE TIMEOUT SUPPORT ; USING BASE INSTRUCTION SET ; .MAC/OB:DA AZPRE+AZ .LIN/NOBI/EXE:DA.SYS DA ; ;BUILDING DAE.SYS (RT-11SJ/SB/FB): ; ERROR LOGGING SUPPORT ; NO MEMORY MANAGEMENT SUPPORT ; NO DEVICE TIMEOUT SUPPORT ; USING BASE INSTRUCTION SET ; .MAC/OB:DAE AZPRE+AZ .LIN/NOBI/EXE:DAE.SYS DAE ; ;BUILDING DAT.SYS (RT-11SJ/SB/FB): ; NO ERROR LOGGING SUPPORT ; NO MEMORY MANAGEMENT SUPPORT ; DEVICE TIMEOUT SUPPORT ; USING BASE INSTRUCTION SET ; .MAC/OB:DAT AZPRE+AZ .LIN/NOBI/EXE:DAT.SYS DAT ; ;BUILDING DAET.SYS (RT-11SJ/SB/FB): ; ERROR LOGGING SUPPORT ; NO MEMORY MANAGEMENT SUPPORT ; DEVICE TIMEOUT SUPPORT ; USING BASE INSTRUCTION SET ; .MAC/OB:DAET AZPRE+AZ .LIN/NOBI/EXE:DAET.SYS DAET ; ;BUILDING DAX.SYS (RT-11XM/XB/ZM/ZB/TSX-PLUS): ; NO ERROR LOGGING SUPPORT ; MEMORY MANAGEMENT SUPPORT ; DEVICE TIMEOUT SUPPORT ; USING EXTENDED INSTRUCTION SET ; .MAC/OB:DAX AZPRE+AZ .LIN/NOBI/EXE:DAX.SYS DAX ; ;BUILDING DAXE.SYS (RT-11XM/XB/ZM/ZB): ; ERROR LOGGING SUPPORT ; MEMORY MANAGEMENT SUPPORT ; DEVICE TIMEOUT SUPPORT ; USING EXTENDED INSTRUCTION SET ; .MAC/OB:DAXE AZPRE+AZ .LIN/NOBI/EXE:DAXE.SYS DAXE ; .DEL/NOQ AZPRE.MAC .DEL/NOQ DA(,E,T,ET,X,XE).OBJ ; 15-Apr-2021 DA .SYS 3 15-Apr-2021 DAT .SYS 3 15-Apr-2021 DAE .SYS 3 15-Apr-2021 DAX .SYS 3 15-Apr-2021 DAET .SYS 3 15-Apr-2021 DAXE .SYS 3 15-Apr-2021 6 Files, 18 Blocks 19561 Free blocks ; @ <EOF> . azck41.dsk ( 24.5 килобайт ) Кол-во скачиваний: 2198 azv40.dsk ( 25.5 килобайт ) Кол-во скачиваний: 2208 azv41.dsk ( 25.5 килобайт ) Кол-во скачиваний: 2221 azv50.dsk ( 28 килобайт ) Кол-во скачиваний: 2038 azv51.dsk ( 37 килобайт ) Кол-во скачиваний: 2101 azv60.dsk ( 37 килобайт ) Кол-во скачиваний: 2041 azv61.dsk ( 37.5 килобайт ) Кол-во скачиваний: 2157 -------------------- Живы будем - Не помрем !
|
SuperMax |
4.5.2021, 11:47
Сообщение
#22
|
Администратор Группа: Root Admin Сообщений: 6 295 Регистрация: 7.1.2006 Из: Красноярск Пользователь №: 1 |
Выложил образ диска AZ с дистрибутивом RSX-11M-PLUS V4.6.
см https://zx-pk.ru/threads/28134-kontroller-p...l=1#post1113574 Изменения в дистрибутиве по сравнению с оригиналом:
Для поддержки более 8 устройств требуется Firmware v2.0 или новее. Для контроллера AZ поддерживается автоконфигурация. При этом количество устройств будет посчитано по максимальному используемому номеру. Если такой вариант не подходит - можно подправить результат автоконфигурации. Если при генерации не была выбрана автоконфигурация или было выбрано изменение результатов автоконфигурации - будут заданы вопросы про количество AZ11 контроллеров (пока поддерживается не более одного), про количестве устройств, про соответствие номеров устройств драйвера физическим номерам устройств, а также про адрес регистра контроллера и его вектор. В большинстве случаев можно использовать ответы по умолчанию. Следует обратить внимание, что в вопросах про номер устройства используется восьмеричная система счисления, тогда как в файле AZ.INI - десятичная. Код >; >; DA: controller: AZ11 >; >; The AZ11 disk controller supports up to 32 disk drives mapped to >; disk image files stored on FAT32-formatted microSD memory stick. >; >* CP3604 How many AZ11 disk image controllers do you have? [O R:0-1 D:0]: 1 >; >; Enter the total number of AZ11 disk drives in your system. >; >* CP3608 How many AZ11 disk drives do you have? [D R:1.-32. D:32.]: >; >; >; The physical unit number of a drive is the number specified >; in AZ.INI file in the root of microSDHC card filesystem. >; >* CP3636 What is the physical unit number of DA0:? [O R:0-37 D:0]: >; >; >* CP3636 What is the physical unit number of DA1:? [O R:0-37 D:1]: ... >; >* CP3636 What is the physical unit number of DA37:? [O R:0-37 D:37]: >; >; >; Enter the vector address for this controller. This vector address >; can be changed after the SYSGEN by using the VMR CON SET command. >; >* CP3668 Enter the vector address of DAA [O R:60-774 D:174]: >; >; Enter the CSR address for this controller. This CSR address can >; be changed after the SYSGEN by using the VMR CON SET command. >; >* CP3672 What is its CSR address? [O R:160000-177700 D:177220]: Особенности генерации системы на ДВК: Прежде всего стоит отметить, что для нормальной работы системы требуется хотя бы 512Кб памяти. В принципе загрузить RSX-11M-PLUS можно и в 256Кб (минимальная 22-битная конфигурация), но процесс подготовки системы к этому весьма трудоемкий, а результат не будет стоить затраченных усилий. В базовой системе используется частота таймера 60Hz. Если хочется более точно наблюдать за временем в процессе генерации системы - стоит установить правильную частоту и время перед запуском SYSGEN. Код >CON SET SYS $TKPS=50. >TIM 28-APR-2021 22:54:30 В данном дистрибутиве ACF определяет процессор ВМ3 как 11/23-PLUS - это позволяет использовать автоконфигурацию оборудования. Код >* SU100 Do you want to run Autoconfigure on the host system >* hardware? [Y/N D:N]: [B]Y[/B] Если автоконфигурация не была выбрана - на вопрос о типе процессора стоит ввести 11/23-PLUS. Код >* CE010 What is your target processor type? [S R:3.-12. D:"11/70"]: [B]11/23-PLUS[/B] Процессор ВМ3 не поддерживает разделения пространств инструкций и данных. Для таких систем лучше не включать XDT при генерации (это уменьшает количество свободной динамической памяти), а использовать загружаемый XDT. Код * CE270 Do you want to include XDT? [Y/N D:N]: [B]N[/B] В качестве устройства крэш-дампа стоит выбрать XX: (загружаемый драйвер). Код >* CE290 On what device and unit do you want crash dumps >* to be written? [S R:2-6]: [B]XX:[/B] После завершения процесса генерации, грузим новую систему командой BOO [1,54] и сохраняем с записью апраратного загрузчика командой SAV /WB. Так же для улучшения производительности стоит добавить опцию /MOU="/ACP=UNIQUE". Код >SAV /WB/MOU="/ACP=UNIQUE" В рабочей системе есть смысл включить кэширование дисков (если память позволяет). Это значительно ускоряет работу (хотя и не всегда). Код >SET /CACHE=LB:(CRE=::1200:TOP,LOG=10,VIR=10,DIR=10,OVE= 10,REA=10,DEF) Можно загрузить системный отладчик XDT. Код >LOA /EXP=XDT/VEC/FLAGS=2/HIGH На случай сбоев можно загрузить CRASH драйвер DA: для сохранения аварийного дампа с целью его анализа программой CDA. Код >SET /CRASHDEV=DA37: https://youtu.be/0TiHkDidjtE rsxmp46.rar ( 6.95 мегабайт ) Кол-во скачиваний: 1561 -------------------- Живы будем - Не помрем !
|
SuperMax |
10.11.2022, 13:33
Сообщение
#23
|
Администратор Группа: Root Admin Сообщений: 6 295 Регистрация: 7.1.2006 Из: Красноярск Пользователь №: 1 |
Новые команды контроллеров AZ*
Старые команды тут Работа с энергонезависимой памятью интерфейс предоставляет любому AZ-контроллеру доступ к 255 словам энергонезависимой памяти: для работы есть команды 021: //считать блок 1 энергонезависимой памяти в буфер 022: // отдать на шину считанный блок энергонезависимой памяти из буфера 023: // принять с шины в буфер данные для последующей записи в буфер 024: // записать из буфера в блок 1 энергонезависимой памяти все команды по выполнению, просто устанавливает бит готовности по завершению примеры работы Код AZ$CSR = 177220; регистр команд и состояния (CSR) AZ$DR = 177222; регистр данных (DR) ; trap 50 - cброс AZ ; результат в R1 =0 ok AZreset: MOV #AZ$CSR,R1 1$: CLR (R1); Пошлем команду "Сброс" TSTB (R1); Проверим готовность контроллера BPL 1$; Если не готов, сбрасываем еще ; раз и проверяем снова TST (R1); Проверим на ошибку, BMI 0ERR$ CLR R1 return 0ERR$: CLR R1 COM R1 return ; trap 54 - чтение энергонезависимой памяти блока 1 EEPROM в буфер с адреса ADREEPROMMEM ; результат R3 - адрес, если R3=0 ошибка ; статус чтения в R1 0 - ok ; 1 - размер не соответствует сохраненному ; 2 - oшибка версии ; 3 - oшибка контрольной суммы ReadEEPROM: push R2 call AZreset; сбросим tst R1 bne 0ERR$ ; теперь читаем MOV #AZ$CSR,R1 mov #21,(R1); считать блок 1 энергонезависимой памяти в буфер 0$: TSTB (R1); проверяем результат выполнения BPL 0$; ждем mov #22,(R1); отдать на шину считанный блок энергонезависимой памяти из буфера 1$: TSTB (R1); проверяем результат выполнения BPL 1$; ждем TST (R1)+; инкрементируем mov #ADREEPROMMEM,R3 mov #256.,R2; читаем 256. слов; первое слово - результат чтения 2$: mov (R1),(R3)+; читаем блок слов в память sob R2,2$ mov #ADREEPROMMEM,R3; успешно mov (R3),R1 br 0END$ 0ERR$: CLR R3 0END$: pop R2 return ; trap 55 - запись энергонезависимой памяти из буфера с адреса ADREEPROMMEM в блок 1 EEPROM WriteEEPROM: push R1 push R2 push R3 call AZreset; сбросим tst R1 bne 0ERR$ MOV #AZ$CSR,R1 mov #23,(R1); командуем что будем писать данные в буфер 0$: TSTB (R1); проверяем результат выполнения BPL 0$; ждем TST (R1)+; инкрементируем mov #ADREEPROMMEM+2,R3 mov #255.,R2; пишем 255. слов; первое слово пропускаем - результат чтения 1$: mov (R3)+,(R1); отдаем в контроллер sob R2,1$ tst -(R1); декрементируем mov #24,(R1); записать из буфера в блок 1 энергонезависимой памяти 2$: TSTB (R1); проверяем результат выполнения BPL 2$; ждем br 0END$ 0ERR$: CLR R3 0END$: pop R3 pop R2 pop R1 return очевидно, после считывания памяти необходимо проверить код результата в первом слове - см расшифровку кодов ошибок Примеры возвращаемых данных по командам последовательная подача команды 021 и затем 022 позволит считать 256. слов из энергонезависимой памяти первое слово это будет статус успешности чтения коды ошибок ; 0 - ok ; 1 - размер не соответствует сохраненному ; 2 - oшибка версии ; 3 - oшибка контрольной суммы технически для эмуляции данного фунционала, нужен файл 255. слов. Обращаю внимание, при записи, буфер идет сразу с данными, те нет первого слова со статусом. Считывание версии 027: // отдаем версию firmware AZ STM32 типовое возвращаемое значение на шину первое слово - 06404 = старший байт 13. это версия прошивки, младший байт 4. это версия железа - те AZБК в данном случае второе слово - 037 = это максимальный монтируемый диск - 31. RTC Часы 031: // получить время из часов МК в буфер timestamp 032: // получить время из буфера timestamp в МПИ 033: // запись времени-даты в буфер (ручная установка часов) формат SimpleIN ( 7 слов) 034: // установка автономных часов на основании данных из буфера 035: // стимуляция запроса времени с NTP сервера, установка на основании ответа 036: // установка автономных часов STM32 на основании часов в TCP/IP стеке 042: // получить время из часов TCP/IP стека в буфер timestamp все команды по выполнению, просто устанавливает бит готовности по завершению формат timestamp на чтение Код ; формат буфера даты-времени ; offset в восьмеричной системе - те слова ; формат буфера даты-времени ; offset ; [0]=rtc_rt11date(); ; [2]=rt11 time 50Hz big word; ; [4]=rt11 time 50Hz little word; ; [6]=rt11 time 60Hz big word; ; [10]=rt11 time 60Hz little word; ; [12]=rtc_fat_date(); ; [14]=rtc_fat_time(); ; [16]=year+2000; ; [20]=month; ; [22]=day; ; [24]=wday; ; [26]=hour; ; [30]=min; ; [32]=sec; формат буфера SimpleIN - 7 слов Код ; [0]=year год, младшие две цифры - те 22 а не 2022(!) ; [2]=month; месяц ; [4]=day; день ; [6]=wday; день недели =0 не установлен, 1- понедельник 2 - вторник итд ; [10]=hour; час ; [12]=min; минута ; [14]=sec; секунда Примеры работы с часами Получение времени Код ; работа с часами ; trap 60 - чтение данных часов из TCP/IP стека ; R3 - адрес буфера куда надо считать ; результат в R3 адрес, если успешно. R3=0 если ошибка GetDateFromLAN: push R0 push R1 push R2 call AZreset; сбросим tst R1 bne G60ERR MOV #AZ$CSR,R1 mov #42,(R1) G60: TSTB (R1); проверяем результат выполнения BPL G60; ждем mov #32,(R1) 1$: TSTB (R1); проверяем результат выполнения BPL 1$; ждем TST (R1)+; инкрементируем mov R3,R0; запомним R3 - адрес mov #10.,R2; читаем 10 слов 2$: mov (R1),(R3)+; читаем блок слов в память sob R2,2$ mov R0,R3; успешно, вернем адрес в R3 br 0END$ G60ERR: CLR R3 0END$: pop R2 pop R1 pop R0 return ; trap 61 - чтение данных часов из автономных часов RTC ; R3 - адрес буфера куда надо считать ; результат в R3 адрес, если успешно. R3=0 если ошибка GetDateFromRTC: push R0 push R1 push R2 call AZreset; сбросим tst R1 bne G60ERR MOV #AZ$CSR,R1 mov #31,(R1) br G60; идем туда тк дальше код одинаковый отсылка запроса на установку времени с NTP сервера Код ; trap 62 - отсылка запроса на установку времени с NTP сервера GetDateNTPtoNET:push R1 call AZreset; сбросим tst R1 bne 0ERR$ MOV #AZ$CSR,R1 mov #35,(R1) 0$: TSTB (R1); проверяем результат выполнения BPL 0$; ждем 0ERR$: pop R1 return технически на это надо 1-2 секунды проверка Код ; trap 63 - проверка корректности времени ; R3 - адрес буфера, результат в R3, если адрес буфера то OK, =0 ошибка CheckDateTime: Cmp 6(r3),#2021. Blos 1err Cmp 6(r3),#2100. Bhi 1err 0ok$: return 1err$: clr R3 return пример цикла опроса с целью получить время с сети Код ; дата-время mov #S_DateTime_0,R3; "Lan Date:" trap 10 mov #20,R4; количество циклов ожидания $datry: trap 62; отослали запрос к NTP серверу mov #110,@#AZ$CSR; включим сеть trap 47; ожидание trap 47; ожидание mov #ADRTMPSTR,R3 trap 60; считали в буфер дату-время trap 63; проверили дату-время tst R3 bne $ok $sob: sob R4,$datry mov #S_DateTime_2,R3; печать ошибки trap 7 br $go $ok: mov #ADRTMPSTR,R3 trap 24; печать даты trap 25; времени $go: mov #110,@#AZ$CSR; включим сеть установка времени RTC на основании времени стека Код ; trap 64 - установка времени RTC на основании времени стека ; R1 - результат R1=0 - OK SetDateNETtoRTC:call AZreset; сбросим tst R1 bne 0ERR$ MOV #AZ$CSR,R1 mov #36,(R1) 0$: TSTB (R1); проверяем результат выполнения BPL 0$; ждем clr R1 0ERR$: return те изначально надо получить в стеке нормальное время, затем установить время в RTC на основании времени стека Примеры возвращаемых данных, восьмеричные значения 067362 ; [0]=rtc_rt11date(); 000062 ; [2]=rt11 time 50Hz big word; 024240; [4]=rt11 time 50Hz little word; 000074; [6]=rt11 time 60Hz big word; 030300; [10]=rt11 time 60Hz little word; 055567; [12]=rtc_fat_date(); 044766; [14]=rtc_fat_time(); 003746; [16]=year+2000; 000013; [20]=month; 000027; [22]=day; 000003; [24]=wday; 000022; [26]=hour; 000017; [30]=min; 000054; [32]=sec; Пример исходного кода который формирует данные форматы даты-времени Код // функция форматирования даты в формат FAT // Двухбайтовая отметка даты имеет следующий формат: // биты 0–4 — день месяца, допускаются значения 1–31; // биты 5–8 — месяц года, допускаются значения 1–12; // биты 9–15 — год, считая от 1980 года («эпоха MS-DOS»), возможны значения от 0 до 127 включительно, то есть 1980–2107 годы. unsigned short int rtc_fat_date(void) { unsigned char day , month , year; rtc_get_date(&day,&month,&year); return(day+month*32+(year-1980)*256); } // // функция форматирования времени в формат FAT //Двухбайтовая отметка времени имеет следующий формат: // биты 0–4 — счётчик секунд (по две), допустимы значения 0–29, то есть 0–58 секунд; // биты 5–10 — минуты, допустимы значения 0–59; // биты 11–15 — часы, допустимы значения 0–23. unsigned short int rtc_fat_time(void) { unsigned char hour,min,sec; rtc_get_time(&hour,&min,&sec); return(sec/2+min*32+hour*1024); } // // функция форматирования даты в формат RT11 unsigned short int rtc_rt11date(void) { unsigned char mday , mmonth , myear; rtc_get_date(&mday,&mmonth,&myear); unsigned short int rt11date; myear = myear + 2000 - 1972; rt11date= (myear / 32) <<14 | mmonth<<10 | mday <<5 | (myear % 32); //printf("rtc_rt11date: a.m.d.y=%d.%d.%d.%d > 0%06o ", (myear / 32), mmonth, mday, (myear % 32), rt11date); return rt11date; } // // функция форматирования времени в формат RT11 для таймера 50Гц unsigned int rtc_rt11time50(void) { unsigned char hour,min,sec; rtc_get_time(&hour,&min,&sec); unsigned int rt11time; rt11time = hour * 3600 * 50 + min * 60 * 50 + sec * 50; //printf("rtc_rt11time50: %d -> %06o . %06o ",rt11time , (unsigned short int) (rt11time>>16) , (unsigned short int) (rt11time & 0xFFFF) ); return (rt11time); } // // функция форматирования времени в формат RT11 для таймера 60Гц unsigned int rtc_rt11time60(void) { unsigned char hour,min,sec; rtc_get_time(&hour,&min,&sec); unsigned int rt11time; rt11time = hour * 3600 * 60 + min * 60 * 60 + sec * 60; //printf("rtc_rt11time60: %d -> %06o . %06o ",rt11time , (unsigned short int) (rt11time>>16) , (unsigned short int) (rt11time & 0xFFFF) ); return (rt11time); } // Перезапуск БК аппаратный, команда актуальна только для AZБК остальные AZ ее игнорируют 037: // перезапуск AZБК и всей БК пример применения Код AZ$CSR = 177220; регистр команд и состояния (CSR) AZ$DR = 177222; регистр данных (DR) ; trap 57 - перезапуск БК полный AZcouldReboot: call AZreset; сбросим AZ дабы он был готов принимать команды mov #37,@#AZ$CSR return Работа со стеком TCP/IP 040: // получить ip адреса в буфер 041: // чтение буфера ip адреса - 8 слов 16bit эта пара команд позволяет получить текущую информацию со стека - IP адрес - MASK маску - GW гейтвей - NTP адрес NTP-сервера - DNS1 адрес основного DNS - DNS2 адрес резервного DNS соответственно это 12 слов (16bit) примеры работы Код ; trap 52 - чтение блока IP адресов в блок памяти IPADDDBLOCK (8. ячеек) ; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK) GetIPaddrs: push R1 push R2 call AZreset; сбросим tst R1 bne 0ERR$ MOV #AZ$CSR,R1 mov #40,(R1) 0$: TSTB (R1); прочитать адреса в свою память BPL 0$; ждем mov #41,(R1) 1$: TSTB (R1); подготовить буфер BPL 1$; ждем TST (R1)+; инкрементируем mov #IPADDDBLOCK,R3 mov #12.,R2 2$: mov (R1),(R3)+; читаем блок слов в память sob R2,2$ mov #IPADDDBLOCK,R3; успешно br 0END$ 0ERR$: CLR R3 0END$: pop R2 pop R1 return Примеры данных - возвращаемые слова в восьмеричном формате 124300 116400 - IP адрес 192.168.0.157 177777 000377 - MASK маску 255.255.255.0 124300 000400 - GW гейтвей 192.168.0.1 124300 000400 - NTP адрес NTP-сервера 192.168.0.1 124300 050000 - DNS1 адрес основного DNS 192.168.0.90 124300 055000 - DNS2 адрес резервного DNS 192.168.0.80 Работа с SD картой, дополнительные функции данный комплект команд позволяет читать/писать файлы на карточку те можно сделать процедуры копирования файлов с карточки и на карточку 050: установить имя файла который будем читать 051: получить размер файла на чтение (или его статус) на МПИ 052: читать блок установленного файла в буфер эти команды используют буфер 256. слов который задействован в интерфейсе работы с энергонезависимой памятью (см выше команды 022 023) буфер длины имени файла 128. слов = 256 байт Соответственно схема чтения файла выглядит вот так 023 - заливаем имя файла в буфер 050 - устанавливаем файл на чтение 051 - читаем длину файла или ошибку открытия файла если ошибка - повторяем сначала 023 050 051 если все ok - приступаем к чтению файла 052 - читает блок файла в буфер 022 - забираем данные из буфера пары 052 022 повторяем нужное количество раз дабы считать весь файл как файл будет считан - последняя 052 команда закроет его автоматически формирование ошибки выглядит так: sizeanyfile=1<<31 + FFres; // если установлен старший бит 32х битного слова - то в младшей части код ошибки FFres = ошибка FatFS см http://elm-chan.org/fsw/ff/doc/open.html Код typedef enum { FR_OK = 0, /* (0) Succeeded */ FR_DISK_ERR, /* (1) A hard error occurred in the low level disk I/O layer */ FR_INT_ERR, /* (2) Assertion failed */ FR_NOT_READY, /* (3) The physical drive cannot work */ FR_NO_FILE, /* (4) Could not find the file */ FR_NO_PATH, /* (5) Could not find the path */ FR_INVALID_NAME, /* (6) The path name format is invalid */ FR_DENIED, /* (7) Access denied due to prohibited access or directory full */ FR_EXIST, /* (8) Access denied due to prohibited access */ FR_INVALID_OBJECT, /* (9) The file/directory object is invalid */ FR_WRITE_PROTECTED, /* (10) The physical drive is write protected */ FR_INVALID_DRIVE, /* (11) The logical drive number is invalid */ FR_NOT_ENABLED, /* (12) The volume has no work area */ FR_NO_FILESYSTEM, /* (13) There is no valid FAT volume */ FR_MKFS_ABORTED, /* (14) The f_mkfs() aborted due to any problem */ FR_TIMEOUT, /* (15) Could not get a grant to access the volume within defined period */ FR_LOCKED, /* (16) The operation is rejected according to the file sharing policy */ FR_NOT_ENOUGH_CORE, /* (17) LFN working buffer could not be allocated */ FR_TOO_MANY_OPEN_FILES, /* (18) Number of open files > _FS_LOCK */ FR_INVALID_PARAMETER /* (19) Given parameter is invalid */ } FRESULT; пример кода для чтения файла и вывода его на экран Код call AZRST; сбросим ; заливаем в буфер имя файла 7$: mov #23,(R1); командуем что будем писать данные в буфер 5$: TSTB (R1); проверяем результат выполнения BPL 5$ ; ждем TST (R1)+; инкрементируем mov #FILNM,R3 1$: mov (R3),(R1); отдаем в контроллер tst (R3)+ bne 1$ tst -(R1); декрементируем ; устанавливаем файл на чтение mov #50,(R1); устанавливаем файл на чтение 2$: TSTB (R1); проверяем результат выполнения BPL 2$ ; ждем ; читаем длину файда mov #51,(R1); устанавливаем файл на чтение 3$: TSTB (R1); проверяем результат выполнения BPL 3$ ; ждем TST (R1)+; инкрементируем mov #FILSZ,R3 mov (R1),(R3)+; читаем с контроллера mov (R1),(R3); читаем с контроллера ; выведем длину файла на экран clr R0 mov #FILSZ+2,R3 mov (R3),R1 call DNOZ mov -(R3),R1 call DNOZ .print #STMS2 ; читаем файл mov R1,R4; в R1 осталась длина файла MOV #AZ$CSR,R1 mov #BUFFL,R5 bit #1,R4; если нечетное число байт beq 47$ inc R4; добавим еще 1 байт тк читаем словами 47$: tst R4 beq 45$ ; уже нечего читать - выходим mov #52,(R1); читаем блок в буфер 4$: TSTB (R1); проверяем результат выполнения BPL 4$ ; ждем mov #22,(R1); будем читать буфер 51$: TSTB (R1); проверяем результат выполнения BPL 51$ ; ждем cmp R4,#512.; сравниваем c размером буфера в байтах Blos 44$ ; осталось меньше чем буфер .print #STMS1 mov #256.,R2 TST (R1)+; переходим на регистр данных 46$: mov (R1),(R5)+; читаем в буфер sob R2,46$ sub #512.,R4; вычитаем TST -(R1); переходим на регистр команд br 47$ 44$: .print #STMS3 mov R4,R2 asr R2 ; /2 тк читаем словами TST (R1)+; переходим на регистр данных 43$: mov (R1),(R5)+; читаем в буфер sob R2,43$ 45$: clr (R5); проставим конец файла ; файл считан - выводим на экран .print #STMS4 .print #BUFFL .print #STMS5 mov #110,@#AZ$CSR; включаем сеть .Exit пример полностью в виде утилиты RT11 выложен вот тут Для записи файла добавлены команды 053: установить имя файла который будем писать 054: установка длины файла 055: записать в файл данные из буфера Схема подачи команд при записи вот такая 023 - заливаем имя файла в буфер 053 - устанавливаем файл на чтение 051 - статус открытия/создания файла если ошибка - повторяем сначала 023 053 051 если все ok - идем дальше 054 - установка длины файла, те надо сразу объявить какая у нас будет длина файла 023 - заливаем блок данных в буфер 055 - пишем из буфера в файл пары 023 055 повторяем нужное количество раз дабы записать весь файл как файл будет записан - последняя 055 команда закроет его автоматически пример кода записи файла Код ; заливаем в буфер имя файла MOV #AZ$CSR,R1 17$: mov #23,(R1); командуем что будем писать данные в буфер 15$: TSTB (R1) ; проверяем результат выполнения BPL 15$ ; ждем TST (R1)+ ; переходим на регистр данных mov #FILNM2,R3 11$: mov (R3),(R1); отдаем в контроллер tst (R3)+ bne 11$ tst -(R1) ; переходим на регистр команд ; устанавливаем файл на запись mov #53,(R1); устанавливаем файл на запись 12$: TSTB (R1) ; проверяем результат выполнения BPL 12$ ; ждем ; читаем статус создания файла mov #51,(R1) 13$: TSTB (R1) ; проверяем результат выполнения BPL 13$ ; ждем TST (R1)+ ; переходим на регистр данных mov #STATS,R3 mov (R1),(R3)+; читаем с контроллера mov (R1),(R3); читаем с контроллера ; тут надо проверить - если файл создан то оба слова нулевые mov #STATS,R3 TST (R3)+ BNE 66$ TST (R3) BEQ 60$ 66$: .print #ERRMS1 ; печать ошибки .exit 60$: MOV #AZ$CSR,R1 mov #54,(R1); установим длину файла который будем писать 23$: TSTB (R1) ; проверяем результат выполнения BPL 23$ ; ждем TST (R1)+ ; переходим на регистр данных mov #FILSZ,R3 mov (R3)+,(R1); пишем в контроллер mov (R3),(R1); пишем в контроллер tst -(R1) ; переходим на регистр команд ; пишем файл mov @#FILSZ,R4; длина файла MOV #AZ$CSR,R1 mov #BUFFL,R5; буфер файла bit #1,R4 ; если нечетное число байт beq 147$ inc R4 ; добавим еще 1 байт тк читаем словами 147$: tst R4 ; проверим длину beq 145$ ; уже нечего писать - выходим mov #23,(R1); будем писать в буфер 151$: TSTB (R1) ; проверяем результат выполнения BPL 151$ ; ждем cmp R4,#512.; сравниваем c размером буфера в байтах Blos 144$ ; осталось меньше чем буфер .print #STMS6 ; заливка полного блока mov #256.,R2 TST (R1)+ ; переходим на регистр данных 146$: mov (R5)+,(R1); пишем в буфер контроллера sob R2,146$ sub #512.,R4; вычитаем TST -(R1) ; переходим на регистр команд mov #55,(R1); запись буфера в файл 104$: TSTB (R1) ; проверяем результат выполнения BPL 104$ ; ждем br 147$ ; в начало 144$: .print #STMS7 ; заливка последнего блока TST (R1)+ ; переходим на регистр данных mov R4,R2 asr R2 ; /2 тк пишем словами 143$: mov (R5)+,(R1); пишем в буфер контроллера sob R2,143$ TST -(R1) ; переходим на регистр команд mov #55,(R1); запись пследнего буфера в файл 105$: TSTB (R1) ; проверяем результат выполнения BPL 105$ ; ждем 145$: .print #STMSE ; конец mov #110,@#AZ$CSR; включаем сеть .Exit ; выходим пример полностью в виде утилиты RT11 выложен вот тут получение объема SD карты всего/свободно в мегабайтах 056: // получить данные по размеру карты в буфер sizecard 057: // чтение буфера sizecard - 2 cлова 16bit первое слово - общий объем карты доступный для FAT в МБ второе слово - свободный объем на карте в МБ Код ; trap 51 - получение объема SD карты всего/свободно в мегабайтах ; результат в R1 - всего; R2 - свободно GetSizeSD: call AZreset; сбросим tst R1 bne 0ERR$ MOV #AZ$CSR,R1 mov #56,(R1) 1$: TSTB (R1); подготовить буфер BPL 1$; ждем mov #57,(R1) 2$: TSTB (R1); подготовить буфер BPL 2$; ждем mov @#AZ$DR ,R1; всего мегабайт mov @#AZ$DR ,R2; свободно мегабайт return clr R1 clr R2 return Примеры данных 035521 - всего на карточке мегабайт - 15185. 035417 - свободно мегабайт - 15119. Старые команды тут -------------------- Живы будем - Не помрем !
|
SuperMax |
26.11.2022, 15:49
Сообщение
#24
|
Администратор Группа: Root Admin Сообщений: 6 295 Регистрация: 7.1.2006 Из: Красноярск Пользователь №: 1 |
Прошивка V13 от 2022-11-26
(единая нумерация с AZБК - дабы уменьшить отличия прошивок) добавлен блок команд - см выше работают часы и прочие навороты Утилита установки времени AZSDT выложена тут cама прошивка STM32 AZ_v2.13.rar ( 70.9 килобайт ) Кол-во скачиваний: 1107 данная прошивка для AZ-МПИ AZ-УКНЦ AZ-QBUS v1.xx и 2.xx прошивка для GAL-ок или EPM240 прежняя, менять не надо Важный момент, не забудьте явно проставить в блоке NETWORK свой часовой пояс иначе время будет GMT Рабочий образ PDP_11_2022_11_26_for_v13.rar ( 14.85 мегабайт ) Кол-во скачиваний: 1057 Типовая работа AZSDT при наличии сети Типовая работа AZSDT при отключенной сети, но выставленном времени-дате в RTC -------------------- Живы будем - Не помрем !
|
SuperMax |
20.3.2023, 13:59
Сообщение
#25
|
Администратор Группа: Root Admin Сообщений: 6 295 Регистрация: 7.1.2006 Из: Красноярск Пользователь №: 1 |
Новые команды контроллеров AZ*
Старые команды тут и тут данные команды действительны для контроллеров начиная с V14 прошивки Работа со стеком TCP/IP 043 чтение MAC-адреса в ip буфер данная команда читает текущий фактический MAC адрес в буфер IP адресов те сначала 043 а затем 041 команды пример применения Код ; trap 72 - чтение MAC адреса в блок памяти IPADDDBLOCK (12. ячеек) ; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK) GetMACaddrs: push R1 push R2 call AZreset ; сбросим tst R1 bne 0ERR$ MOV #AZ$CSR,R1 mov #43,(R1) 0$: TSTB (R1) ; прочитать адреса в свою память BPL 0$ ; ждем mov #41,(R1) 1$: TSTB (R1) ; подготовить буфер BPL 1$ ; ждем TST (R1)+ ; инкрементируем mov #IPADDDBLOCK,R3 mov #12.,R2 2$: mov (R1),(R3)+ ; читаем блок слов в память sob R2,2$ mov #IPADDDBLOCK,R3; успешно br 0END$ 0ERR$: CLR R3 0END$: pop R2 pop R1 return -------------------- Живы будем - Не помрем !
|
rtype |
13.3.2024, 2:41
Сообщение
#26
|
Пользователь Группа: Участники Сообщений: 21 Регистрация: 20.2.2024 Пользователь №: 36 013 |
привет
Чистый образ с кучей драйверов (DU, DD, и пр.) + пересобранный AZ. Все устройства работают. AZ00A.7z ( 1.92 мегабайт ) Кол-во скачиваний: 899 Код .TYPE V5USER.TXT RT-11 V5.7 Installation of RT-11 Version 5.7 is complete and you are now running RT-11 from your system volume. .sh dev Device Status CSR Vector(s) ------ ------ --- --------- LD Installed 000000 000 LS Installed 176500 470 474 300 304 MM Not installed 172440 224 MS Not installed 172522 224 300 MT Not installed 172520 224 NL Installed 000000 000 DM Not installed 177440 210 DU Installed 172150 154 DW Not installed 000000 LP Not installed 177514 200 DD Installed 176500 300 304 DL Not installed 174400 160 DX Not installed 177170 264 DY Not installed 177170 264 DZ Not installed 000000 MU Not installed 174500 260 PI Not installed 000000 000 RK Not installed 177400 220 SL Installed 000000 000 SP Installed 000000 110 VM Installed 177572 250 XC Not installed 173300 210 214 XL Installed 176500 300 304 AZ Resident 177220 174 |
Текстовая версия | Сейчас: 27.9.2024, 17:15 |