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

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

From 2.77 to 2.78 From 2.80 to 2.81

From version 2.78

edited by Max
on 2025/02/25 17:22

Change comment: There is no comment for this version

To version 2.80

edited by Max
on 2025/02/25 17:32

Change comment: (Autosaved)

Raw
Rendered

Summary

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

Details

Page properties

Content

@@ -1382,269 +1382,262 @@
  Example program:
  {{code language="assembler"}}
++                call    AZRST; reset
--                call    AZRST; сбросим
++; load the file name into the buffer
++7$:             mov     #23,(R1); command to write data to the buffer
++5$:             TSTB    (R1); check execution result
++                BPL     5$  ; wait
++                TST     (R1)+; increment
++                mov     #FILNM,R3
++1$:             mov     (R3),(R1); send to controller
++                tst     (R3)+
++                bne     1$
++                tst     -(R1); decrement
--; заливаем в буфер имя файла
--7$:             mov     #23,(R1); командуем что будем писать данные в буфер
--5$:             TSTB    (R1); проверяем результат выполнения
--                BPL     5$  ; ждем
--                TST     (R1)+; инкрементируем
--                mov     #FILNM,R3
--1$:             mov     (R3),(R1); отдаем в контроллер
--                tst     (R3)+
--                bne     1$
--                tst     -(R1); декрементируем
++; set the file for reading
++                mov     #50,(R1); set file for reading
++2$:             TSTB    (R1); check execution result
++                BPL     2$  ; wait
++; read the file length
++                mov     #51,(R1); set file for reading
++3$:             TSTB    (R1); check execution result
++                BPL     3$  ; wait
++                TST     (R1)+; increment
++                mov     #FILSZ,R3
++                mov     (R1),(R3)+; read from controller
++                mov     (R1),(R3); read from controller
--    ; устанавливаем файл на чтение
--                mov     #50,(R1); устанавливаем файл на чтение
--2$:             TSTB    (R1); проверяем результат выполнения
--                BPL     2$  ; ждем
++; display the file length on the screen
++                clr     R0
++                mov     #FILSZ+2,R3
++                mov     (R3),R1
++                call    DNOZ
++                mov     -(R3),R1
++                call    DNOZ
++                .print   #STMS2
++; read the file
++                mov     R1,R4; R1 holds the file length
++                MOV     #AZ$CSR,R1
++                mov     #BUFFL,R5
--    ; читаем длину файда
--                mov     #51,(R1); устанавливаем файл на чтение
--3$:             TSTB    (R1); проверяем результат выполнения
--                BPL     3$  ; ждем
--                TST     (R1)+; инкрементируем
--                mov     #FILSZ,R3
--                mov     (R1),(R3)+; читаем с контроллера
--                mov     (R1),(R3); читаем с контроллера
++                bit     #1,R4; if an odd number of bytes
++                beq     47$
++                inc      R4; add 1 more byte as we read words
--    ; выведем длину файла на экран
--                clr     R0
--                mov     #FILSZ+2,R3
--                mov     (R3),R1
--                call    DNOZ
--                mov     -(R3),R1
--                call    DNOZ
--                .print   #STMS2
++47$:            tst     R4
++                beq     45$ ; nothing left to read - exit
--    ; читаем файл
--                mov     R1,R4; в R1 осталась длина файла
--                MOV     #AZ$CSR,R1
--                mov     #BUFFL,R5
++                mov     #52,(R1); read block into buffer
++4$:             TSTB    (R1); check execution result
++                BPL     4$  ; wait
++                mov     #22,(R1); start reading buffer
++51$:            TSTB    (R1); check execution result
++                BPL     51$ ; wait
--                bit     #1,R4; если нечетное число байт
--                beq     47$
--                inc      R4; добавим еще 1 байт тк читаем словами
++                cmp     R4,#512.; compare with buffer size in bytes
++                Blos    44$ ; less than buffer size left
--47$:            tst     R4
--                beq     45$ ; уже нечего читать - выходим
++                .print  #STMS1
++                mov     #256.,R2
++                TST     (R1)+; move to data register
++46$:            mov     (R1),(R5)+; read into buffer
++                sob     R2,46$
++                sub     #512.,R4; subtract
++                TST     -(R1); move to command register
++                br      47$
++44$:            .print  #STMS3
++                mov     R4,R2
++                asr     R2  ; /2 since reading words
++                TST     (R1)+; move to data register
++43$:            mov     (R1),(R5)+; read into buffer
++                sob     R2,43$
--                mov     #52,(R1); читаем блок в буфер
--4$:             TSTB    (R1); проверяем результат выполнения
--                BPL     4$  ; ждем
--                mov     #22,(R1); будем читать буфер
--51$:            TSTB    (R1); проверяем результат выполнения
--                BPL     51$ ; ждем
++45$:            clr     (R5); set end of file marker
--                cmp     R4,#512.; сравниваем c размером буфера в байтах
--                Blos    44$ ; осталось меньше чем буфер
++; file read - display on screen
++                .print   #STMS4
++                .print  #BUFFL
++                .print   #STMS5
++                mov     #110,@#AZ$CSR; enable network
++                .Exit
--                .print  #STMS1
--                mov     #256.,R2
--                TST     (R1)+; переходим на регистр данных
--46$:            mov     (R1),(R5)+; читаем в буфер
--                sob     R2,46$
--                sub     #512.,R4; вычитаем
--                TST     -(R1); переходим на регистр команд
--                br      47$
--
--44$:            .print  #STMS3
--                mov     R4,R2
--                asr     R2  ; /2 тк читаем словами
--                TST     (R1)+; переходим на регистр данных
--43$:            mov     (R1),(R5)+; читаем в буфер
--                sob     R2,43$
--
--
--45$:            clr     (R5); проставим конец файла
--    ; файл считан - выводим на экран
--                .print   #STMS4
--                .print  #BUFFL
--                .print   #STMS5
--
--
--                mov     #110,@#AZ$CSR; включаем сеть
--                .Exit
  {{/code}}
