Оно само так делаетJust_Fluffy писал(а):а если строка с нечетным количеством символов? И добита нулем в конце до четного ?
Код: Выделить всё
home/lester/AVR/avra-master/includes/m48def.inc(914) : PRAGMA directives currently ignored
asmtest.asm(31) : Warning : A .DB segment with an odd number of bytes is detected. A zero byte is added.
Код: Выделить всё
#define Text "Ля-Ля-Ля"
.
.
.Macro ldiw
ldi @0L,low(@1)
ldi @0H,High(@1)
.EndMacro
.
.
textptr: .db Text,'\0'
.
.
ldiw Z,textptr*2
clr r16
loop1:
inc r16
lpm r17,Z+
tst r17
brne loop1
; r16 - длина строки
- простите, это что? Фишка препроцессора?STRLEN(Text)
[/uquote] 
Код: Выделить всё
read_loop:
ldi counter, 2*(endstring-string)
ldi ZL, low(2*string)
ldi ZH, high(2*string)
again:
lpm temp, Z+
rcall something
dec counter
tst counter
breq exit
rjmp again
tst counter - лишняя команда. после декремента уже тест сделан.Shuspano писал(а):dec counter
dec counter
tst counter
breq exit
rjmp again
Код: Выделить всё
read_loop:
ldi ZL,low(2*TBI) ;string)
ldi ZH,high(2*TBI) ;string)
again:
lpm R0, Z
rcall something
CPI ZL,LOW(2*TBI_END)
BRLO AGAIN
EXIT:
RJMP PC
something:
ST Z+,R0
RET
;*****
.org $100
TBI:
.DB $3F,$06 ; 0,1 Кодирования индикатора
.DB $5B,$4F ; 2,3
.DB $66,$6D ; 4,5
.DB $7D,$07 ; 6,7
.DB $7F,$6F ; 8,9
.DB $00,$00 ; гашение незначащего нуля
TBI_END:
;************************************************
, то ползвольте сначала всех поздравить Код: Выделить всё
.set Var1 = 0x6EF5
ldi R16, low (Var1)
ldi R17, high (Var1)
clr R18Код: Выделить всё
.set Var1 = 0x28
ldi R20, BYTE1 (Var1)
ldi R21, BYTE2 (Var1)
ldi R22, BYTE3 (Var1)Код: Выделить всё
.set tests = 0x4567af
ldi r16,low(tests)
ldi r17,low(tests>>8)
ldi r18,low(tests>>16)
Ага, и по этому пришлось догадываться по смыслуBOB51 писал(а):За byte1 видимо просто не сочли нужным делать описание его эквивалента low.
у меня не так много фудаментальных знаний.Оо.. А за это спасибо. Тут можно больше 32 бит данных загрузить.BOB51 писал(а):Кстати... есть и альтернатива:
Код:
.set tests = 0x4567af
ldi r16,low(tests)
ldi r17,low(tests>>8)
ldi r18,low(tests>>16)
...[/uquote] Ан нет, нашёл "BYTE1", в атмеловском "AVR Instruction Set Manual", вскользь упоминается всего в одном месте и то в примере.Код: Выделить всё
.equ VAR =1000000000000 ;E8 D4A5 1000В смысле? Только сейчас попробовал. Собирается без ошибок.akl писал(а):Касательно студии, поддерживающей 32-битные значения, не получится.
Код: Выделить всё
.equ var = 999999999999999999999999999999999999999
ldi R16, low(var)
ldi R17, low(var>>8)
ldi R18, low(var>>16)
ldi R19, low(var>>24)
ldi R20, low(var>>32)
ldi R21, low(var>>40)
ldi R22, low(var>>48)
ldi R23, low(var>>56)
ldi R24, low(var>>64)Код: Выделить всё
.equ var = 77777777777777
ldi R16, low(var)
ldi R17, low(var>>8)
ldi R18, low(var>>16)
ldi R19, low(var>>24)
ldi R20, low(var>>32)
ldi R21, low(var>>40)
ldi R22, low(var>>48)
ldi R23, low(var>>56)
ldi R24, low(var>>64)
ldi R24, low(var>>72)
ldi YL,low (Result+9) ;
ldi YH,high (Result+9) ;
st Y, R16
st -Y, R17
st -Y, R18
st -Y, R19
st -Y, R20
st -Y, R21
st -Y, R22
st -Y, R23
st -Y, R24
st -Y, R25
Код: Выделить всё
;.equ var = 999999999999999999999999999999999999999; калькулятор XP-винды с этим числом не справился, поэтому урезал до
.equ var = 9999999999999999999;8AC7230489E7FFFF
.CSEG
TEST:
ldi R16, low(var)
ldi R17, low(var>>8)
ldi R18, low(var>>16)
ldi R19, low(var>>24)
ldi R20, low(var>>32)
ldi R21, low(var>>40)
ldi R22, low(var>>48)
ldi R23, low(var>>56)
ldi R24, low(var>>64)
RJMP TEST
.EXIT