;Dung ATmega8535 do nhiet do bang LM35 tai cong ADC.0 - PA.0 ;Hien thi ket qua nhiet do bang 4 led 7 thanh ;cong PB (chon led) va PC (du lieu hien thi so) ; Chon thiet bi . .device AT90S8535 ; Dinh nghia cac cong va thanh ghi ; I/O Register Definitions .equ SREG =$3F .equ GIMSK =$3B .equ GIFR =$3A .equ TIMSK =$39 .equ TIFR =$38 .equ MCUCR =$35 .equ TCCR0 =$33 .equ TCNT0 =$32 .equ TCCR1 =$30 .equ TCNT1 =$2F .equ OCR1A =$2E .equ OCR1B =$2D .equ PORTA =$1B .equ DDRA =$1A .equ PINA =$19 .equ PORTB =$18 .equ DDRB =$17 .equ PORTC =$15 .equ DDRC =$14 .equ ACSR =$08 .equ ADMUX =$07 .equ ADCSR =$06 .equ ADCH =$05 .equ ADCL =$04 .equ SPDR =$0F ;Dinh nghia cac bien dung trong chuong trinh ; Variable Declarations .def temp = r16 .def isrsreg = r18 .def isrtemp1 = r19 .def isrtemp2 = r20 .def cseg = r21 .def seg0 = r22 .def seg1 = r23 .def seg2 = r24 .def seg3 = r25 ;Dinh nghia dia chi ngat cua ADC .equ ADCCaddr=$00E .cseg ;Interrupt Vectors .org 0 rjmp init .org ADCCaddr rjmp ADC_int ; CODE segment.
;Reset ;ADC Conversion Complete
;----------------------------------------------;Han khoi tao ;Initialization init: ldi r16,$FF out DDRB,r16 ;Cho phep 8 cong du lieu PB ;Cong PB dung de giai ma dia chi led
ldi r16,$00 ;Khoi tao cong PB out PORTB,r16 ;Dua 0x00 ra cong PB ldi r16,$FF ;Cho phep 8 cong du lieu PC out DDRC,r16 out PORTC, r16 ;Cong PC hien thi du lieu ldi r16,$01 ;Cong PA.0 dung de nhan tin hieu ADC out PINA,r16 sei ;Cho phep ngat ldi r18,$EF ;Khoi tao tin hieu giai ma dia chi led ;----------------------------------------------;Vong lap vo han loop: cli ;Cam ngat ldi r16,$FE ;Khoi tao ngat ADC.0 che do thu cong out ADCSR,r16 ldi r16,$28 ;Cho phep che do sleep cua CPU out MCUCR,r16 sei ;Cho phep ngat sleep ;CPU nghi cho den khi ngat ADC hoan thanh ;----------------------------------------------;Hien thi so lieu ra cac led 7 thanh ;Ma hien thi led hang tram: 0111.0111 = 0x77 ;Ma hien thi led hang chu : 0011.1011 = 0x3B ;Ma hien thi led hang chuc: 0001.1101 = 0x1D ;Ma hien thi chu C : 0000.1110 = 0x0E ; cpi r18,$0E ; So sanh ma hien thi voi 0x0E breq ganr18 ; Neu =0x0E thi gan tro lai 0xEF rjmp continous ; Neukhong bang 0x0E thi tiep tuc ganr18: ldi r18,$EF ; Gan tro lai gia tri r18 = 0xEF continous: lsr r18 ; Dich thanh ghi r18 sang phai 1 bit cpi r18,$77 ; Neu r18 = 0x77 hien thi led hang tram breq ganseg0 ; Gan du lieu hang tram cho led hang tram cpi r18,$3B ; Neu r18 = 0x3B hien thi led hang chuc breq ganseg1 ; Gan du lieu hang chuc cho led hang chuc cpi r18,$1D ; Neu r18 = 0x1D hien thi du lieu hang don vi breq ganseg2 ; Gan du lieu hang don vi cho led don vi cpi r18,$0E ; Neu r18 = 0x0E hien thi chu cai C breq ganseg3 ; Gan du lieu chu C cho led cuoi cung ganseg0: mov r16,seg0 rjmp loopsub ganseg1: mov r16,seg1 ; Lay du lieu hang tram ; Lay du lieu hang chuc
rjmp loopsub ganseg2: mov r16,seg2 rjmp loopsub ganseg3: mov r16,seg3 rjmp ganchuC loopsub: ldi r17, 1 ; clc ; sub r16, r17 brcs ganso0 ; sub r16, r17 brcs ganso1 ; sub r16, r17 brcs ganso2 ; sub r16, r17 brcs ganso3 ; sub r16, r17 brcs ganso4 ; sub r16, r17 brcs ganso5 ; sub r16, r17 brcs ganso6 ; sub r16, r17 brcs ganso7 ; sub r16, r17 brcs ganso8 ; sub r16, r17 brcs ganso9 ; rjmp ganchuC
; Lay du lieu hang don vi ; Lay du lieu cho chu C
Lay r17 = 1 de so sanh Xoa co nho neu r16 1C ADC_int: cli ;Xoa ngat he thong in r0,ADCL ;Doc gia tri byte thap cua ADC (2bit) in r1,ADCH ;Doc gia tri byte cao cua ADC (8bit) clc ;Xoa co nho add r0,r0 ;Nhan doi gia tri r0 adc r1,r1 ;Nhan doi gia tri r1 co nho (r1:r0 11 bit) ;Convert and display value for output ;Start value taken to be in r1:r0 clr r4 ;r4 chua gia tri hang ngan dc1a: mov r2,r0 ;Lay gia tri byte thap mov r3,r1 ;Lay gia tri byte cao n x 256 ldi r16,$e8 ;Lay gia tri 232 = 1000 - 3x256 sub r2,r16 ;Gia tri byte thap tru di 232 ldi r16,$3 ;lay gia tr 3 sbc r3,r16 ;Gia tri byte cao tru di 3 - C brcs dc1b ;Neu r1:r0 1000 thi tang them r4 mov r0,r2 ;ket qua r1:r0 - 1000 luu vao r0 mov r1,r3 ;ket qua r1:r0 - 1000 luu vao r1
dc1b:
rjmp dc1a ;Tiep tuc lay r1:r0 - 1000 mov seg0,r4 ;Luu gia tri hang ngan vao seg0 tri hang tram 100
clr r4 ;r4 chua gia dc2a: mov r2,r0 ;r1:r0 -100 mov r3,r1 ldi r16,100 ;Lay gia tri sub r2,r16 ;r0 - 100 clr r16 ;Xoa r16 sbc r3,r16 ;r1 - C brcs dc2b ;Neu r1:r0 mov r0,r2 ;Luu gia tri r1:r0 mov r1,r3 rjmp dc2a ;Tiep tuc tru 100 dc2b: mov seg1,r4 ;Luu gia tri clr r4 ;r4 chua gia dc3a: mov r2,r0 ;r1:r0 -10 ldi r16,10 ;Lay gia tri sub r2,r16 ;r0 - 10 brcs dc3b ;Neu r0 10 mov r0,r2 ;Luu r0- 10 rjmp dc3a ;tiep tuc tru 10 dc3b: mov seg2,r4 ;Luu gia tri
100 tang them r4 - 100 hang tram vao seg1 tri hang chuc 10 tang them r4 hang chuc
mov seg3,r0 ;luu gia tri hang don vi sei reti ;tham khao tai ;http://machdientu.googlepages.com/m%E1%BA%A1chvi%C4%91i%E1%BB%81ukhi%E1%BB%83na vratmega8535%C4%91onhi%E1%BB%87t%C4%91%E1%BB%99d%C3%B9n ;Cho phep ngat he thong ;Ket thuc ngat tro ve chuong trinh