--== **053:** установить имя файла который будем писать ==
++== 053: set the name of the file that we will write ==
--Код команды 053,  данная команда открывает файл на запись, получает параметры открытия (или ошибки).
++Command code 053, this command opens a file for writing, receives opening parameters (or errors).
--== **054:** установка длины файла ==
++== 054: Set file length ==
--Код команды 054,  данная команда устанавливает ожидаемую длину файла, это нужно для корректного формирования файла на файловом уровне MicroSD карты, а также для организации передачи данных.
++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.
--== **055:** записать в файл данные из буфера ==
++== 055: write data from buffer to file ==
--Код команды 055,  данная команда записывает в открытый файл на запись данные из буфера энергонезависимой памяти. Последняя команда 055 автоматически закроет файл по достижению заявленной длины файла.
++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.
--Схема подачи команд при записи вот такая
--**023** - заливаем имя файла в буфер
--**053** - устанавливаем файл на чтение
--**051 **- статус открытия/создания файла
--если ошибка - повторяем сначала 023 053 051
--если все ok - идем дальше
--**054** - установка длины файла, те надо сразу объявить какая у нас будет длина файла
--**023** - заливаем блок данных в буфер
--**055** - пишем из буфера в файл
--пары 023 055 повторяем нужное количество раз дабы записать весь файл
--как файл будет записан - последняя 055 команда закроет его автоматически
++The command flow chart for writing is as follows
++**023** - fill the file name into the buffer
++**053** - set the file for reading
++**051** - file opening/creation status
++if an error - repeat from the beginning 023 053 051
++if everything is ok - move on
++**054** - set the file length, i.e. we must immediately declare what the file length will be
++**023** - fill the data block into the buffer
++**055** - write from the buffer to the file
++repeat the 023 055 pairs the required number of times in order to write the entire file
++once the file is written - the last 055 command will close it automatically
  Example program:
  {{code language="assembler"}}
