Changes for page API контроллеров AZ®

Summary

• Page properties (1 modified, 0 added, 0 removed)

Details

Page properties

Content

...	...	@@ -657,18 +657,18 @@
657	657	Example program
658	658
659	659	{{code language="assembler"}}
660		-AZ$CSR = 177220; регистр команд и состояния (CSR)
661		-AZ$DR = 177222; регистр данных (DR)
	660	+AZ$CSR = 177220; Command and Status Register (CSR)
	661	+AZ$DR = 177222; Data Register (DR)
662	662
663	663
664		-; trap 50 - cброс AZ
	664	+; trap 50 - reset AZ
665	665	; результат в R1 =0 ok
666	666	AZreset: MOV #AZ$CSR,R1
667		-1$: CLR (R1); Пошлем команду "Сброс"
668		- TSTB (R1); Проверим готовность контроллера
669		- BPL 1$; Если не готов, сбрасываем еще
670		- ; раз и проверяем снова
671		- 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,
672	672	BMI 0ERR$
673	673	CLR R1
674	674	return
...	...	@@ -676,27 +676,27 @@
676	676	COM R1
677	677	return
678	678
679		-; trap 55 - запись энергонезависимой памяти из буфера с адреса ADREEPROMMEM в блок 1 EEPROM
	679	+; trap 55 - write non-volatile memory from the buffer at address ADREEPROMMEM в блок 1 EEPROM
680	680	WriteEEPROM: push R1
681	681	push R2
682	682	push R3
683		- call AZreset; сбросим
	683	+ call AZreset; reset
684	684	tst R1
685	685	bne 0ERR$
686	686
687	687	MOV #AZ$CSR,R1
688		- mov #23,(R1); командуем что будем писать данные в буфер
689		-0$: TSTB (R1); проверяем результат выполнения
690		- BPL 0$; ждем
691		- 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
692	692	mov #ADREEPROMMEM+2,R3
693		- mov #255.,R2; пишем 255. слов; первое слово пропускаем - результат чтения
694		-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
695	695	sob R2,1$
696		- tst -(R1); декрементируем
697		- mov #24,(R1); записать из буфера в блок 1 энергонезависимой памяти
698		-2$: TSTB (R1); проверяем результат выполнения
699		- 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
700	700	br 0END$
701	701	0ERR$: CLR R3
702	702	0END$: pop R3
...	...	@@ -705,23 +705,21 @@
705	705	return
706	706	{{/code}}
707	707
708		-**Обращаю внимание**, при записи, буфер идет сразу с данными, те нет первого слова со статусом.
	708	+**Please note** that when recording, the buffer immediately comes with the data, i.e. there is no first word with the statu
709	709
710	710
711	711
712		-= Блок команд для работы с RTC и NTP =
	712	+= Block of commands for working with RTC and NTP =
713	713
714		-В контроллере 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.
715	715
716	716
717		-== Формат буфера timestamp (доступен по чтению) ==
	717	+== Buffer format timestamp (readable) ==
718	718
719		-API контроллера сразу готовит время в нескольких форматах, дабы его было удобно применить на стороне PDP-11
	719	+The controller API immediately prepares time in several formats, so that it can be conveniently used on the PDP-11 side
720	720
721	721	{{info}}
722		-формат буфера даты-времени
723		-offset в восьмеричной системе - те слова
724		-формат буфера даты-времени
	722	+datetime buffer format octal offset - those words datetime buffer format
725	725	\\[0]=rtc_rt11date();
726	726	[2]=rt11 time 50Hz big word;
727	727	[4]=rt11 time 50Hz little word;
...	...	@@ -739,72 +739,72 @@
739	739	{{/info}}
740	740
741	741
742		-== Формат буфера SimpleIN (при записи) ==
	740	+== SimpleIN buffer format (when writing) ==
743	743
744		-формат максимально упрощен, для работы со стороны PDP-11
	742	+the format is simplified as much as possible, for work with PDP-11
745	745
746	746	{{info}}
747		-offset в восьмеричной системе - те слова
	745	+offset in octal - those words
