Last modified by Max on 2025/03/02 15:18

From version 2.73
edited by Max
on 2025/02/25 17:07
Change comment: (Autosaved)
To version 2.79
edited by Max
on 2025/02/25 17:27
Change comment: (Autosaved)

Summary

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 адрес основного DNS
1234 -* DNS2 адрес резервного DNS
1229 +* 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.157
1273 -177777 000377 - MASK маску 255.255.255.0
1274 -124300 000400 - GW гейтвей 192.168.0.1
1275 -124300 000400 - NTP адрес NTP-сервера 192.168.0.1
1276 -124300 050000 - DNS1 адрес основного DNS 192.168.0.90
1277 -124300 055000 - DNS2 адрес резервного DNS 192.168.0.80
1272 +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,252 +1362,244 @@
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 051
1494 -если все 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 - BPL 13$ ; ждем
1527 - TST (R1)+ ; переходим на регистр данных
1528 - mov #STATS,R3
1529 - 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,R3
1534 - TST (R3)+
1535 - BNE 66$
1536 - TST (R3)
1537 - BEQ 60$
1538 -66$: .print #ERRMS1 ; печать ошибки
1539 - .exit
1536 +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 карты в буфер sizecard
1602 +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 1612  Код команды 057,  данная команда отдает буфер sizecard (2 слова)
1613 1613  
... ... @@ -1615,7 +1615,7 @@
1615 1615  первое слово - общий объем карты доступный для FAT в МБ
1616 1616  второе слово - свободный объем на карте в МБ
1617 1617  
1618 -Пример программы:
1612 +Example program:
1619 1619  
1620 1620  {{code language="assembler"}}
1621 1621  ; trap 51 - получение объема SD карты всего/свободно в мегабайтах
... ... @@ -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. авторизация пользователя