--; заливаем в буфер имя файла
--                MOV     #AZ$CSR,R1
--17$:            mov     #23,(R1); командуем что будем писать данные в буфер
--15$:            TSTB    (R1)    ; проверяем результат выполнения
--                BPL     15$     ; ждем
--                TST     (R1)+   ; переходим на регистр данных
--                mov     #FILNM2,R3
--11$:             mov    (R3),(R1); отдаем в контроллер
--                tst     (R3)+
--                bne     11$
--                tst     -(R1)   ; переходим на регистр команд
++; load the file name into the buffer
++                MOV     #AZ$CSR,R1
++17$:            mov     #23,(R1); command to write data to the buffer
++15$:            TSTB    (R1)    ; check execution result
++                BPL     15$     ; wait
++                TST     (R1)+   ; move to data register
++                mov     #FILNM2,R3
++11$:             mov    (R3),(R1); send to controller
++                tst     (R3)+
++                bne     11$
++                tst     -(R1)   ; move to command register
--        ; устанавливаем файл на запись
--                mov     #53,(R1); устанавливаем файл на запись
--12$:            TSTB    (R1)    ; проверяем результат выполнения
--                BPL     12$     ; ждем
++; set the file for writing
++                mov     #53,(R1); set file for writing
++12$:            TSTB    (R1)    ; check execution result
++                BPL     12$     ; wait
++; read file creation status
++                mov     #51,(R1)
++13$:            TSTB    (R1)    ; check execution result
++                BPL     13$     ; wait
++                TST     (R1)+   ; move to data register
++                mov     #STATS,R3
++                mov     (R1),(R3)+; read from controller
++                mov     (R1),(R3); read from controller
--        ; читаем статус создания файла
--                mov     #51,(R1)
--13$:            TSTB    (R1)    ; проверяем результат выполнения
--                BPL     13$     ; ждем
--                TST     (R1)+   ; переходим на регистр данных
--                mov     #STATS,R3
--                mov     (R1),(R3)+; читаем с контроллера
--                mov     (R1),(R3); читаем с контроллера
++; check here - if the file is created, both words should be zero
++                mov     #STATS,R3
++                TST     (R3)+
++                BNE     66$
++                TST     (R3)
++                BEQ     60$
++66$:            .print  #ERRMS1 ; print error
++                .exit
--        ; тут надо проверить - если файл создан то оба слова нулевые
--                mov     #STATS,R3
--                TST     (R3)+
--                BNE     66$
--                TST     (R3)
--                BEQ     60$
--66$:            .print  #ERRMS1 ; печать ошибки
--                .exit
++60$:            MOV     #AZ$CSR,R1
++                mov     #54,(R1); set file length to be written
++23$:            TSTB    (R1)    ; check execution result
++                BPL     23$     ; wait
++                TST     (R1)+   ; move to data register
++                mov     #FILSZ,R3
++                mov     (R3)+,(R1); write to controller
++                mov     (R3),(R1); write to controller
--60$:            MOV     #AZ$CSR,R1
--                mov     #54,(R1); установим длину файла который будем писать
--23$:            TSTB    (R1)    ; проверяем результат выполнения
--                BPL     23$     ; ждем
--                TST     (R1)+   ; переходим на регистр данных
--                mov     #FILSZ,R3
--                mov     (R3)+,(R1); пишем в контроллер
--                mov     (R3),(R1); пишем в контроллер
++                tst     -(R1)   ; move to command register
--                tst     -(R1)   ; переходим на регистр команд
++; write file
++                mov     @#FILSZ,R4; file length
++                MOV     #AZ$CSR,R1
++                mov     #BUFFL,R5; file buffer
++                bit     #1,R4   ; if an odd number of bytes
++                beq     147$
++                inc      R4   ; add 1 more byte since reading words
++147$:           tst     R4      ; check length
++                beq     145$    ; nothing left to write - exit
--        ; пишем файл
--                mov     @#FILSZ,R4; длина файла
--                MOV     #AZ$CSR,R1
--                mov     #BUFFL,R5; буфер файла
++                mov     #23,(R1); write to buffer
++151$:           TSTB    (R1)    ; check execution result
++                BPL     151$    ; wait
--                bit     #1,R4   ; если нечетное число байт
--                beq     147$
--                inc      R4   ; добавим еще 1 байт тк читаем словами
++                cmp     R4,#512.; compare with buffer size in bytes
++                Blos    144$    ; less than buffer size left
--147$:           tst     R4      ; проверим длину
--                beq     145$    ; уже нечего писать - выходим
++                .print  #STMS6  ; writing full block
++                mov     #256.,R2
++                TST     (R1)+   ; move to data register
++146$:           mov     (R5)+,(R1); write to controller buffer
++                sob     R2,146$
++                sub     #512.,R4; subtract
++                TST     -(R1)   ; move to command register
--                mov     #23,(R1); будем писать в буфер
--151$:           TSTB    (R1)    ; проверяем результат выполнения
--                BPL     151$    ; ждем
++                mov     #55,(R1); write buffer to file
++104$:           TSTB    (R1)    ; check execution result
++                BPL     104$    ; wait
++                br      147$    ; loop back
--                cmp     R4,#512.; сравниваем c размером буфера в байтах
--                Blos    144$    ; осталось меньше чем буфер
++144$:            .print  #STMS7 ; writing last block
++                TST     (R1)+   ; move to data register
++                mov     R4,R2
++                asr     R2      ; /2 since writing words
++143$:           mov     (R5)+,(R1); write to controller buffer
++                sob     R2,143$
--                .print  #STMS6  ; заливка полного блока
--                mov     #256.,R2
--                TST     (R1)+   ; переходим на регистр данных
--146$:           mov     (R5)+,(R1); пишем в буфер контроллера
--                sob     R2,146$
--                sub     #512.,R4; вычитаем
--                TST     -(R1)   ; переходим на регистр команд
++                TST     -(R1)   ; move to command register
++                mov     #55,(R1); write last buffer to file
++105$:           TSTB    (R1)    ; check execution result
++                BPL     105$    ; wait
--                mov     #55,(R1); запись буфера в файл
--104$:           TSTB    (R1)    ; проверяем результат выполнения
--                BPL     104$    ; ждем
--                br      147$    ; в начало
++145$:           .print #STMSE   ; end
++                mov     #110,@#AZ$CSR; enable network
++                .Exit           ; exit
--144$:            .print  #STMS7 ; заливка последнего блока
--                TST     (R1)+   ; переходим на регистр данных
--                mov     R4,R2
--                asr     R2      ; /2 тк пишем словами
--143$:           mov     (R5)+,(R1); пишем в буфер контроллера
--                sob     R2,143$
--
--                TST     -(R1)   ; переходим на регистр команд
--                mov     #55,(R1); запись пследнего буфера в файл
--105$:           TSTB    (R1)    ; проверяем результат выполнения
--                BPL     105$    ; ждем
--
--145$:           .print #STMSE   ; конец
--                mov     #110,@#AZ$CSR; включаем сеть
--                .Exit           ; выходим
  {{/code}}
