.include "D:\avr\avrasm\appnotes\tn2313def.inc" .def Temp=R16 .def Temp1=R17 .def Temp2=R18 .def Temp3=R19 .def Temp4=R20 .cseg .org 0 ldi Temp,RamEnd ;инициализация стека out SPL,Temp ldi Temp,0b11111111 ;настройка портов out DDRB,Temp Begin: ldi Temp,0b00010010 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b01001000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00001000 ;вывод на индикацию rcall Delay ldi Temp,0b00011010 ;вывод на индикацию rcall Delay ldi Temp,0b00000000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00010000 ;вывод на индикацию rcall Delay ldi Temp,0b00001000 ;вывод на индикацию rcall Delay ldi Temp,0b00100010 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00010000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00000100 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b01000000 ;вывод на индикацию rcall Delay ldi Temp,0b00100100 ;вывод на индикацию rcall Delay ldi Temp,0b01001000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ;*********************************** ldi Temp,0b11111111 ;настройка портов out DDRD,Temp ldi Temp,0b00010000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00000100 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b01000000 ;вывод на индикацию rcall Delay ldi Temp,0b00100100 ;вывод на индикацию rcall Delay ldi Temp,0b01001000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00010000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00100100 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b01000100 ;вывод на индикацию rcall Delay ldi Temp,0b00110100 ;вывод на индикацию rcall Delay ldi Temp,0b01001010 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ldi Temp,0b00010000 ;вывод на индикацию rcall Delay ;вызов подпрограммы задержки ;вызов подпрограммы задержки ;************************************************************************************* rcall Delay rjmp Begin ;поехали по новой! ;**************************************************** ;Задержка Delay: out PortB,Temp ldi Temp1,40 ldi Temp2,40 ldi Temp3,2 Loop: dec Temp1 brne Loop dec Temp2 brne Loop dec Temp3 brne Loop ret