;Подпрограмма вывода строки, хранящейся в программной памяти
;В регистровой паре Z начало строки, в регистре R19 адрес первой позиции вывода в строке дисплея   
PRNSTR:   push R18         ;
   lsl ZL         ;Умножить адрес начала строки на 2, так как доступ нужно
   rol ZH         ;осуществлять побайтно
PRNS1:   lpm R18,Z+      ;Занести в R18 байт из памяти программ, содержащий код выводимого символа
   cpi R18,$0      ;Сравнение с нулем - кодом конца строки
   brne PRNS2      ;Если принят не нуль, то переход на метку PRNS1
   pop R18
   ret         ;Строка напечатана, выход из подпрограммы
PRNS2:   rcall PRNSYM      ;Печать символа, хранящегося в R18, в позицию, адрес которой в R19
   inc R19         ;Увеличение адреса для вывода следующего символа
   rjmp PRNS1      ;Возврат на метку PRNSTR

.def zero=R1

.def buf=R16

.def Bit1 =R17
.def Bit0 =R18
.def SbrosFlag=R19

.def Chislo=R20

//----------
.macro SetBit
   out TIFR,SbrosFlag
   //sbrc chislo,@0
   out OCR1BL,bit1
   sbrs chislo,@0
   out OCR1BL,bit0
.endm

.Macro WaitFlag//ждем когда сбросится счетчик
      in BUF,TIFR         
      ANDi buf,1<<TOV1
      breq PC-2
.endm
//----------

 .org 0

rjmp RESET ; Reset Handler
reti//rjmp EXT_INT0 ; IRQ0 Handler
reti//rjmp PCINT0 ; PCINT0 Handler
reti//rjmp TIM0_OVF ; Timer0 Overflow Handler
reti//rjmp EE_RDY ; EEPROM Ready Handler
reti//rjmp ANA_COMP ; Analog Comparator Handler
reti//rjmp TIM0_COMPA ; Timer0 CompareA Handler
reti//rjmp TIM0_COMPB ; Timer0 CompareB Handler
reti//rjmp WATCHDOG ; Watchdog Interrupt Handler
reti//rjmp ADC ; ADC Conversion Handler
;

//----------

RESET:  //
ldi buf,low(RAMEND)
out SPL, buf
ldi buf,High(RAMEND)
out SPH,buf

//константы
ldi buf,0
mov zero,buf
ldi Bit1,0x0C //значение для передачи 1
ldi Bit0,0x06 //0
ldi SbrosFlag,1<<TOV1

//Настройка таймера 1
Ldi buf,0x13          //Предел счета
out OCR1AH,zero
out OCR1AL,buf

         


//настройка порта
ldi buf,1<<PB2
out DDRB,buf
cbi PORTB,1<<PB2 //на всякий случай выключить порт



//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
//**************************************************8
ldi Xl,low(600) //счечтик отправленных байт
ldi XH,High(600)

ldi Zl,low(0x60) //адрес откуда считывать данные
ldi ZH,High(0x60)



out TCNT1h, zero  //установить счетчик чуть меньшим значение верха
ldi buf,$11
out TCNT1l,buf

//*************************
//Занести ноль в старшой буфер
out OCR1BH,zero
//переключение выхода

ld chislo,Z+
//ldi chislo,0x55
SetBit 7
      

//----------
// понеслась
LDI buf,(1<<WGM10)|(1<<WGM11)|(1<<COM1B1)|(0<<COM1B0)
out TCCR1A,buf
LDI buf,(1<<WGM13)|(1<<WGM12)+1
out TCCR1B,buf
//_____

      WaitFlag
      
Cicle:      
      SetBit 6
      WaitFlag
      
      SetBit 5
      WaitFlag
      
      SetBit 4
      WaitFlag
      

      SetBit 3
      WaitFlag
      
      SetBit 2
      WaitFlag
      

      SetBit 1
      WaitFlag
      
      SetBit 0
      WaitFlag
      
      
SBIW X,1
breq Stop
      ld chislo, Z+
      
      SetBit 7
      WaitFlag
      

      rjmp Cicle

//таймер стоп
Stop:
      out TCCR1B,zero
      out TCCR1A,zero
//&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
loop:

   rjmp loop