--**[[пример полностью в виде утилиты RT11 выложен вот тут>>url:https://forum.maxiol.com/index.php?s=&showtopic=5605&view=findpost&p=57055]]**
++**[[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]]**
--== **056: Получить данные по размеру карты в буфер sizecard** ==
++== 056: Get data on the size of the map into the sizecard buffer ==
--Код команды 056,  данная команда читает параметры MicroSD карты в буфер sizecard
++Command code 056, this command reads the parameters of the MicroSD card into the sizecard buffer
--== **057: Чтение буфера sizecard** ==
++== 057: Reading sizecard buffer ==
--Код команды 057,  данная команда отдает буфер sizecard (2 слова)
++Command code 057, this command returns the sizecard buffer (2 words)
--буфер sizecard содержит 2 слова 16bit
--первое слово - общий объем карты доступный для FAT в МБ
--второе слово - свободный объем на карте в МБ
++sizecard buffer contains 2 words 16bit
++first word - total card size available for FAT in MB
++second word - free card size in MB
  Example program:
  {{code language="assembler"}}
--; trap 51 - получение объема SD карты всего/свободно в мегабайтах
--; результат в R1 - всего; R2 - свободно
--GetSizeSD:      call    AZreset; сбросим
--                tst     R1
--                bne     0ERR$
--                MOV     #AZ$CSR,R1
--                mov     #56,(R1)
--1$:             TSTB    (R1); подготовить буфер
--                BPL     1$; ждем
--                mov     #57,(R1)
--2$:             TSTB    (R1); подготовить буфер
--                BPL     2$; ждем
--                mov     @#AZ$DR ,R1; всего мегабайт
--                mov     @#AZ$DR ,R2; свободно мегабайт
--                return
--                clr     R1
--                clr     R2
--                return
++; trap 51 - get the total/free size of the SD card in megabytes
++; result in R1 - total; R2 - free
++GetSizeSD:      call    AZreset  ; reset
++                tst     R1
++                bne     0ERR$
++                MOV     #AZ$CSR,R1
++                mov     #56,(R1)
++1$:             TSTB    (R1)     ; prepare buffer
++                BPL     1$       ; wait
++                mov     #57,(R1)
++2$:             TSTB    (R1)     ; prepare buffer
++                BPL     2$       ; wait
++                mov     @#AZ$DR ,R1  ; total megabytes
++                mov     @#AZ$DR ,R2  ; free megabytes
++                return
++                clr     R1
++                clr     R2
++                return
++
  {{/code}}
--Пример данных
--035521 - всего на карточке мегабайт - 15185.
--035417 - свободно мегабайт - 15119.
--
++Example data
++035521 - total megabytes on the card - 15185.
++035417 - free megabytes - 15119.
--= **Блок команд API Hall of Fame** =
++= Hall of Fame API Command Block =
  Данный блок команд предназначен для взаимодействия с сервером [[Hall of Fame>>https://forum.maxiol.com/index.php?showtopic=5642]]

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

Summary

Details

Applications

Navigation

Need help?