Разработка устройства показывающего время, температуру воздуха и атмосферное давление

outDDRC,temp

lditemp,0b01111111 ;PortC7-минус, PortB5- выход для мигалки batt - ;красный

;PortB0,1,2 - разр темп;

outDDRB,temp

lditemp,0xFF

outTIFR,temp ;сбросить все прерывательные флаги в таймерах

;установка АЦП

lditemp,1<<ADEN|1<<ADIE|1<<ADPS2|1<<ADPS0 ;start ADC 1/32 такт = 128 ;кГц; interrupt enable

out ADCSR,temp

;установка таймеров

lditemp, high(62968) ;старший дивизора

outOCR1AH,temp ;64000 значение для 1 сек при прескалере 1:64

lditemp, low(62968) ;младший дивизора

outOCR1AL,temp ;64000 значение для 1 сек при прескалере 1:64

ldi temp,0b01000000

out TCCR1A,temp ;это означает переключающую моду для выхода РD5- ;OC1A таймера 1

ldi temp,0b00001011

out TCCR1B,temp ;1/64 timer1 ;clear when compare

ldi temp,0b00000010

out TCCR0,temp ;Timer0 on div 1:8;управление разрядами 2000 Гц

;прерывания

lditemp,(1<<TOIE0)|(1<<OCIE1A);разр. прер. T0 & T1 compare

outTIMSK,temp

lditemp,255

outTIFR,temp

outGIFR,temp

;начальная установка переменных

ldi r29,1 ;пишем в RAM, начиная c 01:00

clrcount

clrcSek

clrcMin

clrcHour

clrcountCyk

clrcRazr

clrFlag

sbr Flag,0x1 ;сначала пишем температуру

;обнуление рабочих ячеек

clr temp

ldi r28,Tram ;Tempr

stY+,temp

stY,temp

ldi r28,Pram ;Prs

stY+,temp

stY,temp

ldi r28,Bram ;Batt

stY+,temp

stY,temp

ldi r28,DdH ;часы старш дес

stY+,temp

stY,temp

ldi r28,DdM

stY+,temp

stY,temp

ldi r28,Hh ;установка Y

stY+, temp

stY, temp

;запись предварительных коэффициентов

ldi r28,tZH ;начальный адрес

; Z Tempr=461 addr=20h

lditemp,0x01 ;ст

stY+,temp ;мл

lditemp,0xCD

stY+,temp

; K Tempr=1111 addr=22h

lditemp,0x04 ;ст

stY+,temp

lditemp,0x57 ;мл

stY+,temp

; Z prs=4 addr=24h

lditemp,0x00 ;ст

stY+,temp

lditemp,0x04 ;мл

stY+,temp

; K prs=930 addr=26h

lditemp,0x03 ;ст

stY+,temp

lditemp,0xA2 ;мл

stY,temp

; Divisor =62968 addr=1Ah

ldi r28,dQH

lditemp,0xF5 ;ст

stY+,temp

lditemp,0xF8 ;мл

stY,temp

sei ;разрешаем прерывания

G_cykle: ;основной цикл

rcall in_com

cpitemp, Const_W ;A0 запись RAM

breq cont_1

cpitemp, Const_RAM ;A3 читать RAM

breq cont_4

cpitemp, Const_TZ ;A4 читать знак T

breq cont_5

cpitemp, Const_H ;A5 ;установка часов

breq cont_6

cpitemp, Const_S0 ;A6 ;;сброс сек

breq cont_7

cpitemp, Const_59 ;A7 ;установка сек в 59

breq cont_8

cpitemp, 0xAA ;AA ;проверка связи

breq cont_9

rjmp G_cykle

cont_1:; запись в RAM из компа послать A0, затем байт ;адрес+байт данных , получить АА

rcall A0

rjmp G_Cykle

cont_4: ;читать RAM из компа послать A3, затем байт адрес

rcall A3

rjmp G_cykle

cont_5: ;знак темп

rcallA4

rjmp G_cykle

cont_6: ;установка часов

rcallA5

rjmp G_cykle

cont_7: ;сброс секунд

rcallA6

rjmp G_cykle

cont_8: ;установка сек в 59

rcallA7

rjmp G_cykle

cont_9: ;AA - проверка связи

ldi temp,0xEE

rcall out_com

rjmp G_cykle

A0:;A0 запись RAM

cli

rcall in_com

movtemp1,temp;addr

movr28,temp;addr

rcall in_com ;data

stY,temp ;собственнo запись произведена

cpitemp1,dQL ;если адрес был младший дивизора кварца сразу же и ;в дело

brne_comp

outOCR1AL,temp ;64000 значение для 1 сек при прескалере 1:64

_comp:

cpitemp1,dQH ;если адрес был старший дивизора

brne_out

outOCR1AH,temp ;64000 значение для 1 сек при прескалере 1:64

_out:

lditemp,0xAA

rcall out_com

sei

ret

A3:;чтение RAM

cli

rcall in_com ;address

mov r28,temp ;установка Y

ldtemp,Y

rcall out_com

sei

ret

A4: ;знак темп

cli

clr temp;1 =знак -

sbic PortB,6

ldi temp,1

rcall out_com

sei

ret

A5: ;установка часов, всего нужно установить восемь ;мест: cMin, по addr Mh, два десятичных DdM,

;cHour, по addr Hh, два десятичных DdH

cli

rcall in_com ;минуты

movcMin,temp

rcall in_com ;часы

movcHour,temp

ldi r28,Hh ;установка Y

stY+, cHour

stY, cMin

mov temp,cHour

rcallbin2bcd8

ldi r28,DdH

stY+,temp1

stY,temp

mov temp,cMin

rcallbin2bcd8

ldi r28,DdM

stY+,temp1

stY,temp

sei

ret

A6:

clr cSek

ret

A7:

ldi cSek,59

ret

Размещено на Allbest.ru