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
-
... ... @@ -15,7 +15,6 @@ 15 15 * 177224 - Primary Boot Register (BOOT1) 16 16 * 177226 - Alternate Boot Register (BOOT2) 17 17 18 - 19 19 The CSR register accepts commands in bits D0-D5 and the interrupt enable bit in bit D6, all write only, always zero is read. In bit D7, the readiness bit is read. One in it means that the previous command has been executed and the controller is ready for exchange. Zero means that the controller is busy executing the previous operation, the other registers are disabled, access to any of them will cause Trap to 4. If the execution of the previous command caused an error, bit D15 is set simultaneously with bit D7. 20 20 \\Writing to registers is done only in words; byte writing is not allowed. 21 21 \\All data exchange is conducted via DR. For commands with a single-word argument, this argument should be sent to DR, and then the command should be sent to CSR. For commands exchanging with the controller buffer, on the contrary, the command should be issued and only after it a data block of a certain length should be received or transmitted. ... ... @@ -300,126 +300,133 @@ 300 300 {{/code}} 301 301 302 302 303 -== **007:Получитьразмерпсевдодиска**==302 +== 007: Get disk size == 304 304 305 - Естьдвекомандыполученияразмерапсевдодиска,т.е.смонтированногонавыбранныйпсевдоприводAZnфайл-образа.306 -\\ ЕслииспользуемаяОС(илипрограмма,работающаясдискамибезОС)умеетработатьсбольшими(больше32М)дисками,следуетпользоваться[[командойскодом 017>>doc:||anchor="H017:A041F43E43B44344743844244C44043043743C43544043F44143543243443E43443844143A4302C43143E43B44C44843E439"]].Последовательностьдействий:сброситьконтроллер(команда000),выбратьнакопитель(п. 3.2)ипереслатьвCSRкод017,азатем,безкаких-либоожиданий,считатьизDRсначаламладшее,иследомзанимстаршеесловоразмеравыбранногонакопителя(файл-образа).307 -\\ ЕслииспользуемаяОСнеумеетработатьсдискамибОльшими,чем32М(RT-11),следуетпользоватьсякомандой007 -получитьразмерпсевдодискасограничениемдо32М.Действияпохожие:сбрасываемконтроллер,выбираемдиск,посылаемвCSRкод007исчитываемизDRоднословоразмерапсевдодиска.Еслиразмерфайл-образа,смонтированногонавыбранныйпсевдопривод,больше65534блоков,вместоэтого"большого"размера,контроллервозвращает число65534.Напоминаем,чточисло65535кое-гдеиспользуетсявспециальныхцеляхинеможетбытьразмеромдиска.308 -\\ Такженапоминаем,чтоеслинаэтотнакопительнесмонтированфайл-образ,последовательностьдействийнепройдет(команда001выборустройства)иисполнениепрограммыдоэтогоместапростонедойдет.Поэтомуошибокуэтихкоманднепредусмотрено.304 +There are two commands for obtaining the size of a pseudo-disk, i.e. the AZn file-image mounted on the selected pseudo-drive. 305 +\\If the OS being used (or a program working with disks without an OS) can work with large (more than 32M) disks, you should use the command with the code 017. The sequence of actions: reset the controller (command 000), select the drive (p. 3.2) and send the code 017 to the CSR, and then, without any waiting, read from DR first the lower word, and then the higher word of the size of the selected drive (image file). 306 +\\If the OS you are using cannot work with disks larger than 32M (RT-11), you should use the 007 command - get the pseudo-disk size with a limit of up to 32M. The steps are similar: reset the controller, select the disk, send the 007 code to the CSR and read one word of the pseudo-disk size from DR. If the size of the image file mounted on the selected pseudo-drive is larger than 65534 blocks, the controller returns the number 65534 instead of this "large" size. We remind you that the number 65535 is used in some places for special purposes and cannot be the disk size. 307 +\\We also remind you that if the image file is not mounted on this drive, the sequence of actions will not work (command 001 select device) and the program execution will simply not reach this point. Therefore, these commands do not provide for errors. 309 309 310 - Примерпрограммыс"малыми"дисками309 +Example of a program with "small" disks 311 311 312 312 {{code language="assembler"}} 313 313 ;...................................... 314 314 315 -GetSiz=007; Получить"малый"размердиска314 +GetSiz=007; Get the "small" disk size 316 316 317 -; Отфрагмента3.2 (выбордиска)унасвR3остался318 -; адресDR (177222)316 +; From fragment 3.2 (disk selection) we have in R3 317 +; DR address (177222) 319 319 320 - MOV #GetSiz,-(R3); пошлемкоманду321 - TST (R3)+; вернемадресвR3назад,наDR319 + MOV #GetSiz,-(R3); send the command 320 + TST (R3)+; return the address in R3 back to DR 322 322 MOV @R3,DskSiz 323 323 ;...................................... 324 324 {{/code}} 325 325 326 -== **010:Разрешитьработусети**==325 +== 010: Allow network operation == 327 327 328 -Код команды 010. Закончив последовательность действий по передаче очередной порции данных, и ожидая, что следующий запрос последует не сразу же, можно "утилизировать" процессорное время микроконтроллера STM32, составляющего основу AZ - занять его обслуживанием сети. В той же RT-11 это можно сделать перед выходом из драйвера AZ, перед макрокомандой .DRFIN, завершающей исполнение запроса ввода-вывода. 329 -\\Действительно, операция ввода-вывода завершена, программа ЦП в системе будет готовить новую порцию данных для вывода, или соображать (на основании предыдущих прочитанных данных), где ей еще что-то прочитать, или вообще размышлять о чем-то своём. [[image:https://forum.maxiol.com/style_emoticons/default/smile.gif||alt="smile.gif"]] Другими словами, после окончания запроса ввода-вывода, довольно высока вероятность того, что последует пауза в работе с дисками AZ. Вот, время этой паузы и можно отдать на обслуживание сети. Для этого, перед исполнением макрокоманды .DRFIN в RT-11 или ее аналога в других ОС следует отправить в CSR код 110 (разрешить сеть плюс разрешить прерывания). 330 -\\Прерывание в этом случае не произойдет, оно активируется только по завершении "длительных" операций, которые переводят контроллер в состояние "Думаю, прошу не мешать", а установленный в "1" триггер разрешения прерываний, кроме этого, разрешает еще и работу сети, если она активирована. При запуске следующей операции ввода-вывода действия в п. 3.1 (сброс контроллера) сбросят и этот триггер, после чего программа обслуживания сети, обнаружив сброс этого триггера, прекратит (приостановит) свою работу и вернет управление основной программе обслуживания дисков AZ. Максимум, что можно заметить со стороны ЦП - это небольшая (10-20 мкс) задержка исполнения команды сброса, но это вполне умеренная плата за сетевые возможности. 331 - 327 +Command code 010. Having completed the sequence of actions for transferring the next portion of data, and expecting that the next request will not follow immediately, you can "utilize" the processor time of the STM32 microcontroller, which is the basis of AZ - occupy it with servicing the network. In the same RT-11, this can be done before exiting the AZ driver, before the .DRFIN macro command, which completes the execution of the input-output request. 328 +\\Indeed, the I/O operation is completed, the CPU program in the system will prepare a new portion of data for output, or figure out (based on the previously read data) where it should read something else, or generally think about something of its own. smile.gif In other words, after the I/O request is completed, there is a fairly high probability that there will be a pause in working with the AZ disks. So, the time of this pause can be given to servicing the network. To do this, before executing the .DRFIN macro in RT-11 or its analogue in other OS, you should send code 110 (enable network plus enable interrupts) to the CSR. 332 332 333 -== **011: Получить таблицу назначений приводов AZn** == 334 334 335 -Код команды 011. Получив эту команду, контроллер переключается с буфера для блока на свою внутреннюю таблицу назначений (32 строки по 140 байт каждая)* . Перед выдачей этой команды следует сбросить контроллер. После выдачи этой команды следует выдать команду 015 (чтение буфера), но в этом случае будет читаться не буфер, а та самая таблица, последовательно, слово за словом. 336 -\\* начиная с версии v17, длина имени файла уже не 130 байт, а 386 байт (последнее слово - нулевое, для окончания строки) 331 +In this case, the interrupt will not occur, it is activated only upon completion of "long" operations that transfer the controller to the "Thinking, please do not interfere" state, and the interrupt enable trigger set to "1" also enables network operation if it is activated. When the next input-output operation is started, the actions in paragraph 3.1 (controller reset) will also reset this trigger, after which the network service program, having detected the reset of this trigger, will stop (suspend) its work and return control to the main disk service program AZ. The maximum that can be noticed from the CPU side is a small (10-20 µs) delay in executing the reset command, but this is a very reasonable price for network capabilities. 337 337 338 - [[**//примерутилитыAZSMNT//**>>url:https://forum.maxiol.com/index.php?s=&showtopic=5605&view=findpost&p=59420]]333 +== 011: Get AZn drive assignment table == 339 339 335 +Command code 011. Upon receiving this command, the controller switches from the block buffer to its internal assignment table (32 lines of 140 bytes each)*. Before issuing this command, the controller should be reset. After issuing this command, command 015 (read buffer) should be issued, but in this case it will not be the buffer that is read, but the same table, sequentially, word by word. 336 +\\* starting with v17, the file name length is no longer 130 bytes, but 386 bytes (the last word is zero, to end the line) 340 340 341 - Примерпрограммы:338 +[[AZSMNT utility example>>url:https://forum.maxiol.com/index.php?s=&showtopic=5605&view=findpost&p=59420]] 342 342 340 + 341 +Example program: 342 + 343 343 {{code language="assembler"}} 344 344 ;................................... 345 -AZ$CSR = 177220; CSR контроллера346 -RdBuf = 012; Команда"Читатьизпамятиконтроллера"347 -RdTbl = 011; Команда"Читатьтаблицуназначений"348 -TblSiz = 1120.; Длинатаблицывбайтах(десятичная)345 +AZ$CSR = 177220; Controller CSR 346 +RdBuf = 012; Command "Read from controller memory" 347 +RdTbl = 011; Command "Read assignment table" 348 +TblSiz = 1120.; Table length in bytes (decimal) 349 349 350 -; Считаем, что в R2 находится адрес первого слова 351 -; области памяти для таблицы назначений. Процедуру 352 -; получения этого адреса не показываем. 350 +; We assume that R2 contains the address of the first word of the 351 +; memory area for the assignment table. We do not show the procedure for obtaining this address. 353 353 354 - MOV #AZ$CSR,R3; ГотовимCSRконтроллера353 + MOV #AZ$CSR,R3; Preparing the controller CSR 355 355 10$: CLR @R3; 356 - TSTB @R3; Сбросимконтроллер355 + TSTB @R3; Reset the controller 357 357 BPL 10$; 358 358 359 - MOV #RdTbl,@R3; Команда"Передать360 - ; таблицу"358 + MOV #RdTbl,@R3;Command "Transfer 359 + ; table" 361 361 362 - MOV #RdBuf,(R3+); Команда"Читатьиз363 -; памятиконтроллера.ОдновременнопередвинемадресвR3364 -; наDRконтроллера(177222).361 + MOV #RdBuf,(R3+); Command "Read from 362 +; controller memory. At the same time, move the address in R3 363 +; to the DR of the controller (177222). 365 365 366 - MOV #TblSiz/2,R1; Готовимсчетчикслов365 + MOV #TblSiz/2,R1; Prepare the word counter 367 367 368 -11$: MOV @R3,(R2)+; Перешлемтекущееслово369 - иповторим560раз367 +11$: MOV @R3,(R2)+; Send the current word 368 +SOB R1,11$; and repeat 560 times 370 370 ;................................... 371 371 {{/code}} 372 372 373 -== **012:Установканомераблока,старшиебитыномераблока**==372 +== 012: Setting the block number, block number high bits == 374 374 375 -Контроллер предоставляет машинке с МПИ в качестве дисков AZ0 - AZ7 файл-образы типа DSK на карточке микро-SD. Размер этих файл-образов и, соответственно, псевдодисков, может быть любым, вплоть до 4Г каждый. Адресация на этих псевдодисках прямая - полученный по МПИ номер блока, после сдвига, используется в качестве смещения от начала соответствующего файл-образа. Фактически, это нечто, вроде LBA на PC. 376 -\\Существуют операционные системы PDP-11, поддерживающие такие диски - RSX-11, ДИАМС, еще что-то. Однако, самая распространенная ОС - RT-11 - использует для номера блока СЛОВО (16 бит), причем код 0177777 кое-где используется в специальных целях и как размер диска не годится, поэтому для RT-11 могут быть использованы диски с максимальным числом блоков 0177776, т.е. 65534 блока (33553408 байт или 32767 К байт). Поэтому команды установки номера блока две: установить младшие биты номера блока - код 002 и установить старшие биты номера блока - код 012. Если номер блока помещается в 16 разрядов (для RT-11 - всегда), достаточно использовать команду установки младших битов номера блока, старшие биты при этом очищаются. Если номер не помещается в 16 разрядов, то сначала надо выдавать младшие биты, а потом старшие. Если попытаться сразу передать старшие биты без предварительной передачи младших, выдается ошибка. Если переданный адрес выходит за границу файл-образа, также выдается ошибка, не важно, на каком этапе - хоть при передаче младших 16 битов номера блока, хоть при передаче старших. 377 -\\Для выполнения этих действий следует переслать требуемую часть битов номера блока в DR и затем переслать в CSR код команды, после чего следует проверить на ошибку. Команды мгновенные, т.е. выполняются за один цикл обращения по МПИ. 378 - 374 +The controller provides the machine with MPI as disks AZ0 - AZ7 file-images of the DSK type on the micro-SD card. The size of these file-images and, accordingly, pseudo-disks, can be any, up to 4G each. Addressing on these pseudo-disks is direct - the block number obtained by QBUS, after shifting, is used as an offset from the beginning of the corresponding file-image. In fact, this is something like LBA on a PC. 379 379 380 -== **013: Прочитать запись оглавления HFS** == 381 381 382 -Код команды 013, команда читает запись оглавления во внутреннюю область памяти и переключает на нее указатель для передачи данных через DR. Оглавление перед этим должно быть открыто. Порядок действий следующий: 383 -• Сбросить контроллер. 384 -• Выдать в CSR команду "Прочитать запись оглавления" и дождаться ее окончания. 385 -• Выдать в CSR команду "Прочитать из памяти контроллера" 386 -• Прочитать из DR 11 слов записи оглавления 387 -\\Запись оглавления имеет формат: 388 -\\См. Имя Значение 389 -0 fSize Размер файла в байтах, младшее слово 390 -2 старшее слово 391 -4 fDate Дата в формате MS-DOS 392 -6 fTime Время в формате MS-DOS 393 -10 fAttr Атрибуты 1 байт 394 -11 fName ИМЯ.ТИП файла, 8+1+3+1 = 13 байт 395 -\\Смещения указаны восьмеричные. Формула в строке fName означает, что там сначала должно быть имя, максимально из восьми символов, далее должна быть точка, далее тип, до трёх символов, и завершающий нулевой байт 0х00. Если тип не указан, точка тоже не нужна. 396 -\\Атрибуты файлов в байте fAttr (восьмеричные): 377 +There are PDP-11 operating systems that support such disks - RSX-11, DIAMS, and some others. However, the most common OS - RT-11 - uses a WORD (16 bits) for the block number, and the code 0177777 is used in some places for special purposes and is not suitable as a disk size, so disks with a maximum number of blocks of 0177776, i.e. 65534 blocks (33553408 bytes or 32767 K bytes), can be used for RT-11. Therefore, there are two commands for setting the block number: to set the low-order bits of the block number - code 002 and to set the high-order bits of the block number - code 012. If the block number fits into 16 bits (for RT-11 - always), it is enough to use the command to set the low-order bits of the block number, the high-order bits are cleared. If the number does not fit into 16 digits, then first the lower bits must be output, and then the higher ones. If you try to immediately transmit the higher bits without first transmitting the lower ones, an error is returned. If the transmitted address goes beyond the file-image boundary, an error is also returned, no matter at what stage - either when transmitting the lower 16 bits of the block number, or when transmitting the higher ones. 378 +\\To perform these actions, you should send the required part of the block number bits to DR and then send the command code to CSR, after which you should check for an error. The commands are instantaneous, i.e. they are executed in one cycle of access via MPI. 379 + 380 +== 013: Read HFS TOC entry == 381 + 382 +Command code 013, the command reads the TOC record into the internal memory area and switches the pointer to it for data transfer via DR. The TOC must be open before this. 383 + 384 +The procedure is as follows: 385 +• Reset the controller. 386 +• Issue the command "Read the table of contents entry" to the CSR and wait for it to finish. 387 +• Issue the command "Read from controller memory" to the CSR 388 +• Read 11 words of the table of contents entry from DR 389 +\\The table of contents entry has the format: 390 + 391 +(% style="width:686px" %) 392 +|=(% style="width: 136px;" %)Offset (octal)|=(% style="width: 305px;" %)Name|=(% style="width: 242px;" %)Value 393 +|(% style="width:136px" %)0|(% style="width:305px" %)fSize|(% style="width:242px" %)File size in bytes, low word 394 +|(% style="width:136px" %)2|(% style="width:305px" %)fSize|(% style="width:242px" %)File size in bytes, high word 395 +|(% style="width:136px" %)4|(% style="width:305px" %)fDate|(% style="width:242px" %)Date in MS-DOS format 396 +|(% style="width:136px" %)6|(% style="width:305px" %)fTime|(% style="width:242px" %)Time in MS-DOS format 397 +|(% style="width:136px" %)10|(% style="width:305px" %)fAttr|(% style="width:242px" %)Attributes 1 byte 398 +|(% style="width:136px" %)10|(% style="width:305px" %)fName|(% style="width:242px" %)NAME.FILE TYPE, 8+1+3+1 = 13 bytes 399 + 400 + 401 +The offsets are specified in octal. The formula in the fName line means that there must first be a name, maximum of eight characters, then a period, then a type, up to three characters, and a terminating zero byte 0x00. If the type is not specified, the period is also not needed. 402 +\\File attributes in fAttr byte (octal): 397 397 \\001 - Read Only 398 398 002 - Hidden 399 399 004 - System 400 400 020 - Directory 401 401 040 - Archive 402 -\\ Примерпрограммы.408 +\\Example program 403 403 404 404 {{code language="assembler"}} 405 405 ;...................................... 406 -RdDir = 013; кодкоманды"Читатьзаписьоглавления"412 +RdDir = 013; command code "Read table of contents entry" 407 407 RdBuf = 015 408 408 409 409 MOV #AZ$CSR,R3 410 410 411 411 15$: CLR @R3; 412 - TSTB @R3; Сбросимконтроллер418 + TSTB @R3; Reset the controller 413 413 BPL 15$; 414 414 415 - MOV #RdDir,@R3; Попросимконтроллер416 -16$: TSTB @R3; прочитатьвсвоюпамять417 - BPL 16$; записьоглавления421 + MOV #RdDir,@R3; Ask the controller 422 +16$: TSTB @R3; to read into its memory 423 + BPL 16$; table of contents entry 418 418 419 419 MOV @RdBuf,(R3)+; 420 - MOV DIRREC,R2; Иперенесемеексебев421 - MOV #11.,R1; областьпамяти,указатель422 -17$: MOV @R3,(R2)+; накоторуюлежитвячейке426 + MOV DIRREC,R2; And transfer it to itself in 427 + MOV #11.,R1; memory area, pointer 428 +17$: MOV @R3,(R2)+; to which lies in cell 423 423 SOB R1,17$; DIRREC. 424 424 425 425 ;...................................... ... ... @@ -426,96 +426,97 @@ 426 426 {{/code}} 427 427 428 428 429 -== **014:Размонтироватьдиск**==435 +== 014: Unmount disk == 430 430 431 - Кодкоманды014,чтобыразмонтироватьдиск,следуетсброситьконтроллер,переслатьвDRконтроллераномерприводаAZ,которыйследуетразмонтировать,ипослатьвCSRконтроллеракод014,послечегодождатьсяокончанияоперации(онадлительная)ипроверитьнаошибку.Ошибкавыдается,еслиприводнебылсмонтирован.432 -[[ **//пример утилитыAZUMNT//**>>url:https://forum.maxiol.com/index.php?showtopic=5605&st=0&p=59418&#entry59418]]437 +Command code 014, to unmount the disk, you should reset the controller, send the AZ drive number to the controller DR, which should be unmounted, and send the 014 code to the controller CSR, then wait for the operation to complete (it takes a long time) and check for an error. An error is issued if the drive has not been mounted. 438 +[[AZUMNT utility example>>url:https://forum.maxiol.com/index.php?showtopic=5605&st=0&p=59418&#entry59418]] 433 433 434 434 435 -== **015:Начатьпередачусчитанногоблока**==441 +== 015: Start transferring the read block == 436 436 437 - Кодкоманды-015.Получивэтукоманду,контроллернастраиваетсянапословнуювыдачусодержимоготогосамоговстроенногобуферана256слов,которыебудутвыданыпоследовательночерезрегистрDR.Никакихожиданийнетребуется,простопересылаем256разсловоизDRвпоследовательныеячейкипамяти,ивсе.Еслинужноменьше,чем256слов(последнийукороченныйблокфайла),тоостатокможнопростобросить,несчитывая,сбросконтроллеравначалеследующейоперациисброситиэтотостаток.438 -\\ Примерпрограммы:443 +The command code is 015. Having received this command, the controller is configured to output word by word the contents of the same built-in buffer for 256 words, which will be output sequentially through the DR register. No waiting is required, we simply send a word from DR to sequential memory cells 256 times, and that's it. If less than 256 words are needed (the last shortened block of the file), then the remainder can simply be discarded without reading, resetting the controller at the beginning of the next operation will also reset this remainder. 444 +\\Example program: 439 439 440 440 {{code language="assembler"}} 441 441 ;.................................. 442 -RdBuf=015; символическоенаименованиекоманды448 +RdBuf=015; symbolic name of the command 443 443 444 -; ВR3отпредыдущегофрагментаосталсяадресCSR450 +; In R3 from the previous fragment there is the address of the CSR 445 445 ; (177220) 446 446 447 -; Считаем,чтоунасвR2находитсяадреспервогослова448 -; памяти,кудаследуетразместитьпрочитанныйблок.449 -; Программаполученияэтогоадресанеприводится.453 +; We assume that in R2 we have the address of the first word 454 +; of memory, where the read block should be placed. 455 +; The program for obtaining this address is not given. 450 450 451 - MOV #400,R1; Готовимсчетчикслов457 + MOV #400,R1; Prepare the word counter 452 452 ; 0400 oct = 256 dec 453 453 454 - MOV #RdBuf,(R3)+; ипересылаемкоманду455 -; RdBuf вCSR.АдресвR3укажетнаDR (177222).460 + MOV #RdBuf,(R3)+; and send the command 461 +; RdBuf to the CSR. The address in R3 will point to DR (177222). 456 456 457 -3$: MOV @R3,(R2)+ ;перешлемочередноесловов458 - память459 - SOB R1,3$; иповторимэто256 (0400)460 - ; раз463 +3$: MOV @R3,(R2)+we will send the next word to 464 +; memory 465 + SOB R1,3$; and repeat this 256 (0400) 466 + ; times 461 461 ;.................................. 462 462 {{/code}} 463 463 464 -Всё, чтение закончено. 465 -\\Для записи наоборот, требуется сначала перенести весь блок данных из памяти ЦП в контроллер и потом выдать команду "Записать содержимое буфера на диск" 470 +That's it, reading is complete. 466 466 472 +To write the opposite way, you first need to transfer the entire data block from the CPU memory to the controller and then issue the command "Write the contents of the buffer to disk" 467 467 468 -== **016: Принять блок данных в буфер** == 469 469 470 -Код команды 016. Команда настраивает контроллер на прием блока данных и помещении его в буфер. Следующие 256 циклов записи в DR поместят данные, переданные через МПИ, в буфер. 471 -\\Пример программы. 475 +== 016: Receive data block into buffer == 472 472 477 +Command code 016. The command sets the controller to receive a block of data and place it in the buffer. The next 256 write cycles to DR will place the data transferred via the QBUS in the buffer. 478 +\\Example program: 479 + 473 473 {{code language="assembler"}} 474 474 ;.................................. 475 475 476 -WrBuf=016; Символическоенаименованиекоманды483 +WrBuf=016; Symbolic name of the command 477 477 478 -; Передзаписьюнужновыполнитьтежедействия,чтоив479 -; пп. 3.1.-3.3.Обычно,этооднаитаже программа,480 -; простопослепункта3.3.выполняетсяпроверка"Что481 -; требуется:чтениеилизапись?"иразветвлениена482 -; программучтенияилизаписи.485 +; Before writing, you need to perform the same actions as in 486 +; pp. 3.1.-3.3. Usually, this is the same program, 487 +; just after point 3.3. a check is performed "What 488 +; is required: reading or writing?" and a branch is made to the 489 +; reading or writing program. 483 483 484 -; Послефрагментавп.3.3.вR3 остался адресCSR485 -; (177220). Будемсчитать,чтовR2находитсяадресв486 -; памятиЦП,гденаходитсяблок,подлежащийзаписи.487 -; Программаполученияэтогоадресанепоказана.491 +; After the fragment in point 3.3., the CSR address 492 +; (177220) remains in R3. We will assume that R2 contains the address in the CPU 493 +; memory where the block to be written is located. 494 +; The program for obtaining this address is not shown. 488 488 489 - MOV #400,R1; Готовимсчетчик496 + MOV #400,R1; Preparing the counter 490 490 491 - MOV #WrBuf,(R3)+; ПерешлемкомандувCSRи492 - переключимадресвR3на493 - 498 + MOV #WrBuf,(R3)+; Let's forward the command to the CSR and 499 +; switch the address in R3 to 500 +; DR 494 494 495 -4$: MOV (R2)+,@R3; Перешлемочередноеслово496 - данных497 - SOB R1,4$; иповторимэто256раз502 +4$: MOV (R2)+,@R3; Let's forward the next word 503 +; data 504 + SOB R1,4$; and repeat this 256 times 498 498 ;.................................. 499 499 {{/code}} 500 500 501 -== **017:Получитьразмерпсевдодиска,большой**==508 +== 017: Get ramdisk size, large == 502 502 503 - Естьдвекомандыполученияразмерапсевдодиска,т.е.смонтированногонавыбранныйпсевдоприводAZnфайл-образа.504 -\\ ЕслииспользуемаяОС(илипрограмма,работающаясдискамибезОС)умеетработатьсбольшими(больше32М)дисками,следуетпользоватьсякомандойскодом017.Последовательностьдействий:сброситьконтроллер(п. 3.1),выбратьнакопитель(п. 3.2)ипереслатьвCSRкод017,азатем,безкаких-либоожиданий,считатьизDRсначаламладшее,иследомзанимстаршеесловоразмеравыбранногонакопителя(файл-образа).505 -\\ ЕслииспользуемаяОСнеумеетработатьсдискамибОльшими,чем32М(RT-11),следуетпользоватьсякомандой007 -получитьразмерпсевдодискасограничениемдо32М.Действияпохожие:сбрасываемконтроллер,выбираемдиск,посылаемвCSRкод[[007>>doc:||anchor="H007:41F43E43B44344743844244C44043043743C43544043F44143543243443E43443844143A430"]]исчитываемизDRоднословоразмерапсевдодиска.Еслиразмерфайл-образа,смонтированногонавыбранныйпсевдопривод,больше65534блоков,вместоэтого"большого"размера,контроллервозвращает число65534.Напоминаем,чточисло65535кое-гдеиспользуетсявспециальныхцеляхинеможетбытьразмеромдиска.506 -\\ Такженапоминаем,чтоеслинаэтотнакопительнесмонтированфайл-образ,последовательностьдействийнепройдет(команда001выборустройства)иисполнениепрограммыдоэтогоместапростонедойдет.Поэтомуошибокуэтихкоманднепредусмотрено.507 -\\ Примерпрограммысбольшимидисками510 +There are two commands to get the size of a pseudo-disk, i.e. the AZn file-image mounted on the selected pseudo-drive. 511 +\\If the OS being used (or a program working with disks without an OS) can work with large (more than 32M) disks, you should use the command with the code 017. The sequence of actions: reset the controller (p. 3.1), select the drive (p. 3.2) and send the code 017 to the CSR, and then, without any waiting, read from DR first the lower word, and then the higher word of the size of the selected drive (image file). 512 +\\If the OS you are using cannot work with disks larger than 32M (RT-11), you should use the 007 command - get the pseudo-disk size with a limit of up to 32M. The steps are similar: reset the controller, select the disk, send the 007 code to the CSR and read one word of the pseudo-disk size from DR. If the size of the image file mounted on the selected pseudo-drive is larger than 65534 blocks, the controller returns the number 65534 instead of this "large" size. We remind you that the number 65535 is used in some places for special purposes and cannot be the disk size. 513 +\\We also remind you that if the image file is not mounted on this drive, the sequence of actions will not work (command 001 select device) and the program execution will simply not reach this point. Therefore, these commands do not provide for errors. 514 +\\Example of a program with large disks 508 508 509 509 {{code language="assembler"}} 510 510 ;...................................... 511 511 512 -GetBig=017; Получить"большой"размердиска519 +GetBig=017; Get the "big" disk size 513 513 514 -; Отфрагмента3.2 (выбордиска)унасвR3остался515 -; адресDR (177222)521 +; From fragment 3.2 (disk selection) we have in R3 522 +; DR address (177222) 516 516 517 - MOV #GetBig,-(R3); пошлемкоманду518 - TST (R3)+; вернемадресвR3назад,наDR524 + MOV #GetBig,-(R3); send the command 525 + TST (R3)+; return the address in R3 back to DR 519 519 MOV @R3,BigSiz 520 520 MOV @R3,BigSiz+2 521 521 ;...................................... ... ... @@ -522,27 +522,26 @@ 522 522 {{/code}} 523 523 524 524 525 -== **020:Получитьрасширенныйкоддиагностики**==532 +== 020: Get extended diagnostic code == 526 526 527 - Кодкоманды020,послесбросаконтроллераследуетвыдатьэтукомандувCSRизатемпрочитатьдвасловарасширеннойдиагностикиизDR.Командамгновенная,ожиданиенетребуется.534 +Command code 020, after resetting the controller, you should issue this command in the CSR and then read two words of extended diagnostics from DR. The command is instant, no waiting is required. 528 528 529 529 530 -== **027:Получитьверсиюfirmware AZ STM32**==537 +== 027: Get firmware version AZ STM32 == 531 531 532 -Код команды 027, возвращает 2 слова 533 -\\первое слово - 06404 = старший байт 13. это версия прошивки, младший байт 4. это версия железа - те AZБК в данном случае 534 -второе слово - 037 = это максимальный монтируемый диск - 31. 539 +Command code 027, returns 2 words 540 +\\first word - 06404 = high byte 13. this is the firmware version, low byte 4. this is the hardware version - i.e. AZБК in this case second word - 037 = this is the maximum mountable disk - 31. 535 535 536 536 537 537 {{code language="assembler"}} 538 538 ;------------------------------------------------------------- 539 -; получениеверсии прошивкиSTM32 -результатвR1ошибка545 +; getting STM32 firmware version - result in R1 R1=0 error 540 540 GTSTMV: MOV #AZ$CSR,R1 541 -1$: CLR (R1) ; Пошлемкоманду"Сброс"542 - TSTB (R1) ; Проверимготовностьконтроллера543 - BPL 1$ ; Еслинеготов,сбрасываемеще547 +1$: CLR (R1) ; Send "Reset" command 548 + TSTB (R1) ;Check controller readinessконтроллера 549 + BPL 1$ ; If not ready, reset again 544 544 mov #27,(R1) 545 - TST (R1)+ ; Проверяемнаошибку551 + TST (R1)+ ; Check for error 546 546 BMI 2$ 547 547 mov (R1),R1 548 548 return ... ... @@ -552,45 +552,45 @@ 552 552 {{/code}} 553 553 554 554 555 -== **030:Нетоперации**==561 +== 030: No operation == 556 556 557 - Основноеназначениеэтойкоманды-устанавливатьбитразрешенияпрерыванийотконтроллера.Командапередаетбитразрешенияпрерывания,которыйнаходитсяснейводномслове,ноневходитвеесостав(напоминаем,командарасполагаетсявбитахD0 - D5,абитразрешенияпрерываний-D6),всоответствующийтриггерконтроллераибольшеникакневлияетнапроцессывконтроллере.Управлениеэтимтриггеромработаетдажевсостоянии"Думаю,прошунемешать",иэтоглавнаяособенностькоманды"нетоперации".558 -\\ Командаимееткод0030.Посылка в CSRкода0130разрешитпрерыванияотконтроллера,посылкакода0030запретитих.Примернеприводитсявследствиетривиальностиего.563 +The main purpose of this command is to set the interrupt enable bit from the controller. The command transfers the interrupt enable bit, which is in the same word with it, but is not part of it (remember, the command is located in bits D0 - D5, and the interrupt enable bit is D6), to the corresponding trigger of the controller and does not affect the processes in the controller in any other way. Control of this trigger works even in the "Thinking, please do not interfere" state, and this is the main feature of the "no operation" command. 564 +\\The command has the code 0030. Sending the code 0130 to the CSR will enable interrupts from the controller, sending the code 0030 will disable them. An example is not given due to its triviality. 559 559 560 560 561 -= **Блоккомандработысэнергонезависимойпамятью**=567 += Command block for working with non-volatile memory = 562 562 563 - ИнтерфейспредоставляетлюбомуAZ-контроллерудоступк255словамэнергонезависимойпамяти,всекомандыустанавливаютбитготовностипозавершению.Этопозволяетсохранятьпользовательскиенастройкивэнергонезависимойпамяти,кпримеруэтоиспользуетсявAZБК-тамсохраняютсянастройкидляболеекомфортнойработыконтроллера.569 +The interface provides any AZ controller with access to 255 words of non-volatile memory, all commands set the ready bit upon completion. This allows you to save user settings in non-volatile memory, for example, this is used in AZBK ??- there are saved settings for more comfortable operation of the controller. 564 564 565 - Всекомандыэтогоблокаиспользуютбуферэнергонезависимойпамятидлясвоейработы.571 +All commands in this block use a non-volatile memory buffer for their operation. 566 566 567 -== **021:Cчитатьблокэнергонезависимойпамятивбуфер**==573 +== 021: Read non-volatile memory block into buffer == 568 568 569 569 (% class="wikigeneratedid" %) 570 - Кодкоманды021,даннаякомандавызываетчтениеблокаэнергонезависимойпамятивбуферэнергонезависимойпамяти.576 +Command code 021, this command causes a block of non-volatile memory to be read into the non-volatile memory buffer. 571 571 572 572 573 -== **022:Отдатьнашинусчитанныйблокэнергонезависимойпамятиизбуфера**==579 +== 022: Transfer the read block of non-volatile memory from the buffer to the bus == 574 574 575 575 (% class="wikigeneratedid" %) 576 - Кодкоманды022,даннаякомандаобеспечиваетпередачубуфераэнергонезависимойпамятиврегистрDRдлясчитывания.582 +Command code 022, this command ensures that the non-volatile memory buffer is transferred to the DR register for reading. 577 577 578 578 (% class="wikigeneratedid" %) 579 - Примерпрограммы585 +Example program 580 580 581 581 {{code language="assembler"}} 582 -AZ$CSR регистркомандисостояния(CSR)583 -AZ$DR регистрданных(DR)588 +AZ$CSR = 177220; command and status register (CSR) 589 +AZ$DR = 177222; data register (DR) 584 584 585 585 586 -; trap 50 - cбросAZ592 +; trap 50 - reset AZ 587 587 ; результат в R1 =0 ok 588 588 AZreset: MOV #AZ$CSR,R1 589 -1$: CLR (R1); Пошлемкоманду"Сброс"590 - TSTB (R1); Проверимготовностьконтроллера591 - BPL 1$; Еслинеготов,сбрасываемеще592 - разипроверяемснова593 - TST (R1); Проверимнаошибку,595 +1$: CLR (R1); Send the "Reset" command 596 + TSTB (R1); Check the controller readiness 597 + BPL 1$; If not ready, reset again 598 +; once and check again 599 + TST (R1); Check for an error, 594 594 BMI 0ERR$ 595 595 CLR R1 596 596 return ... ... @@ -599,30 +599,30 @@ 599 599 return 600 600 601 601 602 -; trap 54 - чтениеэнергонезависимойпамятиблока1 EEPROMвбуферсадресаADREEPROMMEM603 -; результатR3 -адрес,еслиR3=0ошибка604 -; статусчтениявR1 0 - ok605 -; 1 - размернесоответствуетсохраненному606 -; 2 - o шибкаверсии607 -; 3 - oшибкаконтрольной суммы608 +; trap 54 - reading non-volatile memory of block 1 EEPROM to the buffer from the address ADREEPROMMEM 609 +; result R3 - address, if R3=0 error 610 +; read status in R1 0 - ok 611 +; 1 - size does not match saved 612 +; 2 - version error 613 +; 3 - checksum error 608 608 ReadEEPROM: push R2 609 - call AZreset; сбросим615 + call AZreset; reset 610 610 tst R1 611 611 bne 0ERR$ 612 612 ; теперь читаем 613 613 MOV #AZ$CSR,R1 614 - mov #21,(R1); считатьблок1энергонезависимойпамятивбуфер615 -0$: TSTB (R1); проверяемрезультатвыполнения616 - BPL 0$; ждем617 - mov #22,(R1); отдатьнашинусчитанныйблокэнергонезависимойпамятиизбуфера618 -1$: TSTB (R1); проверяемрезультатвыполнения619 - BPL 1$; ждем620 - TST (R1)+; инкрементируем620 + mov #21,(R1); read block 1 of non-volatile memory into buffer 621 +0$: TSTB (R1); check execution result 622 + BPL 0$; wait 623 + mov #22,(R1); send read block of non-volatile memory from buffer to bus 624 +1$: TSTB (R1); check execution result 625 + BPL 1$; wait 626 + TST (R1)+; increment 621 621 mov #ADREEPROMMEM,R3 622 - mov #256.,R2; читаем256.слов;первоеслово-результатчтения623 -2$: mov (R1),(R3)+; читаемблоксловвпамять628 + mov #256.,R2; read 256. words; first word is reading result 629 +2$: mov (R1),(R3)+; read block of words into memory 624 624 sob R2,2$ 625 - mov #ADREEPROMMEM,R3; успешно631 + mov #ADREEPROMMEM,R3; successful 626 626 mov (R3),R1 627 627 br 0END$ 628 628 0ERR$: CLR R3 ... ... @@ -630,41 +630,39 @@ 630 630 return 631 631 {{/code}} 632 632 633 -очевидно, после считывания памяти необходимо проверить код результата в первом слове - см расшифровку кодов ошибок 634 -\\Примеры возвращаемых данных по командам 635 -\\последовательная подача команды 021 и затем 022 позволит считать 256. слов 636 -из энергонезависимой памяти 637 -**Внимание! **первое слово это будет статус успешности чтения 638 - 639 +obviously, after reading the memory, it is necessary to check the result code in the first word - see the decoding of error codes 640 +\\Examples of returned data for commands 641 +\\sequentially issuing the command 021 and then 022 will allow reading 256 words from non-volatile memory 642 +Attention! The first word will be the reading success status 639 639 640 640 * 0 - ok 641 -* 1 - размернесоответствуетсохраненному642 -* 2 - o шибкаверсии643 -* 3 - oшибкаконтрольной суммы645 +* 1 - size does not match saved 646 +* 2 - version error 647 +* 3 - checksum error 644 644 645 -== **023:Принятьсшинывбуферданныедляпоследующейзаписивбуфер**==649 +== 023: Receive data from the bus into the buffer for subsequent writing into the buffer == 646 646 647 - Кодкоманды023,даннаякомандапозволяетнаполнитьбуферэнергонезависимойпамяти651 +Command code 023, this command allows you to fill the non-volatile memory buffer 648 648 649 -== **024:Записатьизбуферавблокэнергонезависимойпамяти**==653 +== 024: Write from buffer to non-volatile memory block == 650 650 651 - Кодкоманды024,даннаякомандавызываетзаписьблокаэнергонезависимойпамятиизбуфераэнергонезависимойпамяти.655 +Command code 024, this command causes a non-volatile memory block to be written from the non-volatile memory buffer. 652 652 653 - Примерпрограммы657 +Example program 654 654 655 655 {{code language="assembler"}} 656 -AZ$CSR регистркомандисостояния(CSR)657 -AZ$DR регистрданных(DR)660 +AZ$CSR = 177220; Command and Status Register (CSR) 661 +AZ$DR = 177222; Data Register (DR) 658 658 659 659 660 -; trap 50 - cбросAZ664 +; trap 50 - reset AZ 661 661 ; результат в R1 =0 ok 662 662 AZreset: MOV #AZ$CSR,R1 663 -1$: CLR (R1); Пошлемкоманду"Сброс"664 - TSTB (R1); Проверимготовностьконтроллера665 - BPL 1$; Еслинеготов,сбрасываемеще666 - разипроверяемснова667 - TST (R1); Проверимнаошибку,667 +1$: CLR (R1); Send the "Reset" command 668 + TSTB (R1); Check the controller readiness 669 + BPL 1$; If not ready, reset again 670 +; once and check again 671 + TST (R1); Check for an error, 668 668 BMI 0ERR$ 669 669 CLR R1 670 670 return ... ... @@ -672,27 +672,27 @@ 672 672 COM R1 673 673 return 674 674 675 -; trap 55 - записьэнергонезависимойпамятиизбуферасадресаADREEPROMMEM в блок 1 EEPROM679 +; trap 55 - write non-volatile memory from the buffer at address ADREEPROMMEM в блок 1 EEPROM 676 676 WriteEEPROM: push R1 677 677 push R2 678 678 push R3 679 - call AZreset; сбросим683 + call AZreset; reset 680 680 tst R1 681 681 bne 0ERR$ 682 682 683 683 MOV #AZ$CSR,R1 684 - mov #23,(R1); командуемчтобудемписатьданныевбуфер685 -0$: TSTB (R1); проверяемрезультатвыполнения686 - BPL 0$; ждем687 - TST (R1)+; инкрементируем688 + mov #23,(R1);command that we will write data to the buffer 689 +0$: TSTB (R1); check the result of executio 690 + BPL 0$; wait 691 + TST (R1)+; increment 688 688 mov #ADREEPROMMEM+2,R3 689 - mov #255.,R2; пишем255.слов;первоесловопропускаем-результатчтения690 -1$: mov (R3)+,(R1); отдаемвконтроллер693 + mov #255.,R2; write 255. words; skip the first word - the result of reading 694 +1$: mov (R3)+,(R1); send to the controller 691 691 sob R2,1$ 692 - tst -(R1); декрементируем693 - mov #24,(R1); записатьизбуферавблок1энергонезависимойпамяти694 -2$: TSTB (R1); проверяемрезультатвыполнения695 - BPL 2$; ждем696 + tst -(R1); decrement 697 + mov #24,(R1); write from the buffer to block 1 of non-volatile memory 698 +2$: TSTB (R1); check the result of execution 699 + BPL 2$; we are waiting 696 696 br 0END$ 697 697 0ERR$: CLR R3 698 698 0END$: pop R3 ... ... @@ -701,23 +701,21 @@ 701 701 return 702 702 {{/code}} 703 703 704 -** Обращаювнимание**,призаписи,буферидетсразусданными,тенетпервогословасостатусом.708 +**Please note** that when recording, the buffer immediately comes with the data, i.e. there is no first word with the statu 705 705 706 706 707 707 708 -= БлоккоманддляработысRTCиNTP =712 += Block of commands for working with RTC and NTP = 709 709 710 - ВконтроллереAZ®есть2источникаполучениядаты-времени,первыйэтоRTCвстроенныйвSTM32,второйэточасывстекеTCP/IP.ЧасыRTCработаютавтономноприналичииустановленнойбатарейки2032.ЧасывстекеTCP/IPустанавливаютсянаоснованииданныхсNTP-сервера.714 +The AZ® controller has 2 sources of date-time, the first is the RTC built into the STM32, the second is the clock in the TCP/IP stack. The RTC clock works autonomously with a 2032 battery installed. The clock in the TCP/IP stack is set based on data from the NTP server. 711 711 712 712 713 -== Форматбуфераtimestamp (доступен по чтению) ==717 +== Buffer format timestamp (readable) == 714 714 715 -API контроллерасразуготовитвремявнескольких форматах,дабыегобылоудобноприменитьнасторонеPDP-11719 +The controller API immediately prepares time in several formats, so that it can be conveniently used on the PDP-11 side 716 716 717 717 {{info}} 718 -формат буфера даты-времени 719 -offset в восьмеричной системе - те слова 720 -формат буфера даты-времени 722 +datetime buffer format octal offset - those words datetime buffer format 721 721 \\[0]=rtc_rt11date(); 722 722 [2]=rt11 time 50Hz big word; 723 723 [4]=rt11 time 50Hz little word; ... ... @@ -735,72 +735,72 @@ 735 735 {{/info}} 736 736 737 737 738 -== Формат буфераSimpleIN (призаписи) ==740 +== SimpleIN buffer format (when writing) == 739 739 740 - форматмаксимальноупрощен,дляработысостороныPDP-11742 +the format is simplified as much as possible, for work with PDP-11 741 741 742 742 {{info}} 743 -offset ввосьмеричнойсистеме-теслова745 +offset in octal - those words 744 744 745 -[0]=year год,младшиедвецифры-те22ане2022(!)746 -[2]=month; месяц747 -[4]=day; день748 -[6]=wday; деньнедели=0неустановлен, 1-понедельник2 -вторникитд749 -[10]=hour; час750 -[12]=min; минута751 -[14]=sec; секунда747 +[0]=year, the lower two digits are 22 and not 2022(!) 748 +[2]=month; month 749 +[4]=day; day 750 +[6]=wday; day of the week =0 not set, 1 - Monday 2 - Tuesday etc. 751 +[10]=hour; hour 752 +[12]=min; minute 753 +[14]=sec; second 752 752 {{/info}} 753 753 754 754 755 -== **031:ПолучитьвремяизRTCвбуферtimestamp**==757 +== 031: Get time from RTC to timestamp buffer == 756 756 757 - Кодкоманды031,даннаякомандаиспользуетRTCчасыкакисточникзаполнениябуфераtimestamp759 +Command code 031, this command uses RTC clock as a source of filling the timestamp buffer 758 758 759 - Примерпрограммы:761 +Example program: 760 760 761 761 {{code language="assembler"}} 762 -; trap 61 - чтениеданныхчасовизавтономныхчасовRTC763 -; R3 - адресбуферакуданадосчитать764 -; результатвR3адрес,еслиуспешно. R3=0если ошибка764 +; trap 61 - reading clock data from autonomous RTC clock 765 +; R3 - buffer address where to read 766 +; result in R3 address if successful. R3=0 if error 765 765 GetDateFromRTC: push R0 766 766 push R1 767 767 push R2 768 - call AZreset; сбросим770 + call AZreset; reset 769 769 tst R1 770 770 bne G60ERR 771 771 MOV #AZ$CSR,R1 772 772 mov #31,(R1) 773 - br G60; идемтудаткдальшекододинаковый775 + br G60; let's go there because further code is the same 774 774 {{/code}} 775 775 776 -== **032:Получитьвремяизбуфераtimestamp**==778 +== 032: Get time from timestamp buffer == 777 777 778 - Кодкоманды032,даннаякомандаотдаетнашинусодержимоебуфераtimestamp780 +Command code 032, this command sends the contents of the timestamp buffer to the bus 779 779 780 780 {{code language="assembler"}} 781 -; работасчасами782 -; trap 60 - чтениеданныхчасовизTCP/IPстека783 -; R3 - адресбуферакуданадосчитать784 -; результатвR3адрес,еслиуспешно. R3=0если ошибка783 +; working with clock 784 +; trap 60 - reading clock data from TCP/IP stack 785 +; R3 - buffer address where to read 786 +; result in R3 address if successful. R3=0 if error 785 785 GetDateFromLAN: push R0 786 786 push R1 787 787 push R2 788 - call AZreset; сбросим790 + call AZreset; reset 789 789 tst R1 790 790 bne G60ERR 791 791 MOV #AZ$CSR,R1 792 792 mov #42,(R1) 793 -G60: TSTB (R1); проверяемрезультатвыполнения794 - BPL G60; ждем795 +G60: TSTB (R1); check execution result 796 + BPL G60; wait 795 795 mov #32,(R1) 796 -1$: TSTB (R1); проверяемрезультатвыполнения798 +1$: TSTB (R1); check execution result 797 797 BPL 1$; ждем 798 - TST (R1)+; инкрементируем799 - mov R3,R0; запомнимR3- адрес800 - mov #10.,R2; читаем10слов801 -2$: mov (R1),(R3)+; читаемблоксловвпамять800 + TST (R1)+; increment 801 + mov R3,R0; remember R3 address 802 + mov #10.,R2; read 10 words 803 +2$: mov (R1),(R3)+; read block of words into memory 802 802 sob R2,2$ 803 - mov R0,R3; успешно,вернемадресвR3805 + mov R0,R3; successful, return address to R3 804 804 br 0END$ 805 805 G60ERR: CLR R3 806 806 0END$: pop R2 ... ... @@ -809,11 +809,11 @@ 809 809 return 810 810 {{/code}} 811 811 812 - Стоитпроверитькорректностьполученноговремени:814 +It is worth checking the correctness of the received time: 813 813 814 814 {{code language="assembler"}} 815 -; trap 63 - проверкакорректностивремени816 -; R3 - адресбуфера,результатвR3,еслиадресбуфератоOK, =0ошибка817 +; trap 63 - check time correctness 818 +; R3 - buffer address, result in R3, if buffer address then OK, =0 error 817 817 CheckDateTime: Cmp 6(r3),#2021. 818 818 Blos 1err 819 819 Cmp 6(r3),#2100. ... ... @@ -823,119 +823,119 @@ 823 823 return 824 824 {{/code}} 825 825 826 -== **033:Записьвремени-датывбуферSimpleIN**==828 +== 033: Write time-date to SimpleIN buffer == 827 827 828 - Кодкоманды033,даннаякомандапринимаетсшиныданныевбуферSimpleIN830 +Command code 033, this command receives data from the bus into the SimpleIN buffer 829 829 830 - Работаданнойкомандыаналогичнаработе команд [[023>>doc:||anchor="H023:41F44043843D44F44244C44144843843D44B43243144344443544043443043D43D44B43543443B44F43F43E44143B43543444344E44943543943743043F438441438432431443444435440"]]и[[016>>doc:||anchor="H016:A041F44043843D44F44244C43143B43E43A43443043D43D44B445432431443444435440"]].832 +The operation of this command is similar to the operation of commands 023 and 016. 831 831 832 -== **034:УстановкаRTCнаоснованииданныхизбуфера**==834 +== 034: Set RTC based on buffer data == 833 833 834 - Кодкоманды034,даннаякомандаустанавливаетRTCнаоснованииданныхвбуфереSimpleIN836 +Command code 034, this command sets the RTC based on the data in the SimpleIN buffer 835 835 836 - Даннаякомандавыполняетсябыстро,нодляисключенияпроблемцикложиданиявыполнениярекомендуется.838 +This command executes quickly, but to avoid problems, a wait loop is recommended. 837 837 838 -== **035:СтимуляциязапросавременисNTPсервера,установканаоснованииответа**==840 +== 035: Stimulate time request from NTP server, set based on response == 839 839 840 - Кодкоманды035,даннаякомандаотправляетзапроснаNTPcервер(установленныйвAZ.INIфайлеилиполученныйотDHCP)иустанавливаетчасывстекеTCP/IP.842 +Command code 035, this command sends a request to the NTP server (set in the AZ.INI file or received from DHCP) and sets the clock in the TCP/IP stack. 841 841 842 - Примерпрограммы:отсылказапросанаустановкувременисNTPсервера844 +Example program: sending a request to set the time from an NTP server 843 843 844 844 {{code language="assembler"}} 845 -; trap 62 - отсылказапросанаустановкувременисNTPсервера847 +; trap 62 - sending a request to set the time from the NTP server 846 846 GetDateNTPtoNET:push R1 847 - call AZreset; сбросим849 + call AZreset; reset 848 848 tst R1 849 849 bne 0ERR$ 850 850 MOV #AZ$CSR,R1 851 851 mov #35,(R1) 852 -0$: TSTB (R1); проверяемрезультатвыполнения853 - BPL 0$; ждем854 +0$: TSTB (R1); check the result of execution 855 + BPL 0$; wait 854 854 0ERR$: pop R1 855 855 return 856 856 {{/code}} 857 857 858 - Выполнениекомандызанимает1-2секундывсреднем.ДаннаякомандатребуетработыстекаTCP/IP,соответственнонужныциклыожиданияпривключенномстеке.860 +The command execution takes 1-2 seconds on average. This command requires the TCP/IP stack to work, so waiting cycles are needed when the stack is enabled. 859 859 860 - Примерциклаопросасцельюполучитьвремяссети862 +An example of a polling cycle to get time from the network 861 861 862 862 {{code language="assembler"}} 863 -; дата-время865 +; date-time 864 864 mov #S_DateTime_0,R3; "Lan Date:" 865 865 trap 10 866 - mov #20,R4; количествоцикловожидания867 -$datry: trap 62; отослализапроскNTPсерверу868 - mov #110,@#AZ$CSR; включимсеть869 - trap 47; ожидание870 - trap 47; ожидание868 + mov #20,R4; number of wait cycles 869 +$datry: trap 62; sent a request to the NTP server 870 + mov #110,@#AZ$CSR; enable the network 871 + trap 47; waiting 872 + trap 47; waiting 871 871 mov #ADRTMPSTR,R3 872 - trap 60; считаливбуфер дату-время873 - trap 63; проверилидату-время874 + trap 60; read the date-time into the buffer 875 + trap 63; checked the date-time 874 874 tst R3 875 875 bne $ok 876 876 $sob: sob R4,$datry 877 - mov #S_DateTime_2,R3; печатьошибки879 + mov #S_DateTime_2,R3; print error 878 878 trap 7 879 879 br $go 880 880 881 881 $ok: mov #ADRTMPSTR,R3 882 - trap 24; печатьдаты883 - trap 25; времени884 -$go: mov #110,@#AZ$CSR; включимсеть884 + trap 24; print date 885 + trap 25; time 886 +$go: mov #110,@#AZ$CSR; let's turn on the network 885 885 {{/code}} 886 886 887 - ТутмыявноотсылаемзапроскNTPсерверу,затемвключаемработусетииждемрезультата,периодическиопрашиваяипроверяякорректностьрезультата.889 +Here we explicitly send a request to the NTP server, then turn on the network and wait for the result, periodically polling and checking the correctness of the result. 888 888 889 -== **036:УстановкаRTCнаоснованиичасовTCP/IPстека**==891 +== 036: Setting RTC based on TCP/IP stack clock == 890 890 891 - Кодкоманды036,даннаякомандаустанавливаетRTCнаоснованиичасоввTCP/IPстека.Предварительнонадоустановить часывTCP/IP -команда036.893 +Command code 036, this command sets the RTC based on the clock in the TCP/IP stack. You must first set the clock in TCP/IP - command 036. 892 892 893 - Примерпрограммы:895 +Example program: 894 894 895 895 {{code language="assembler"}} 896 -; trap 64 - установкавремениRTCнаоснованиивременистека897 -; R1 - результат898 -SetDateNETtoRTC:call AZreset; сбросим898 +; trap 64 - set RTC time based on stack time 899 +; R1 - result R1=0 - OK 900 +SetDateNETtoRTC:call AZreset; reset 899 899 tst R1 900 900 bne 0ERR$ 901 901 MOV #AZ$CSR,R1 902 902 mov #36,(R1) 903 -0$: TSTB (R1); проверяемрезультатвыполнения904 - BPL 0$; ждем905 +0$: TSTB (R1); check execution result 906 + BPL 0$; wait 905 905 clr R1 906 906 0ERR$: return 907 907 {{/code}} 908 908 909 -== **042:ПолучитьвремяизчасовTCP/IPстекавбуферtimestamp**==911 +== 042: Get time from TCP/IP stack clock into timestamp buffer == 910 910 911 - Кодкоманды042,даннаякомандаиспользуетчасыTCP/IPстекакакисточникзаполнениябуфераtimestamp.913 +Command code 042, this command uses the TCP/IP stack clock as a source for filling the timestamp buffer. 912 912 913 - Примерпрограммы:915 +Example program: 914 914 915 915 {{code language="assembler"}} 916 -; работасчасами917 -; trap 60 - чтениеданныхчасовизTCP/IPстека918 -; R3 - адресбуферакуданадосчитать919 -; результатвR3адрес,еслиуспешно. R3=0если ошибка918 +; working with clock 919 +; trap 60 - reading clock data from TCP/IP stack 920 +; R3 - buffer address where to read 921 +; result in R3 address if successful. R3=0 if error 920 920 GetDateFromLAN: push R0 921 921 push R1 922 922 push R2 923 - call AZreset; сбросим925 + call AZreset; reset 924 924 tst R1 925 925 bne G60ERR 926 926 MOV #AZ$CSR,R1 927 927 mov #42,(R1) 928 -G60: TSTB (R1); проверяемрезультатвыполнения929 - BPL G60; ждем930 +G60: TSTB (R1); check execution result 931 + BPL G60; wait 930 930 mov #32,(R1) 931 -1$: TSTB (R1); проверяемрезультатвыполнения932 - BPL 1$; ждем933 - TST (R1)+; инкрементируем934 - mov R3,R0; запомнимR3- адрес933 +1$: TSTB (R1); check execution result 934 + BPL 1$; wait 935 + TST (R1)+; increment 936 + mov R3,R0; remember R3 address 935 935 mov #10.,R2; читаем 10 слов 936 -2$: mov (R1),(R3)+; читаемблоксловвпамять938 +2$: mov (R1),(R3)+; read block of words into memory 937 937 sob R2,2$ 938 - mov R0,R3; успешно,вернемадресвR3940 + mov R0,R3; successful, return address to R3 939 939 br 0END$ 940 940 G60ERR: CLR R3 941 941 0END$: pop R2 ... ... @@ -944,52 +944,50 @@ 944 944 return 945 945 {{/code}} 946 946 947 - всекомандыустанавливаютбитготовностипозавершению.949 +All commands set the ready bit upon completion. 948 948 949 949 950 -= ** Команды специфические для[[AZБК®>>doc:Контроллеры AZБК® для компьютеров БК-0010 БК-0010\.01 БК-0011М.WebHome]]** =952 += **[[AZБК®>>doc:Контроллеры AZБК® для компьютеров БК-0010 БК-0010\.01 БК-0011М.WebHome]] **specific commands = 951 951 952 - ДанныекомандыпредназначеныдляработыконтроллераAZБК®,разработанногодлясериикомпьютеровБК-БК-0010/БК-0010.01/БК-0011М.954 +These commands are intended for operation of the AZБК® controller, developed for the BK series of computers - BK-0010/BK-0010.01/BK-0011M. 953 953 954 - ДругиеконтроллерыAZ®игнорируютэтикоманды956 +Other AZ® controllers ignore these commands. 955 955 956 -== **037:перезапускконтроллера[[AZБК®>>doc:Контроллеры AZБК® для компьютеров БК-0010 БК-0010\.01 БК-0011М.WebHome]]и всей БК** ==958 +== 037: Restart of the** [[AZБК®>>doc:Контроллеры AZБК® для компьютеров БК-0010 БК-0010\.01 БК-0011М.WebHome]] **controller and the entire computer == 957 957 958 - Кодкоманды037,даннаякомандаосуществляетперезапускмикроконтроллераAZ®,чтовызываетиперезапусксамойБК-0010/БК-0010.01/БК-0011М960 +Command code 037, this command restarts the AZ® microcontroller, which also causes a restart of the BK-0010/BK-0010.01/BK-0011M itself 959 959 960 - Примерпрограммы962 +Example program 961 961 962 962 {{code language="assembler"}} 963 -AZ$CSR регистркомандисостояния(CSR)964 -AZ$DR регистрданных(DR)965 +AZ$CSR = 177220; command and status register (CSR) 966 +AZ$DR = 177222; data register (DR) 965 965 966 966 967 -; trap 57 - перезапускБК полный968 -AZcouldReboot: call AZreset; сбросимAZдабыонбылготовприниматькоманды969 +; trap 57 - full restart 970 +AZcouldReboot: call AZreset; reset AZ so it is ready to receive 969 969 mov #037,@#AZ$CSR 970 970 return 971 971 {{/code}} 972 972 973 -== **044:Cохранениескриншотавфайл**==975 +== 044: Saving a screenshot to a file == 974 974 975 -Код команды 044, данная команда предназначена для снятия образа памяти указанного размера (или определенного автоматически на основании сохраненных параметров) 976 -технически команда может служить как средство отладки ибо способная снимать образ памяти 977 -общее ограничение на снятие образа памяти - 2МБ на один образ 978 -\\в качестве параметров используется служебная страница памяти 76(8) 977 +Command code 044, this command is designed to take a memory image of the specified size (or determined automatically based on saved parameters) technically, the command can serve as a debugging tool because it is capable of taking a memory image the general limitation on taking a memory image is 2MB per image 978 +\\service memory page 76(8) is used as parameters 979 979 980 - Структуразаполненияинформацииоскриншоте980 +Structure of filling information about a screenshot 981 981 982 982 {{code language="c"}} 983 -// структурахидераскриншота983 +// screenshot header structure 984 984 typedef __packed struct screen_header 985 985 { 986 - unsigned short int tag; долженбытьравен0240986 + unsigned short int tag; // must be equal to 0240 987 987 988 - unsigned int начальныйадресвсловах-прямаязадачавфизическихадресах989 - unsigned int длинавсловах-прямаязадачавфизическихадресах988 + unsigned int begin_adress; // start address in words - forward task in physical addresses 989 + unsigned int length; // length in words - forward task in physical addresses 990 990 991 - unsigned short int begin_page; // начальнаястраница-номер-прямаязадачавномерахстраниц992 - unsigned short int len_pages; // количествостраниц-прямаязадачавномерахстраниц991 + unsigned short int begin_page; // start page - number - forward task in page numbers 992 + unsigned short int len_pages; // number of pages - forward task in page numbers 993 993 994 994 unsigned short int R177300; // 995 995 unsigned short int R177302; // ... ... @@ -1007,57 +1007,55 @@ 1007 1007 unsigned short int R177332; // 1008 1008 unsigned short int R177334; // 1009 1009 unsigned short int R177336; // 1010 - unsigned short int R177340; // - Региструправленияактивациейокно-маскиокон1011 - unsigned short int R177342; // - Региструправленияr/oнаокно1012 - unsigned short int R177344; // - Регистр управления shadowокон-маскиокон1013 - unsigned short int R177346; // - Региструправлениямаппером1014 - unsigned short int R177350; // - регистркопияпозаписи177130врежимезаписиуправленияпамятьювSMK1015 - unsigned short int R177352; // - регистркопияпозаписи177716врежимезаписиуправленияпамятьювБК11М1010 + unsigned short int R177340; // - Window activation control register - window masks 1011 + unsigned short int R177342; // - Control register r/o per window 1012 + unsigned short int R177344; // - Shadow window control register - window masks 1013 + unsigned short int R177346; // - Mapper control register 1014 + unsigned short int R177350; // - copy by record register 177130 in memory management write mode in SMK 1015 + unsigned short int R177352; // - copy by record register 177716 in memory management write mode in BK11M 1016 1016 1017 - unsigned short int R177230; // - региструправления1018 - unsigned short int R177232; // - регистрномерастраницыначалаотображения-верхняястраница(слой0)1019 - unsigned short int R177240; // - регистрномерастраницыначалаотображения-средняястраница(слой1)1020 - unsigned short int R177242; // - регистрномерастраницыначалаотображения-нижняястраницаслой2)1021 - unsigned short int R177244; // - регистрвертикальногоскролингаслой21022 - unsigned short int R177246; // - регистрвертикальногоскролингаслой11023 - unsigned short int R177250; // - регистрвертикальногоскролингаслой01024 - unsigned short int R177252; // - регистргозизонтальногоскролингаслой01025 - unsigned short int R177254; // - регистргозизонтальногоскролингаслой11026 - unsigned short int R177256; // - регистргозизонтальногоскролингаслой21017 + unsigned short int R177230; // - control register 1018 + unsigned short int R177232; // - display start page number register - upper page (layer 0) 1019 + unsigned short int R177240; // - display start page number register - upper page (layer 1) 1020 + unsigned short int R177242; // - display start page number register - upper page (layer 2) 1021 + unsigned short int R177244; // - vertical scroll register layer 2 1022 + unsigned short int R177246; // - vertical scroll register layer 1 1023 + unsigned short int R177250; // - vertical scroll register layer 0 1024 + unsigned short int R177252; // - horizontal scroll register layer 0 1025 + unsigned short int R177254; // - horizontal scroll register layer 1 1026 + unsigned short int R177256; // - horizontal scroll register layer 2 1027 1027 1028 1028 unsigned short int paldata[338]; // 1029 1029 } screen_header_t; 1030 1030 {{/code}} 1031 1031 1032 - Примеркодадлязаполнениястраницыпамяти1032 +Example code for filling a memory page 1033 1033 1034 1034 {{code language="assembler"}} 1035 1035 ;-------------------------------------------------- 1036 -; карта76йстраницы-тудамыготовимданныедлякомандыскринщотов1037 - уюстраницуцепляемнаместо77йвременно-тевокно1300001038 - тутвход- 240 - 1слово1039 - сюдакомандусадресами-адрес+длина24бита- 4слова1040 - сюдакомандусостраницами-начальнаястраницаиколичествостраниц- 2слова1041 - cюдаконфигурациюпамятиизрегистров- 22слова1042 - сюдаконфигурациювидеоконтроллера- 10cлов1043 - сюда338.значений(слов)палитры338слов1036 +; 76th page map - we prepare data for the screenshot command there 1037 +SCR_PAGE = 130000 ; we temporarily attach the 76th page to the 77th - that is, into the 130000 window 1038 +SCR_TAG = SCR_PAGE+0 ; here is the input - 240 - 1 word 1039 +SCR_ADDR_CONF = SCR_TAG+2 ; here is the command with addresses - address+length 24 bits - 4 words 1040 +SCR_PAGE_CONF = SCR_ADDR_CONF+8. ; here is the command with pages - the starting page and the number of pages - 2 words 1041 +SCR_MEM_CONF = SCR_PAGE_CONF+4. ; here is the memory configuration from the registers - 22 words 1042 +SCR_VGA_CONF = SCR_MEM_CONF+44. ; here video controller configuration - 10 words 1043 +SCR_PAL = SCR_VGA_CONF+20. ; here 338. values (words) of palette 338 words 1044 1044 ;-------------------------------------------------- 1045 +; trap 41 - preparation of default information for screenshot functionality 1046 +PrepSRC: jsr R5, PUSHA ; batch saving of registers 1047 + mov @#177326,-(SP) ; save page 130k which was before the call 1048 + mov #76,@#177326 ; hook 76th page into window 1045 1045 1046 - 1047 -; trap 41 - подготовка дефолтной информации для работы функционала скриншотов 1048 -PrepSRC: jsr R5, PUSHA ; пакетное сохранение регистров 1049 - mov @#177326,-(SP) ; сохраним страницу 130k которая была до вызова 1050 - mov #76,@#177326 ; цепляем 76ую страницу в окно 1051 - 1052 - mov #100377,R3 ; константа-заполнитель 1050 + mov #100377,R3 ; constant-filler 1053 1053 mov #SCR_PAGE,R4 1054 1054 mov #2047.,R2 1055 1055 4$: mov R3,(R4)+ 1056 1056 sob R2,4$ 1057 1057 1058 - mov #240,@#SCR_TAG ; проставляемтег1056 + mov #240,@#SCR_TAG ; put the tag 1059 1059 1060 - ; чистимучастокадресов-дефолтноавтоматическоеопределениеадресов1058 + ; clean the address section - default is automatic address detection 1061 1061 clr R3 1062 1062 mov #SCR_ADDR_CONF,R4 1063 1063 mov #10,R2 ... ... @@ -1064,7 +1064,7 @@ 1064 1064 2$: mov R3,(R4)+ 1065 1065 sob R2,2$ 1066 1066 1067 - ; конфигурацияпамяти-дефолтная1065 + ; memory configuration - default 1068 1068 mov #SCR_MEM_CONF,R4 1069 1069 mov #30,(R4)+ ;177300 1070 1070 mov #31,(R4)+ ;177302 ... ... @@ -1083,29 +1083,29 @@ 1083 1083 mov #110,(R4)+ ;177334 1084 1084 mov #100,(R4)+ ;177336 1085 1085 1086 - mov #170000,(R4)+ ;177340 - Регистр управления активацией окно - маски окон1087 - mov R3,(R4)+ ;177342 - Регистр управления r/o на окно1088 - mov #7777,(R4)+ ;177344 - Регистр управления shadow окон - маски окон1089 - mov #40404,(R4)+ ;177346 - Регистр управления маппером1090 - mov R3,(R4)+ ;177350 - регистр копия по записи 177130 в режиме записи управления памятью в SMK1091 - mov #16000,(R4)+ ;177352 - регистр копия по записи 177716 в режиме записи управления памятью в БК11М1084 + mov #170000,(R4)+ ;177340 1085 + mov R3,(R4)+ ;177342 1086 + mov #7777,(R4)+ ;177344 1087 + mov #40404,(R4)+ ;177346 1088 + mov R3,(R4)+ ;177350 1089 + mov #16000,(R4)+ ;177352 1092 1092 1093 - ; конфигурациявидеоконтроллера-дефолтная1091 + ;Video controller configuration - default 1094 1094 ; 177230-177256 1095 1095 mov #SCR_VGA_CONF,R4 1096 1096 1097 - mov #12201,(R4)+ ;177230 - регистр управления1098 - mov #4,(R4)+ ;177232 - регистр номера страницы начала отображения - верхняя страница (слой 0)1099 - mov R3,(R4)+ ;177240 - регистр номера страницы начала отображения - средняя страница (слой 1) "под спрайты"1100 - mov R3,(R4)+ ;177242 - регистр номера страницы начала отображения - нижняя страница (слой 2) "под фон"1101 - mov R3,(R4)+ ;177244 - регистр вертикального скролинга слой 21102 - mov R3,(R4)+ ;177246 - регистр вертикального скролинга слой 11103 - mov R3,(R4)+ ;177250 - регистр вертикального скролинга слой 01104 - mov R3,(R4)+ ;177252 - регистр гозизонтального скролинга слой 01105 - mov R3,(R4)+ ;177254 - регистр гозизонтального скролинга слой 11106 - mov R3,(R4)+ ;177256 - регистр гозизонтального скролинга слой 21095 + mov #12201,(R4)+ ;177230 1096 + mov #4,(R4)+ ;177232 1097 + mov R3,(R4)+ ;177240 1098 + mov R3,(R4)+ ;177242 1099 + mov R3,(R4)+ ;177244 1100 + mov R3,(R4)+ ;177246 1101 + mov R3,(R4)+ ;177250 1102 + mov R3,(R4)+ ;177252 1103 + mov R3,(R4)+ ;177254 1104 + mov R3,(R4)+ ;177256 1107 1107 1108 - ; закачиваемпалитру-беремдефолтнуюизэтойПЗУшки1106 + ; download the palette - take the default one from this ROM 1109 1109 mov #SCR_PAL,R4 1110 1110 mov #PalData,R2 1111 1111 mov #338.,R3 ... ... @@ -1112,233 +1112,233 @@ 1112 1112 1$: mov (R2)+,(R4)+ 1113 1113 sob R3,1$ 1114 1114 1115 - mov (SP)+,@#177326; вернемстраницускоторойбылвызов1113 + mov (SP)+,@#177326; return the page from which the call was made 1116 1116 return 1117 1117 {{/code}} 1118 1118 1119 - Вариантовуказанияучастковпамятитри1117 +There are three options for specifying memory areas. 1120 1120 1121 -1. указатьадресидлину24хбитные-cмформат,еслиихнет-системасмотритдальше1122 -1. указатьномерстраницыиколичествостраницы,еслиихнет1123 -1. системасмотритдальше-теделаетскриншотнаоснованииданныхорегистрах177230и т.д..1119 +1. specify the address and length 24-bit - see format, if they are not there - the system looks further 1120 +1. specify the page number and page quantity, if they are not there 1121 +1. the system looks further - that is, it makes a screenshot based on the data about registers 177230, etc. 1124 1124 1125 - Cкриншотсохраняетсявформате1126 -- страница76 -еепервыйкилобайт1127 -- самобразпамяти(еслирежимслоеный-товсетрислоя)1123 +The screenshot is saved in the format 1124 +- page 76 - its first kilobyte 1125 +- the memory image itself (if the mode is layered - then all three layers) 1128 1128 1129 1129 1130 -Перед вызовом команды можно загрузить имя файла для сохранения скриншота [в cmosmem буфер], однако при его отсутствии (в буфере не будет имени - строки заканчивающейся 0) система сформирует свое имя, на основании следующего правила: 1131 -дефолтный путь для сохранения скриншотов 1128 +Before calling the command, you can load the file name for saving the screenshot [in the cmosmem buffer], but if it is missing (there will be no name in the buffer - a line ending with 0), the system will generate its own name based on the following rule: default path for saving screenshots 1132 1132 0:/SCREENS/ 1133 - форматимени- DDHHMISS.SCR1134 - гдеDD-двецифрыднямесяца, HH-час, MI-минута, SS-секунда1135 -\\ Есливпроцессевыполнениякомандывозникнетошибка-вместоименибудет"ERROR *"1136 - кпримеру1130 +name format - DDHHMISS.SCR 1131 +where DD is two digits of the day of the month, HH is the hour, MI is the minute, SS is the second 1132 +\\If an error occurs during the command execution, the name will be "ERROR *" 1133 +for example 1137 1137 "ERROR f_open 6" 1138 1138 1139 1139 1140 - Примерпрограммы1137 +Example program 1141 1141 1142 1142 {{code language="assembler"}} 1143 -; обновиминформациювхидерескриншота1140 +; update the information in the screenshot header 1144 1144 ;-------------------------------------------------- 1145 -; карта76йстраницы-тудамыготовимданныедлякомандыскринщотов1146 - 70000уюстраницуцепляемнаместо77йвременно-тевокно1300001147 - тутвход- 240 - 1слово1148 - сюдакомандусадресами-адрес+длина24бита- 4слова1149 - сюдакомандусостраницами-начальнаястраницаиколичествостраниц- 2слова1150 - cюдаконфигурациюпамятиизрегистров- 22слова1151 - сюдаконфигурациювидеоконтроллера- 10cлов1152 - сюда338.значений(слов)палитры338слов1142 +; 76th page map - we prepare data for the screenshot command there 1143 +SCR_PAGE = 130000 ; we temporarily attach the 76th page to the 77th - that is, into the 130000 window 1144 +SCR_TAG = SCR_PAGE+0 ; here is the input - 240 - 1 word 1145 +SCR_ADDR_CONF = SCR_TAG+2 ; here is the command with addresses - address+length 24 bits - 4 words 1146 +SCR_PAGE_CONF = SCR_ADDR_CONF+8. ; here is the command with pages - the starting page and the number of pages - 2 words 1147 +SCR_MEM_CONF = SCR_PAGE_CONF+4. ; here is the memory configuration from the registers - 22 words 1148 +SCR_VGA_CONF = SCR_MEM_CONF+44. ; here video controller configuration - 10 words 1149 +SCR_PAL = SCR_VGA_CONF+20. ; here 338. values (words) of palette 338 words 1153 1153 ;-------------------------------------------------- 1151 + mov @#177326,R5 ; save page 130k which was before the call 1152 + mov #76,@#177336 ; hook the 76th page into the window 1154 1154 1155 - mov @#177326,R5 ; сохраним страницу 130k которая была до вызова 1156 - mov #76,@#177336 ; цепляем 76ую страницу в окно 1157 - 1158 - ;конфигурация видеоконтроллера 1154 + ;video controller configuration 1159 1159 ; 177230-177256 1160 1160 mov #SVGAC,R4 1161 1161 1162 - mov @#177230,(R4)+;177230 - региструправления1163 - mov @#177232,(R4)+;177232 - регистрверхняястраница(слой0)1164 - mov @#177240,(R4)+;177240 - регистрсредняястраница(слой1)1165 - mov @#177242,(R4)+;177242 - регистр-нижняястраница(слой2)1166 - mov @#177244,(R4)+;177244 - регистрвертикальногоскролингаслой21167 - mov @#177246,(R4)+;177246 - регистрвертикальногоскролингаслой11168 - mov @#177250,(R4)+;177250 - регистрвертикальногоскролингаслой01169 - mov @#177252,(R4)+;177252 - регистргозизонтальногоскролингаслой01170 - mov @#177254,(R4)+;177254 - регистргозизонтальногоскролингаслой11171 - mov @#177256,(R4)+;177256 - регистргозизонтальногоскролингаслой21158 + mov @#177230,(R4)+;177230 - control register 1159 + mov @#177232,(R4)+;177232 - register - top page (layer 0) 1160 + mov @#177240,(R4)+;177240 - register - top page (layer 1) 1161 + mov @#177242,(R4)+;177242 - register - top page (layer 2) 1162 + mov @#177244,(R4)+;177244 - vertical scroll register layer 2 1163 + mov @#177246,(R4)+;177246 - vertical scroll register layer 1 1164 + mov @#177250,(R4)+;177250 - vertical scroll register layer 0 1165 + mov @#177252,(R4)+;177252 - horizontal scroll register layer 0 1166 + mov @#177254,(R4)+;177254 - horizontal scroll register layer 1 1167 + mov @#177256,(R4)+;177256 - horizontal scroll register layer 2 1172 1172 1173 - mov R5,@#177336; вернемстраницускоторойбылвызов1169 + mov R5,@#177336; return the page from which the call was made 1174 1174 1175 1175 1176 1176 ;------------------------- 1177 - MOV #AZ$CSR,R3 ; ГотовимCSRконтроллера1178 - MOV #AZ$DR,R4 ; ГотовимDRконтроллера1179 -20$: CLR (R3) ; Сбросимконтроллер1173 + MOV #AZ$CSR,R3 ; Preparing controller CSR 1174 + MOV #AZ$DR,R4 ; Preparing controller DR 1175 +20$: CLR (R3) ; Reset the controller 1180 1180 TSTB (R3) 1181 1181 BPL 20$ 1182 1182 1183 - ; очистимблокпамятидляимени-дабысистемасделаладефолтноеимяфайла1184 - mov #23,(R3) ; командуемчтобудемписатьданныевбуфер1185 -128$: TSTB (R3) ; проверяемрезультатвыполнения1186 - BPL 128$ ; ждем1179 + ; clear the memory block for the name - so that the system makes a default file name 1180 + mov #23,(R3) ; command that we will write data to the buffer 1181 +128$: TSTB (R3) ; check the result of execution 1182 + BPL 128$ ; wait 1187 1187 clr R1 1188 1188 1189 1189 mov #256.,R2 ; 1190 -129$: mov R1,(R4) ; отдаемвконтроллер1186 +129$: mov R1,(R4) ; give to the controller 1191 1191 sob R2,129$ 1192 1192 1193 1193 1194 - MOV #044,(R3) ; командаскриншот1190 + MOV #044,(R3) ; screenshot command 1195 1195 22$: TSTB (R3) ; 1196 1196 BPL 22$ ; 1197 1197 1198 - ; получимимяскриншота1199 - mov #22,(R3) ; отдатьнашинусчитанныйблокпамятиизбуфера1200 -121$: tstb (R3) ; проверяемрезультатвыполнения1201 - bpl 121$ ; ждем1194 + ; get the screenshot name 1195 + mov #22,(R3) ; give the read memory block from the buffer to the bus 1196 +121$: tstb (R3) ; check the result of execution 1197 + bpl 121$ ; wait 1202 1202 1203 1203 mov #BUF,R1 1204 - mov #256.,R2 ; читаем256.слов;первоеслово-результатчтения1205 -122$: mov (R4),(R1)+ ; читаемблоксловвпамять1200 + mov #256.,R2 ; read 256. words; the first word is the result of reading 1201 +122$: mov (R4),(R1)+ ; read a block of words into memory 1206 1206 sob R2,122$ 1207 1207 1208 1208 .PRINT #RESOK 1209 1209 .Print #BUF 1210 1210 1211 - mov #110,@#AZ$CSR; включаемсетьпо-умолчаниюсетьдолжнабытьпостоянновключена1207 + mov #110,@#AZ$CSR; enable the network by default, the network should be constantly enabled 1212 1212 .Exit 1213 1213 {{/code}} 1214 1214 1215 - Дляраспаковкискриншотаможноиспользоватьвотэтуутилиту1211 +To unpack a screenshot, you can use this utility - [[https:~~/~~/master.pdp-11.ru/screen_unpack/>>https://master.pdp-11.ru/screen_unpack/]] 1216 1216 1217 1217 1218 1218 1219 -= **КомандыдляработысостекомTCP/IP**=1215 += Commands for working with the TCP/IP stack = 1220 1220 1221 - следующиекомандыработаютсбуфероминформацииTCP/IP cтека.1217 +The following commands operate on the TCP/IP stack information buffer. 1222 1222 1223 -== **040:Получитьipадресипрочиенастройки стекаTCP/IPвбуфер**==1219 +== 040: Get IP address and other TCP/IP stack settings to buffer == 1224 1224 1225 - Кодкоманды040,даннаякомандазаполняетбуферинформациейсTCP/IP cтекатекущей(фактической)информацией.1221 +Command code 040, this command fills the buffer with information from the TCP/IP stack with current (actual) information. 1226 1226 1227 -== **041:Чтениебуфераipадреса**==1223 +== 041: Reading ip address buffer == 1228 1228 1229 - Кодкоманды041,даннаякомандапередаетбуфернашину1225 +Command code 041, this command transfers the buffer to the bus 1230 1230 1231 - этапаракомандпозволяетполучитьтекущуюинформациюсостека1227 +This pair of commands allows you to get current information from the stack 1232 1232 1233 -* IP адрес1234 -* MASK маску1235 -* GW гейтвей1236 -* NTP адресNTP-сервера1237 -* DNS1 адресосновногоDNS1238 -* 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 1239 1239 1240 - соответственноэто12слов1236 +accordingly it is 12 words 1241 1241 1242 - Примерпрограммы:1238 +Example program: 1243 1243 1244 1244 {{code language="assembler"}} 1245 -; trap 52 - чтение блока IP адресов в блок памяти IPADDDBLOCK (8. ячеек) 1246 -; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK) 1247 -GetIPaddrs: push R1 1248 - push R2 1249 - call AZreset; сбросим 1250 - tst R1 1251 - bne 0ERR$ 1252 - MOV #AZ$CSR,R1 1253 - mov #40,(R1) 1254 -0$: TSTB (R1); прочитать адреса в свою память 1255 - BPL 0$; ждем 1256 - mov #41,(R1) 1257 -1$: TSTB (R1); подготовить буфер 1258 - BPL 1$; ждем 1259 - TST (R1)+; инкрементируем 1260 - mov #IPADDDBLOCK,R3 1261 - mov #12.,R2 1262 -2$: mov (R1),(R3)+; читаем блок слов в память 1263 - sob R2,2$ 1264 - mov #IPADDDBLOCK,R3; успешно 1265 - br 0END$ 1266 -0ERR$: CLR R3 1267 -0END$: pop R2 1268 - pop R1 1269 - 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 + 1270 1270 {{/code}} 1271 1271 1272 - Примерданных1269 +Example return data: 1273 1273 1274 1274 {{info}} 1275 - Примерыданных-возвращаемыесловаввосьмеричномформате1276 -124300 116400 - IP адрес192.168.0.1571277 -177777 000377 - MASK маску255.255.255.01278 -124300 000400 - GW гейтвей192.168.0.11279 -124300 000400 - NTP адресNTP-сервера192.168.0.11280 -124300 050000 - DNS1 адресосновногоDNS 192.168.0.901281 -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 1282 1282 {{/info}} 1283 1283 1284 -== **043:чтениеMAC-адресавipбуфер**==1281 +== 043: Read MAC address into ip buffer == 1285 1285 1286 -Код команды 043, данная команда читает текущий фактический MAC адрес в буфер IP адресов 1287 -те сначала 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 1288 1288 1289 - Примерпрограммы:1285 +Example program: 1290 1290 1291 1291 {{code language="assembler"}} 1292 -; trap 72 - чтение MAC адреса в блок памяти IPADDDBLOCK (12. ячеек) 1293 -; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK) 1294 -GetMACaddrs: push R1 1295 - push R2 1296 - call AZreset ; сбросим 1297 - tst R1 1298 - bne 0ERR$ 1299 - MOV #AZ$CSR,R1 1300 - mov #43,(R1) 1301 -0$: TSTB (R1) ; прочитать адреса в свою память 1302 - BPL 0$ ; ждем 1303 - mov #41,(R1) 1304 -1$: TSTB (R1) ; подготовить буфер 1305 - BPL 1$ ; ждем 1306 - TST (R1)+ ; инкрементируем 1307 - mov #IPADDDBLOCK,R3 1308 - mov #12.,R2 1309 -2$: mov (R1),(R3)+ ; читаем блок слов в память 1310 - sob R2,2$ 1311 - mov #IPADDDBLOCK,R3; успешно 1312 - br 0END$ 1313 -0ERR$: CLR R3 1314 -0END$: pop R2 1315 - pop R1 1316 - 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 + 1317 1317 {{/code}} 1318 1318 1319 1319 1320 1320 1321 -= **КомандыдляработысMicroSDкартойнафайловомуровне**=1318 += Commands for working with a MicroSD card at the file level = 1322 1322 1323 1323 1324 - Данныекомандыпредназначеныдляработыс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. 1325 1325 1326 -Эти команды используют буфер 256. слов который задействован в интерфейсе работы с энергонезависимой памятью (см выше команды 022 023) 1327 -\\Ограничения - длина полного пути к файлу 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) 1328 1328 1329 - ==**050:Установитьимяфайлакоторыйбудемчитать**==1325 +Limitations - the length of the full path to the file is 256 bytes 1330 1330 1331 - Кодкоманды050,даннаякомандаустанавливаетимяфайлакоторыйбудемчитать,приэтом производится открытие файла на чтение, а также получение его свойств.1327 +== 050: Set the name of the file we will read == 1332 1332 1333 - ==**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. 1334 1334 1335 - Кодкоманды051,даннаякомандапередаетнаМПИразмерфайлаилиошибкуего чтения. Размер файла 31бит, старший бит является признаком ошибки. Соответственно максимальный размер файлов с которыми можно работать через этот интерфейс ограничен 2^31 байт (2GB).1331 +== 051: Get file size for reading (or its status) on BUS == 1336 1336 1337 -формирование ошибки выглядит так: 1338 -sizeanyfile=1<<31 + FFres; ~/~/ если установлен старший бит 32х битного слова - то в младшей части код ошибки 1339 -\\FFres = ошибка FatFS 1340 - 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). 1341 1341 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 + 1342 1342 {{code language="c"}} 1343 1343 typedef enum { 1344 1344 FR_OK = 0, /* (0) Succeeded */ ... ... @@ -1366,317 +1366,309 @@ 1366 1366 1367 1367 [[http:~~/~~/elm-chan.org/fsw/ff/doc/open.html>>url:http://elm-chan.org/fsw/ff/doc/open.html]] 1368 1368 1369 -== **052:Читатьблокустановленногофайлавбуфер**==1367 +== 052: Read a block of a set file into a buffer == 1370 1370 1371 - Кодкоманды052,даннаякомандаосуществляетчтениефайлавбуферэнергонезависимойпамяти.1369 +Command code 052, this command reads a file into a non-volatile memory buffer. 1372 1372 1373 -В итоге схема чтения файла выглядит вот так 1374 -**023** - заливаем имя файла в буфер 1375 -**050** - устанавливаем файл на чтение 1376 -**051 **- читаем длину файла или ошибку открытия файла 1377 -если ошибка - повторяем сначала 023 050 051 1378 -если все ok - приступаем к чтению файла 1379 -**052** - читает блок файла в буфер 1380 -**022 **- забираем данные из буфера 1381 -пары 052 022 повторяем нужное количество раз дабы считать весь файл 1382 -как файл будет прочтен - последняя 052 команда закроет его автоматически. 1383 - 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. 1384 1384 1385 - Примерпрограммы1382 +Example program: 1386 1386 1387 1387 {{code language="assembler"}} 1385 + call AZRST; reset 1388 1388 1389 - 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 1390 1390 1391 -; заливаем в буфер имя файла 1392 -7$: mov #23,(R1); командуем что будем писать данные в буфер 1393 -5$: TSTB (R1); проверяем результат выполнения 1394 - BPL 5$ ; ждем 1395 - TST (R1)+; инкрементируем 1396 - mov #FILNM,R3 1397 -1$: mov (R3),(R1); отдаем в контроллер 1398 - tst (R3)+ 1399 - bne 1$ 1400 - 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 1401 1401 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 1402 1402 1403 - ; устанавливаем файл на чтение 1404 - mov #50,(R1); устанавливаем файл на чтение 1405 -2$: TSTB (R1); проверяем результат выполнения 1406 - 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 1407 1407 1421 +; read the file 1422 + mov R1,R4; R1 holds the file length 1423 + MOV #AZ$CSR,R1 1424 + mov #BUFFL,R5 1408 1408 1409 - ; читаем длину файда 1410 - mov #51,(R1); устанавливаем файл на чтение 1411 -3$: TSTB (R1); проверяем результат выполнения 1412 - BPL 3$ ; ждем 1413 - TST (R1)+; инкрементируем 1414 - mov #FILSZ,R3 1415 - mov (R1),(R3)+; читаем с контроллера 1416 - 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 1417 1417 1418 - ; выведем длину файла на экран 1419 - clr R0 1420 - mov #FILSZ+2,R3 1421 - mov (R3),R1 1422 - call DNOZ 1423 - mov -(R3),R1 1424 - call DNOZ 1425 - .print #STMS2 1430 +47$: tst R4 1431 + beq 45$ ; nothing left to read - exit 1426 1426 1427 - ; читаем файл 1428 - mov R1,R4; в R1 осталась длина файла 1429 - MOV #AZ$CSR,R1 1430 - 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 1431 1431 1432 - bit #1,R4; если нечетное число байт 1433 - beq 47$ 1434 - inc R4; добавим еще 1 байт тк читаем словами 1440 + cmp R4,#512.; compare with buffer size in bytes 1441 + Blos 44$ ; less than buffer size left 1435 1435 1436 -47$: tst R4 1437 - 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$ 1438 1438 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$ 1439 1439 1440 - mov #52,(R1); читаем блок в буфер 1441 -4$: TSTB (R1); проверяем результат выполнения 1442 - BPL 4$ ; ждем 1443 - mov #22,(R1); будем читать буфер 1444 -51$: TSTB (R1); проверяем результат выполнения 1445 - BPL 51$ ; ждем 1459 +45$: clr (R5); set end of file marker 1446 1446 1447 - cmp R4,#512.; сравниваем c размером буфера в байтах 1448 - Blos 44$ ; осталось меньше чем буфер 1461 +; file read - display on screen 1462 + .print #STMS4 1463 + .print #BUFFL 1464 + .print #STMS5 1449 1449 1466 + mov #110,@#AZ$CSR; enable network 1467 + .Exit 1450 1450 1451 - .print #STMS1 1452 - mov #256.,R2 1453 - TST (R1)+; переходим на регистр данных 1454 -46$: mov (R1),(R5)+; читаем в буфер 1455 - sob R2,46$ 1456 - sub #512.,R4; вычитаем 1457 - TST -(R1); переходим на регистр команд 1458 - br 47$ 1459 - 1460 -44$: .print #STMS3 1461 - mov R4,R2 1462 - asr R2 ; /2 тк читаем словами 1463 - TST (R1)+; переходим на регистр данных 1464 -43$: mov (R1),(R5)+; читаем в буфер 1465 - sob R2,43$ 1466 - 1467 - 1468 -45$: clr (R5); проставим конец файла 1469 - ; файл считан - выводим на экран 1470 - .print #STMS4 1471 - .print #BUFFL 1472 - .print #STMS5 1473 - 1474 - 1475 - mov #110,@#AZ$CSR; включаем сеть 1476 - .Exit 1477 1477 {{/code}} 1478 1478 1479 1479 1480 1480 1481 -== **053:**установитьимяфайлакоторыйбудемписать==1473 +== 053: set the name of the file that we will write == 1482 1482 1483 - Кодкоманды053,даннаякомандаоткрываетфайлназапись,получаетпараметрыоткрытия(илиошибки).1475 +Command code 053, this command opens a file for writing, receives opening parameters (or errors). 1484 1484 1485 -== **054:**установкадлиныфайла==1477 +== 054: Set file length == 1486 1486 1487 - Кодкоманды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. 1488 1488 1489 -== **055:**записатьвфайлданныеизбуфера==1481 +== 055: write data from buffer to file == 1490 1490 1491 - Кодкоманды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. 1492 1492 1493 - Схемаподачикомандпризаписивоттакая1494 -**023** - заливаемимяфайлавбуфер1495 -**053** - устанавливаемфайлначтение1496 -**051 статусоткрытия/созданияфайла1497 - еслиошибка-повторяемсначала023 053 0511498 - есливсеok -идемдальше1499 -**054** - установкадлиныфайла,тенадосразуобъявитькакаяунасбудетдлинафайла1500 -**023** - заливаемблокданныхвбуфер1501 -**055** - пишемизбуферавфайл1502 - пары023 055повторяемнужноеколичествораздабызаписатьвесьфайл1503 - какфайлбудетзаписан-последняя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 1504 1504 1505 1505 1506 - Примерпрограммы:1498 +Example program: 1507 1507 1508 1508 {{code language="assembler"}} 1509 -; заливаемвбуферимяфайла1510 - MOV #AZ$CSR,R1 1511 -17$: mov #23,(R1); командуемчтобудемписатьданныевбуфер1512 -15$: TSTB (R1) ; проверяемрезультатвыполнения1513 - BPL 15$ ; ждем1514 - TST (R1)+ ; переходимнарегистрданных1515 - mov #FILNM2,R3 1516 -11$: mov (R3),(R1); отдаемвконтроллер1517 - tst (R3)+ 1518 - bne 11$ 1519 - 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 1520 1520 1521 - ; устанавливаем файл на запись1522 - mov #53,(R1); устанавливаемфайлназапись1523 -12$: TSTB (R1) ; проверяемрезультатвыполнения1524 - 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 1525 1525 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 1526 1526 1527 - ;читаемстатуссозданияфайла1528 - mov # 51,(R1)1529 - 13$:TSTB(R1); проверяем результат выполнения1530 - B PL13$; ждем1531 - TST (R 1)+; переходим на регистр данных1532 - mov#STATS,R31533 - mov (R1),(R3)+;читаемсконтроллера1534 - 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 1535 1535 1536 - ;тутнадопроверить-еслифайлсоздантообаслованулевые1537 - mov # STATS,R31538 - 3)+1539 - B NE66$1540 - TST (R 3)1541 - BEQ60$1542 - 66$:.print#ERRMS1печатьошибки1543 - .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 1544 1544 1545 -60$: MOV #AZ$CSR,R1 1546 - mov #54,(R1); установим длину файла который будем писать 1547 -23$: TSTB (R1) ; проверяем результат выполнения 1548 - BPL 23$ ; ждем 1549 - TST (R1)+ ; переходим на регистр данных 1550 - mov #FILSZ,R3 1551 - mov (R3)+,(R1); пишем в контроллер 1552 - mov (R3),(R1); пишем в контроллер 1545 + tst -(R1) ; move to command register 1553 1553 1554 - tst -(R1) ; переходим на регистр команд 1547 +; write file 1548 + mov @#FILSZ,R4; file length 1549 + MOV #AZ$CSR,R1 1550 + mov #BUFFL,R5; file buffer 1555 1555 1552 + bit #1,R4 ; if an odd number of bytes 1553 + beq 147$ 1554 + inc R4 ; add 1 more byte since reading words 1556 1556 1556 +147$: tst R4 ; check length 1557 + beq 145$ ; nothing left to write - exit 1557 1557 1558 - ; пишем файл 1559 - mov @#FILSZ,R4; длина файла 1560 - MOV #AZ$CSR,R1 1561 - mov #BUFFL,R5; буфер файла 1559 + mov #23,(R1); write to buffer 1560 +151$: TSTB (R1) ; check execution result 1561 + BPL 151$ ; wait 1562 1562 1563 - bit #1,R4 ; если нечетное число байт 1564 - beq 147$ 1565 - inc R4 ; добавим еще 1 байт тк читаем словами 1563 + cmp R4,#512.; compare with buffer size in bytes 1564 + Blos 144$ ; less than buffer size left 1566 1566 1567 -147$: tst R4 ; проверим длину 1568 - 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 1569 1569 1570 - mov #23,(R1); будем писать в буфер 1571 -151$: TSTB (R1) ; проверяем результат выполнения 1572 - 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 1573 1573 1574 - cmp R4,#512.; сравниваем c размером буфера в байтах 1575 - 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$ 1576 1576 1577 - .print #STMS6 ; заливка полного блока 1578 - mov #256.,R2 1579 - TST (R1)+ ; переходим на регистр данных 1580 -146$: mov (R5)+,(R1); пишем в буфер контроллера 1581 - sob R2,146$ 1582 - sub #512.,R4; вычитаем 1583 - 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 1584 1584 1585 - mov #55,(R1); запись буфера в файл 1586 -104$: TSTB (R1) ; проверяем результат выполнения 1587 - BPL 104$ ; ждем 1588 - br 147$ ; в начало 1591 +145$: .print #STMSE ; end 1592 + mov #110,@#AZ$CSR; enable network 1593 + .Exit ; exit 1589 1589 1590 -144$: .print #STMS7 ; заливка последнего блока 1591 - TST (R1)+ ; переходим на регистр данных 1592 - mov R4,R2 1593 - asr R2 ; /2 тк пишем словами 1594 -143$: mov (R5)+,(R1); пишем в буфер контроллера 1595 - sob R2,143$ 1596 - 1597 - TST -(R1) ; переходим на регистр команд 1598 - mov #55,(R1); запись пследнего буфера в файл 1599 -105$: TSTB (R1) ; проверяем результат выполнения 1600 - BPL 105$ ; ждем 1601 - 1602 -145$: .print #STMSE ; конец 1603 - mov #110,@#AZ$CSR; включаем сеть 1604 - .Exit ; выходим 1605 1605 {{/code}} 1606 1606 1607 -**[[ примерполностьюввидеутилиты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]]** 1608 1608 1609 1609 1610 -== **056:Получитьданныепоразмерукартывбуферsizecard**==1600 +== 056: Get data on the size of the map into the sizecard buffer == 1611 1611 1612 - Кодкоманды056,даннаякомандачитаетпараметрыMicroSDкартывбуферsizecard1602 +Command code 056, this command reads the parameters of the MicroSD card into the sizecard buffer 1613 1613 1614 -== **057:Чтениебуфераsizecard**==1604 +== 057: Reading sizecard buffer == 1615 1615 1616 - Кодкоманды057,даннаякомандаотдаетбуферsizecard (2слова)1606 +Command code 057, this command returns the sizecard buffer (2 words) 1617 1617 1618 - буферsizecardсодержит2слова16bit1619 - первоеслово-общийобъемкартыдоступныйдляFATвМБ1620 - второеслово-свободныйобъемнакартев МБ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 1621 1621 1622 - Примерпрограммы:1612 +Example program: 1623 1623 1624 1624 {{code language="assembler"}} 1625 -; trap 51 - получение объема SD карты всего/свободно в мегабайтах 1626 -; результат в R1 - всего; R2 - свободно 1627 -GetSizeSD: call AZreset; сбросим 1628 - tst R1 1629 - bne 0ERR$ 1630 - MOV #AZ$CSR,R1 1631 - mov #56,(R1) 1632 -1$: TSTB (R1); подготовить буфер 1633 - BPL 1$; ждем 1634 - mov #57,(R1) 1635 -2$: TSTB (R1); подготовить буфер 1636 - BPL 2$; ждем 1637 - mov @#AZ$DR ,R1; всего мегабайт 1638 - mov @#AZ$DR ,R2; свободно мегабайт 1639 - return 1640 - clr R1 1641 - clr R2 1642 - 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 + 1643 1643 {{/code}} 1644 1644 1645 -Пример данных 1646 -035521 - всего на карточке мегабайт - 15185. 1647 -035417 - свободно мегабайт - 15119. 1648 - 1636 +Example data 1637 +035521 - total megabytes on the card - 15185. 1638 +035417 - free megabytes - 15119. 1649 1649 1650 -= **Блок команд APIHall of Fame**=1640 += Hall of Fame API Command Block = 1651 1651 1652 - Данныйблоккомандпредназначендлявзаимодействияссервером[[Hall of Fame>>https://forum.maxiol.com/index.php?showtopic=5642]]1642 +This block of commands is intended for interaction with the server [[Hall of Fame>>https://forum.maxiol.com/index.php?showtopic=5642]] 1653 1653 1654 1654 == **025: Инициализация Hall of Fame (HOF)** == 1655 1655 1656 - Кодкоманды025,даннаякомандаустанавливаетсоединениессерверомHall of Fame,инициализируетшифрованныйтоннельиподготавливаетAPIкработе.1646 +Command code 025, this command establishes a connection to the Hall of Fame server, initializes the encrypted tunnel and prepares the API for work. 1657 1657 1658 - Примерпрограммы1648 +Example program: 1659 1659 1660 1660 {{code language="assembler"}} 1661 -AZ$CSR = 177220 ; регистркомандисостояния(CSR)1662 -AZ$DR = 177222 ; регистрданных(DR)1651 +AZ$CSR = 177220 ; command and status register (CSR) 1652 +AZ$DR = 177222 ; data register (DR) 1663 1663 1664 -; буфера1665 -SNDBUF: .BLKW 256. ; буферпередачи1666 -RCVBUF: .BLKW 256. ; буферприема ответа1654 +; buffers 1655 +SNDBUF: .BLKW 256. ; send buffer 1656 +RCVBUF: .BLKW 256. ; receive buffer 1667 1667 SIDMEM: .BLKB 34. ; SID 1668 -SIDCST: .ASCII \{"SID":"\ ; заголовокSID-а1658 +SIDCST: .ASCII \{"SID":"\ ; SID header 1669 1669 .even 1670 1670 1671 -HOFINI: ; инициализацияHOF1672 - ; результатомявляетсятакойJSON1673 - ;{"SID":" хешсессии","RESULT":"OK"}1674 - ; илиошибка1675 - ;{"RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"} 1676 - ;{"RESULT":"ERROR","DESCRIPTION":"CONNECTION_ERROR"} 1677 - ; результатпомещаетсявSNDBUF1678 - ; вR5фиксацияуспешности-=1естьSID,=0нетSID-а1679 - 1661 +HOFINI: ; HOF initialization 1662 + ; The result is a JSON response: 1663 + ; {"SID":"session hash","RESULT":"OK"} 1664 + ; or an error: 1665 + ; {"RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"} 1666 + ; {"RESULT":"ERROR","DESCRIPTION":"CONNECTION_ERROR"} 1667 + ; The result is placed in SNDBUF 1668 + ; R5 indicates success: 1 = SID exists, 0 = no SID 1669 + 1680 1680 mov R5, -(SP) 1681 1681 mov R4, -(SP) 1682 1682 mov R3, -(SP) ... ... @@ -1684,29 +1684,29 @@ 1684 1684 mov R1, -(SP) 1685 1685 mov R0, -(SP) 1686 1686 1687 - mov #3,R5 ; количествопопыток1677 + mov #3,R5 ; number of attempts 1688 1688 1689 1689 220$: mov #AZ$CSR,R1 1690 - clr (R1) ; Пошлемкоманду"Сброс"1691 -221$: tstb (R1) ; Проверимготовностьконтроллера1692 - bpl 221$ ; Еслинеготовждем1680 + clr (R1) ; Send "Reset" command 1681 +221$: tstb (R1) ; Check controller readiness 1682 + bpl 221$ ; If not ready, wait 1693 1693 1694 - mov #25,(R1) ; инициализациякоманда0251695 -20$: tstb (R1) ; проверяемрезультатвыполнения1696 - bpl 20$ ; ждем1684 + mov #25,(R1) ; initialization - command 025 1685 +20$: tstb (R1) ; check execution result 1686 + bpl 20$ ; wait 1697 1697 1698 - ; получимрезультат1699 - mov #22,(R1) ; отдатьнашинусчитанныйблокпамятиизбуфера1700 -21$: tstb (R1) ; проверяемрезультатвыполнения1701 - bpl 21$ ; ждем1702 - tst (R1)+ ; инкрементируем1688 + ; Retrieve the result 1689 + mov #22,(R1) ; output the read memory block from buffer to the bus 1690 +21$: tstb (R1) ; check execution result 1691 + bpl 21$ ; wait 1692 + tst (R1)+ ; increment 1703 1703 mov #SNDBUF,R3 1704 - mov #256.,R2 ; читаем256.слов;первоеслово-результатчтения1705 -22$: mov (R1),(R3)+ ; читаемблоксловвпамять1694 + mov #256.,R2 ; read 256 words; first word is the read result 1695 +22$: mov (R1),(R3)+ ; read block of words into memory 1706 1706 sob R2,22$ 1707 1707 1708 1708 1709 - ; надопонять- есть лиSID1699 + ; Determine if SID exists 1710 1710 mov #4,R0 1711 1711 mov #SNDBUF,R1 1712 1712 mov #SIDCST,R2 ... ... @@ -1715,11 +1715,11 @@ 1715 1715 sob R0,23$ 1716 1716 clr R5 1717 1717 inc R5 1718 - br 26$ ; успешно1708 + br 26$ ; success 1719 1719 1720 -24$: ; SID ненайден!1710 +24$: ; SID not found! 1721 1721 sob R5,220$ 1722 - clr R5 ; ошибка-нетSID-а1712 + clr R5 ; error - no SID 1723 1723 1724 1724 26$: mov (SP)+, R0 1725 1725 mov (SP)+, R1 ... ... @@ -1728,69 +1728,71 @@ 1728 1728 mov (SP)+, R4 1729 1729 mov (SP)+, R5 1730 1730 return 1721 + 1731 1731 {{/code}} 1732 1732 1733 -== **026:обменсHall of Fame (HOF)**==1724 +== 026: Exchange with Hall of Fame (HOF) == 1734 1734 1735 - Кодкоманды026,даннаякомандаосуществляетнепосредственныйобменсHall of Fame1726 +Command code 026, this command makes a direct exchange with Hall of Fame 1736 1736 1737 - Примерпрограммы1728 +Example program: 1738 1738 1739 1739 {{code language="assembler"}} 1740 - ;4. авторизацияпользователя1741 - ; техническиэтоотправкаJSON1742 - ;{"SID":" хешсессии","CMD":"AUTH_USER","NIKNAME":"никнеймпользователя","PASSWORD":"парольпользователя"}1743 - ; ответтожеJSON1744 - ;{"SID":" хешсессии","RESULT":"OK","UID":"хешпользователя"}1745 - ; или1746 - ;{"SID":" хешсессии","RESULT":"ERROR","DESCRIPTION":"USER_NOT_FOUND_OR_WRONG_PASSWORD"}1747 - ;{"SID":" хешсессии","RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"}1748 - ;{"SID":" хешсессии","RESULT":"ERROR","DESCRIPTION":"SESSION_NOT_EXISTS_OR_EXPIRED"}1731 + ;4. user authentication 1732 + ;technically, this is sending a JSON 1733 + ;{"SID":"session hash","CMD":"AUTH_USER","NIKNAME":"user nickname","PASSWORD":"user password"} 1734 + ;the response is also JSON 1735 + ;{"SID":"session hash","RESULT":"OK","UID":"user hash"} 1736 + ;or 1737 + ;{"SID":"session hash","RESULT":"ERROR","DESCRIPTION":"USER_NOT_FOUND_OR_WRONG_PASSWORD"} 1738 + ;{"SID":"session hash","RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"} 1739 + ;{"SID":"session hash","RESULT":"ERROR","DESCRIPTION":"SESSION_NOT_EXISTS_OR_EXPIRED"} 1749 1749 1750 - ; загоняемкомандуCMD041751 - mov #CMD04,R1 1752 - mov #ADRMEM,R2 1753 - add #42.,R2 ; cдвигаемуказательнадлинублокасSID1754 -33$: movb (R1)+,(R2)+ 1755 - bne 33$ 1741 + ; load command CMD04 1742 + mov #CMD04,R1 1743 + mov #ADRMEM,R2 1744 + add #42.,R2 ; shift the pointer to the SID block length 1745 +33$: movb (R1)+,(R2)+ 1746 + bne 33$ 1756 1756 1757 - .Print #ADRMEM 1748 + .Print #ADRMEM 1758 1758 1759 - .Print #HOF05 1760 - ; отсылаемкомандуиждемответа1761 - ; закачиваемвбуфер1762 - MOV #AZ$CSR,R1 1763 -331$: TSTB (R1) ; Проверимготовностьконтроллера1764 - BPL 331$ ; Еслинеготовждем1765 - mov #23,(R1) ; командуемчтобудемписатьданныевбуфер1766 -34$: TSTB (R1) ; проверяемрезультатвыполнения1767 - BPL 34$ ; ждем1768 - TST (R1)+ ; инкрементируем1769 - mov #ADRMEM,R3 1770 - mov #256.,R2 ; 1771 -35$: mov (R3)+,(R1) ; отдаемвконтроллер1772 - sob R2,35$ 1773 - tst -(R1) ; декрементируем1750 + .Print #HOF05 1751 + ; send the command and wait for a response 1752 + ; load into buffer 1753 + MOV #AZ$CSR,R1 1754 +331$: TSTB (R1) ; Check controller readiness 1755 + BPL 331$ ; If not ready, wait 1756 + mov #23,(R1) ; command to write data into buffer 1757 +34$: TSTB (R1) ; check execution result 1758 + BPL 34$ ; wait 1759 + TST (R1)+ ; increment 1760 + mov #ADRMEM,R3 1761 + mov #256.,R2 ; 1762 +35$: mov (R3)+,(R1) ; send to controller 1763 + sob R2,35$ 1764 + tst -(R1) ; decrement 1774 1774 1775 - ; обменкоманда0261776 - MOV #AZ$CSR,R1 1777 -361$: TSTB (R1) ; Проверимготовностьконтроллера1778 - BPL 361$ ; Еслинеготовждем1779 - mov #26,(R1) 1780 -36$: TSTB (R1) ; проверяемрезультатвыполнения1781 - BPL 36$ ; ждем1766 + ; exchange - command 026 1767 + MOV #AZ$CSR,R1 1768 +361$: TSTB (R1) ; Check controller readiness 1769 + BPL 361$ ; If not ready, wait 1770 + mov #26,(R1) 1771 +36$: TSTB (R1) ; check execution result 1772 + BPL 36$ ; wait 1782 1782 1783 - ; получим результат 1784 -371$: TSTB (R1) ; Проверим готовность контроллера 1785 - BPL 371$ ; Если не готов ждем 1786 - mov #22,(R1) ; отдать на шину буфер 1787 -37$: TSTB (R1) ; проверяем результат выполнения 1788 - BPL 37$ ; ждем 1789 - TST (R1)+ ; инкрементируем 1790 - mov #ADRMEM,R3 1791 - mov #256.,R2 ; читаем 256. слов; первое слово - результат чтения 1792 -38$: mov (R1),(R3)+ ; читаем блок слов в память 1793 - sob R2,38$ 1774 + ; receive result 1775 +371$: TSTB (R1) ; Check controller readiness 1776 + BPL 371$ ; If not ready, wait 1777 + mov #22,(R1) ; send buffer to the bus 1778 +37$: TSTB (R1) ; check execution result 1779 + BPL 37$ ; wait 1780 + TST (R1)+ ; increment 1781 + mov #ADRMEM,R3 1782 + mov #256.,R2 ; read 256 words; first word is the read result 1783 +38$: mov (R1),(R3)+ ; read block of words into memory 1784 + sob R2,38$ 1785 + 1794 1794 {{/code}} 1795 1795 1796 1796