Форум РадиоКот

Код: Выделить всё

          ldi Temp1,0
          ldi Temp2,0
          ldi Temp3,10

Loop:     dec Temp1
          brne Loop

          dec Temp2
          brne Loop

          dec Temp3
          brne Loop

Код: Выделить всё

.macro GET_TEMP

 .set pin=@0    ; выставляем пин для использования в процедуре TEMP_PROC
 .set mem=@1 ; а тут байт памяти куда сохранить значение температуры

 push r16 
 push r17

 rcall TEMP_PROC ; сама процедура

 pop r17
 pop r16
.endm

Код: Выделить всё

          ldi Temp1,0
          ldi Temp2,0               ; загружаем значения в регистры
          ldi Temp3,10

Loop:     dec Temp1            ; уменьшаем значение Temp1 на 1. Если там ноль то 0-1=255, тогда крутимся тут ещё 255 раз
          brne Loop                 ; условный переход - если значение в temp1 не равно нулю, то переходим к  метке Loop.

          dec Temp2               ; тоже самое
          brne Loop

          dec Temp3              ; и тут. но когда в temp3 будет ноль - программа выйдет из цикла.
          brne Loop

Код: Выделить всё

TEMP_PROC:
 
 sbi ddr,pin
 cbi port,pin
 WaitUS 220
 sbi port,pin
 cbi ddr,pin
 WaitUS 220
 ;===============Writing
   ldi r17,0xCC
 rcall WRITE_CMD  

 ldi r17,0x4e
 rcall WRITE_CMD  

 ldi r17,0x00
 rcall WRITE_CMD  

 ldi r17,0x00
 rcall WRITE_CMD  

  ldi r17,0b00011111
 rcall WRITE_CMD  

 sbi ddr,pin
 cbi port,pin
 WaitUS 220
 sbi port,pin
 cbi ddr,pin
 WaitUS 220

  ldi r17,0xCC
 rcall WRITE_CMD  

  ldi r17,0x44
 rcall WRITE_CMD  

 WaitMS 150
 ;=================reset

 sbi ddr,pin
 cbi port,pin
 WaitUS 220
 sbi port,pin
 cbi ddr,pin
 WaitUS 220
 ldi r17,0xCC
 rcall WRITE_CMD

  ldi r17,0xBE
 rcall WRITE_CMD
 WaitUS 5
 rcall READ_DATA
;===============
ret

Код: Выделить всё

 WRITE_CMD:
 push r19
 ldi r19,8
wr_st:
 lsr r17
 brcs wr_one
 rjmp wr_zero

wr_one:
 WRITE_1 pin
 rjmp wr_fin

wr_zero:
 WRITE_0 pin

wr_fin:
dec r19
brne wr_st
pop r19
ret

Код: Выделить всё

macro WRITE_0
 push r16

 sbi ddr,@0
 cbi port,@0
 WaitUS 26
 sbi port,@0
 cbi ddr,@0
 WaitUS 1

 pop r16
.endm

Код: Выделить всё

.equ led_auto_port = PORTD      ; порт светодиода "AUTO"
.equ led_uart_port = PORTD      ; порт светодиода "UART"
...
.equ btn_auto_port = PORTD      ; порт кнопки "AUTO"
.equ btn_uart_port = PORTD      ; порт кнопки "UART"
...
.equ led_auto_bit = 4           ; бит светодиода "AUTO"
.equ led_uart_bit = 3           ; бит светодиода "UART"
...
.equ btn_auto_bit = 6           ; бит кнопки "AUTO"
.equ btn_uart_bit = 5           ; бит кнопки "UART"

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
.equ led_auto_ddr = led_auto_port-1 ; А вот так вычисляем DDR
.equ led_uart_ddr = led_uart_port-1
..
.equ led_prog_pin = led_prog_port-2 ; А так PIN
.equ led_auto_pin = led_auto_port-2
...

Код: Выделить всё

.MACRO	test_uart_btn
sbic  btn_uart_pin, btn_uart_bit
rjmp ml07                       ; пропуск, если бит не установлен (кн. нажата)
    inc r_btn_uart              ; если нажата - увеличиваем счетчик
    mov tr0,r_btn_uart
    cpi tr0, btn_delay          ; счетчик досчитал?
    brne ml07                   ; если нет - уходим
    clr r_btn_uart              ; если да - сбрасываем счетчик
    ori r_btn_press,(1<<BUF_flag)  ; устанавливаем флаг нажатия
    ori r_tasks,(1<<BUT_flag)   ; устанавливаем флаг действия
    rjmp ml08
ml07:                           ; кнопка не нажата или нажатие отработано
    sbrs r_btn_press,BUF_flag   ; проверяем, установлен ли флаг нажатия
    rjmp ml08
    clr r_btn_uart              ; если да, сбрасываем счетчик
    sbis  btn_uart_pin, btn_uart_bit ; проверяем снова кнопку
    rjmp ml08                   ; если нажата - выходим
    andi r_btn_press,~(1<<BUF_flag) ; если нет - сбрасываем бит нажатия
ml08:

Код: Выделить всё

temp_home:
GET_TEMP PB4,t_room
ret


temp_heater:
GET_TEMP PB5,t_heater
ret