Библиографический список

№

варианта

Текст подпрограммы

ldi r16,1 ; Загрузить маску 0000 0001 в r16

and r2,r16 ; Выделить 0-й бит в r2

andi r17,$0F ; Обнулить старший полубайт регистра r17

andi r18,$10 ; Выделить 4-й бит в регистре r18

; Сложение двух регистровых пар R1:R0 и R3:R2

add r2,r0 ; Сложить младшие байты

adc r3,r1 ; Сложить старшие байты с учетом переноса

add r1,r2 ; Прибавить r2 к r1 (r1=r1+r2)

add r28,r28 ; Сложить г28 с самим собой (г28=г28+г28)

adiw r25:r24,1 ; Прибавить 1 к r25:r24

adiw ZH:ZL,63 ; Прибавить 63 к указателю Z(r31:r30)

ldi r16,$10 ; Записать число 16 в регистр r16

asr r16 ; r16= r16/2

ldi r17,$FC ; Записать число -4 в регистр г17

asr r17 ; r17=r17/2

cbr r16,$F0 ; Обнулить старший полубайт регистра r16

cbr r18,1 ; Сбросить 1-й бит в регистре r18

cbr r18,$10 ; Сбросить 4-й бит в регистре r18

sbr r16,3 ; Установить биты 0 и 1 регистра r16

sbr r18,$F0 ; Установить 4 старших бита регистра r18

mov r16,r0 ; Переслать содержимое r0 в r16

;call check ; Вызвать подпрограмму

;

check:

cpi r16, $11 ; Сравнить r16 с $11

ret ; Вернуться из подпрограммы

movw r17:r16,r1:r0 ; Переслать r1:rO в r17:r16

in r25,$18 ; Прочитать содержимое порта B

cpi r25,4 ; Сравнить содержимое с константой

breq exit ; Перейти, если r25 = 4

exit:

clr r16 ; Очистить регистр г16

ser r17 ; Установить регистр г17

out $18,r16 ; записать нули в порт B

nop ; Ждать один такт

out $18,r17 ; Записать единицы в порт B

call routine ; Вызов подпрограммы

;

routine:

push r14 ; Сохранить r14 в стеке

push r15 ; Сохранить r15 в стеке

;

pop r15 ; Восстановить r15из стека

pop r14 ; Восстановить r14 из стека

ret ; Возврат из подпрограммы

lds r2,$FF00 ; r2 = [$FFOO]

add r2,r1 ; r2 = r2 + r1

sts $FF00,r2 ; Записать результат по тому же адресу

clr r31 ;Очистить старший байт индексного регистра Z

ldi r30,$F0 ;Загрузить адрес в регистр Z

lpm ;Загрузить константу из памяти программ

;по адресу $00F0

clr r31 ; Очистить старший байт индексного регистра

ldi r30,$60 ; Загрузить младший байт адреса

ld r1,Z ; r1 = [0060]

clr r31 ; Очистить старший байт индексного регистра

ldi r30,$63 ; Загрузить младший байт адреса

ld r3,-Z ; r3 = [$0062]

clr r31 ;Очистить старший байт индексного регистра

ldi r30,$60 ; Загрузить младший байт адреса

ld r1,Z+ ; r1 = [$0060]

in r2,r30 ; В регистре r2 - $61

clr r31 ; Очистить старший байт индексного регистра

ldi r30,$63 ; Загрузить младший байт адреса

ldd r4,Z+2 ; r4 = [$0065]

cpi r16,$42 ; Сравнить r16 с числом $42

brne error ; Перейти, если r16 ~= $42

rjmp ok ; Безусловный переход

;

error:

add r16, r17 ; Прибавить r16 к r17

inc r16 ; r16 = r16 + 1

ok:

mov r30, r0 ; Задать смещение

ijmp ; Перейти по адресу г31: r30

add r16, r17 ; Прибавить r16 к r17

inc r16 ; r16 = r16 + 1

jmp farplc ; Безусловный переход

farplc:

nop

rcall routine0 ; Вызвать подпрограмму

routine0:

push r14 ; Сохранить r14

;

pop r14 ; Восстановить r14

ret ; Возврат из подпрограммы

waitset:

sbis $1D,0 ;Пропустить след. команду, если 0-й бит

; порта D установлен

rjmp waitset ; Ждать, пока бит не будет установлен

clr r31 ; Очистить старший байт индексного регистра

ldi r30,$63 ; Загрузить младший байт адреса

ldd r4,Z+2 ; r4 = [$0065]

cpi r16,$42 ; Сравнить r16 с числом $42

brne error ; Перейти, если r16 ~= $42

rjmp ok ; Безусловный переход

;

error:

add r16, r17 ; Прибавить r16 к r17

inc r16 ; r16 = r16 + 1

ok:

mov r30, r0 ; Задать смещение

ijmp ; Перейти по адресу г31: r30

add r16, r17 ; Прибавить r16 к r17

inc r16 ; r16 = r16 + 1

jmp farplc ; Безусловный переход

farplc:

nop

rcall routine0 ; Вызвать подпрограмму

routine0:

push r14 ; Сохранить r14

;

pop r14 ; Восстановить r14

ret ; Возврат из подпрограммы

waitset:

sbis $1D,0 ; Пропустить след. команду, если 0-й бит

; порта D установлен

rjmp waitset ; Ждать, пока бит не будет установлен