748	748
749		-[0]=year       год, младшие две цифры - те 22 а не 2022(!)
750		-[2]=month;     месяц
751		-[4]=day;       день
752		-[6]=wday;      день недели =0 не установлен, 1- понедельник 2 - вторник итд
753		-[10]=hour;     час
754		-[12]=min;      минута
755		-[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
756	756	{{/info}}
757	757
758	758
759		-== **031:  Получить время из RTC в буфер timestamp** ==
	757	+== 031: Get time from RTC to timestamp buffer ==
760	760
761		-Код команды 031, данная команда использует RTC часы как источник заполнения буфера timestamp
	759	+Command code 031, this command uses RTC clock as a source of filling the timestamp buffer
762	762
763		-Пример программы:
	761	+Example program:
764	764
765	765	{{code language="assembler"}}
766		-; trap 61 - чтение данных часов из автономных часов RTC
767		-; R3 - адрес буфера куда надо считать
768		-; результат в 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
769	769	GetDateFromRTC: push R0
770	770	push R1
771	771	push R2
772		- call AZreset; сбросим
	770	+ call AZreset; reset
773	773	tst R1
774	774	bne G60ERR
775	775	MOV #AZ$CSR,R1
776	776	mov #31,(R1)
777		- br G60; идем туда тк дальше код одинаковый
	775	+ br G60; let's go there because further code is the same
778	778	{{/code}}
779	779
780		-== **032:  Получить время из буфера timestamp** ==
	778	+== 032: Get time from timestamp buffer ==
781	781
782		-Код команды 032, данная команда отдает на шину содержимое буфера timestamp
	780	+Command code 032, this command sends the contents of the timestamp buffer to the bus
783	783
784	784	{{code language="assembler"}}
785		-; работа с часами
786		-; trap 60 - чтение данных часов из TCP/IP стека
787		-; R3 - адрес буфера куда надо считать
788		-; результат в 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
789	789	GetDateFromLAN: push R0
790	790	push R1
791	791	push R2
792		- call AZreset; сбросим
	790	+ call AZreset; reset
793	793	tst R1
794	794	bne G60ERR
795	795	MOV #AZ$CSR,R1
796	796	mov #42,(R1)
797		-G60: TSTB (R1); проверяем результат выполнения
798		- BPL G60; ждем
	795	+G60: TSTB (R1); check execution result
	796	+ BPL G60; wait
799	799	mov #32,(R1)
800		-1$: TSTB (R1); проверяем результат выполнения
	798	+1$: TSTB (R1); check execution result
801	801	BPL 1$; ждем
802		- TST (R1)+; инкрементируем
803		- mov R3,R0; запомним R3 - адрес
804		- mov #10.,R2; читаем 10 слов
805		-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
806	806	sob R2,2$
807		- mov R0,R3; успешно, вернем адрес в R3
	805	+ mov R0,R3; successful, return address to R3
808	808	br 0END$
809	809	G60ERR: CLR R3
810	810	0END$: pop R2
...	...	@@ -813,11 +813,11 @@
813	813	return
814	814	{{/code}}
815	815
816		-Стоит проверить корректность полученного времени:
	814	+It is worth checking the correctness of the received time:
817	817
818	818	{{code language="assembler"}}
819		-; trap 63 - проверка корректности времени
820		-; R3 - адрес буфера, результат в R3, если адрес буфера то OK, =0 ошибка
	817	+; trap 63 - check time correctness
	818	+; R3 - buffer address, result in R3, if buffer address then OK, =0 error
821	821	CheckDateTime: Cmp 6(r3),#2021.
822	822	Blos 1err
823	823	Cmp 6(r3),#2100.
...	...	@@ -827,119 +827,119 @@
827	827	return
828	828	{{/code}}
829	829
830		-== **033:  Запись времени-даты в буфер SimpleIN** ==
	828	+== 033: Write time-date to SimpleIN buffer ==
831	831
832		-Код команды 033, данная команда  принимает с шины данные в буфер SimpleIN
	830	+Command code 033, this command receives data from the bus into the SimpleIN buffer
833	833
834		-Работа данной команды аналогична работе команд [[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.
835	835
836		-== **034:  Установка RTC на основании данных из буфера** ==
	834	+== 034: Set RTC based on buffer data ==
837	837
838		-Код команды 034, данная команда  устанавливает RTC на основании данных в буфере SimpleIN
	836	+Command code 034, this command sets the RTC based on the data in the SimpleIN buffer
839	839
840		-Данная команда выполняется быстро, но для исключения проблем цикл ожидания выполнения рекомендуется.
	838	+This command executes quickly, but to avoid problems, a wait loop is recommended.
841	841
842		-== **035:  Стимуляция запроса времени с NTP сервера, установка на основании ответа** ==
	840	+== 035: Stimulate time request from NTP server, set based on response ==
843	843
844		-Код команды 035, данная команда отправляет запрос на NTP cервер (установленный в 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.
845	845
846		-Пример программы: отсылка запроса на установку времени с NTP сервера
	844	+Example program: sending a request to set the time from an NTP server
847	847
848	848	{{code language="assembler"}}
849		-; trap 62 - отсылка запроса на установку времени с NTP сервера
	847	+; trap 62 - sending a request to set the time from the NTP server
850	850	GetDateNTPtoNET:push R1
851		- call AZreset; сбросим
	849	+ call AZreset; reset
852	852	tst R1
853	853	bne 0ERR$
854	854	MOV #AZ$CSR,R1
855	855	mov #35,(R1)
856		-0$: TSTB (R1); проверяем результат выполнения
857		- BPL 0$; ждем
	854	+0$: TSTB (R1); check the result of execution
	855	+ BPL 0$; wait
858	858	0ERR$: pop R1
859	859	return
860	860	{{/code}}
861	861
862		-Выполнение команды занимает 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.
863	863
864		-Пример цикла опроса с целью получить время с сети
	862	+An example of a polling cycle to get time from the network
865	865
866	866	{{code language="assembler"}}
867		-; дата-время
	865	+; date-time
868	868	mov #S_DateTime_0,R3; "Lan Date:"
869	869	trap 10
870		- mov #20,R4; количество циклов ожидания
871		-$datry: trap 62; отослали запрос к NTP серверу
872		- mov #110,@#AZ$CSR; включим сеть
873		- trap 47; ожидание
874		- 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
875	875	mov #ADRTMPSTR,R3
876		- trap 60; считали в буфер дату-время
877		- trap 63; проверили дату-время
	874	+ trap 60; read the date-time into the buffer
	875	+ trap 63; checked the date-time
878	878	tst R3
879	879	bne $ok
880	880	$sob: sob R4,$datry
881		- mov #S_DateTime_2,R3; печать ошибки
	879	+ mov #S_DateTime_2,R3; print error
882	882	trap 7
883	883	br $go
884	884
885	885	$ok: mov #ADRTMPSTR,R3
886		- trap 24; печать даты
887		- trap 25; времени
888		-$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
889	889	{{/code}}
890	890
891		-Тут мы явно отсылаем запрос к 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.
892	892
893		-== **036:  Установка RTC на основании часов TCP/IP стека** ==
	891	+== 036: Setting RTC based on TCP/IP stack clock ==
894	894
895		-Код команды 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.
896	896
897		-Пример программы:
	895	+Example program:
898	898
899	899	{{code language="assembler"}}
900		-; trap 64 - установка времени RTC на основании времени стека
901		-; R1 - результат R1=0 - OK
902		-SetDateNETtoRTC:call AZreset; сбросим
	898	+; trap 64 - set RTC time based on stack time
	899	+; R1 - result R1=0 - OK
	900	+SetDateNETtoRTC:call AZreset; reset
903	903	tst R1
904	904	bne 0ERR$
905	905	MOV #AZ$CSR,R1
906	906	mov #36,(R1)
907		-0$: TSTB (R1); проверяем результат выполнения
908		- BPL 0$; ждем
	905	+0$: TSTB (R1); check execution result
	906	+ BPL 0$; wait
909	909	clr R1
910	910	0ERR$: return
911	911	{{/code}}
912	912
913		-== **042:  Получить время из часов TCP/IP стека в буфер timestamp** ==
	911	+== 042: Get time from TCP/IP stack clock into timestamp buffer ==
914	914
915		-Код команды 042,   данная команда использует часы TCP/IP стека как источник заполнения буфера timestamp.
	913	+Command code 042, this command uses the TCP/IP stack clock as a source for filling the timestamp buffer.
916	916
917		-Пример программы:
	915	+Example program:
918	918
919	919	{{code language="assembler"}}
920		-; работа с часами
921		-; trap 60 - чтение данных часов из TCP/IP стека
922		-; R3 - адрес буфера куда надо считать
923		-; результат в 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
924	924	GetDateFromLAN: push R0
925	925	push R1
926	926	push R2
927		- call AZreset; сбросим
	925	+ call AZreset; reset
928	928	tst R1
929	929	bne G60ERR
930	930	MOV #AZ$CSR,R1
931	931	mov #42,(R1)
932		-G60: TSTB (R1); проверяем результат выполнения
933		- BPL G60; ждем
	930	+G60: TSTB (R1); check execution result
	931	+ BPL G60; wait
934	934	mov #32,(R1)
935		-1$: TSTB (R1); проверяем результат выполнения
936		- BPL 1$; ждем
937		- TST (R1)+; инкрементируем
938		- 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
939	939	mov #10.,R2; читаем 10 слов
940		-2$: mov (R1),(R3)+; читаем блок слов в память
	938	+2$: mov (R1),(R3)+; read block of words into memory
941	941	sob R2,2$
942		- mov R0,R3; успешно, вернем адрес в R3
	940	+ mov R0,R3; successful, return address to R3
943	943	br 0END$
944	944	G60ERR: CLR R3
945	945	0END$: pop R2
...	...	@@ -948,52 +948,50 @@
948	948	return
949	949	{{/code}}
950	950
951		-все команды устанавливают бит готовности по завершению.
	949	+All commands set the ready bit upon completion.
952	952
953	953
954		-= **Команды специфические для [[AZБК®>>doc:Контроллеры AZБК® для компьютеров БК-0010 БК-0010\.01 БК-0011М.WebHome]]** =
	952	+= **[[AZБК®>>doc:Контроллеры AZБК® для компьютеров БК-0010 БК-0010\.01 БК-0011М.WebHome]] **specific commands =
955	955
956		-Данные команды предназначены для работы контроллера 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.
957	957
958		-Другие контроллеры AZ® игнорируют эти команды
	956	+Other AZ® controllers ignore these commands.
959	959
960		-== **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 ==
961	961
962		-Код команды 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
963	963
964		-Пример программы
	962	+Example program
965	965
966	966	{{code language="assembler"}}
967		-AZ$CSR = 177220; регистр команд и состояния (CSR)
968		-AZ$DR = 177222; регистр данных (DR)
	965	+AZ$CSR = 177220; command and status register (CSR)
	966	+AZ$DR = 177222; data register (DR)
969	969
970	970
971		-; trap 57 - перезапуск БК полный
972		-AZcouldReboot: call AZreset; сбросим AZ дабы он был готов принимать команды
	969	+; trap 57 - full restart
	970	+AZcouldReboot: call AZreset; reset AZ so it is ready to receive
973	973	mov #037,@#AZ$CSR
974	974	return
975	975	{{/code}}
976	976
977		-== **044: Cохранение скриншота в файл** ==
	975	+== 044: Saving a screenshot to a file ==
978	978
979		-Код команды 044,  данная команда предназначена для снятия образа памяти указанного размера (или определенного автоматически на основании сохраненных параметров)
980		-технически команда может служить как средство отладки ибо способная снимать образ памяти
981		-общее ограничение на снятие образа памяти - 2МБ на один образ
982		-\\в качестве параметров используется служебная страница памяти 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
983	983
984		-Структура заполнения информации о скриншоте
	980	+Structure of filling information about a screenshot
985	985
986	986	{{code language="c"}}
987		-// структура хидера скриншота
	983	+// screenshot header structure
988	988	typedef __packed struct screen_header
989	989	{
990		- unsigned short int tag; // должен быть равен 0240
	986	+ unsigned short int tag; // must be equal to 0240
991	991
992		- unsigned int begin_adress; // начальный адрес в словах - прямая задача в физических адресах
993		- unsigned int length; // длина в словах - прямая задача в физических адресах
	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
994	994
995		- unsigned short int begin_page; // начальная страница - номер - прямая задача в номерах страниц
996		- 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
997	997
998	998	unsigned short int R177300; //
999	999	unsigned short int R177302; //
...	...	@@ -1011,57 +1011,55 @@
1011	1011	unsigned short int R177332; //
1012	1012	unsigned short int R177334; //
1013	1013	unsigned short int R177336; //
1014		- unsigned short int R177340; // - Регистр управления активацией окно - маски окон
1015		- unsigned short int R177342; // - Регистр управления r/o на окно
1016		- unsigned short int R177344; // - Регистр управления shadow окон - маски окон
1017		- unsigned short int R177346; // - Регистр управления маппером
1018		- unsigned short int R177350; // - регистр копия по записи 177130 в режиме записи управления памятью в SMK
1019		- 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
1020	1020
1021		- unsigned short int R177230; // - регистр управления
1022		- unsigned short int R177232; // - регистр номера страницы начала отображения - верхняя страница (слой 0)
1023		- unsigned short int R177240; // - регистр номера страницы начала отображения - средняя страница (слой 1)
1024		- unsigned short int R177242; // - регистр номера страницы начала отображения - нижняя страница (слой 2)
1025		- unsigned short int R177244; // - регистр вертикального скролинга слой 2
1026		- unsigned short int R177246; // - регистр вертикального скролинга слой 1
1027		- unsigned short int R177250; // - регистр вертикального скролинга слой 0
1028		- unsigned short int R177252; // - регистр гозизонтального скролинга слой 0
1029		- unsigned short int R177254; // - регистр гозизонтального скролинга слой 1
1030		- unsigned short int R177256; // - регистр гозизонтального скролинга слой 2
	1017	+ 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
1031	1031
1032	1032	unsigned short int paldata[338]; //
1033	1033	} screen_header_t;
1034	1034	{{/code}}
1035	1035
1036		-Пример кода для заполнения страницы памяти
	1032	+Example code for filling a memory page
1037	1037
1038	1038	{{code language="assembler"}}
1039	1039	;--------------------------------------------------
1040		-; карта 76й страницы - туда мы готовим данные для команды скринщотов
1041		- SCR_PAGE = 130000 ; 76ую страницу цепляем на место 77й временно - те в окно 130000
1042		- SCR_TAG = SCR_PAGE+0 ; тут вход - 240 - 1 слово
1043		- SCR_ADDR_CONF = SCR_TAG+2 ; сюда команду с адресами - адрес+длина 24 бита - 4 слова
1044		- SCR_PAGE_CONF = SCR_ADDR_CONF+8. ; сюда команду со страницами - начальная страница и количество страниц - 2 слова
1045		- SCR_MEM_CONF = SCR_PAGE_CONF+4. ; cюда конфигурацию памяти из регистров - 22 слова
1046		- SCR_VGA_CONF = SCR_MEM_CONF+44. ; сюда конфигурацию видеоконтроллера - 10 cлов
1047		- SCR_PAL = SCR_VGA_CONF+20. ; сюда 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
1048	1048	;--------------------------------------------------
	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
1049	1049
1050		-
1051		-; trap 41 - подготовка дефолтной информации для работы функционала скриншотов
1052		-PrepSRC: jsr R5, PUSHA ; пакетное сохранение регистров
1053		- mov @#177326,-(SP) ; сохраним страницу 130k которая была до вызова
1054		- mov #76,@#177326 ; цепляем 76ую страницу в окно
1055		-
1056		- mov #100377,R3 ; константа-заполнитель
	1050	+ mov #100377,R3 ; constant-filler
1057	1057	mov #SCR_PAGE,R4
1058	1058	mov #2047.,R2
1059	1059	4$: mov R3,(R4)+
1060	1060	sob R2,4$
1061	1061
1062		- mov #240,@#SCR_TAG ; проставляем тег
	1056	+ mov #240,@#SCR_TAG ; put the tag
1063	1063
1064		- ; чистим участок адресов - дефолтно автоматическое определение адресов
	1058	+ ; clean the address section - default is automatic address detection
1065	1065	clr R3
1066	1066	mov #SCR_ADDR_CONF,R4
1067	1067	mov #10,R2
...	...	@@ -1068,7 +1068,7 @@
1068	1068	2$: mov R3,(R4)+
1069	1069	sob R2,2$
1070	1070
1071		- ;конфигурация памяти - дефолтная
	1065	+ ; memory configuration - default
1072	1072	mov #SCR_MEM_CONF,R4
1073	1073	mov #30,(R4)+ ;177300
1074	1074	mov #31,(R4)+ ;177302
...	...	@@ -1087,29 +1087,29 @@
1087	1087	mov #110,(R4)+ ;177334
1088	1088	mov #100,(R4)+ ;177336
1089	1089
1090		- mov #170000,(R4)+ ;177340 - Регистр управления активацией окно - маски окон
1091		- mov R3,(R4)+ ;177342 - Регистр управления r/o на окно
1092		- mov #7777,(R4)+ ;177344 - Регистр управления shadow окон - маски окон
1093		- mov #40404,(R4)+ ;177346 - Регистр управления маппером
1094		- mov R3,(R4)+ ;177350 - регистр копия по записи 177130 в режиме записи управления памятью в SMK
1095		- 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
1096	1096
1097		- ;конфигурация видеоконтроллера - дефолтная
	1091	+ ;Video controller configuration - default
1098	1098	; 177230-177256
1099	1099	mov #SCR_VGA_CONF,R4
1100	1100
1101		- mov #12201,(R4)+ ;177230 - регистр управления
1102		- mov #4,(R4)+ ;177232 - регистр номера страницы начала отображения - верхняя страница (слой 0)
1103		- mov R3,(R4)+ ;177240 - регистр номера страницы начала отображения - средняя страница (слой 1) "под спрайты"
1104		- mov R3,(R4)+ ;177242 - регистр номера страницы начала отображения - нижняя страница (слой 2) "под фон"
1105		- mov R3,(R4)+ ;177244 - регистр вертикального скролинга слой 2
1106		- mov R3,(R4)+ ;177246 - регистр вертикального скролинга слой 1
1107		- mov R3,(R4)+ ;177250 - регистр вертикального скролинга слой 0
1108		- mov R3,(R4)+ ;177252 - регистр гозизонтального скролинга слой 0
1109		- mov R3,(R4)+ ;177254 - регистр гозизонтального скролинга слой 1
1110		- mov R3,(R4)+ ;177256 - регистр гозизонтального скролинга слой 2
	1095	+ 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
1111	1111
1112		- ; закачиваем палитру - берем дефолтную из этой ПЗУшки
	1106	+ ; download the palette - take the default one from this ROM
1113	1113	mov #SCR_PAL,R4
1114	1114	mov #PalData,R2
1115	1115	mov #338.,R3
...	...	@@ -1116,233 +1116,233 @@
1116	1116	1$: mov (R2)+,(R4)+
1117	1117	sob R3,1$
1118	1118
1119		- mov (SP)+,@#177326; вернем страницу с которой был вызов
	1113	+ mov (SP)+,@#177326; return the page from which the call was made
1120	1120	return
1121	1121	{{/code}}
1122	1122
1123		-Вариантов указания участков памяти три
	1117	+There are three options for specifying memory areas.
1124	1124
1125		-1. указать адрес и длину 24х битные - cм формат, если их нет - система смотрит дальше
1126		-1. указать номер страницы и количество страницы, если их нет
1127		-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.
1128	1128
1129		-Cкриншот сохраняется в формате
1130		-- страница 76 - ее первый килобайт
1131		-- сам образ памяти (если режим слоеный - то все три слоя)
	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)
1132	1132
1133	1133
1134		-Перед вызовом команды можно загрузить имя файла для сохранения скриншота [в cmosmem буфер], однако при его отсутствии (в буфере не будет имени - строки заканчивающейся 0) система сформирует свое имя, на основании следующего правила:
1135		-дефолтный путь для сохранения скриншотов
	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
1136	1136	0:/SCREENS/
1137		-формат имени - DDHHMISS.SCR
1138		-где DD - две цифры дня месяца, HH - час, MI - минута, SS-секунда
1139		-\\Если в процессе выполнения команды возникнет ошибка - вместо имени будет "ERROR *"
1140		-к примеру
	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
1141	1141	"ERROR f_open 6"
1142	1142
1143	1143
1144		-Пример программы
	1137	+Example program
1145	1145
1146	1146	{{code language="assembler"}}
1147		-; обновим информацию в хидере скриншота
	1140	+; update the information in the screenshot header
1148	1148	;--------------------------------------------------
1149		-; карта 76й страницы - туда мы готовим данные для команды скринщотов
1150		- SPAGE = 170000 ; 76ую страницу цепляем на место 77й временно - те в окно 130000
1151		- STAG = SPAGE+0 ; тут вход - 240 - 1 слово
1152		- SADDRC = STAG+2 ; сюда команду с адресами - адрес+длина 24 бита - 4 слова
1153		- SPAGEC = SADDRC+8. ; сюда команду со страницами - начальная страница и количество страниц - 2 слова
1154		- SMEMC = SPAGEC+4. ; cюда конфигурацию памяти из регистров - 22 слова
1155		- SVGAC = SMEMC+44. ; сюда конфигурацию видеоконтроллера - 10 cлов
1156		- SPAL = SVGAC+20. ; сюда 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
1157	1157	;--------------------------------------------------
	1151	+ mov @#177326,R5 ; save page 130k which was before the call
	1152	+ mov #76,@#177336 ; hook the 76th page into the window
1158	1158
1159		- mov @#177326,R5 ; сохраним страницу 130k которая была до вызова
1160		- mov #76,@#177336 ; цепляем 76ую страницу в окно
1161		-
1162		- ;конфигурация видеоконтроллера
	1154	+ ;video controller configuration
1163	1163	; 177230-177256
1164	1164	mov #SVGAC,R4
1165	1165
1166		- mov @#177230,(R4)+;177230 - регистр управления
1167		- mov @#177232,(R4)+;177232 - регистр - верхняя страница (слой 0)
1168		- mov @#177240,(R4)+;177240 - регистр - средняя страница (слой 1)
1169		- mov @#177242,(R4)+;177242 - регистр - нижняя страница (слой 2)
1170		- mov @#177244,(R4)+;177244 - регистр вертикального скролинга слой 2
1171		- mov @#177246,(R4)+;177246 - регистр вертикального скролинга слой 1
1172		- mov @#177250,(R4)+;177250 - регистр вертикального скролинга слой 0
1173		- mov @#177252,(R4)+;177252 - регистр гозизонтального скролинга слой 0
1174		- mov @#177254,(R4)+;177254 - регистр гозизонтального скролинга слой 1
1175		- mov @#177256,(R4)+;177256 - регистр гозизонтального скролинга слой 2
	1158	+ 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
1176	1176
1177		- mov R5,@#177336; вернем страницу с которой был вызов
	1169	+ mov R5,@#177336; return the page from which the call was made
1178	1178
1179	1179
1180	1180	;-------------------------
1181		- MOV #AZ$CSR,R3 ; Готовим CSR контроллера
1182		- MOV #AZ$DR,R4 ; Готовим DR контроллера
1183		-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
1184	1184	TSTB (R3)
1185	1185	BPL 20$
1186	1186
1187		- ; очистим блок памяти для имени - дабы система сделала дефолтное имя файла
1188		- mov #23,(R3) ; командуем что будем писать данные в буфер
1189		-128$: TSTB (R3) ; проверяем результат выполнения
1190		- 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
1191	1191	clr R1
1192	1192
1193	1193	mov #256.,R2 ;
1194		-129$: mov R1,(R4) ; отдаем в контроллер
	1186	+129$: mov R1,(R4) ; give to the controller
1195	1195	sob R2,129$
1196	1196
1197	1197
1198		- MOV #044,(R3) ; команда скриншот
	1190	+ MOV #044,(R3) ; screenshot command
1199	1199	22$: TSTB (R3) ;
1200	1200	BPL 22$ ;
1201	1201
1202		- ; получим имя скриншота
1203		- mov #22,(R3) ; отдать на шину считанный блок памяти из буфера
1204		-121$: tstb (R3) ; проверяем результат выполнения
1205		- 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
1206	1206
1207	1207	mov #BUF,R1
1208		- mov #256.,R2 ; читаем 256. слов; первое слово - результат чтения
1209		-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
1210	1210	sob R2,122$
1211	1211
1212	1212	.PRINT #RESOK
1213	1213	.Print #BUF
1214	1214
1215		- mov #110,@#AZ$CSR; включаем сеть по-умолчанию сеть должна быть постоянно включена
	1207	+ mov #110,@#AZ$CSR; enable the network by default, the network should be constantly enabled
1216	1216	.Exit
1217	1217	{{/code}}
1218	1218
1219		-Для распаковки скриншота можно использовать вот эту утилиту
	1211	+To unpack a screenshot, you can use this utility - [[https:~~/~~/master.pdp-11.ru/screen_unpack/>>https://master.pdp-11.ru/screen_unpack/]]
1220	1220
1221	1221
1222	1222
1223		-= **Команды для работы со стеком TCP/IP** =
	1215	+= Commands for working with the TCP/IP stack =
1224	1224
1225		-следующие команды работают с буфером информации TCP/IP cтека.
	1217	+The following commands operate on the TCP/IP stack information buffer.
1226	1226
1227		-== **040: Получить ip адрес и прочие настройки стека TCP/IP в буфер** ==
	1219	+== 040: Get IP address and other TCP/IP stack settings to buffer ==
1228	1228
1229		-Код команды 040,  данная команда заполняет буфер информацией с TCP/IP cтека текущей (фактической) информацией.
	1221	+Command code 040, this command fills the buffer with information from the TCP/IP stack with current (actual) information.
1230	1230
1231		-== **041: Чтение буфера ip адреса** ==
	1223	+== 041: Reading ip address buffer ==
1232	1232
1233		-Код команды 041,  данная команда передает буфер на шину
	1225	+Command code 041, this command transfers the buffer to the bus
1234	1234
1235		-эта пара команд позволяет получить текущую информацию со стека
	1227	+This pair of commands allows you to get current information from the stack
1236	1236
1237		-* IP адрес
1238		-* MASK маску
1239		-* GW гейтвей
1240		-* NTP адрес NTP-сервера
1241		-* DNS1 адрес основного DNS
1242		-* DNS2 адрес резервного DNS
	1229	+* IP address
	1230	+* MASK mask
	1231	+* GW gateway
	1232	+* NTP address of the NTP server
	1233	+* DNS1 primary DNS address
	1234	+* DNS2 backup DNS address
1243	1243
1244		-соответственно это 12 слов
	1236	+accordingly it is 12 words
1245	1245
1246		-Пример программы:
	1238	+Example program:
1247	1247
1248	1248	{{code language="assembler"}}
1249		-; trap 52 - чтение блока IP адресов в блок памяти IPADDDBLOCK (8. ячеек)
1250		-; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK)
1251		-GetIPaddrs: push R1
1252		- push R2
1253		- call AZreset; сбросим
1254		- tst R1
1255		- bne 0ERR$
1256		- MOV #AZ$CSR,R1
1257		- mov #40,(R1)
1258		-0$: TSTB (R1); прочитать адреса в свою память
1259		- BPL 0$; ждем
1260		- mov #41,(R1)
1261		-1$: TSTB (R1); подготовить буфер
1262		- BPL 1$; ждем
1263		- TST (R1)+; инкрементируем
1264		- mov #IPADDDBLOCK,R3
1265		- mov #12.,R2
1266		-2$: mov (R1),(R3)+; читаем блок слов в память
1267		- sob R2,2$
1268		- mov #IPADDDBLOCK,R3; успешно
1269		- br 0END$
1270		-0ERR$: CLR R3
1271		-0END$: pop R2
1272		- pop R1
1273		- 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	+
1274	1274	{{/code}}
1275	1275
1276		-Пример данных
	1269	+Example return data:
1277	1277
1278	1278	{{info}}
1279		-Примеры данных - возвращаемые слова в восьмеричном формате
1280		-124300 116400 - IP адрес 192.168.0.157
1281		-177777 000377 - MASK маску 255.255.255.0
1282		-124300 000400 - GW гейтвей 192.168.0.1
1283		-124300 000400 - NTP адрес NTP-сервера 192.168.0.1
1284		-124300 050000 - DNS1 адрес основного DNS 192.168.0.90
1285		-124300 055000 - DNS2 адрес резервного DNS 192.168.0.80
	1272	+Data examples - words returned in octal format
	1273	+124300 116400 - IP address 192.168.0.157
	1274	+177777 000377 - MASK mask 255.255.255.0
	1275	+124300 000400 - GW gateway 192.168.0.1
	1276	+124300 000400 - NTP address of NTP server 192.168.0.1
	1277	+124300 050000 - DNS1 address of primary DNS 192.168.0.90
	1278	+124300 055000 - DNS2 address of backup DNS 192.168.0.80
1286	1286	{{/info}}
1287	1287
1288		-== **043: чтение MAC-адреса в ip буфер** ==
	1281	+== 043: Read MAC address into ip buffer ==
1289	1289
1290		-Код команды 043, данная команда читает текущий фактический MAC адрес в буфер IP адресов
1291		-те сначала 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
1292	1292
1293		-Пример программы:
	1285	+Example program:
1294	1294
1295	1295	{{code language="assembler"}}
1296		-; trap 72 - чтение MAC адреса в блок памяти IPADDDBLOCK (12. ячеек)
1297		-; результат в R3 =0 error, иначе адрес куда считано (IPADDDBLOCK)
1298		-GetMACaddrs: push R1
1299		- push R2
1300		- call AZreset ; сбросим
1301		- tst R1
1302		- bne 0ERR$
1303		- MOV #AZ$CSR,R1
1304		- mov #43,(R1)
1305		-0$: TSTB (R1) ; прочитать адреса в свою память
1306		- BPL 0$ ; ждем
1307		- mov #41,(R1)
1308		-1$: TSTB (R1) ; подготовить буфер
1309		- BPL 1$ ; ждем
1310		- TST (R1)+ ; инкрементируем
1311		- mov #IPADDDBLOCK,R3
1312		- mov #12.,R2
1313		-2$: mov (R1),(R3)+ ; читаем блок слов в память
1314		- sob R2,2$
1315		- mov #IPADDDBLOCK,R3; успешно
1316		- br 0END$
1317		-0ERR$: CLR R3
1318		-0END$: pop R2
1319		- pop R1
1320		- 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	+
1321	1321	{{/code}}
1322	1322
1323	1323
1324	1324
1325		-= **Команды для работы с MicroSD картой на файловом уровне** =
	1318	+= Commands for working with a MicroSD card at the file level =
1326	1326
1327	1327
1328		-Данные команды предназначены для работы с 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.
1329	1329
1330		-Эти команды используют буфер 256. слов который задействован в интерфейсе работы с энергонезависимой памятью (см выше команды 022 023)
1331		-\\Ограничения - длина полного пути к файлу  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)
1332	1332
1333		-== **050: Установить имя файла который будем читать** ==
	1325	+Limitations - the length of the full path to the file is 256 bytes
1334	1334
1335		-Код команды 050,  данная команда устанавливает имя файла который будем читать, при этом производится открытие файла на чтение, а также получение его свойств.
	1327	+== 050: Set the name of the file we will read ==
1336	1336
1337		-== **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.
1338	1338
1339		-Код команды 051,  данная команда передает на МПИ размер файла или ошибку его чтения. Размер файла 31бит, старший бит является признаком ошибки. Соответственно максимальный размер файлов с которыми можно работать через этот интерфейс ограничен 2^31 байт (2GB).
	1331	+== 051: Get file size for reading (or its status) on BUS ==
1340	1340
1341		-формирование ошибки выглядит так:
1342		-sizeanyfile=1<<31 + FFres; ~/~/ если установлен старший бит 32х битного слова - то в младшей части код ошибки
1343		-\\FFres = ошибка FatFS
1344		-
	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).
1345	1345
	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	+
1346	1346	{{code language="c"}}
1347	1347	typedef enum {
1348	1348	FR_OK = 0, /* (0) Succeeded */
...	...	@@ -1370,317 +1370,309 @@
1370	1370
1371	1371	[[http:~~/~~/elm-chan.org/fsw/ff/doc/open.html>>url:http://elm-chan.org/fsw/ff/doc/open.html]]
1372	1372
1373		-== **052: Читать блок установленного файла в буфер** ==
	1367	+== 052: Read a block of a set file into a buffer ==
1374	1374
1375		-Код команды 052,  данная команда осуществляет чтение файла в буфер энергонезависимой памяти.
	1369	+Command code 052, this command reads a file into a non-volatile memory buffer.
1376	1376
1377		-В итоге схема чтения файла выглядит вот так
1378		-**023** - заливаем имя файла в буфер
1379		-**050** - устанавливаем файл на чтение
1380		-**051 **- читаем длину файла или ошибку открытия файла
1381		-если ошибка - повторяем сначала 023 050 051
1382		-если все ok - приступаем к чтению файла
1383		-**052** - читает блок файла в буфер
1384		-**022 **- забираем данные из буфера
1385		-пары 052 022 повторяем нужное количество раз дабы считать весь файл
1386		-как файл будет прочтен - последняя 052 команда закроет его автоматически.
1387		-
	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.
1388	1388
1389		-Пример программы
	1382	+Example program:
1390	1390
1391	1391	{{code language="assembler"}}
	1385	+ call AZRST; reset
1392	1392
1393		- 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
1394	1394
1395		-; заливаем в буфер имя файла
1396		-7$: mov #23,(R1); командуем что будем писать данные в буфер
1397		-5$: TSTB (R1); проверяем результат выполнения
1398		- BPL 5$ ; ждем
1399		- TST (R1)+; инкрементируем
1400		- mov #FILNM,R3
1401		-1$: mov (R3),(R1); отдаем в контроллер
1402		- tst (R3)+
1403		- bne 1$
1404		- 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
1405	1405
	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
1406	1406
1407		- ; устанавливаем файл на чтение
1408		- mov #50,(R1); устанавливаем файл на чтение
1409		-2$: TSTB (R1); проверяем результат выполнения
1410		- 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
1411	1411
	1421	+; read the file
	1422	+ mov R1,R4; R1 holds the file length
	1423	+ MOV #AZ$CSR,R1
	1424	+ mov #BUFFL,R5
1412	1412
1413		- ; читаем длину файда
1414		- mov #51,(R1); устанавливаем файл на чтение
1415		-3$: TSTB (R1); проверяем результат выполнения
1416		- BPL 3$ ; ждем
1417		- TST (R1)+; инкрементируем
1418		- mov #FILSZ,R3
1419		- mov (R1),(R3)+; читаем с контроллера
1420		- 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
1421	1421
1422		- ; выведем длину файла на экран
1423		- clr R0
1424		- mov #FILSZ+2,R3
1425		- mov (R3),R1
1426		- call DNOZ
1427		- mov -(R3),R1
1428		- call DNOZ
1429		- .print #STMS2
	1430	+47$: tst R4
	1431	+ beq 45$ ; nothing left to read - exit
1430	1430
1431		- ; читаем файл
1432		- mov R1,R4; в R1 осталась длина файла
1433		- MOV #AZ$CSR,R1
1434		- 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
1435	1435
1436		- bit #1,R4; если нечетное число байт
1437		- beq 47$
1438		- inc R4; добавим еще 1 байт тк читаем словами
	1440	+ cmp R4,#512.; compare with buffer size in bytes
	1441	+ Blos 44$ ; less than buffer size left
1439	1439
1440		-47$: tst R4
1441		- 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$
1442	1442
	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$
1443	1443
1444		- mov #52,(R1); читаем блок в буфер
1445		-4$: TSTB (R1); проверяем результат выполнения
1446		- BPL 4$ ; ждем
1447		- mov #22,(R1); будем читать буфер
1448		-51$: TSTB (R1); проверяем результат выполнения
1449		- BPL 51$ ; ждем
	1459	+45$: clr (R5); set end of file marker
1450	1450
1451		- cmp R4,#512.; сравниваем c размером буфера в байтах
1452		- Blos 44$ ; осталось меньше чем буфер
	1461	+; file read - display on screen
	1462	+ .print #STMS4
	1463	+ .print #BUFFL
	1464	+ .print #STMS5
1453	1453
	1466	+ mov #110,@#AZ$CSR; enable network
	1467	+ .Exit
1454	1454
1455		- .print #STMS1
1456		- mov #256.,R2
1457		- TST (R1)+; переходим на регистр данных
1458		-46$: mov (R1),(R5)+; читаем в буфер
1459		- sob R2,46$
1460		- sub #512.,R4; вычитаем
1461		- TST -(R1); переходим на регистр команд
1462		- br 47$
1463		-
1464		-44$: .print #STMS3
1465		- mov R4,R2
1466		- asr R2 ; /2 тк читаем словами
1467		- TST (R1)+; переходим на регистр данных
1468		-43$: mov (R1),(R5)+; читаем в буфер
1469		- sob R2,43$
1470		-
1471		-
1472		-45$: clr (R5); проставим конец файла
1473		- ; файл считан - выводим на экран
1474		- .print #STMS4
1475		- .print #BUFFL
1476		- .print #STMS5
1477		-
1478		-
1479		- mov #110,@#AZ$CSR; включаем сеть
1480		- .Exit
1481	1481	{{/code}}
1482	1482
1483	1483
1484	1484
1485		-== **053:** установить имя файла который будем писать ==
	1473	+== 053: set the name of the file that we will write ==
1486	1486
1487		-Код команды 053,  данная команда открывает файл на запись, получает параметры открытия (или ошибки).
	1475	+Command code 053, this command opens a file for writing, receives opening parameters (or errors).
1488	1488
1489		-== **054:** установка длины файла ==
	1477	+== 054: Set file length ==
1490	1490
1491		-Код команды 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.
1492	1492
1493		-== **055:** записать в файл данные из буфера ==
	1481	+== 055: write data from buffer to file ==
1494	1494
1495		-Код команды 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.
1496	1496
1497		-Схема подачи команд при записи вот такая
1498		-**023** - заливаем имя файла в буфер
1499		-**053** - устанавливаем файл на чтение
1500		-**051 **- статус открытия/создания файла
1501		-если ошибка - повторяем сначала 023 053 051
1502		-если все ok - идем дальше
1503		-**054** - установка длины файла, те надо сразу объявить какая у нас будет длина файла
1504		-**023** - заливаем блок данных в буфер
1505		-**055** - пишем из буфера в файл
1506		-пары 023 055 повторяем нужное количество раз дабы записать весь файл
1507		-как файл будет записан - последняя 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
1508	1508
1509	1509
1510		-Пример программы:
	1498	+Example program:
1511	1511
1512	1512	{{code language="assembler"}}
1513		-; заливаем в буфер имя файла
1514		- MOV #AZ$CSR,R1
1515		-17$: mov #23,(R1); командуем что будем писать данные в буфер
1516		-15$: TSTB (R1) ; проверяем результат выполнения
1517		- BPL 15$ ; ждем
1518		- TST (R1)+ ; переходим на регистр данных
1519		- mov #FILNM2,R3
1520		-11$: mov (R3),(R1); отдаем в контроллер
1521		- tst (R3)+
1522		- bne 11$
1523		- 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
1524	1524
1525		- ; устанавливаем файл на запись
1526		- mov #53,(R1); устанавливаем файл на запись
1527		-12$: TSTB (R1) ; проверяем результат выполнения
1528		- 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
1529	1529
	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
1530	1530
1531		- ; читаем статус создания файла
1532		- mov #51,(R1)
1533		-13$: TSTB (R1) ; проверяем результат выполнения
1534		- BPL 13$ ; ждем
1535		- TST (R1)+ ; переходим на регистр данных
1536		- mov #STATS,R3
1537		- mov (R1),(R3)+; читаем с контроллера
1538		- 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
1539	1539
1540		- ; тут надо проверить - если файл создан то оба слова нулевые
1541		- mov #STATS,R3
1542		- TST (R3)+
1543		- BNE 66$
1544		- TST (R3)
1545		- BEQ 60$
1546		-66$: .print #ERRMS1 ; печать ошибки
1547		- .exit
	1536	+60$: MOV #AZ$CSR,R1
	1537	+ mov #54,(R1); set file length to be written
	1538	+23$: TSTB (R1) ; check execution result
	1539	+ BPL 23$ ; wait
	1540	+ TST (R1)+ ; move to data register
	1541	+ mov #FILSZ,R3
	1542	+ mov (R3)+,(R1); write to controller
	1543	+ mov (R3),(R1); write to controller
1548	1548
1549		-60$: MOV #AZ$CSR,R1
1550		- mov #54,(R1); установим длину файла который будем писать
1551		-23$: TSTB (R1) ; проверяем результат выполнения
1552		- BPL 23$ ; ждем
1553		- TST (R1)+ ; переходим на регистр данных
1554		- mov #FILSZ,R3
1555		- mov (R3)+,(R1); пишем в контроллер
1556		- mov (R3),(R1); пишем в контроллер
	1545	+ tst -(R1) ; move to command register
1557	1557
1558		- tst -(R1) ; переходим на регистр команд
	1547	+; write file
	1548	+ mov @#FILSZ,R4; file length
	1549	+ MOV #AZ$CSR,R1
	1550	+ mov #BUFFL,R5; file buffer
1559	1559
	1552	+ bit #1,R4 ; if an odd number of bytes
	1553	+ beq 147$
	1554	+ inc R4 ; add 1 more byte since reading words
1560	1560
	1556	+147$: tst R4 ; check length
	1557	+ beq 145$ ; nothing left to write - exit
1561	1561
1562		- ; пишем файл
1563		- mov @#FILSZ,R4; длина файла
1564		- MOV #AZ$CSR,R1
1565		- mov #BUFFL,R5; буфер файла
	1559	+ mov #23,(R1); write to buffer
	1560	+151$: TSTB (R1) ; check execution result
	1561	+ BPL 151$ ; wait
1566	1566
1567		- bit #1,R4 ; если нечетное число байт
1568		- beq 147$
1569		- inc R4 ; добавим еще 1 байт тк читаем словами
	1563	+ cmp R4,#512.; compare with buffer size in bytes
	1564	+ Blos 144$ ; less than buffer size left
1570	1570
1571		-147$: tst R4 ; проверим длину
1572		- 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
1573	1573
1574		- mov #23,(R1); будем писать в буфер
1575		-151$: TSTB (R1) ; проверяем результат выполнения
1576		- 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
1577	1577
1578		- cmp R4,#512.; сравниваем c размером буфера в байтах
1579		- 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$
1580	1580
1581		- .print #STMS6 ; заливка полного блока
1582		- mov #256.,R2
1583		- TST (R1)+ ; переходим на регистр данных
1584		-146$: mov (R5)+,(R1); пишем в буфер контроллера
1585		- sob R2,146$
1586		- sub #512.,R4; вычитаем
1587		- 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
1588	1588
1589		- mov #55,(R1); запись буфера в файл
1590		-104$: TSTB (R1) ; проверяем результат выполнения
1591		- BPL 104$ ; ждем
1592		- br 147$ ; в начало
	1591	+145$: .print #STMSE ; end
	1592	+ mov #110,@#AZ$CSR; enable network
	1593	+ .Exit ; exit
1593	1593
1594		-144$: .print #STMS7 ; заливка последнего блока
1595		- TST (R1)+ ; переходим на регистр данных
1596		- mov R4,R2
1597		- asr R2 ; /2 тк пишем словами
1598		-143$: mov (R5)+,(R1); пишем в буфер контроллера
1599		- sob R2,143$
1600		-
1601		- TST -(R1) ; переходим на регистр команд
1602		- mov #55,(R1); запись пследнего буфера в файл
1603		-105$: TSTB (R1) ; проверяем результат выполнения
1604		- BPL 105$ ; ждем
1605		-
1606		-145$: .print #STMSE ; конец
1607		- mov #110,@#AZ$CSR; включаем сеть
1608		- .Exit ; выходим
1609	1609	{{/code}}
1610	1610
1611		-**[[пример полностью в виде утилиты 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]]**
1612	1612
1613	1613
1614		-== **056: Получить данные по размеру карты в буфер sizecard** ==
	1600	+== 056: Get data on the size of the map into the sizecard buffer ==
1615	1615
1616		-Код команды 056,  данная команда читает параметры MicroSD карты в буфер sizecard
	1602	+Command code 056, this command reads the parameters of the MicroSD card into the sizecard buffer
1617	1617
1618		-== **057: Чтение буфера sizecard** ==
	1604	+== 057: Reading sizecard buffer ==
1619	1619
1620		-Код команды 057,  данная команда отдает буфер sizecard (2 слова)
	1606	+Command code 057, this command returns the sizecard buffer (2 words)
1621	1621
1622		-буфер sizecard содержит 2 слова 16bit
1623		-первое слово - общий объем карты доступный для FAT в МБ
1624		-второе слово - свободный объем на карте в МБ
	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
1625	1625
1626		-Пример программы:
	1612	+Example program:
1627	1627
1628	1628	{{code language="assembler"}}
1629		-; trap 51 - получение объема SD карты всего/свободно в мегабайтах
1630		-; результат в R1 - всего; R2 - свободно
1631		-GetSizeSD: call AZreset; сбросим
1632		- tst R1
1633		- bne 0ERR$
1634		- MOV #AZ$CSR,R1
1635		- mov #56,(R1)
1636		-1$: TSTB (R1); подготовить буфер
1637		- BPL 1$; ждем
1638		- mov #57,(R1)
1639		-2$: TSTB (R1); подготовить буфер
1640		- BPL 2$; ждем
1641		- mov @#AZ$DR ,R1; всего мегабайт
1642		- mov @#AZ$DR ,R2; свободно мегабайт
1643		- return
1644		- clr R1
1645		- clr R2
1646		- 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	+
1647	1647	{{/code}}
1648	1648
1649		-Пример данных
1650		-035521 - всего на карточке мегабайт - 15185.
1651		-035417 - свободно мегабайт - 15119.
1652		-
	1636	+Example data
	1637	+035521 - total megabytes on the card - 15185.
	1638	+035417 - free megabytes - 15119.
1653	1653
1654		-= **Блок команд API Hall of Fame** =
	1640	+= Hall of Fame API Command Block =
1655	1655
1656		-Данный блок команд предназначен для взаимодействия с сервером [[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]]
1657	1657
1658	1658	== **025: Инициализация Hall of Fame (HOF)** ==
1659	1659
1660		-Код команды 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.
1661	1661
1662		-Пример программы
	1648	+Example program:
1663	1663
1664	1664	{{code language="assembler"}}
1665		-AZ$CSR = 177220 ; регистр команд и состояния (CSR)
1666		-AZ$DR = 177222 ; регистр данных (DR)
	1651	+AZ$CSR = 177220 ; command and status register (CSR)
	1652	+AZ$DR = 177222 ; data register (DR)
1667	1667
1668		-; буфера
1669		-SNDBUF: .BLKW 256. ; буфер передачи
1670		-RCVBUF: .BLKW 256. ; буфер приема ответа
	1654	+; buffers
	1655	+SNDBUF: .BLKW 256. ; send buffer
	1656	+RCVBUF: .BLKW 256. ; receive buffer
1671	1671	SIDMEM: .BLKB 34. ; SID
1672		-SIDCST: .ASCII \{"SID":"\ ; заголовок SID-а
	1658	+SIDCST: .ASCII \{"SID":"\ ; SID header
1673	1673	.even
1674	1674
1675		-HOFINI: ; инициализация HOF
1676		- ;результатом является такой JSON
1677		- ;{"SID":"хеш сессии","RESULT":"OK"}
1678		- ;или ошибка
1679		- ;{"RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"}
1680		- ;{"RESULT":"ERROR","DESCRIPTION":"CONNECTION_ERROR"}
1681		- ; результат помещается в SNDBUF
1682		- ; в R5 фиксация успешности - =1 есть SID, =0 нет SID-а
1683		-
	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	+
1684	1684	mov R5, -(SP)
1685	1685	mov R4, -(SP)
1686	1686	mov R3, -(SP)
...	...	@@ -1688,29 +1688,29 @@
1688	1688	mov R1, -(SP)
1689	1689	mov R0, -(SP)
1690	1690
1691		- mov #3,R5 ; количество попыток
	1677	+ mov #3,R5 ; number of attempts
1692	1692
1693	1693	220$: mov #AZ$CSR,R1
1694		- clr (R1) ; Пошлем команду "Сброс"
1695		-221$: tstb (R1) ; Проверим готовность контроллера
1696		- bpl 221$ ; Если не готов ждем
	1680	+ clr (R1) ; Send "Reset" command
	1681	+221$: tstb (R1) ; Check controller readiness
	1682	+ bpl 221$ ; If not ready, wait
1697	1697
1698		- mov #25,(R1) ; инициализация - команда 025
1699		-20$: tstb (R1) ; проверяем результат выполнения
1700		- bpl 20$ ; ждем
	1684	+ mov #25,(R1) ; initialization - command 025
	1685	+20$: tstb (R1) ; check execution result
	1686	+ bpl 20$ ; wait
1701	1701
1702		- ; получим результат
1703		- mov #22,(R1) ; отдать на шину считанный блок памяти из буфера
1704		-21$: tstb (R1) ; проверяем результат выполнения
1705		- bpl 21$ ; ждем
1706		- 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
1707	1707	mov #SNDBUF,R3
1708		- mov #256.,R2 ; читаем 256. слов; первое слово - результат чтения
1709		-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
1710	1710	sob R2,22$
1711	1711
1712	1712
1713		- ; надо понять - есть ли SID
	1699	+ ; Determine if SID exists
1714	1714	mov #4,R0
1715	1715	mov #SNDBUF,R1
1716	1716	mov #SIDCST,R2
...	...	@@ -1719,11 +1719,11 @@
1719	1719	sob R0,23$
1720	1720	clr R5
1721	1721	inc R5
1722		- br 26$ ; успешно
	1708	+ br 26$ ; success
1723	1723
1724		-24$: ; SID не найден!
	1710	+24$: ; SID not found!
1725	1725	sob R5,220$
1726		- clr R5 ; ошибка - нет SID-а
	1712	+ clr R5 ; error - no SID
1727	1727
1728	1728	26$: mov (SP)+, R0
1729	1729	mov (SP)+, R1
...	...	@@ -1732,69 +1732,71 @@
1732	1732	mov (SP)+, R4
1733	1733	mov (SP)+, R5
1734	1734	return
	1721	+
1735	1735	{{/code}}
1736	1736
1737		-== **026: обмен с Hall of Fame (HOF)** ==
	1724	+== 026: Exchange with Hall of Fame (HOF) ==
1738	1738
1739		-Код команды 026,  данная команда осуществляет непосредственный обмен с Hall of Fame
	1726	+Command code 026, this command makes a direct exchange with Hall of Fame
1740	1740
1741		-Пример программы
	1728	+Example program:
1742	1742
1743	1743	{{code language="assembler"}}
1744		- ;4. авторизация пользователя
1745		- ;технически это отправка JSON
1746		- ;{"SID":"хеш сессии","CMD":"AUTH_USER","NIKNAME":"никнейм пользователя","PASSWORD":"пароль пользователя"}
1747		- ;ответ тоже JSON
1748		- ;{"SID":"хеш сессии","RESULT":"OK","UID":"хеш пользователя"}
1749		- ;или
1750		- ;{"SID":"хеш сессии","RESULT":"ERROR","DESCRIPTION":"USER_NOT_FOUND_OR_WRONG_PASSWORD"}
1751		- ;{"SID":"хеш сессии","RESULT":"ERROR","DESCRIPTION":"SERVER_ERROR"}
1752		- ;{"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"}
1753	1753
1754		- ; загоняем команду CMD04
1755		- mov #CMD04,R1
1756		- mov #ADRMEM,R2
1757		- add #42.,R2 ; cдвигаем указатель на длину блока с SID
1758		-33$: movb (R1)+,(R2)+
1759		- 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$
1760	1760
1761		- .Print #ADRMEM
	1748	+ .Print #ADRMEM
1762	1762
1763		- .Print #HOF05
1764		- ; отсылаем команду и ждем ответа
1765		- ; закачиваем в буфер
1766		- MOV #AZ$CSR,R1
1767		-331$: TSTB (R1) ; Проверим готовность контроллера
1768		- BPL 331$ ; Если не готов ждем
1769		- mov #23,(R1) ; командуем что будем писать данные в буфер
1770		-34$: TSTB (R1) ; проверяем результат выполнения
1771		- BPL 34$ ; ждем
1772		- TST (R1)+ ; инкрементируем
1773		- mov #ADRMEM,R3
1774		- mov #256.,R2 ;
1775		-35$: mov (R3)+,(R1) ; отдаем в контроллер
1776		- sob R2,35$
1777		- 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
1778	1778
1779		- ; обмен - команда 026
1780		- MOV #AZ$CSR,R1
1781		-361$: TSTB (R1) ; Проверим готовность контроллера
1782		- BPL 361$ ; Если не готов ждем
1783		- mov #26,(R1)
1784		-36$: TSTB (R1) ; проверяем результат выполнения
1785		- 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
1786	1786
1787		- ; получим результат
1788		-371$: TSTB (R1) ; Проверим готовность контроллера
1789		- BPL 371$ ; Если не готов ждем
1790		- mov #22,(R1) ; отдать на шину буфер
1791		-37$: TSTB (R1) ; проверяем результат выполнения
1792		- BPL 37$ ; ждем
1793		- TST (R1)+ ; инкрементируем
1794		- mov #ADRMEM,R3
1795		- mov #256.,R2 ; читаем 256. слов; первое слово - результат чтения
1796		-38$: mov (R1),(R3)+ ; читаем блок слов в память
1797		- 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	+
1798	1798	{{/code}}
1799	1799
1800	1800