Changes for page API контроллеров AZ®
Last modified by Max on 2025/03/02 15:18
Summary
-
Page properties (1 modified, 0 added, 0 removed)
Details
- Page properties
-
- Content
-
... ... @@ -1208,133 +1208,135 @@ 1208 1208 .Exit 1209 1209 {{/code}} 1210 1210 1211 -To unpack a screenshot, you can use this utility - 1211 +To unpack a screenshot, you can use this utility - [[https:~~/~~/master.pdp-11.ru/screen_unpack/>>https://master.pdp-11.ru/screen_unpack/]] 1212 1212 1213 1213 1214 1214 1215 -= **КомандыдляработысостекомTCP/IP**=1215 += Commands for working with the TCP/IP stack = 1216 1216 1217 - следующиекомандыработаютсбуфероминформацииTCP/IP cтека.1217 +The following commands operate on the TCP/IP stack information buffer. 1218 1218 1219 -== **040:Получитьipадресипрочиенастройки стекаTCP/IPвбуфер**==1219 +== 040: Get IP address and other TCP/IP stack settings to buffer == 1220 1220 1221 - Кодкоманды040,даннаякомандазаполняетбуферинформациейсTCP/IP cтекатекущей(фактической)информацией.1221 +Command code 040, this command fills the buffer with information from the TCP/IP stack with current (actual) information. 1222 1222 1223 -== **041:Чтениебуфераipадреса**==1223 +== 041: Reading ip address buffer == 1224 1224 1225 - Кодкоманды041,даннаякомандапередаетбуфернашину1225 +Command code 041, this command transfers the buffer to the bus 1226 1226 1227 - этапаракомандпозволяетполучитьтекущуюинформациюсостека1227 +This pair of commands allows you to get current information from the stack 1228 1228 1229 -* IP адрес1230 -* MASK маску1231 -* GW гейтвей1232 -* NTP адресNTP-сервера1233 -* DNS1 адресосновногоDNS1234 -* DNS2 адресрезервногоDNS1229 +* IP address 1230 +* MASK mask 1231 +* GW gateway 1232 +* NTP address of the NTP server 1233 +* DNS1 primary DNS address 1234 +* DNS2 backup DNS address 1235 1235 1236 - соответственноэто12слов1236 +accordingly it is 12 words 1237 1237 1238 - Примерпрограммы:1238 +Example program: 1239 1239 1240 1240 {{code language="assembler"}} 1241 -; trap 52 - чтение блока IP адресов в блок памяти IPADDDBLOCK (8. ячеек) 1242 -; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK) 1243 -GetIPaddrs: push R1 1244 - push R2 1245 - call AZreset; сбросим 1246 - tst R1 1247 - bne 0ERR$ 1248 - MOV #AZ$CSR,R1 1249 - mov #40,(R1) 1250 -0$: TSTB (R1); прочитать адреса в свою память 1251 - BPL 0$; ждем 1252 - mov #41,(R1) 1253 -1$: TSTB (R1); подготовить буфер 1254 - BPL 1$; ждем 1255 - TST (R1)+; инкрементируем 1256 - mov #IPADDDBLOCK,R3 1257 - mov #12.,R2 1258 -2$: mov (R1),(R3)+; читаем блок слов в память 1259 - sob R2,2$ 1260 - mov #IPADDDBLOCK,R3; успешно 1261 - br 0END$ 1262 -0ERR$: CLR R3 1263 -0END$: pop R2 1264 - pop R1 1265 - return 1241 +; trap 52 - reading a block of IP addresses into the IPADDDBLOCK memory block (8 cells) 1242 +; result in R3 = 0 if error, otherwise the address where it was read (IPADDDBLOCK) 1243 +GetIPaddrs: push R1 1244 + push R2 1245 + call AZreset; reset 1246 + tst R1 1247 + bne 0ERR$ 1248 + MOV #AZ$CSR,R1 1249 + mov #40,(R1) 1250 +0$: TSTB (R1); read addresses into its memory 1251 + BPL 0$; wait 1252 + mov #41,(R1) 1253 +1$: TSTB (R1); prepare buffer 1254 + BPL 1$; wait 1255 + TST (R1)+; increment 1256 + mov #IPADDDBLOCK,R3 1257 + mov #12.,R2 1258 +2$: mov (R1),(R3)+; read block of words into memory 1259 + sob R2,2$ 1260 + mov #IPADDDBLOCK,R3; success 1261 + br 0END$ 1262 +0ERR$: CLR R3 1263 +0END$: pop R2 1264 + pop R1 1265 + return 1266 + 1266 1266 {{/code}} 1267 1267 1268 - Примерданных1269 +Example return data: 1269 1269 1270 1270 {{info}} 1271 - Примерыданных-возвращаемыесловаввосьмеричномформате1272 -124300 116400 - IP адрес192.168.0.1571273 -177777 000377 - MASK маску255.255.255.01274 -124300 000400 - GW гейтвей192.168.0.11275 -124300 000400 - NTP адресNTP-сервера192.168.0.11276 -124300 050000 - DNS1 адресосновногоDNS 192.168.0.901277 -124300 055000 - DNS2 адресрезервногоDNS 192.168.0.801272 +Data examples - words returned in octal format 1273 +124300 116400 - IP address 192.168.0.157 1274 +177777 000377 - MASK mask 255.255.255.0 1275 +124300 000400 - GW gateway 192.168.0.1 1276 +124300 000400 - NTP address of NTP server 192.168.0.1 1277 +124300 050000 - DNS1 address of primary DNS 192.168.0.90 1278 +124300 055000 - DNS2 address of backup DNS 192.168.0.80 1278 1278 {{/info}} 1279 1279 1280 -== **043:чтениеMAC-адресавipбуфер**==1281 +== 043: Read MAC address into ip buffer == 1281 1281 1282 -Код команды 043, данная команда читает текущий фактический MAC адрес в буфер IP адресов 1283 -те сначала 043, а затем 041 команды 1283 +Command code 043, this command reads the current actual MAC address into the IP address buffer i.e. first 043 and then 041 commands 1284 1284 1285 - Примерпрограммы:1285 +Example program: 1286 1286 1287 1287 {{code language="assembler"}} 1288 -; trap 72 - чтение MAC адреса в блок памяти IPADDDBLOCK (12. ячеек) 1289 -; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK) 1290 -GetMACaddrs: push R1 1291 - push R2 1292 - call AZreset ; сбросим 1293 - tst R1 1294 - bne 0ERR$ 1295 - MOV #AZ$CSR,R1 1296 - mov #43,(R1) 1297 -0$: TSTB (R1) ; прочитать адреса в свою память 1298 - BPL 0$ ; ждем 1299 - mov #41,(R1) 1300 -1$: TSTB (R1) ; подготовить буфер 1301 - BPL 1$ ; ждем 1302 - TST (R1)+ ; инкрементируем 1303 - mov #IPADDDBLOCK,R3 1304 - mov #12.,R2 1305 -2$: mov (R1),(R3)+ ; читаем блок слов в память 1306 - sob R2,2$ 1307 - mov #IPADDDBLOCK,R3; успешно 1308 - br 0END$ 1309 -0ERR$: CLR R3 1310 -0END$: pop R2 1311 - pop R1 1312 - retur 1288 +; trap 72 - reading the MAC address into the IPADDDBLOCK memory block (12 cells) 1289 +; result in R3 = 0 if error, otherwise the address where it was read (IPADDDBLOCK) 1290 +GetMACaddrs: push R1 1291 + push R2 1292 + call AZreset ; reset 1293 + tst R1 1294 + bne 0ERR$ 1295 + MOV #AZ$CSR,R1 1296 + mov #43,(R1) 1297 +0$: TSTB (R1) ; read addresses into its memory 1298 + BPL 0$ ; wait 1299 + mov #41,(R1) 1300 +1$: TSTB (R1) ; prepare buffer 1301 + BPL 1$ ; wait 1302 + TST (R1)+ ; increment 1303 + mov #IPADDDBLOCK,R3 1304 + mov #12.,R2 1305 +2$: mov (R1),(R3)+ ; read block of words into memory 1306 + sob R2,2$ 1307 + mov #IPADDDBLOCK,R3; success 1308 + br 0END$ 1309 +0ERR$: CLR R3 1310 +0END$: pop R2 1311 + pop R1 1312 + retur 1313 + 1313 1313 {{/code}} 1314 1314 1315 1315 1316 1316 1317 -= **КомандыдляработысMicroSDкартойнафайловомуровне**=1318 += Commands for working with a MicroSD card at the file level = 1318 1318 1319 1319 1320 - ДанныекомандыпредназначеныдляработысMicroSDкартойнауровнефайловойсистемыипозволяетчитать/писатьфайлыбезмонтированияфайловкакобразовдисков.1321 +These commands are designed to work with a MicroSD card at the file system level and allow you to read/write files without mounting files as disk images. 1321 1321 1322 -Эти команды используют буфер 256. слов который задействован в интерфейсе работы с энергонезависимой памятью (см выше команды 022 023) 1323 -\\Ограничения - длина полного пути к файлу 256 байт 1323 +These commands use a 256-word buffer that is used in the interface for working with non-volatile memory (see commands 022 023 above) 1324 1324 1325 - ==**050:Установитьимяфайлакоторыйбудемчитать**==1325 +Limitations - the length of the full path to the file is 256 bytes 1326 1326 1327 - Кодкоманды050,даннаякомандаустанавливаетимяфайлакоторыйбудемчитать,приэтом производится открытие файла на чтение, а также получение его свойств.1327 +== 050: Set the name of the file we will read == 1328 1328 1329 - ==**051:Получитьразмерфайланачтение(илиегостатус)наМПИ**==1329 +Command code 050, this command sets the name of the file that we will read, while opening the file for reading, and also obtaining its properties. 1330 1330 1331 - Кодкоманды051,даннаякомандапередаетнаМПИразмерфайлаилиошибкуего чтения. Размер файла 31бит, старший бит является признаком ошибки. Соответственно максимальный размер файлов с которыми можно работать через этот интерфейс ограничен 2^31 байт (2GB).1331 +== 051: Get file size for reading (or its status) on BUS == 1332 1332 1333 -формирование ошибки выглядит так: 1334 -sizeanyfile=1<<31 + FFres; ~/~/ если установлен старший бит 32х битного слова - то в младшей части код ошибки 1335 -\\FFres = ошибка FatFS 1336 - 1333 +Command code 051, this command transmits the file size or reading error to the MPI. The file size is 31 bits, the most significant bit is an error indicator. Accordingly, the maximum file size that can be worked with via this interface is limited to 2 ^ 31 bytes (2GB). 1337 1337 1335 +The error generation looks like this: 1336 +sizeanyfile=1<<31 + FFres; ~/~/ if the most significant bit of a 32-bit word is set, then the error code is in the lower part 1337 + 1338 +FFres = FatFS error 1339 + 1338 1338 {{code language="c"}} 1339 1339 typedef enum { 1340 1340 FR_OK = 0, /* (0) Succeeded */ ... ... @@ -1362,288 +1362,280 @@ 1362 1362 1363 1363 [[http:~~/~~/elm-chan.org/fsw/ff/doc/open.html>>url:http://elm-chan.org/fsw/ff/doc/open.html]] 1364 1364 1365 -== **052:Читатьблокустановленногофайлавбуфер**==1367 +== 052: Read a block of a set file into a buffer == 1366 1366 1367 - Кодкоманды052,даннаякомандаосуществляетчтениефайлавбуферэнергонезависимойпамяти.1369 +Command code 052, this command reads a file into a non-volatile memory buffer. 1368 1368 1369 -В итоге схема чтения файла выглядит вот так 1370 -**023** - заливаем имя файла в буфер 1371 -**050** - устанавливаем файл на чтение 1372 -**051 **- читаем длину файла или ошибку открытия файла 1373 -если ошибка - повторяем сначала 023 050 051 1374 -если все ok - приступаем к чтению файла 1375 -**052** - читает блок файла в буфер 1376 -**022 **- забираем данные из буфера 1377 -пары 052 022 повторяем нужное количество раз дабы считать весь файл 1378 -как файл будет прочтен - последняя 052 команда закроет его автоматически. 1379 - 1371 +As a result, the file reading scheme looks like this 1372 +**023** - fill the file name into the buffer 1373 +**050 **- set the file for reading 1374 +**051** - read the file length or file open error 1375 +if there is an error - repeat 023 050 051 from the beginning 1376 +if everything is ok - start reading the file 1377 +**052** - read the file block into the buffer 1378 +**022** - take data from the buffer 1379 +repeat the **052 022** pairs the required number of times in order to read the entire file 1380 +once the file is read - the last 052 command will close it automatically. 1380 1380 1381 - Примерпрограммы1382 +Example program: 1382 1382 1383 1383 {{code language="assembler"}} 1385 + call AZRST; reset 1384 1384 1385 - call AZRST; сбросим 1387 +; load the file name into the buffer 1388 +7$: mov #23,(R1); command to write data to the buffer 1389 +5$: TSTB (R1); check execution result 1390 + BPL 5$ ; wait 1391 + TST (R1)+; increment 1392 + mov #FILNM,R3 1393 +1$: mov (R3),(R1); send to controller 1394 + tst (R3)+ 1395 + bne 1$ 1396 + tst -(R1); decrement 1386 1386 1387 -; заливаем в буфер имя файла 1388 -7$: mov #23,(R1); командуем что будем писать данные в буфер 1389 -5$: TSTB (R1); проверяем результат выполнения 1390 - BPL 5$ ; ждем 1391 - TST (R1)+; инкрементируем 1392 - mov #FILNM,R3 1393 -1$: mov (R3),(R1); отдаем в контроллер 1394 - tst (R3)+ 1395 - bne 1$ 1396 - tst -(R1); декрементируем 1398 +; set the file for reading 1399 + mov #50,(R1); set file for reading 1400 +2$: TSTB (R1); check execution result 1401 + BPL 2$ ; wait 1397 1397 1403 +; read the file length 1404 + mov #51,(R1); set file for reading 1405 +3$: TSTB (R1); check execution result 1406 + BPL 3$ ; wait 1407 + TST (R1)+; increment 1408 + mov #FILSZ,R3 1409 + mov (R1),(R3)+; read from controller 1410 + mov (R1),(R3); read from controller 1398 1398 1399 - ; устанавливаем файл на чтение 1400 - mov #50,(R1); устанавливаем файл на чтение 1401 -2$: TSTB (R1); проверяем результат выполнения 1402 - BPL 2$ ; ждем 1412 +; display the file length on the screen 1413 + clr R0 1414 + mov #FILSZ+2,R3 1415 + mov (R3),R1 1416 + call DNOZ 1417 + mov -(R3),R1 1418 + call DNOZ 1419 + .print #STMS2 1403 1403 1421 +; read the file 1422 + mov R1,R4; R1 holds the file length 1423 + MOV #AZ$CSR,R1 1424 + mov #BUFFL,R5 1404 1404 1405 - ; читаем длину файда 1406 - mov #51,(R1); устанавливаем файл на чтение 1407 -3$: TSTB (R1); проверяем результат выполнения 1408 - BPL 3$ ; ждем 1409 - TST (R1)+; инкрементируем 1410 - mov #FILSZ,R3 1411 - mov (R1),(R3)+; читаем с контроллера 1412 - mov (R1),(R3); читаем с контроллера 1426 + bit #1,R4; if an odd number of bytes 1427 + beq 47$ 1428 + inc R4; add 1 more byte as we read words 1413 1413 1414 - ; выведем длину файла на экран 1415 - clr R0 1416 - mov #FILSZ+2,R3 1417 - mov (R3),R1 1418 - call DNOZ 1419 - mov -(R3),R1 1420 - call DNOZ 1421 - .print #STMS2 1430 +47$: tst R4 1431 + beq 45$ ; nothing left to read - exit 1422 1422 1423 - ; читаем файл 1424 - mov R1,R4; в R1 осталась длина файла 1425 - MOV #AZ$CSR,R1 1426 - mov #BUFFL,R5 1433 + mov #52,(R1); read block into buffer 1434 +4$: TSTB (R1); check execution result 1435 + BPL 4$ ; wait 1436 + mov #22,(R1); start reading buffer 1437 +51$: TSTB (R1); check execution result 1438 + BPL 51$ ; wait 1427 1427 1428 - bit #1,R4; если нечетное число байт 1429 - beq 47$ 1430 - inc R4; добавим еще 1 байт тк читаем словами 1440 + cmp R4,#512.; compare with buffer size in bytes 1441 + Blos 44$ ; less than buffer size left 1431 1431 1432 -47$: tst R4 1433 - beq 45$ ; уже нечего читать - выходим 1443 + .print #STMS1 1444 + mov #256.,R2 1445 + TST (R1)+; move to data register 1446 +46$: mov (R1),(R5)+; read into buffer 1447 + sob R2,46$ 1448 + sub #512.,R4; subtract 1449 + TST -(R1); move to command register 1450 + br 47$ 1434 1434 1452 +44$: .print #STMS3 1453 + mov R4,R2 1454 + asr R2 ; /2 since reading words 1455 + TST (R1)+; move to data register 1456 +43$: mov (R1),(R5)+; read into buffer 1457 + sob R2,43$ 1435 1435 1436 - mov #52,(R1); читаем блок в буфер 1437 -4$: TSTB (R1); проверяем результат выполнения 1438 - BPL 4$ ; ждем 1439 - mov #22,(R1); будем читать буфер 1440 -51$: TSTB (R1); проверяем результат выполнения 1441 - BPL 51$ ; ждем 1459 +45$: clr (R5); set end of file marker 1442 1442 1443 - cmp R4,#512.; сравниваем c размером буфера в байтах 1444 - Blos 44$ ; осталось меньше чем буфер 1461 +; file read - display on screen 1462 + .print #STMS4 1463 + .print #BUFFL 1464 + .print #STMS5 1445 1445 1466 + mov #110,@#AZ$CSR; enable network 1467 + .Exit 1446 1446 1447 - .print #STMS1 1448 - mov #256.,R2 1449 - TST (R1)+; переходим на регистр данных 1450 -46$: mov (R1),(R5)+; читаем в буфер 1451 - sob R2,46$ 1452 - sub #512.,R4; вычитаем 1453 - TST -(R1); переходим на регистр команд 1454 - br 47$ 1455 - 1456 -44$: .print #STMS3 1457 - mov R4,R2 1458 - asr R2 ; /2 тк читаем словами 1459 - TST (R1)+; переходим на регистр данных 1460 -43$: mov (R1),(R5)+; читаем в буфер 1461 - sob R2,43$ 1462 - 1463 - 1464 -45$: clr (R5); проставим конец файла 1465 - ; файл считан - выводим на экран 1466 - .print #STMS4 1467 - .print #BUFFL 1468 - .print #STMS5 1469 - 1470 - 1471 - mov #110,@#AZ$CSR; включаем сеть 1472 - .Exit 1473 1473 {{/code}} 1474 1474 1475 1475 1476 1476 1477 -== **053:**установитьимяфайлакоторыйбудемписать==1473 +== 053: set the name of the file that we will write == 1478 1478 1479 - Кодкоманды053,даннаякомандаоткрываетфайлназапись,получаетпараметрыоткрытия(илиошибки).1475 +Command code 053, this command opens a file for writing, receives opening parameters (or errors). 1480 1480 1481 -== **054:**установкадлиныфайла==1477 +== 054: Set file length == 1482 1482 1483 - Кодкоманды054,даннаякомандаустанавливаетожидаемуюдлинуфайла,этонужнодлякорректногоформированияфайланафайловомуровнеMicroSDкарты,атакжедляорганизациипередачиданных.1479 +Command code 054, this command sets the expected file length, this is necessary for the correct formation of the file at the file level of the MicroSD card, as well as for organizing data transfer. 1484 1484 1485 -== **055:**записатьвфайлданныеизбуфера==1481 +== 055: write data from buffer to file == 1486 1486 1487 - Кодкоманды055,даннаякомандазаписываетвоткрытыйфайлназаписьданныеизбуфераэнергонезависимойпамяти.Последняякоманда055автоматическизакроетфайлподостижениюзаявленнойдлиныфайла.1483 +Command code 055, this command writes data from the non-volatile memory buffer to an open file for writing. The last command 055 will automatically close the file when the declared file length is reached. 1488 1488 1489 - Схемаподачикомандпризаписивоттакая1490 -**023** - заливаемимяфайлавбуфер1491 -**053** - устанавливаемфайлначтение1492 -**051 статусоткрытия/созданияфайла1493 - еслиошибка-повторяемсначала023 053 0511494 - есливсеok -идемдальше1495 -**054** - установкадлиныфайла,тенадосразуобъявитькакаяунасбудетдлинафайла1496 -**023** - заливаемблокданныхвбуфер1497 -**055** - пишемизбуферавфайл1498 - пары023 055повторяемнужноеколичествораздабызаписатьвесьфайл1499 - какфайлбудетзаписан-последняя055командазакроетегоавтоматически1485 +The command flow chart for writing is as follows 1486 +**023** - fill the file name into the buffer 1487 +**053** - set the file for reading 1488 +**051** - file opening/creation status 1489 +if an error - repeat from the beginning 023 053 051 1490 +if everything is ok - move on 1491 +**054** - set the file length, i.e. we must immediately declare what the file length will be 1492 +**023** - fill the data block into the buffer 1493 +**055** - write from the buffer to the file 1494 +repeat the 023 055 pairs the required number of times in order to write the entire file 1495 +once the file is written - the last 055 command will close it automatically 1500 1500 1501 1501 1502 - Примерпрограммы:1498 +Example program: 1503 1503 1504 1504 {{code language="assembler"}} 1505 -; заливаемвбуферимяфайла1506 - MOV #AZ$CSR,R1 1507 -17$: mov #23,(R1); командуемчтобудемписатьданныевбуфер1508 -15$: TSTB (R1) ; проверяемрезультатвыполнения1509 - BPL 15$ ; ждем1510 - TST (R1)+ ; переходимнарегистрданных1511 - mov #FILNM2,R3 1512 -11$: mov (R3),(R1); отдаемвконтроллер1513 - tst (R3)+ 1514 - bne 11$ 1515 - tst -(R1) ; переходимнарегистркоманд1501 +; load the file name into the buffer 1502 + MOV #AZ$CSR,R1 1503 +17$: mov #23,(R1); command to write data to the buffer 1504 +15$: TSTB (R1) ; check execution result 1505 + BPL 15$ ; wait 1506 + TST (R1)+ ; move to data register 1507 + mov #FILNM2,R3 1508 +11$: mov (R3),(R1); send to controller 1509 + tst (R3)+ 1510 + bne 11$ 1511 + tst -(R1) ; move to command register 1516 1516 1517 - ; устанавливаем файл на запись1518 - mov #53,(R1); устанавливаемфайлназапись1519 -12$: TSTB (R1) ; проверяемрезультатвыполнения1520 - BPL 12$ ; ждем1513 +; set the file for writing 1514 + mov #53,(R1); set file for writing 1515 +12$: TSTB (R1) ; check execution result 1516 + BPL 12$ ; wait 1521 1521 1518 +; read file creation status 1519 + mov #51,(R1) 1520 +13$: TSTB (R1) ; check execution result 1521 + BPL 13$ ; wait 1522 + TST (R1)+ ; move to data register 1523 + mov #STATS,R3 1524 + mov (R1),(R3)+; read from controller 1525 + mov (R1),(R3); read from controller 1522 1522 1523 - ;читаемстатуссозданияфайла1524 - mov # 51,(R1)1525 - 13$:TSTB(R1); проверяем результат выполнения1526 - B PL13$; ждем1527 - TST (R 1)+; переходим на регистр данных1528 - mov#STATS,R31529 - mov (R1),(R3)+;читаемсконтроллера1530 - mov(R1),(R3); читаем с контроллера1527 +; check here - if the file is created, both words should be zero 1528 + mov #STATS,R3 1529 + TST (R3)+ 1530 + BNE 66$ 1531 + TST (R3) 1532 + BEQ 60$ 1533 +66$: .print #ERRMS1 ; print error 1534 + .exit 1531 1531 1532 - ;тутнадопроверить-еслифайлсоздантообаслованулевые1533 - mov # STATS,R31534 - 3)+1535 - B NE66$1536 - TST (R 3)1537 - BEQ60$1538 - 66$:.print#ERRMS1печатьошибки1539 - .exit1536 +60$: MOV #AZ$CSR,R1 1537 + mov #54,(R1); set file length to be written 1538 +23$: TSTB (R1) ; check execution result 1539 + BPL 23$ ; wait 1540 + TST (R1)+ ; move to data register 1541 + mov #FILSZ,R3 1542 + mov (R3)+,(R1); write to controller 1543 + mov (R3),(R1); write to controller 1540 1540 1541 -60$: MOV #AZ$CSR,R1 1542 - mov #54,(R1); установим длину файла который будем писать 1543 -23$: TSTB (R1) ; проверяем результат выполнения 1544 - BPL 23$ ; ждем 1545 - TST (R1)+ ; переходим на регистр данных 1546 - mov #FILSZ,R3 1547 - mov (R3)+,(R1); пишем в контроллер 1548 - mov (R3),(R1); пишем в контроллер 1545 + tst -(R1) ; move to command register 1549 1549 1550 - tst -(R1) ; переходим на регистр команд 1547 +; write file 1548 + mov @#FILSZ,R4; file length 1549 + MOV #AZ$CSR,R1 1550 + mov #BUFFL,R5; file buffer 1551 1551 1552 + bit #1,R4 ; if an odd number of bytes 1553 + beq 147$ 1554 + inc R4 ; add 1 more byte since reading words 1552 1552 1556 +147$: tst R4 ; check length 1557 + beq 145$ ; nothing left to write - exit 1553 1553 1554 - ; пишем файл 1555 - mov @#FILSZ,R4; длина файла 1556 - MOV #AZ$CSR,R1 1557 - mov #BUFFL,R5; буфер файла 1559 + mov #23,(R1); write to buffer 1560 +151$: TSTB (R1) ; check execution result 1561 + BPL 151$ ; wait 1558 1558 1559 - bit #1,R4 ; если нечетное число байт 1560 - beq 147$ 1561 - inc R4 ; добавим еще 1 байт тк читаем словами 1563 + cmp R4,#512.; compare with buffer size in bytes 1564 + Blos 144$ ; less than buffer size left 1562 1562 1563 -147$: tst R4 ; проверим длину 1564 - beq 145$ ; уже нечего писать - выходим 1566 + .print #STMS6 ; writing full block 1567 + mov #256.,R2 1568 + TST (R1)+ ; move to data register 1569 +146$: mov (R5)+,(R1); write to controller buffer 1570 + sob R2,146$ 1571 + sub #512.,R4; subtract 1572 + TST -(R1) ; move to command register 1565 1565 1566 - mov #23,(R1); будем писать в буфер 1567 -151$: TSTB (R1) ; проверяем результат выполнения 1568 - BPL 151$ ; ждем 1574 + mov #55,(R1); write buffer to file 1575 +104$: TSTB (R1) ; check execution result 1576 + BPL 104$ ; wait 1577 + br 147$ ; loop back 1569 1569 1570 - cmp R4,#512.; сравниваем c размером буфера в байтах 1571 - Blos 144$ ; осталось меньше чем буфер 1579 +144$: .print #STMS7 ; writing last block 1580 + TST (R1)+ ; move to data register 1581 + mov R4,R2 1582 + asr R2 ; /2 since writing words 1583 +143$: mov (R5)+,(R1); write to controller buffer 1584 + sob R2,143$ 1572 1572 1573 - .print #STMS6 ; заливка полного блока 1574 - mov #256.,R2 1575 - TST (R1)+ ; переходим на регистр данных 1576 -146$: mov (R5)+,(R1); пишем в буфер контроллера 1577 - sob R2,146$ 1578 - sub #512.,R4; вычитаем 1579 - TST -(R1) ; переходим на регистр команд 1586 + TST -(R1) ; move to command register 1587 + mov #55,(R1); write last buffer to file 1588 +105$: TSTB (R1) ; check execution result 1589 + BPL 105$ ; wait 1580 1580 1581 - mov #55,(R1); запись буфера в файл 1582 -104$: TSTB (R1) ; проверяем результат выполнения 1583 - BPL 104$ ; ждем 1584 - br 147$ ; в начало 1591 +145$: .print #STMSE ; end 1592 + mov #110,@#AZ$CSR; enable network 1593 + .Exit ; exit 1585 1585 1586 -144$: .print #STMS7 ; заливка последнего блока 1587 - TST (R1)+ ; переходим на регистр данных 1588 - mov R4,R2 1589 - asr R2 ; /2 тк пишем словами 1590 -143$: mov (R5)+,(R1); пишем в буфер контроллера 1591 - sob R2,143$ 1592 - 1593 - TST -(R1) ; переходим на регистр команд 1594 - mov #55,(R1); запись пследнего буфера в файл 1595 -105$: TSTB (R1) ; проверяем результат выполнения 1596 - BPL 105$ ; ждем 1597 - 1598 -145$: .print #STMSE ; конец 1599 - mov #110,@#AZ$CSR; включаем сеть 1600 - .Exit ; выходим 1601 1601 {{/code}} 1602 1602 1603 -**[[ примерполностьюввидеутилитыRT11выложенвоттут>>url:https://forum.maxiol.com/index.php?s=&showtopic=5605&view=findpost&p=57055]]**1597 +**[[the example is completely in the form of the RT11 utility and is posted here>>url:https://forum.maxiol.com/index.php?s=&showtopic=5605&view=findpost&p=57055]]** 1604 1604 1605 1605 1606 -== **056:Получитьданныепоразмерукартывбуферsizecard**==1600 +== 056: Get data on the size of the map into the sizecard buffer == 1607 1607 1608 - Кодкоманды056,даннаякомандачитаетпараметрыMicroSDкартывбуферsizecard1602 +Command code 056, this command reads the parameters of the MicroSD card into the sizecard buffer 1609 1609 1610 -== **057:Чтениебуфераsizecard**==1604 +== 057: Reading sizecard buffer == 1611 1611 1612 - Кодкоманды057,даннаякомандаотдаетбуферsizecard (2слова)1606 +Command code 057, this command returns the sizecard buffer (2 words) 1613 1613 1614 - буферsizecardсодержит2слова16bit1615 - первоеслово-общийобъемкартыдоступныйдляFATвМБ1616 - второеслово-свободныйобъемнакартев МБ1608 +sizecard buffer contains 2 words 16bit 1609 +first word - total card size available for FAT in MB 1610 +second word - free card size in MB 1617 1617 1618 - Примерпрограммы:1612 +Example program: 1619 1619 1620 1620 {{code language="assembler"}} 1621 -; trap 51 - получение объема SD карты всего/свободно в мегабайтах 1622 -; результат в R1 - всего; R2 - свободно 1623 -GetSizeSD: call AZreset; сбросим 1624 - tst R1 1625 - bne 0ERR$ 1626 - MOV #AZ$CSR,R1 1627 - mov #56,(R1) 1628 -1$: TSTB (R1); подготовить буфер 1629 - BPL 1$; ждем 1630 - mov #57,(R1) 1631 -2$: TSTB (R1); подготовить буфер 1632 - BPL 2$; ждем 1633 - mov @#AZ$DR ,R1; всего мегабайт 1634 - mov @#AZ$DR ,R2; свободно мегабайт 1635 - return 1636 - clr R1 1637 - clr R2 1638 - return 1615 +; trap 51 - get the total/free size of the SD card in megabytes 1616 +; result in R1 - total; R2 - free 1617 +GetSizeSD: call AZreset ; reset 1618 + tst R1 1619 + bne 0ERR$ 1620 + MOV #AZ$CSR,R1 1621 + mov #56,(R1) 1622 +1$: TSTB (R1) ; prepare buffer 1623 + BPL 1$ ; wait 1624 + mov #57,(R1) 1625 +2$: TSTB (R1) ; prepare buffer 1626 + BPL 2$ ; wait 1627 + mov @#AZ$DR ,R1 ; total megabytes 1628 + mov @#AZ$DR ,R2 ; free megabytes 1629 + return 1630 + clr R1 1631 + clr R2 1632 + return 1633 + 1639 1639 {{/code}} 1640 1640 1641 -Пример данных 1642 -035521 - всего на карточке мегабайт - 15185. 1643 -035417 - свободно мегабайт - 15119. 1644 - 1636 +Example data 1637 +035521 - total megabytes on the card - 15185. 1638 +035417 - free megabytes - 15119. 1645 1645 1646 -= **Блок команд APIHall of Fame**=1640 += Hall of Fame API Command Block = 1647 1647 1648 1648 Данный блок команд предназначен для взаимодействия с сервером [[Hall of Fame>>https://forum.maxiol.com/index.php?showtopic=5642]] 1649 1649 ... ... @@ -1651,7 +1651,7 @@ 1651 1651 1652 1652 Код команды 025, данная команда устанавливает соединение с сервером Hall of Fame, инициализирует шифрованный тоннель и подготавливает API к работе. 1653 1653 1654 - Примерпрограммы1648 +Example program: 1655 1655 1656 1656 {{code language="assembler"}} 1657 1657 AZ$CSR = 177220 ; регистр команд и состояния (CSR) ... ... @@ -1730,7 +1730,7 @@ 1730 1730 1731 1731 Код команды 026, данная команда осуществляет непосредственный обмен с Hall of Fame 1732 1732 1733 - Примерпрограммы1727 +Example program: 1734 1734 1735 1735 {{code language="assembler"}} 1736 1736 ;4. авторизация пользователя