avreal писал(а):По длине как второй вариант, но не требует постоянно выделенного доп. регистра.Код: Выделить всё
mov XL,indx
clr XH
subi XL, low( -table)
sbci XH, high( -table)
По сравнению с первым вариантом и короче, и даже временно не требует доп регистра.
IM1 писал(а):avreal , полностью согласен, только писать надо не table, а (table*2), как например здесь viewtopic.php?f=20&t=5931&start=1600
Код: Выделить всё
.org 200 ; начинаем с СОТОГО слова.
foo: .byte 1
.byte 2,3
moo: .byte 3,4,5Код: Выделить всё
0201
0303
0504Код: Выделить всё
1 .text
2 0000 0000 0000 .org 200
2 0000 0000
2 0000 0000
2 0000 0000
2 0000 0000
3 .global foo
4 .global moo
5 foo:
6 00c8 0102 03 .byte 1,2,3
7 moo:
8 00cb 0304 05 .byte 3,4,5
9 .end
не путайте выполнение инструкций и адресацию к памяти программ - обратиться к любому байту ничто не мешает...john_rise писал(а):... Значит шагать можно только по 2 байта....
.. это определяется содержимым младшего бита регистра ZLjohn_rise писал(а):Неужели я могу задать сразу адрес старшего байта слова...
Код: Выделить всё
; этот вызов и следующие две строки удобно завернуть в макрос,
; но тут так для ясности написано развёрнуто
rcall printstr_с
.asciz "fooo" ; строка с завершющим нулём занимает 5 байт, поэтому нужно
.align 2 ; подравнять на границу 2 байт и только потом писать следующие команды
; после выполнения printstr_c вернёмся сюда!
nop ; пошли следующие командыКод: Выделить всё
173 006c 00D0 rcall printstr_c
174 006e 666F 6F6F .asciz "fooo"
174 00 ; Это завершающий 0 от строки
175 0073 00 .align 2 ; а это дополнительный 0 для того, чтобы
176 0074 0000 nop ; следующая команда была с чётного (словного) адресаКод: Выделить всё
printstr_c:
pop r31 ; POP-нуть этот адрес *слова-команды* из стека в Z
pop r30
lsl r30 ; умножить на два -- получить адрес *байта-данных*
rol r31
rjmp pr_2
pr_1:
rcall putchar ; детали вывода символа нас сейчас не интересуют
pr_2:
lpm r16, Z+ ; читаем байт и переходим к следующему *байтовому* адресу
tst r16
brne pr_1 ; если встретили завершающий 0 -- строка закночилась
adiw r30,1 ; округляем вверх до чётного числа *байтов*
lsr r31 ; и делим на два для возврата к *словам-командам*
ror r30 ; (тот же align)
ijmp ; теперь делаем "возврат" в точку сразу за строкой в ПЗУКод: Выделить всё
ldi ZL, low (string) ; вот эти четыре байта
ldi ZH, high (string) ; будут экономиться на каждом вызове
rcall putstr_зJump to SubRoutine работала так:JSR REG, ADDR
Код: Выделить всё
jsr r5, printstr_c
.asciiz "fooo"
.align
...
printstr_c:
; А адрес-то "возврата", т.е. строки, у нас уже в R5 !
movb (R5)+, R0 ; берем байт-символ по адресу в R5 и увеличиваем R5 на 1.
bne done ; mov устанавливает флаги -- проверка на 0 уже сделана
call putchar ; то же самое, что JSR PC, putchar, где PC aka R7 -- счётчик команд
jmp printstr_c
done:
rts r5 ; ReTurn from Subroutine
Спасибо, сэнсэй!
avreal писал(а):Оффтопически-историческая справка по поводу "где мои JSR R5, addr"
У "хита всех времён и народов" PDP-11 не было команды вызова подпрограммы CALL в тако виде, как у AVR, PIC, MCS51 и прочих. К тому, что у неё было, ближе всех ARM-овская команда BL.
Вы читаете всё, или только то, на что можете хорошо ответить?SII писал(а):Не совсем верно. Во-первых, JSR на PDP-11 могла работать полностью аналогично привычному CALLу, достаточно было записать её в виде: JSR PC, адрес -- и она пихила в стек именно PC, т.е. адрес возврата. Во-вторых, ARMовская BL является точной копией команды перехода с возвратом мэйнфреймов IBM (System/360, 370 и т.д.): у тех стека не было в принципе, и адрес возврата запоминался в регистре. У ARMа стек есть, но сохранять в нём адрес возврата надо ручками.
Я сказал и про JSR PC, ... -- а дальше из описания действий понятно, что при этом она сохраняа на стеке и восстанавливала отутда тот REG, который PC. И про то, что мнемоника ассемблера CALL была у PDP-11 -- как синоним к этой JSR PC,... .avreal писал(а):У "хита всех времён и народов" PDP-11 не было команды вызова подпрограммы CALL в тако виде, как у AVR, PIC, MCS51 и прочих. К тому, что у неё было, ближе всех ARM-овская команда BL.
CALL addr у PDP-11 была просто синонимом ассемблера к команде JSR PC, addr
. Вышло "не совсем полно", а не "не совсем верно", но "совсем полно" это слишком много, я не претендую на такую энциклопедичность. Даже для "чуточку полнее" как минимум ещё HP2100/М6000/СМ-2 придётся вспомнить с их отсутстием стека, но наличием JSR и удобно сделанной возможностью брать параметры из кода после вызова функции. avreal писал(а):Вы читаете всё, или только то, на что можете хорошо ответить?
И про то, что мнемоника ассемблера CALL была у PDP-11 -- как синоним к этой JSR PC
В любом случае и PDP-11-шный JSR, и ARM-овский BL гораздо удобнее для передачи константных параметров (не только строк), чем то, что приходится делать в AVR.
Вполне возможноSII писал(а):avreal писал(а):Вы читаете всё, или только то, на что можете хорошо ответить?
А Вы всё, хоть малость с Вашим мнением/описанием не согласующееся, считаете личным наездом?
Со стороны виднее.Нет, спасибо, не надо, это слишком весомый аргументSII писал(а):А вот это уже прямая Ваша ошибка. Такой мнемоники ассемблера у PDP-11 не было -- была широко применявшаяся макрокоманда, которая превращалась в JSR PC. Исходники RSX-11M в качестве доказательста выкладывать, или так поверите?И про то, что мнемоника ассемблера CALL была у PDP-11 -- как синоним к этой JSR PC
Код: Выделить всё
; ===========
; Макрос инициализации == @0 - адрес, @1 - длина в байтах, @2 - значение для инициализации
; ===========
.macro dataInit
LDI ZL, Low(@0) ; загружаем адрес
LDI ZH, High(@0)
CLR R16 ; счетчик
LDI R17, @2
;cycle_dataInit:
ST Z+, R17
INC R16
CPI R16, @1
BRNE PC - 3
.endmacro
; ===========
